Table of Contents

MIHREC Source

References

Source Listing

MIHREC.COPY.txt 
  1. *COPY MIHREC                                                            00000500
  2.          PUSH  PRINT                                                    00000510
  3.          AIF   ('&SYSPARM' NE 'SUP').MIH01                              00000520
  4.          PRINT OFF,NOGEN                                                00000530
  5. .MIH01   ANOP                                                           00000540
  6. MIHREC   DSECT                                                          00001000
  7. *                                                                       00002000
  8. ***      MISSING INTERRUPT HANDLER ERROR RECORD                         00003000
  9. *                                                                       00004000
  10. *        +---------+----+----+----+----+---------+                      00005000
  11. *        | MIHKEYN | S1 | S2 | S3 | S4 | MIHSPE1 |                      00006000
  12. *        +---------+----+----+----+----+---------+                      00007000
  13. *        |      MIHDTEN      |      MIHTMEN      |                      00008000
  14. *        +-------------------+-------------------+                      00009000
  15. *        |                MIHCPID                |                      00010000
  16. *        +---------------------------------------+                      00011000
  17. *        |                MIHJOB                 |                      00012000
  18. *        +-------------+---------------+---------+                      00013000
  19. *        |   MIHCUA2   |    MIHCUA1    |   MIH - |                      00014000
  20. *        +-------------------+-------------------+                      00015000
  21. *        |         VOL       |      MIHDEVT      |                      00016000
  22. *        +-------------------+-------------------+                      00017000
  23. *        |                MIHINT                 |                      00018000
  24. *        +---------------------------------------+                      00019000
  25. *                                                                       00020000
  26. ***      MIH RECORD                                                     00021000
  27. *                                                                       00022000
  28. *                                                                       00023000
  29. *        24 BYTE HEADER                                                 00024000
  30. *                                                                       00025000
  31. MIHKEYN  DS    1H                  TYPE AND OP SYSTEM                   00026000
  32. MIHSWS1  DS    1C                  S1 -SWITCH BYTE 0                    00027000
  33. MIHSWS2  DS    1C                  S2 - NOT USED                        00028000
  34. MIHSWS3  DS    1C                  S3 - NOT USED                        00029000
  35. MIHRECNT DS    1C                  S4 - NOT USED                        00030000
  36. MIHSPE1  DS    1H                  NOT USED                             00031000
  37. MIHDTEN  DS    1F                  DATE                                 00032000
  38. MIHTMEN  DS    1F                  TIME                                 00033000
  39. MIHCPID  DS    2F                  CPU ID AND MODEL                     00034000
  40. *                                                                       00035000
  41. *        REST IS DEVICE DEPENDENT                                       00036000
  42. *                                                                       00037000
  43. MIHJOB   DS    8X                  JOB WHOSE I/O REQUEST PENDING        00038000
  44. MIHCUA2  DS    3X                  CUA USED TO ADDRESS THE DEVICE       00039000
  45. MIHCUA1  DS    3X                  PRIMARY DEVICE ADDRESS               00040000
  46. MIHVOL   DS    6X                  VOLUME SERIAL                        00041000
  47. MIHDEVT  DS    4X                  DEVICE TYPE                          00042000
  48. MIHINT   DS    8X                  TIME INTERVAL USED TO CHECK PEND INT 00043000
  49. MIHSIZE  EQU   (*-MIHREC)         MIH RECORD SIZE                       00043500
  50.          EJECT                                                          00044000
  51.          POP   PRINT                                                    00045000
  52.          SPACE                                                          00046000