&PL      PROC  &P,1                                                     DCP00010
DCPOPN   NAME  0                                                        DCP00020
.*                                                                      DCP00030
.*       DCPOPN FILENAME                                                DCP00040
.*       DCPOPN (1)                                                     DCP00050
.*                                                                      DCP00060
.*       DISC CHECKPOINT OPEN ISSUES A SAT OPEN                         DCP00070
.*                                                                      DCP00080
.*       &AA  IS DEFINED AS &P(1) IS NOT 1 OR (1)                       DCP00090
.*                                                                      DCP00100
.*       CODE GENERATED                 CONDITIONS                      DCP00110
.*       CNOP  0,4                      &AA                             DCP00120
.*       L     1,*+8                    &AA                             DCP00130
.*       B     *+8                      &AA                             DCP00140
.*       DC    A(&P(1))                 &AA                             DCP00150
.*       SVC   38                                                       DCP00160
.*                                                                      DCP00170
         LCL   &X,&AA                                                   DCP00180
         DO    '&P(1)'=''                                               DCP00190
         PNOTE 'P','PARAMETER 1 MISSING'                                DCP00200
         GOTO  .EXIT                                                    DCP00210
         ENDO                                                           DCP00220
&X       SET   '&PL'        '(1,8)                                      DCP00230
&X           DS    0H                                                   DCP00240
&AA      SET   ('&P(1)'='(1)')++('&P(1)'='1')=0                         DCP00250
         DO    &AA                                                      DCP00260
                   CNOP  0,4                                            DCP00270
                   L     1,*+8                                          DCP00280
                   B     *+8                                            DCP00290
                   DC    A(&P(1))                                       DCP00300
         ENDO                                                           DCP00310
                   SVC   38                                             DCP00320
                   SVC   39                                             DCP00330
                   SVC   38                                             DCP00340
.EXIT    LABEL                                                          DCP00350
         END                                                            DCP00360
