&PL      PROC  &P,40                                                    DCF00010
DCFLT    NAME  0                                                        DCF00020
.*                                                                      DCF00030
.*       DCFLT (PIOFILE1,TMC1,BC1),...(PIOFILEN,TMCN,BCN),(PIOFILEA)... DCF00040
.*             PIOFILEM)                                                DCF00050
.*       THE CHKPT MACRO INSTRUCTION REQUIRES THE SPECIFICATION OF A    DCF00060
.*       TABLE OF PHYSICAL I/O FILES, IF THE CHECKPOINTED PROGRAM USES  DCF00070
.*       PHYSICAL IOCS. THIS TABLE IS GENERATED BY THE DCFLT MACRO.     DCF00080
.*       EACH SUBLIST MAY CONTAIN THREE ENTRIES(TAPE FILE) OR ONE ENTRY DCF00090
.*       (NON-TAPE FILE). EACH SUBLIST GENERATES THREE ADDR CONSTANTS.  DCF00100
.*                                                                      DCF00110
         LCL   &X,&AA,&BB                                               DCF00120
         DO    '&P(1,1)'=''                                             DCF00130
         PNOTE 'P','PARAMETER 1 MISSING'                                DCF00140
         GOTO  .EXIT                                                    DCF00150
         ENDO                                                           DCF00160
&X       SET   '&PL'        '(1,8)                                      DCF00170
                   CNOP  0,4                                            DCF00180
&X           DS    0H                                                   DCF00190
&AA      SET   N'&P                                                     DCF00200
&BB      SET   0                                                        DCF00210
         DO    &AA                                                      DCF00220
&BB      SET   &BB+1                                                    DCF00230
                   DC    A(&P(&BB,1))                                   DCF00240
         DO    N'&P(&BB)=1                                              DCF00250
                   DC    2A(0)                                          DCF00260
         GOTO  .NEXT                                                    DCF00270
         ENDO                                                           DCF00280
         DO    (N'&P(&BB)=3)=0                                          DCF00290
         PNOTE 'P','PARAMETERS INCORRECTLY SPECIFIED'                   DCF00300
         GOTO  .EXIT                                                    DCF00310
         ENDO                                                           DCF00320
                   DC    A(&P(&BB,2))                                   DCF00330
                   DC    A(&P(&BB,3))                                   DCF00340
.NEXT    LABEL                                                          DCF00350
         ENDO                                                           DCF00360
                   DC    X'FF00'                                        DCF00370
.EXIT    LABEL                                                          DCF00380
         END                                                            DCF00390
