Table of Contents

FSTD Source

References

Source Listing

FSTD.MACRO.txt 
  1.          MACRO                                                          00001000
  2.          FSTD                                                           00002000
  3.          PUSH  PRINT                                                    00002200
  4.          AIF   ('&SYSPARM' NE 'SUP').ACC01                              00002400
  5.          PRINT OFF,NOGEN                                                00002600
  6. .ACC01   ANOP                                                           00002800
  7.          SPACE                                                          00003000
  8. *                                                                       00004000
  9. ***      FSTD - FILE STATUS TABLE ENTRY                                 00005000
  10. *                                                                       00006000
  11. *            0 +---------------------------------------+                00007000
  12. *              |               FSTFNAME                |                00008000
  13. *            8 +---------------------------------------+                00009000
  14. *              |               FSTFTYPE                |                00010000
  15. *           10 +---------+---------+---------+---------+                00011000
  16. *              |FSTDATEW |FSTTIMEW |FSTWRPNT |FSTRDPNT |                00012000
  17. *           18 +---------+---------+---------+----+----+                00013000
  18. *              |FSTFMODE |FSTRECCT |FSTFCLPT |F*1 |F*2 |                00014000
  19. *           20 +---------+---------+---------+----+----+                00015000
  20. *              |     FSTLRECL      |FSTBLKCT |FSTYEARW |                00016000
  21. *           28 +-------------------+---------+---------+                00017000
  22. *                                                                       00018000
  23. ***      FSTD - FILE STATUS TABLE ENTRY                                 00019000
  24. *                                                                       00020000
  25.          SPACE 3                                                        00021000
  26. FSTD     DSECT                                                          00022000
  27. FSTFNAME DS    1D -           FILE NAME                                 00023000
  28. FSTFTYPE DS    1D -           FILE TYPE                                 00024000
  29. FSTDATEW DS    1H -           DATE LAST WRITTEN - MMDD                  00025000
  30. FSTTIMEW DS    1H -           TIME LAST WRITTEN - HHMM                  00026000
  31. FSTWRPNT DS    1H -           WRITE POINTER - ITEM NUMBER               00027000
  32. FSTRDPNT DS    1H -           READ POINTER - ITEM NUMBER                00028000
  33. FSTFMODE DS    1H -           FILE MODE - LETTER AND NUMBER             00029000
  34. FSTRECCT DS    1H -           NUMBER OF LOGICAL RECORDS                 00030000
  35. FSTFCLPT DS    1H -           FIRST CHAIN LINK POINTER                  00031000
  36. FSTRECFM DS    1C -           F*1 - RECORD FORMAT - F OR V              00032000
  37. FSTFLAGS DS    1X -           F*2 - FST FLAG BYTE                       00033000
  38. FSTLRECL DS    1F -           LOGICAL RECORD LENGTH                     00034000
  39. FSTBLKCT DS    1H -           NUMBER OF 800 BYTE BLOCKS                 00035000
  40. FSTYEARW DS    1H -           YEAR LAST WRITTEN                         00036000
  41.          DS    F                                               HRC105DS 00036100
  42. FSTADBC  DS    F              Alt. number of data blocks       HRC105DS 00036110
  43. FSTAIC   DS    F              Alt. item count                  HRC105DS 00036120
  44.          DS    XL1                                             HRC105DS 00036130
  45.          DS    XL1                                             HRC105DS 00036140
  46. FSTADATI DS    CL6            Alternate date and time          HRC105DS 00036150
  47.          DS    F              Reserved                         HRC105DS 00036160
  48. FSTDSIZE EQU   (*-FSTD) -     FST SIZE IN BYTES                         00037000
  49.          SPACE                                                          00038000
  50. *        FSTFLAGS DESCRIPTION                                           00039000
  51. FSTRWDSK EQU   X'80' -        READ/WRITE DISK                           00040000
  52. FSTRODSK EQU   X'00' -        READ/ONLY DISK                            00041000
  53. FSTXRDSK EQU   X'40' -        EXTENSION OF R/O DISK                     00042000
  54. FSTXWDSK EQU   X'C0' -        EXTENSION OF R/W DISK                     00043000
  55. FSTDIA   EQU   X'40'          ITEM AVAILABLE                            00043100
  56. FSTDRA   EQU   X'01'          PREVIOUS RECORD NULL                      00043200
  57. FSTDNI   EQU   X'00'          NULL RECORD                               00043300
  58.          SPACE                                                          00044000
  59. FSTCNTRY EQU   X'08' -        Century for date last written    HRC105DS 00044100
  60. FSTACTRD EQU   X'04' -        ACTIVE FOR READING                        00045000
  61. FSTACTWR EQU   X'02' -        ACTIVE FOR WRITING                        00046000
  62. FSTACTPT EQU   X'01' -        ACTIVE FROM A POINT                       00047000
  63. FSTFILEA EQU   X'07' -        THE FILE IS ACTIVE                        00048000
  64.          EJECT                                                          00049000
  65.          POP   PRINT                                                    00049100
  66.          MEND                                                           00050000