Table of Contents

TAG Source

References

Source Listing

TAG.COPY.txt 
  1. *COPY TAG                                                               00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').TAG01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .TAG01   ANOP                                                           00001800
  6. TAG      DSECT                                                          00002000
  7.          SPACE 1                                                        00003000
  8. ***                          TAG  -  FILE TAG                           00004000
  9. *                                                                       00005000
  10. *          0   +-----------------------+-----------------------+        00006000
  11. *              |      TAGNEXT          |     TAGBLOCK          |        00007000
  12. *          8   +-----------------------+-----------------------+        00008000
  13. *              |                   TAGINLOC                    |        00009000
  14. *         10   +-----------------------------------------------+        00010000
  15. *              |                   TAGLINK                     |        00011000
  16. *         18   +-----------------------------------------------+        00012000
  17. *              |                   TAGINTOD                    |        00013000
  18. *         20   +-----------------------------------------------+        00014000
  19. *              |                   TAGINVM                     |        00015000
  20. *         28   +-----------------------+-----------+-----+-----+        00016000
  21. *              |      TAGRECNM         | TAGRECLN  | T*1 | T*2 |        00017000
  22. *         30   +-----------+-----------+-----------+-----+-----+        00018000
  23. *              |   TAGID   |  TAGCOPY  | T*3 | T*4 |   SPARE   |        00019000
  24. *         38   +-----------+-----------+-----------------------+        00020000
  25. *              |                   TAGNAME                     |        00021000
  26. *         40   |                       +-----------------------+        00022000
  27. *              |                       |                       |        00023000
  28. *         48   +-----------------------+                       |        00024000
  29. *              |                   TAGTYPE                     |        00025000
  30. *         50   +-----------------------------------------------+        00026000
  31. *              |                   TAGDIST                     |        00027000
  32. *         58   +-----------------------------------------------+        00028000
  33. *              |                   TAGTOLOC                    |        00029000
  34. *         60   +-----------------------------------------------+        00030000
  35. *              |                   TAGTOVM                     |        00031000
  36. *         68   +-----------------------------------------------+        00032000
  37. *              | TAGPRIOR  |  TAGDEV   |                                00033000
  38. *         70   +-----------+-----------+                                00034000
  39. *                                                                       00035000
  40. ***                          TAG  -  FILE TAG                           00036000
  41.          SPACE 1                                                        00037000
  42. TAGNEXT  DS    1F                  ADDR OF NEXT ACTIVE QUEUE ENTRY      00038000
  43. TAGBLOCK DS    1F                  ADDR OF ASSOCIATED I/O AREA          00039000
  44.          SPACE                                                          00040000
  45. TAGINLOC DS    CL8                 ORIGINATING LOCATION                 00041000
  46. TAGLINK  DS    CL8                 NEXT LOCATION FOR TRANSMISSION       00042000
  47. TAGINTOD DS    CL8                 TIME OF FILE ORIGIN                  00043000
  48. TAGINVM  DS    CL8                 ORIGINATING VIRTUAL MACHINE          00044000
  49. TAGRECNM DS    1F                  NUMBER OF RECORDS IN FILE            00045000
  50. TAGRECLN DS    1H                  MAXIMUM FILE DATA RECORD LENGTH      00046000
  51. TAGINDEV DS    1X              T*1 DEVICE CODE OF ORIGINATING DEV       00047000
  52. TAGCLASS DS    CL1             T*2 FILE OUTPUT CLASS                    00048000
  53. TAGID    DS    1H                  FILE NUMBER AT ORIGIN LOCATION       00049000
  54. TAGCOPY  DS    1H                  NUMBER OF COPIES REQUESTED           00050000
  55. TAGFLAG  DS    1X              T*3 VM/370 SFBLOK CONTROL FLAGS          00051000
  56. TAGFLAG2 DS    1X              T*4 VM/370 SFBLOK CONTROL FLAGS          00052000
  57.          DS    1H                  SPARE                                00053000
  58. TAGNAME  DS    CL12                FILE NAME                            00054000
  59. TAGTYPE  DS    CL12                FILE TYPE                            00055000
  60. TAGDIST  DS    CL8                 FILE DISTRIBUTION CODE               00056000
  61. TAGTOLOC DS    CL8                 DESTINATION LOCATION ID              00057000
  62. TAGTOVM  DS    CL8                 DESTINATION VIRTUAL MACHINE ID       00058000
  63. TAGPRIOR DS    1H                  TRANSMISSION PRIORITY                00059000
  64. TAGDEV   DS    2X                  ACTIVE FILE'S VIRT DEV ADDR          00060000
  65.          SPACE                                                          00061000
  66. TAGLEN   EQU   *-TAGNEXT           LENGTH OF THE FILE TAG               00062000
  67.          EJECT                                                          00063000
  68.          POP   PRINT                                                    00064000
  69.          SPACE                                                          00065000