MACRO 00001000 FSTD 00002000 PUSH PRINT 00002200 AIF ('&SYSPARM' NE 'SUP').ACC01 00002400 PRINT OFF,NOGEN 00002600 .ACC01 ANOP 00002800 SPACE 00003000 * 00004000 *** FSTD - FILE STATUS TABLE ENTRY 00005000 * 00006000 * 0 +---------------------------------------+ 00007000 * | FSTFNAME | 00008000 * 8 +---------------------------------------+ 00009000 * | FSTFTYPE | 00010000 * 10 +---------+---------+---------+---------+ 00011000 * |FSTDATEW |FSTTIMEW |FSTWRPNT |FSTRDPNT | 00012000 * 18 +---------+---------+---------+----+----+ 00013000 * |FSTFMODE |FSTRECCT |FSTFCLPT |F*1 |F*2 | 00014000 * 20 +---------+---------+---------+----+----+ 00015000 * | FSTLRECL |FSTBLKCT |FSTYEARW | 00016000 * 28 +-------------------+---------+---------+ 00017000 * 00018000 *** FSTD - FILE STATUS TABLE ENTRY 00019000 * 00020000 SPACE 3 00021000 FSTD DSECT 00022000 FSTFNAME DS 1D - FILE NAME 00023000 FSTFTYPE DS 1D - FILE TYPE 00024000 FSTDATEW DS 1H - DATE LAST WRITTEN - MMDD 00025000 FSTTIMEW DS 1H - TIME LAST WRITTEN - HHMM 00026000 FSTWRPNT DS 1H - WRITE POINTER - ITEM NUMBER 00027000 FSTRDPNT DS 1H - READ POINTER - ITEM NUMBER 00028000 FSTFMODE DS 1H - FILE MODE - LETTER AND NUMBER 00029000 FSTRECCT DS 1H - NUMBER OF LOGICAL RECORDS 00030000 FSTFCLPT DS 1H - FIRST CHAIN LINK POINTER 00031000 FSTRECFM DS 1C - F*1 - RECORD FORMAT - F OR V 00032000 FSTFLAGS DS 1X - F*2 - FST FLAG BYTE 00033000 FSTLRECL DS 1F - LOGICAL RECORD LENGTH 00034000 FSTBLKCT DS 1H - NUMBER OF 800 BYTE BLOCKS 00035000 FSTYEARW DS 1H - YEAR LAST WRITTEN 00036000 DS F HRC105DS 00036100 FSTADBC DS F Alt. number of data blocks HRC105DS 00036110 FSTAIC DS F Alt. item count HRC105DS 00036120 DS XL1 HRC105DS 00036130 DS XL1 HRC105DS 00036140 FSTADATI DS CL6 Alternate date and time HRC105DS 00036150 DS F Reserved HRC105DS 00036160 FSTDSIZE EQU (*-FSTD) - FST SIZE IN BYTES 00037000 SPACE 00038000 * FSTFLAGS DESCRIPTION 00039000 FSTRWDSK EQU X'80' - READ/WRITE DISK 00040000 FSTRODSK EQU X'00' - READ/ONLY DISK 00041000 FSTXRDSK EQU X'40' - EXTENSION OF R/O DISK 00042000 FSTXWDSK EQU X'C0' - EXTENSION OF R/W DISK 00043000 FSTDIA EQU X'40' ITEM AVAILABLE 00043100 FSTDRA EQU X'01' PREVIOUS RECORD NULL 00043200 FSTDNI EQU X'00' NULL RECORD 00043300 SPACE 00044000 FSTCNTRY EQU X'08' - Century for date last written HRC105DS 00044100 FSTACTRD EQU X'04' - ACTIVE FOR READING 00045000 FSTACTWR EQU X'02' - ACTIVE FOR WRITING 00046000 FSTACTPT EQU X'01' - ACTIVE FROM A POINT 00047000 FSTFILEA EQU X'07' - THE FILE IS ACTIVE 00048000 EJECT 00049000 POP PRINT 00049100 MEND 00050000