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