Table of Contents

TNSREC Source

References

Source Listing

TNSREC.COPY.txt 
  1. *COPY TNSREC                                                            00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').TNS01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .TNS01   ANOP                                                           00001800
  6. TNSREC   DSECT                                                          00002000
  7. *                                                                       00003000
  8. *        'T' TYPE RECORD FORMAT (ENVIRONMENTAL RECORDING)               00004000
  9. *                                                                       00005000
  10. *        +---------+----+----+----+----+---------+                      00006000
  11. *        | TNSKEYN | S1 | S2 | S3 | S4 | TNSSPE1 |                      00007000
  12. *        +---------+----+----+----+----+---------+                      00008000
  13. *        |      TNSDTEN      |      TNSTMEN      |                      00009000
  14. *        +-------------------+-------------------+                      00010000
  15. *        |                TNSCPIDN               |                      00011000
  16. *        +---------+-----------------------------+                      00012000
  17. *        | TNSDEVAD|        TNSVOLID             |                      00013000
  18. *        +---------+-----------------------------+                      00014000
  19. *        |                                       |                      00015000
  20. *        =              SENSE DATA               =                      00016000
  21. *        |                                       |                      00017000
  22. *        +---------------------------------------+                      00018000
  23. *                                                                       00019000
  24. *        'T' TYPE RECORD                                                00020000
  25. *                                                                       00021000
  26. TNSKEYN  DS    1H                  CLASS SOURCE 90=T TYPE N/S NON TPER  00022000
  27. TNSSWS1  DS    1C                  SWITCH BYTE 0                        00023000
  28. TNSSWS2  DS    1C                                                       00024000
  29. TNSSWS3  DS    1C                                                       00025000
  30. TNSRECNT DS    1C                                                       00026000
  31. TNSSPE1  DS    1H                                                       00027000
  32. TNSDTEN  DS    1F                  DATE                                 00028000
  33. TNSTMEN  DS    1F                  TIME                                 00029000
  34. TNSCPIDN DS    2F             CPU ID AND SERIAL                         00030000
  35. *                                                                       00031000
  36. *        END OF 24 BYTE HEADER                                          00032000
  37. *                                                                       00033000
  38. TNSDEVAD DS    1H                  DEVICE ADDRESS                       00034000
  39. TNSVOLID DS    6C             VOLUME SERIAL                    @VM08633 00035000
  40. TNSSNS1  DS    24X                 24 SENSE BYTES                       00036000
  41. TNSSNS2  DS    24X                 AND ADDITIONAL SENSE BYTES(24)       00037000
  42. TNSSNS3  DS    24X                 DITTO                                00038000
  43. TNSSNS4  DS    24X                 DITTO                                00039000
  44. TNSSNS5  DS    24X                 DITTO                                00040000
  45. TNSSNS6  DS    24X                 DITTO                                00041000
  46. TNSSNS7  DS    24X                 AND ONE LAST DITTO                   00042000
  47.          SPACE                                                          00043100
  48.          ORG   TNSVOLID+2                                      @VA09396 00043200
  49. TNS3800  DS    XL136               PLACE FOR ERROR LOG DATA    @VA09396 00043300
  50.          EJECT                                                          00043400
  51.          POP   PRINT                                                    00044000
  52.          SPACE                                                          00045000