ibm:vm370-lib:rscs:tag.copy_src
Table of Contents
TAG Source
References
- Fixes Applied : 0
- This Source Date : Saturday, December 9, 1978
- Last Fix ID : [Unmodified]
Source Listing
- TAG.COPY.txt
- *COPY TAG 00001000
- PUSH PRINT 00001200
- AIF ('&SYSPARM' NE 'SUP').TAG01 00001400
- PRINT OFF,NOGEN 00001600
- .TAG01 ANOP 00001800
- TAG DSECT 00002000
- SPACE 1 00003000
- *** TAG - FILE TAG 00004000
- * 00005000
- * 0 +-----------------------+-----------------------+ 00006000
- * | TAGNEXT | TAGBLOCK | 00007000
- * 8 +-----------------------+-----------------------+ 00008000
- * | TAGINLOC | 00009000
- * 10 +-----------------------------------------------+ 00010000
- * | TAGLINK | 00011000
- * 18 +-----------------------------------------------+ 00012000
- * | TAGINTOD | 00013000
- * 20 +-----------------------------------------------+ 00014000
- * | TAGINVM | 00015000
- * 28 +-----------------------+-----------+-----+-----+ 00016000
- * | TAGRECNM | TAGRECLN | T*1 | T*2 | 00017000
- * 30 +-----------+-----------+-----------+-----+-----+ 00018000
- * | TAGID | TAGCOPY | T*3 | T*4 | SPARE | 00019000
- * 38 +-----------+-----------+-----------------------+ 00020000
- * | TAGNAME | 00021000
- * 40 | +-----------------------+ 00022000
- * | | | 00023000
- * 48 +-----------------------+ | 00024000
- * | TAGTYPE | 00025000
- * 50 +-----------------------------------------------+ 00026000
- * | TAGDIST | 00027000
- * 58 +-----------------------------------------------+ 00028000
- * | TAGTOLOC | 00029000
- * 60 +-----------------------------------------------+ 00030000
- * | TAGTOVM | 00031000
- * 68 +-----------------------------------------------+ 00032000
- * | TAGPRIOR | TAGDEV | 00033000
- * 70 +-----------+-----------+ 00034000
- * 00035000
- *** TAG - FILE TAG 00036000
- SPACE 1 00037000
- TAGNEXT DS 1F ADDR OF NEXT ACTIVE QUEUE ENTRY 00038000
- TAGBLOCK DS 1F ADDR OF ASSOCIATED I/O AREA 00039000
- SPACE 00040000
- TAGINLOC DS CL8 ORIGINATING LOCATION 00041000
- TAGLINK DS CL8 NEXT LOCATION FOR TRANSMISSION 00042000
- TAGINTOD DS CL8 TIME OF FILE ORIGIN 00043000
- TAGINVM DS CL8 ORIGINATING VIRTUAL MACHINE 00044000
- TAGRECNM DS 1F NUMBER OF RECORDS IN FILE 00045000
- TAGRECLN DS 1H MAXIMUM FILE DATA RECORD LENGTH 00046000
- TAGINDEV DS 1X T*1 DEVICE CODE OF ORIGINATING DEV 00047000
- TAGCLASS DS CL1 T*2 FILE OUTPUT CLASS 00048000
- TAGID DS 1H FILE NUMBER AT ORIGIN LOCATION 00049000
- TAGCOPY DS 1H NUMBER OF COPIES REQUESTED 00050000
- TAGFLAG DS 1X T*3 VM/370 SFBLOK CONTROL FLAGS 00051000
- TAGFLAG2 DS 1X T*4 VM/370 SFBLOK CONTROL FLAGS 00052000
- DS 1H SPARE 00053000
- TAGNAME DS CL12 FILE NAME 00054000
- TAGTYPE DS CL12 FILE TYPE 00055000
- TAGDIST DS CL8 FILE DISTRIBUTION CODE 00056000
- TAGTOLOC DS CL8 DESTINATION LOCATION ID 00057000
- TAGTOVM DS CL8 DESTINATION VIRTUAL MACHINE ID 00058000
- TAGPRIOR DS 1H TRANSMISSION PRIORITY 00059000
- TAGDEV DS 2X ACTIVE FILE'S VIRT DEV ADDR 00060000
- SPACE 00061000
- TAGLEN EQU *-TAGNEXT LENGTH OF THE FILE TAG 00062000
- EJECT 00063000
- POP PRINT 00064000
- SPACE 00065000
ibm/vm370-lib/rscs/tag.copy_src.txt · Last modified: 2023/08/06 13:39 by Site Administrator