MACRO                                                          00001000
         AFT                                                            00002000
         PUSH  PRINT                                                    00002200
         AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002400
         PRINT OFF,NOGEN                                                00002600
.ACC01   ANOP                                                           00002800
*                                                                       00003000
* ACTIVE FILE TABLE BLOCK                                               00004000
*                                                                       00005000
AFTSECT  DSECT                                                          00006000
AFTCLD   DS    H              DISK ADDRESS OF CURRENT CHAIN LINK - 0    00007000
AFTCLN   DS    H              NUMBER OF CURRENT CHAIN LINK - 2          00008000
AFTCLA   DS    F              CORE ADDRESS OF CHAIN LINK BUFFER - 4     00009000
AFTDBD   DS    H              DISK ADDRESS OF CURRENT DATA BLOCK - 8    00010000
AFTDBN   DS    H              NUMBER OF CURRENT DATA BLOCK - 10         00011000
AFTDBA   DS    F              CORE ADDRESS OF CURRENT DATA BLOCK - 12   00012000
AFTCLB   DS    XL80          CHAIN LINK BUFFER FROM 1ST CHAIN LINK - 16 00013000
AFTFLG   DS    X              FLAG BYTE - 96                            00014000
AFTPFST  DS    3X             POINTER TO (STATIC) FST-ENTRY - 97        00015000
AFTIN    DS    H              CURRENT ITEM NUMBER - 100                 00016000
AFTID    DS    H         DISPLACEMENT OF CURRENT ITEM IN DATA BLK - 102 00017000
AFTFCLA  DS    F              CORE ADDRESS OF FIRST CHAIN LINK          00018000
AFTFCLX  DS    H              DISK ADDRESS OF SWAPPED FCL               00019000
AFTCLDX  DS    H              DISK ADDRESS OF SWAPPED CHAIN LINK        00020000
AFTFLG2  DS    X              SECOND FLAG-BYTE                          00021000
         DS    1X             -RESERVED FOR FUTURE USE-                 00022100
AFTOCLDX DS    1H             OLD VALUE (IF ANY) OF AFTCLDX             00022200
*                                                                       00023000
*        FLAG BYTE (AFTFLG) DEFINITIONS                                 00024000
*                                                                       00025000
AFTUSED  EQU   X'80'          ACTIVE FILE TABLE BLOCK IN USE            00026000
***      EQU   X'40'                                                    00027000
AFTICF   EQU   X'20'          FIRST CHAIN LINK IN CORE FLAG             00028000
AFTFBA   EQU   X'10'          FULL BUFFER ASSIGNED                      00029000
AFTDBF   EQU   X'08'          DATA BLOCK IN CORE FLAG                   00030000
AFTWRT   EQU   X'04'          ACTIVE WRITE                              00031000
AFTRD    EQU   X'02'          ACTIVE READ                               00032000
AFTFULD  EQU   X'01'          FULL-DISK SPECIAL CASE                    00033000
*                                                                       00034000
*        SECOND FLAG-BYTE (AFTFLG2) DEFINITIONS                         00035000
*                                                                       00036000
AFTNEW   EQU   X'80'          BRAND NEW FILE                            00037000
AFTOLDCL EQU   X'40'          CURRENT CHAIN LINK EXISTED PREVIOUSLY     00038000
AFTCLX   EQU   X'20'          ALTERNATE CHAIN-LINK ASSIGNED/IMPLIED     00039000
SAMELEN  EQU   X'01'          FORCE SAME LENGTH UPDATE                  00039500
*                                                                       00040000
* COPY OF FST BLOCK IMBEDDED IN AFT BLOCK                               00041000
*                                                                       00042000
AFTFST   DS    0D             - 120                                     00043000
AFTN     DS    D              FILE NAME                                 00044000
AFTT     DS    D              FILE TYPE                                 00045000
AFTD     DS    F              DATE/TIME LAST WRITTEN                    00046000
AFTWP    DS    H              WRITE POINTER (ITEM NO.)                  00047000
AFTRP    DS    H              READ POINTER (ITEM NO.)                   00048000
AFTM     DS    H              FILE MODE                                 00049000
AFTIC    DS    H              ITEM COUNT                                00050000
AFTFCL   DS    H              FIRST CHAIN LINK                          00051000
AFTFV    DS    C              FIXED(F)/VARIABLE(V) FLAG                 00052000
AFTFB    DS    X              FST FLAG BYTE                             00053000
AFTIL    DS    F              (MAXIMUM) ITEM LENGTH                     00054000
AFTDBC   DS    H              800-BYTE DATA BLOCK COUNT                 00055000
AFTYR    DS    H              YEAR                                      00056000
AFTADT   DS    F              POINTER TO ACTIVE DISK TABLE - 160        00057000
AFTPTR   DS    F              POINTER TO NEXT AFT BLOCK IN CHAIN - 164  00058000
*                                                                       00059000
AFTFSF   EQU   X'40'          BIT IN AFTPTR INDICATES IN FREE STORAGE   00060000
*                                                                       00061000
         DS    0D             END OF DSECT                              00062000
AFTLB    EQU   *-AFTSECT      LENGTH OF AFT BLOCK IN BYTES              00063000
AFTLD    EQU   AFTLB/8        LENGTH OF AFT BLOCK IN DOUBLE WORDS       00064000
         POP   PRINT                                                    00064100
         MEND                                                           00065000