MACRO                                                          00001000
         FCHTAB &SECT                                                   00002000
         PUSH  PRINT                                                    00002100
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002200
         PRINT OFF,NOGEN                                                00002300
.ACC01   ANOP                                                           00002400
         AIF   ('&SECT' EQ 'CSECT').CSECT                               00003000
FCHTAB   DSECT ,              FETCH TABLE:                              00004000
         AGO   .CONT                                                    00005000
.CSECT   ANOP                                                           00006000
         ENTRY FCHTAB                                                   00007000
FCHTAB   DS    0D             FETCH TABLE:                              00008000
.CONT    ANOP                                                           00009000
*                                                                       00010000
* 8-BYTE PARAMETER LIST POINTING TO DIRECTORY LIST:                     00011000
*                                                                       00012000
FCHAPHNM DC    A(DIRNAME)     ADDRESS OF PHASE NAME                     00013000
FCHOPT   DC    X'00'          OPTIONS                                   00014000
FCHALSNM DS    AL3            ADDRESS OF LISTNAME                       00015000
*                                                                       00016000
* 34-BYTE DIRECTORY LIST:                                               00017000
*                                                                       00018000
DIRNAME  DS    CL8            PHASE NAME                                00019000
DIRTTR   DS    XL3            PHASE TTR                                 00020000
DIRN     DS    XL1            NO. HALF WORDS IN DIRECTRY                00021000
DIRTT    DS    XL2            NO. TEXT BLOCKS IN PHASE                  00022000
DIRLL    DS    XL2            LENGTH LAST TEXT BLOCK                    00023000
DIRC     DS    XL1            FLAG BYTE                                 00024000
DIRT     DS    XL1            RESERVED                                  00025000
DIRPPP   DS    XL3            PHASE LOAD POINT                          00026000
DIREEE   DS    XL3            PHASE ENTRY POINT                         00027000
DIRRR    DS    XL2            NUMBER RLD ITEMS IN PHASE                 00028000
DIRR     DS    XL1            NO. ADDITIONAL RLD BLOCKS                 00029000
DIRAAA   DS    XL3            PARTITION START ADDRESS                   00030000
DIRK     DS    XL1            UNUSED                                    00031000
DIRVEE   DS    XL3            PHASE ENTRY POINT IN SVA                  00032000
         SPACE 1                                                        00033000
FCHLENG  EQU   *-FCHTAB       TOTAL LENGTH (42) IN BYTES                00034000
FCHLENDW EQU   (FCHLENG+7)/8  TOTAL LENGTH IN DOUBLE WORDS              00035000
*                                                                       00036000
*        EQUATES FOR DIRC FLAG                                          00037000
*                                                                       00038000
SELFREL  EQU   X'80'          PHASE SELF RELOCATABLE                    00039000
RELPHSE  EQU   X'40'          PHASE TO BE RELOCATED                     00040000
SVAELIG  EQU   X'20'          PHASE SVA ELIGIBLE                        00041000
SVAPHSE  EQU   X'10'          PHASE IN SVA                              00042000
PCLPHSE  EQU   X'08'          PHASE IN PRIV C.I.L.                      00043000
PNOTFND  EQU   X'04'          PHASE NOT FOUND                           00044000
DACTIVE  EQU   X'02'          PHASE DIRECTORY ACTIVE                    00045000
NOTEXT   EQU   X'01'          TEXT = NO  SPECIFIED                      00046000
         EJECT                                                          00047000
         POP   PRINT                                                    00047100
         MEND                                                           00048000