ibm:vm370-lib:macro:fstd.macro_src
Table of Contents
FSTD Source
References
- Fixes Applied : 1
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC105DS]
Source Listing
- FSTD.MACRO.txt
- 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
ibm/vm370-lib/macro/fstd.macro_src.txt · Last modified: 2023/08/06 13:38 by Site Administrator