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