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