&PL      PROC  &P,2                                                     BRK00010
BRKPT    NAME  0                                                        BRK00020
.*       BRKPT DTF OR CCB ADDR                                          BRK00030
.*       BRKPT (1)                                                      BRK00040
.*                                                                      BRK00050
.*       P(1) MAY BE AN ADDRESS, OR REG 1, EXPRESSED AS (1) OR 1        BRK00060
.*       &BB IS DEFINED AS &P(1) IS DIFFERENT THAN 1 OR (1)             BRK00070
.*                                                                      BRK00080
.*       SUMMARY OF CODE GENERATED:                                     BRK00090
.*       CNOP  0,4                 &BB                                  BRK00100
.*       L     1,B1                &BB                                  BRK00110
.*       B     *+8                 &BB                                  BRK00120
.*   B1  DC    A(&P(1))            &BB                                  BRK00130
.*       SVC   81                                                       BRK00140
.*                                                                      BRK00150
.*                                                                      BRK00160
         LCL   &BB,&X                                                   BRK00170
         DO    '&P(1)'=''                                               BRK00180
         PNOTE 'P','PARAMETER 1 MISSING'                                BRK00190
         GOTO  .EXIT                                                    BRK00200
         ENDO                                                           BRK00210
&BB      SET   ('&P(1)'='(1)')++('&P(1)'='1')=0                         BRK00220
&X       SET   '&PL.        '(1,8)                                      BRK00230
&X          DS    0H                                                    BRK00240
         DO    &BB                                                      BRK00250
                   CNOP  0,4                                            BRK00260
                   L     1,*+8                                          BRK00270
                   B     *+8                                            BRK00280
                   DC    AL4(&P(1))                                     BRK00290
         ENDO                                                           BRK00300
                   SVC   81                                             BRK00310
                   LTR   0,0                                            BRK00320
         DO    '&P(2)'=''                                               BRK00330
                   BNM   *+6                                            BRK00340
                   SVC   28             CANCEL IF ERROR                 BRK00350
         GOTO  .EXIT                                                    BRK00360
         ENDO                                                           BRK00370
         DO    '&P(2)'(1,1)='('                                         BRK00380
                   BMR   &P(2)                                          BRK00390
         GOTO  .EXIT                                                    BRK00400
         ENDO                                                           BRK00410
                   BM    &P(2)                                          BRK00420
.EXIT    LABEL                                                          BRK00430
         END                                                            BRK00440
