         PROC                                                           00000000
ZM#DPCT  NAME                                                           00000010
ZA#DPCT  DSECT                                                          00000020
*                                                                       00000030
*  PROGRAM CONTROL TABLE RECORD                                         00000040
*                                                                       00000050
ZA#CNAME DS    CL8                 ACTION PROGRAM NAME                  00000060
ZA#CPEP  DS    F                        ACTION PROG ENTRY POINT         00000070
ZA#CPLA  DS    F                        PROG LOAD AREA DDRESS           00000080
ZA#CPLEN DS    H                   ACTION PROGRAM LENGTH                00000090
ZA#CIND  DS    XL1                 CONTROL INDICATORS                   00000100
*                                                                       00000110
*    EQUATES FOR ZA#CIND                                                00000120
*                                                                       00000130
ZA#CIREN EQU   X'80'               RE-ENTRANT                           00000140
ZA#CIDWN EQU   X'40'               PROGRAM DOWN                         00000150
ZA#CIERR EQU   X'20'               ERROR RETURN                         00000160
ZA#CIRES EQU   X'10'                    RESIDENT                        00000170
*                                                                       00000180
ZA#DADA  DS    2F                       DA SPEC FOR LOADI/R             00000185
         DS    0F                                                       00000190
ZA#CLEN  EQU   *-ZA#DPCT           LENGTH OF PROGRAM CONTROL TABLE      00000200
&SYSECT  CSECT                                                          00000210
         END                                                            00000220
