MACRO 00001000
ANCHTAB 00002000
PUSH PRINT 00002100
AIF ('&SYSPARM' NE 'SUP').ACC01 00002200
PRINT OFF,NOGEN 00002300
.ACC01 ANOP 00002400
ANCHSECT DSECT , ANCHOR TABLE, WITH ANCHOR-TABLE ENTRIES: 00003000
* 00004000
* BEGINNING OF AN ANCHOR-TABLE: 00005000
* 00006000
ANCHENDA DC A(0) END ADDRESS OF ANCHOR TABLE 00007000
DC F'0' RESERVED 00008000
ANCHCBS DC A(0) POINTER TO VSAM "AMCB" TABLE 00009000
ANCHOAL DC A(0) POINTER TO VSAM "OAL" (OPEN ACB) TABLE 00010000
* 00011000
* FOLLOWED BY ONE OR MORE ANCHOR-TABLE ENTRIES OF THE FOLLOWING FORMAT: 00012000
* 00013000
ANCHPHNM DC CL8' ' PHASE NAME 00014000
ANCHLDPT DC A(0) LOAD POINT 00015000
ANCHENTP DC A(0) ENTRY POINT 00016000
ANCHSTSW DC X'00' STATUS SWITCH 00017000
ANCHPHLN DC AL3(0) LENGTH OF PHASE IN BYTES 00018000
* 00019000
* ANCHSTSW DEFINITIONS: 00020000
* 00021000
ANCHMLOD EQU X'00' PHASE MUST BE LOADED 00022000
ANCHINST EQU X'7F' PHASE IS ALREADY IN STORAGE 00023000
ANCHRPJL EQU X'FF' REQUESTED PHASE JUST LOADED BY 00024000
* ANOTHER TASK (ONLY IF AP=YES) 00025000
ANCHLENG EQU 20 LENGTH OF ONE ANCHOR-TABLE ENTRY 00026000
* 00027000
ANCHSIZ EQU 1024 DEFAULT SIZE OF ANCHOR TABLE (IN BYTES) 00028000
EJECT 00029000
POP PRINT 00029100
MEND 00030000