&PL      PROC                                                           DDC00010
DDCPF    NAME  0                                                        DDC00020
.*                                                                      DDC00030
.*       DDCPF NO PARAMETERS                                            DDC00040
.*                                                                      DDC00050
.*       DEFINE DISC CHECKPOINT FILE RESERVES AND INITIALIZES 132 BYTES DDC00060
.*       REQUIRED FOR A SINGLE PARTITIONED SAT DTF                      DDC00070
.*                                                                      DDC00080
         LCL   &TYP1                                                    DDC00090
&TYP1    SET   '&PL.        '(1,8)                                      DDC00100
                   DS    0H                                             DDC00110
                   CNOP  0,8                                            DDC00120
&TYP1        EQU   *                                                    DDC00130
                   DC    7F'0'                                          DDC00140
                   DC    CL8'&TYP1'                                     DDC00150
                   DC    XL2'2000'                                      DDC00160
                   DC    4H'0'                                          DDC00170
                   DC    XL4'02011100'                                  DDC00180
                   DC    Y(0)                                           DDC00190
                   DC    7F'0'                                          DDC00200
                   DC    XL2'0100'                                      DDC00210
                   DC    Y(0)                                           DDC00220
                   DC    2F'0'                                          DDC00230
                   DC    XL1'1'                                         DDC00240
                   DC    AL3(*+3)                                       DDC00250
                   DC    5F'0'                                          DDC00260
                   DC    Y(256)                                         DDC00270
                   DC    Y(1)                                           DDC00280
                   DC    2H'0'                                          DDC00290
                   DC    Y(100)                                         DDC00300
                   DC    H'0'                                           DDC00310
         DC    YL1(60)                                                  DDC00320
                   DC    AL3(0)                                         DDC00330
         END                                                            DDC00340
