MACRO 00001000 OSFST 00002000 PUSH PRINT 00002200 AIF ('&SYSPARM' NE 'SUP').ACC01 00002400 PRINT OFF,NOGEN 00002600 .ACC01 ANOP 00002800 OSFST DSECT 00003000 OSFSTFM DS 1H DISK MODE 00004000 DS 1H RESERVED 00005000 OSFSTBLK DS 1H BLOCKSIZE 00006000 OSFSTFVF DS 1H FIXED/VARIABLE FLAG 00007000 OSFSTLRL DS 1F LOGICAL RECORD SIZE 00008000 OSFSTRFM DS 1X OS RECORD FORMAT 00009000 DS 1X RESERVED 00010000 OSFSTFLG DS 1X FLAG BYTE 00011000 OSFSTALT EQU X'80' ALTERNATE TRACK INDICATOR 00012000 OSFSTMVL EQU X'08' MULTIPLE VOLUME DATA SET 00013000 OSFSTDBK EQU X'40' BLOCKSIZE NOT SPECIFIED IN DSCB 00014000 OSFSTUMV EQU X'02' UNMOVEABLE DATA SET 00015000 OSFSTRSW EQU X'01' INDICATES POINT+1 JUST ISSUED 00016000 OSFSTXNO DS 1X NUMBER OF DATA EXTENTS ON DISK 00017000 OSFSTNXT DS 1F NEXT OS FST 00018000 OSFSTCHR DS 5X CCHHR OF LAST I/O OPERATION 00019000 OSFSTEND DS 5X CURRENT EXTENT END 00020000 OSFSTDSN DS 44C DATA SET NAME 00021000 OSFSTXTN DS 170X DATA EXTENTS DESCRIPTION 00022000 OSFSTEX4 EQU OSFSTXTN+30 LOCATION OF 4TH EXTENT FROM DSCB3 00023000 OSFSTDSK DS 1H DISK ADDR. (0CUU) 00024000 OSFSTTYP DS 1H DISK DEVICE TYPE 00025000 * SEE OSADT FOR TYPE FLAGS 00026000 OSFSTNTE DS 5X USED TO SAVE CCHHR FOR NOTE MACRO 00027000 DS 3X RESERVED 00028000 OSFSTTRK DS 1F NO. TRACKS PER CYLINDER 00029000 DS 2F RESERVED 00030100 OSFSTMEM DS CL8 PARTITIONED DATA SET MEMBER NAME 00030200 DS 0D 00031000 OSFSTLTH EQU (*-OSFST)/8 OS FST LENGTH IN DBL WORDS 00032000 EJECT 00033000 POP PRINT 00033100 MEND 00034000