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