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