*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