MACRO 00001000 FSTB 00002000 PUSH PRINT 00002200 AIF ('&SYSPARM' NE 'SUP').ACC01 00002400 PRINT OFF,NOGEN 00002600 .ACC01 ANOP 00002800 * 00003000 * FILE STATUS TABLE (FILE DIRECTORY) BLOCK 00004000 * 00005000 FSTSECT DSECT 00006000 FSTN DS 1D FILE NAME - 0 00007000 FSTT DS 1D FILE TYPE - 8 00008000 FSTD DS 1F DATE/TIME LAST WRITTEN - 16 00009000 FSTWP DS 1H WRITE POINTER (ITEM NO.) - 20 00010000 FSTRP DS 1H READ POINTER (ITEM NO.) - 22 00011000 FSTM DS 1H FILE MODE - 24 00012000 FSTIC DS 1H ITEM COUNT - 26 00013000 FSTFCL DS 1H FIRST CHAIN LINK - 28 00014000 FSTFV DS 1C FIXED(F)/VARIABLE(V) FLAG - 30 00015000 FSTFB DS 1C FLAG BYTE (IF USED) - 31 00016000 FSTIL DS 1F (MAXIMUM) ITEM LENGTH - 32 00017000 FSTDBC DS 1H 800-BYTE DATA BLOCK COUNT - 36 00018000 FSTYR DS 1H YEAR - 38 00019000 FSTL EQU *-FSTSECT 00020000 * 00021000 * "FSTFB" FLAG-BYTE DEFINITIONS 00022000 * 00023000 * (APPLICABLE ONLY TO "STATEFST" COPY OF FST-ENTRY 00024000 * AFTER SUCCESSFUL "STATE" OR "STATEW" CALL.) 00025000 * 00026000 FSTFRO EQU X'00' READ-ONLY DISK 00027000 FSTFROX EQU X'40' READ-ONLY EXTENSION OF READ-ONLY DISK 00028000 FSTFRW EQU X'80' READ-WRITE DISK 00029000 FSTFRWX EQU X'C0' READ-ONLY EXTENSION OF READ-WRITE DISK 00030000 * 00031000 FSTFACT EQU X'07' FILE "ACTIVE" - ONE OF THE FOLLOWING: 00032000 FSTFAR EQU X'04' FILE ACTIVE FOR READING 00033000 FSTFAW EQU X'02' FILE ACTIVE FOR WRITING 00034000 FSTFAP EQU X'01' FILE ACTIVE FROM A "POINT" 00035000 * 00036000 * APPLICABLE TO RDBUF 00036100 FSTITAV EQU X'40' ITEM AVAILABLE 00036200 FSTRECAV EQU X'01' PREVIOUS RECORD NULL 00036300 FSTNOIT EQU X'00' NULL RECORD 00036400 * 00037000 * FST HYPER-BLOCK PARAMETERS 00038000 * 00039000 FSTFWDP EQU 800 FORWARD POINTER (TO NEXT HYPERBLOCK IN CORE) 00040000 FSTBKWD EQU 804 BACKWARD POINTER (TO PREVIOUS HYPERBLOCK IN CORE) 00041000 * 00042000 EJECT 00043000 POP PRINT 00043100 MEND 00044000