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