*COPY TNSREC 00001000 PUSH PRINT 00001200 AIF ('&SYSPARM' NE 'SUP').TNS01 00001400 PRINT OFF,NOGEN 00001600 .TNS01 ANOP 00001800 TNSREC DSECT 00002000 * 00003000 * 'T' TYPE RECORD FORMAT (ENVIRONMENTAL RECORDING) 00004000 * 00005000 * +---------+----+----+----+----+---------+ 00006000 * | TNSKEYN | S1 | S2 | S3 | S4 | TNSSPE1 | 00007000 * +---------+----+----+----+----+---------+ 00008000 * | TNSDTEN | TNSTMEN | 00009000 * +-------------------+-------------------+ 00010000 * | TNSCPIDN | 00011000 * +---------+-----------------------------+ 00012000 * | TNSDEVAD| TNSVOLID | 00013000 * +---------+-----------------------------+ 00014000 * | | 00015000 * = SENSE DATA = 00016000 * | | 00017000 * +---------------------------------------+ 00018000 * 00019000 * 'T' TYPE RECORD 00020000 * 00021000 TNSKEYN DS 1H CLASS SOURCE 90=T TYPE N/S NON TPER 00022000 TNSSWS1 DS 1C SWITCH BYTE 0 00023000 TNSSWS2 DS 1C 00024000 TNSSWS3 DS 1C 00025000 TNSRECNT DS 1C 00026000 TNSSPE1 DS 1H 00027000 TNSDTEN DS 1F DATE 00028000 TNSTMEN DS 1F TIME 00029000 TNSCPIDN DS 2F CPU ID AND SERIAL 00030000 * 00031000 * END OF 24 BYTE HEADER 00032000 * 00033000 TNSDEVAD DS 1H DEVICE ADDRESS 00034000 TNSVOLID DS 6C VOLUME SERIAL @VM08633 00035000 TNSSNS1 DS 24X 24 SENSE BYTES 00036000 TNSSNS2 DS 24X AND ADDITIONAL SENSE BYTES(24) 00037000 TNSSNS3 DS 24X DITTO 00038000 TNSSNS4 DS 24X DITTO 00039000 TNSSNS5 DS 24X DITTO 00040000 TNSSNS6 DS 24X DITTO 00041000 TNSSNS7 DS 24X AND ONE LAST DITTO 00042000 SPACE 00043100 ORG TNSVOLID+2 @VA09396 00043200 TNS3800 DS XL136 PLACE FOR ERROR LOG DATA @VA09396 00043300 EJECT 00043400 POP PRINT 00044000 SPACE 00045000