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