&PCL     PROC  &P,0,&BLKSIZE=,&EODADDR=,&FORMAT=,&IOAREA1=,&LACE=,&SEQ=XPCA00010
               ,&SIZE=,&UOS=,&VERIFY=,&KEYLEN=,&LBLK=,&SEPASMB=         PCA00020
PCA      NAME                                                           PCA00030
         LCL   &BKZ                                                     PCA00040
         LCL   &CNT                                                     PCA00050
         LCL   &PFLG                                                    PCA00060
         LCL   &BPT                                                     PCA00070
         LCL   &SPB                                                     PCA00080
         DO    '&IOAREA1'=''                                            PCA00090
         PNOTE 'P','IOAREA1 NOT SPECIFIED'                              PCA00100
         ENDO                                                           PCA00110
         DO    1-('&SEPASMB'='NO')                                      PCA00112
         DO    1-('&IOAREA1'='')                                        PCA00120
         EXTRN &IOAREA1                                                 PCA00130
         ENDO                                                           PCA00140
         DO    1-('&EODADDR'='')                                        PCA00150
         EXTRN &EODADDR                                                 PCA00160
         ENDO                                                           PCA00170
         ENDO                                                           PCA00172
         ENTRY &PCL                                                     PCA00180
&PCL     DC    F'1'                                                     PCA00190
         DC    2F'0'                                                    PCA00200
         DC    F'1'                                                     PCA00210
         DO    1-('&LBLK'='')                                           PCA00220
         DC    YL1(&LBLK)                                               PCA00230
         GOTO  .C                                                       PCA00240
         ENDO                                                           PCA00250
         DC    XL1'01'                                                  PCA00260
.C       LABEL                                                          PCA00270
         DC    AL3(&IOAREA1)                                            PCA00280
         DO    '&BLKSIZE'=''                                            PCA00290
         PNOTE 'P','BLKSIZE NOT SPECIFIED'                              PCA00300
         ENDO                                                           PCA00310
         DC    H'&BLKSIZE'                                              PCA00320
         DC    H'1'                                                     PCA00330
         DO    1-('&LACE'='')                                           PCA00340
         DC    H'&LACE'                                                 PCA00350
         GOTO  .P1                                                      PCA00360
         ENDO                                                           PCA00370
         DO    1-('&KEYLEN'='')                                         PCA00380
         DC    H'&KEYLEN'                                               PCA00390
         GOTO  .P1                                                      PCA00400
         ENDO                                                           PCA00410
         DC    H'0'                                                     PCA00420
.P1      LABEL                                                          PCA00430
         DO    1-('&UOS'='')                                            PCA00440
         DC    H'&UOS'                                                  PCA00450
         GOTO  .P2                                                      PCA00460
         ENDO                                                           PCA00470
         DC    H'0'                                                     PCA00480
.P2      LABEL                                                          PCA00490
         DO    ('&SIZE'='')**('&UOS'='')                                PCA00500
         DC    H'1'                                                     PCA00510
         GOTO  .P3                                                      PCA00520
         ENDO                                                           PCA00530
         DO    '&SIZE'=''                                               PCA00540
         DC    H'&UOS'                                                  PCA00550
         GOTO  .P3                                                      PCA00560
         ENDO                                                           PCA00570
         DC    H'&SIZE'                                                 PCA00580
.P3      LABEL                                                          PCA00590
         DC    H'0'                                                     PCA00600
&PFLG    SET   X'00'                                                    PCA00610
         DO    '&FORMAT'='NO'                                           PCA00620
&PFLG    SET   &PFLG+128                                                PCA00630
         ENDO                                                           PCA00640
         DO    '&VERIFY'='YES'                                          PCA00650
&PFLG    SET   &PFLG+16                                                 PCA00660
         ENDO                                                           PCA00670
         DO    1-('&LACE'='')                                           PCA00680
&PFLG    SET   &PFLG+64                                                 PCA00690
         ENDO                                                           PCA00700
         DO    1-('&LBLK'='')                                           PCA00710
&PFLG    SET   &PFLG+1                                                  PCA00720
&PFLG    SET   &PFLG+32                                                 PCA00730
         GOTO  .P4                                                      PCA00740
         ENDO                                                           PCA00750
         DO    '&SEQ'='YES'                                             PCA00760
&PFLG    SET   &PFLG+32                                                 PCA00770
         ENDO                                                           PCA00780
.P4      LABEL                                                          PCA00790
         DO    '&UOS'=''                                                PCA00800
&PFLG    SET   &PFLG+4                                                  PCA00810
         ENDO                                                           PCA00820
         DO    1-('&KEYLEN'='')                                         PCA00830
&PFLG    SET   &PFLG+2                                                  PCA00840
         ENDO                                                           PCA00850
&PFLG    SET   &PFLG+8                                                  PCA00860
         DC    YL1(&PFLG)                                               PCA00870
         DO    1-('&EODADDR'='')                                        PCA00880
         DC    AL3(&EODADDR)                                            PCA00890
         GOTO  .PZ                                                      PCA00900
         ENDO                                                           PCA00910
         DC    AL3(0)                                                   PCA00920
.PZ      LABEL                                                          PCA00930
         DO    ((1-('&LACE'=''))**('&FORMAT'='NO'))                     PCA00940
         PNOTE 'P','FORMAT AND LACE SPECIFICATIONS MUTUALLY EXCLUSIVE'  PCA00950
         ENDO                                                           PCA00960
         DO    ((1-('&LACE'=''))**(1-('&KEYLEN'='')))                   PCA00970
         PNOTE 'P','KEYLEN AND LACE SPECIFICATION MUTUALLY EXCLUSIVE'   PCA00980
         ENDO                                                           PCA00990
         END                                                            PCA01000
