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