* %      GOTO IOSBPLS;             /* GO TO THE PLS VERSION    @ZM30407 00050003
         MACRO                                                          00100021
         IECDIOSB                                                       00150021
IOSB     DSECT                                                          00200021
         SPACE 1                                                        00250021
****************************************************************        00300021
*                                                              *        00350021
*   THIS DSECT DESCRIBES THE CONTROL BLOCK PASSED TO THE I/O   *        00400021
*   SUPERVISOR AS A PARAMETER OF THE SRB.  THE CONTROL BLOCK   *        00450021
*   CONTAINS ALL INFORMATION NECESSARY TO INITIATE AND TERM-   *        00500021
*   INATE AN I/O OPERATION.  FIELDS OF THE IOSB ARE USED FOR   *        00550021
*   COMMUNICATION BETWEEN THE -                                *        00600021
*                                                              *        00650021
*        1. I/O SUPERVISOR AND I/O REQUESTOR                   *        00700021
*        2. I/O SUPERVISOR AND ERROR RECOVERY PROCEDURES       *        00750021
*        3. COMPONENTS OF THE I/O SUPERVISOR                   *        00800021
*        4. SUCCESSIVE ENTRANCES TO THE ERPS                   *        00850021
*        5. ERP AND COMMON WTO AND STATISTICS UPDATE MODULES   *        00900021
*                                                              *        00950021
****************************************************************        01000021
         SPACE 1                                                        01050021
         DS    0F                                                       01100021
IOSFLA   DS    XL1                 FLAG BYTE A                          01150021
         SPACE 1                                                        01200021
*   BIT DEFINITIONS FOR IOSFLA                                          01250021
         SPACE 1                                                        01300021
*        EQU   X'00'               NO CCW CHAINING                      01350021
IOSDCHN  EQU   X'80'               DATA CHAINING                        01400021
IOSCCHN  EQU   X'40'               COMMAND CHAINING                     01450021
IOSACHN  EQU   X'C0'               COMMAND AND DATA CHAINING            01500021
IOSERR   EQU   X'20'               ERROR ROUTINE IN CONTROL             01550021
*                                  MUST BE SET TO ZERO BY DRIVER        01600021
*                                  IF ERP RETURNS WITH THIS BIT         01650021
*                                  ON, A RETRY IS ASSUMED. IF ERP       01700021
*                                  RETURNS WITH THIS BIT OFF, THE       01750021
*                                  ERROR IS CONSIDERED PERMANENT        01800021
*                                  OR CORRECTED DEPENDING ON THE        01850021
*                                  SETTING OF IOSEX.                    01900021
IOSSMDA  EQU   X'10'               ERP STATUS MODIFIER BIT A            01950021
*                                  MUST BE SET TO ZERO BY DRIVER        02000021
*                                    TAPE - REPOSITION DEVICE           02050021
*                                    1052 - IMMEDIATE OPERATION,        02100021
*                                          CCW OP CODE IN IOSMDB        02150021
IOSSMDB  EQU   X'08'               ERP STATUS MODIFIER BIT B            02200021
*                                  MUST BE SET TO ZERO BY DRIVER        02250021
*                                  SET BY PCI FETCH IN APPENDAGE        02300021
*                                  FOR POSTING                          02350021
*                                    TAPE - CRC NEEDED                  02400021
*                                    DASD - PCI FETCH STOP FLAG         02450021
IOSEX    EQU   X'04'               EXCEPTIONAL CONDITION. UPON          02500021
*                                  RETURN FROM NORMAL OR ABNORMAL       02550021
*                                  EXIT WITH THIS BIT ON, ERP PRO-      02600021
*                                  CESSING IS INITIATED IF INITIAL      02650021
*                                  ERROR CONDITION. IF BIT IS OFF,      02700021
*                                  IT IS ASSUMED THAT THE EXIT          02750021
*                                  CORRECTED THE CONDITION OR DID       02800021
*                                  NOT CONSIDER IT AN ERROR. WHEN       02850021
*                                  THE ERROR ROUTINE RETURNS WITH       02900021
*                                  THIS BIT ON AND IOSERR OFF, THE      02950021
*                                  ERROR IS CONSIDERED PERMANENT.       03000021
*                                  WHEN THE ERP RETURNS WITH BOTH       03050021
*                                  BITS OFF, THE ERROR HAS BEEN         03100021
*                                  CORRECTED.                           03150021
IOSDOM   EQU   X'02'               DOM MACRO REQUIRED          @YM06828 03200002
IOSIOSB  EQU   X'01'               IOSB CREATED BY I/O SUPERVISOR       03250021
*                                  MUST BE SET TO ZERO BY DRIVER        03300021
         SPACE 1                                                        03350021
IOSFLB   DS    XL1                 FLAG BYTE B                          03400021
         SPACE 1                                                        03450021
*   BIT DEFINITIONS FOR IOSFLB                                          03500021
         SPACE 1                                                        03550021
IOSDIESE EQU   X'80'               SECOND ENTRY TO DIE                  03600021
IOSSDR   EQU   X'40'               ERP DOESNT WANT OBR         @Z40MPLG 03610004
IOSNOTRS EQU   X'20'               DRIVER WANTS NO TRAS ON     @ZA25620 03620003
*                                  ENTRY TO DIE.               @ZA25620 03623003
IOSFLB3  EQU   X'10'               RESERVED                             03630021
IOSFLB4  EQU   X'08'               RESERVED                             03640021
IOSMSG   EQU   X'04'               MESSAGE INDICATOR                    03700021
*                                  0 = INTERVENTION REQUIRED MSG        03750021
*                                  1 = I/O ERROR MESSAGE                03800021
IOSBDCST EQU   X'02'               BROADCAST BIT                        03850021
IOSLOG   EQU   X'01'               CREATE AN OBR RECORD                 03900021
         SPACE 1                                                        03950021
IOSFLC   DS    XL1                 DEVICE DEPENDENT ERP FLAGS           04000021
         SPACE 1                                                        04050021
*   BIT DEFINITIONS FOR IOSFLC                                          04100021
         SPACE 1                                                        04150021
IOSDVMNT EQU   X'80'               DAVV ISSUED MOUNT                    04200021
IOSDVALT EQU   X'40'               ALTERNATE TRACK PROCESSING           04250021
*                                  BY DAVV (DA)                         04252021
IOSVERIF EQU   X'40'               UNSOLICITED DEVICE END VERIFI-       04254021
*                                  CATION NEEDED (NON-DA)               04256021
IOSCC3WE EQU   X'20'               GDP REQ'RS CC3 POST OF X6D  @DCRR054 04260003
IOSTP    EQU   X'10'               NO SPECIAL CC3 HANDLING    TOBEFLGED 04270003
IOSRWAIT EQU   X'0C'               RESTARTABLE WAIT REASON     @ZA00904 04271004
IOSRWVID EQU   X'00'               00--WRONG VOL ID            @ZA00904 04272004
IOSRWIR  EQU   X'04'               01--INTERVENTION REQUIRED   @ZA00904 04273004
IOSRWCC3 EQU   X'08'               10--CONDITION CODE 3        @AA00904 04274004
IOSRWERR EQU   X'0C'               11--READ ERROR FOR LABEL    @ZA00904 04275004
IOSCTCNR EQU   X'02'               CTC - NO RETRY ALLOWED      @ZA11845 04315000
IOSFLC7  EQU   X'01'               RESERVED                             04370021
         SPACE 1                                                        04400021
IOSPROC  DS    XL1                 THIS BYTE INDICATES WHAT TYPE        04450021
*                                  OF SPECIAL PROCESSING IS TO          04500021
*                                  BE PERFORMED BY IOS COM-             04550021
*                                  PONENTS OPERATING ASYNCHRON-         04600021
*                                  OUS TO MAINLINE                      04650021
*                                  MUST BE SET TO ZERO BY DRIVER        04700021
         SPACE 1                                                        04750021
*   SPECIAL PROCESSING INDEXES ASSIGNED TO IOSPROC                      04800021
         SPACE 1                                                        04850021
*        EQU   X'00'               RESERVED                             04900021
IOSAPCI  EQU   X'04'               PCI                                  04950021
IOSATTN  EQU   X'08'               ATTENTION                            05000021
IOSAPURG EQU   X'0C'               PURGE                                05050002
IOSADAVV EQU   X'10'               DAVV                                 05100021
IOSAWTO  EQU   X'14'               WTO                                  05150021
IOSADDR  EQU   X'18'               DDR                                  05200021
IOSACRH  EQU   X'1C'               CHANNEL RECONFIGURATION HARD Y30CQLG 05210003
IOSAUR   EQU   X'20'               UNCONDITIONAL RESERVE       @ZA35535 05230003
         SPACE 1                                                        05250021
IOSDVRID DS    XL1                 DRIVER IDENTIFICATION VALUE          05300021
         SPACE 1                                                        05350021
IOSIOSID EQU   X'00'               RESERVED FOR IOS                     05400021
IOSMISID EQU   X'01'               MISCELLANEOUS ID FOR I/O RE-         05450021
*                                  QUESTS THAT CANNOT BE PURGED,        05500021
*                                  ASSOCIATED WITH A TASK, OR           05550021
*                                  VIOLATE EXTENTS                      05600021
IOSXCPID EQU   X'02'               EXCP                                 05650021
IOSVSAID EQU   X'03'               VSAM                                 05700021
IOSATMID EQU   X'04'               VTAM                                 05750002
IOSTCMID EQU   X'05'               TCAM                                 05800021
IOSOLTID EQU   X'06'               OLTEP                                05850021
IOSFCHID EQU   X'07'               PCI FETCH                            05900021
IOSJESID EQU   X'08'               JES3                                 05910004
IOSSS1ID EQU   X'09'               SS1/DSM                     @Y30LPLC 05920003
IOSPRGID EQU   X'0A'               IECVIOPM PURGE              @ZA04107 05930004
IOSVPSID EQU   X'0B'               VPSS                        @G29ANLO 05940000
         SPACE 1                                                        05950021
IOSPRLVL DS    XL1                 THE PRIOITY LEVEL AT WHICH           06000021
*                                  THE ADDRESS SPACE IS TO BE SCHED-    06050002
*                                  ULED, 0 OR 4                         06100021
         SPACE 1                                                        06150021
IOSASID  DS    H                   ADDRESS SPACE IDENTIFICATION OF      06200021
*                                  ADDRESS SPACE TO BE SCHEDULED AT     06250002
*                                  TERMINATION OF I/O REQUEST           06300002
IOSPGAD  DS    A                   PROGRAM ADDRESS TO BE DISPATCHED     06350021
IOSPKEY  DS    XL1                 PROTECT KEY OF IOSPGAD               06400021
*        EQU   X'F0'               PROTECT KEY                          06450021
IOSLCL   EQU   X'08'               ASID SCHEDULE AT LOCAL LEVEL         06500021
IOSIDR   EQU   X'04'               ASYNCHRONOUS ERP SCHEDULING          06550021
*                                  SHOULD BE USED FOR THIS              06600021
*                                  REQUEST (INDIRECT RECORDING          06650021
*                                  FOR PAGING I/O).                     06700021
IOSPGDPX EQU   X'02'               THIS REQUEST HAS A BACKED UP         06750021
*                                  COPY (DUPLEXED PAGE).                06800021
IOSPKY7  EQU   X'01'               RESERVED                             06850021
IOSCOD   DS    XL1                 I/O COMPLETION CODE                  06900021
*                                  USED AS TEMPORARY SAVE FOR           06950021
*                                  SYSTEM MASK BY CHAN. SCHEDLR.        07000021
         SPACE 1                                                        07050021
*****************************************************************       07052002
*   COMPLETION CODES 41 - 5F ARE RESERVED FOR PERMANENT ERROR   *       07060002
*   CONDITIONS. THESE CODES WILL ALWAYS BE LAST ENTRY CODES     *       07070002
*   TO ABNORMAL EXITS.                                          *       07080002
*   COMPLETIONS CODES 60 - 73 ARE RESERVED FOR IOS USE.         *       07090002
*   COMPLETION CODES 74 - 7E DENOTE ABNORMAL CONDITIONS FOR     *       07092002
*   WHICH CORRECTION MAY BE POSSIBLE. THESE CODES DENOTE FIRST  *       07094002
*   ENTRY TO ABNORMAL EXITS.                                    *       07096002
*****************************************************************       07098002
         SPACE 1                                                        07098402
*   COMPLETION CODE DEFINITION                                          07100021
         SPACE 1                                                        07150021
IOSFTCHC EQU   X'71'               HARDWARE CORRECTED DATA CHECK        07200021
*                                  FOR FETCH                            07250021
IOSMIHC  EQU   X'74'               THE I/O REQUEST HAS BEEN             07260002
*                                  ROUTED TO I/O RESTART BY CCH,        07270002
*                                  ALTERNATE CPU RECOVERY, OR           07280002
*                                  MISSING INTERRUPT HANDLER FOR        07290002
*                                  PROCESSING.                          07292002
IOSFINTC EQU   X'7E'               INTERCEPT CONDITION BEFORE EN-       07300021
*                                  TRANCE TO ERROR ROUTINE              07350021
IOSNRMC  EQU   X'7F'               NORMAL COMPLETION                    07400021
IOSGDPWE EQU   X'6D'               POST STATUS GOTO ABE & ERP  @DCRR054 07420003
IOSERRC  EQU   X'41'               PERMANENT I/O ERROR                  07450021
IOSEXTC  EQU   X'42'               EXTENT ERROR                         07500021
IOSDPXC  EQU   X'43'               DUPLEXED I/O REQUEST WAS NOT         07550021
*                                  STARTED BECAUSE OF A QUIESCED        07600021
*                                  OR NOT READY DEVICE                  07650021
IOSINTC  EQU   X'44'               REQUEST WAS INTERCEPTED BE-          07700021
*                                  CAUSE A PERMANENT ERROR OCCUR-       07750021
*                                  RED THE LAST TIME THE DEVICE         07800021
*                                  WAS USED.                            07850021
IOSABNC  EQU   X'45'               I/O REQUEST ABNORMALLY TERM-         07900021
*                                  INATED BECAUSE OF PROGRAM CHECK      07950021
*                                  MACHINE CHECK, ETC. IN IOS OR        08000021
*                                  APPENDAGE                            08050021
IOSCD46  EQU   X'46'               RESERVED                             08100021
IOSCD47  EQU   X'47'               RESERVED                             08150021
IOSPRGC  EQU   X'48'               PURGED REQUEST                       08200021
IOSCD49  EQU   X'49'               RESERVED                             08250021
IOSTAPEC EQU   X'4B'               ERROR IN TAPE REPOSITIONING          08300021
IOSIVEXP EQU   X'4C'               INVALID EXPOSURE NUMBER              08310021
IOSGDPCC EQU   X'4D'               CC=3 - GDP OR NIP IN CONTROL         08350021
IOSGDPRD EQU   X'4E'               GDP - RESERVED DEVICE  OR            08400002
*                                  IN CONJUNCTION WITH IOSRELSE,        08410002
*                                  DEVICE CANNOT BE RELEASED.           08420002
IOSGDPCO EQU   X'4F'               GDP - CPU OFFLINE                    08450021
IOSCD50  EQU   X'50'               RESERVED                             08500002
IOSMIHCA EQU   X'51'               THE I/O REQUEST HAS BEEN DE-         08602021
*                                  CLARED IN PERMANENT ERROR            08604021
*                                  AFTER ERP PROCESSING AND I/O         08606021
*                                  RESTART                              08608021
IOSOPT   DS    XL1                 OPTIONS BYTE                         08610021
         SPACE 1                                                        08620021
*   BIT DEFINITIONS FOR IOSOPT                                          08630021
         SPACE 1                                                        08640021
IOSBYP   EQU   X'80'               BYPASS IOS CHANNEL PRGM PREFIX       08642021
IOSDEP   EQU   X'40'               DEVICE END POSTING REQUESTED         08644021
IOSQISCE EQU   X'20'               THIS REQUEST INITIATED BY            08646021
*                                  FUNCTION WHICH HAS QUISCED           08648021
*                                  THE DEVICE                           08648421
IOSPSLL  EQU   X'10'               ON = LOCAL LOCK NOT WANTED           08648821
*                                  FOR POST STATUS PROCESSING           08649221
*                                  OFF = LOCAL LOCK WANTED              08649621
IOSNERP  EQU   X'08'               IBM ERPS NOT TO BE USED              08649721
IOSTSLL  EQU   X'04'               ON = LOCAL LOCK NOT WANTED BY        08649802
*                                  TERMINATION ROUTINE                  08659902
*                                  OFF = LOCAL LOCK WANTED BY           08660302
*                                  TERMINATION ROUTINE IF IOSPSLL       08660702
*                                  IS ALSO OFF                          08660802
IOSAPR   EQU   X'02'               ALTERNATE PATH RETRY ACTIVE          08661002
*                                  MUST BE SET TO ZERO BY DRIVER        08666621
IOSRELSE EQU   X'01'               STAND ALONE RELEASE CCW              08676602
*                                  ISSUED BY IOS                        08677002
         SPACE 1                                                        08678621
IOSOPT2  DS    XL1                 SECOND OPTION BYTE                   08683302
*              BIT DEFINITIONS FOR IOSOPT2                              08685302
IOSHTP   EQU   X'80'               ELIGIBLE FOR SHOULDER TAP            08693302
IOSIGP   EQU   X'40'               ELIGIBLE FOR SIGP           @ZA18121 08695303
IOSCHMSK EQU   X'20'               UPDATE IRTCHMSK, DON'T SIGP @ZA47390 08695903
IOSOPT2X EQU   X'1F'               RESERVED BITS               @ZA47390 08696503
         SPACE 1                                                        08697302
IOSUCB   DS    A                   UNIT CONTROL BLOCK ADDRESS           08700021
IOSCC    DS    XL1                 SIO CONDITION CODE                   08750021
IOSCC3   EQU   X'30'               CONDITION CODE 3                     08760002
IOSCC2   EQU   X'20'               CONDITION CODE 2                     08770002
IOSCC1   EQU   X'10'               CONDITION CODE 1                     08780002
IOSCC0   EQU   X'00'               CONDITION CODE 0                     08790002
IOSCSW   DS    XL7                 LOW ORDER 7 BYTES OF CSW             08800021
         ORG   IOSCSW                                                   08850021
IOSCSWCA DS    AL3                 COMMAND ADDRESS                      08900021
IOSTATUS DS    XL2                 CSW STATUS BYTES                     08950021
         ORG   IOSTATUS                                                 09000021
IOSTSA   DS    XL1                 DEVICE STATUS BYTE OF CSW            09050021
IOSTSB   DS    XL1                 CHANNEL STATUS BYTE                  09100021
IOSCSWRC DS    XL2                 RESIDUAL COUNT                       09150021
         ORG   IOSCSW+L'IOSCSW     '                                    09200021
         SPACE 1                                                        09250021
IOSSRB   DS    A                   BACK POINTER TO SRB                  09300021
IOSUSE   DS    A                   USER FIELD                           09350021
IOSRES4A DS    A                   RESERVED                             09400021
IOSAPMSK DS    XL2                 EXCLUSIVE PATH MASK FOR APR          09450021
*                                  MUST BE SET TO ZERO BY DRIVER        09500021
IOSSNS   DS    H                   SENSE DATA                           09550021
IOSSNSBD EQU   X'10FE'             VALUE SUPPLIED FOR                   09560021
*                                  UNSUCCESSFUL SENSE                   09570021
         SPACE 2                                                        09600021
IOSSECT  EQU   *                   END OF COMMON SECTION AND START      09650021
*                                  OF PROCESSING DEPENDNT SECTIONS      09700002
*                                  WHICH ARE: NORMAL I/O REQUEST,       09710002
*                                  WTO, AND PCI SCHEDULING.             09720002
         SPACE 1                                                        09750021
IOSIPIB  DS    A                   IOS/PURGE INTERFACE BLK ADDRESS      09800021
*                                  MUST BE SET TO ZERO UPON IN-         09850021
*                                  ITIAL ENTRY AND NOT TO BE RESET      09900021
*                                  BY EXITS. OR,                        09950002
*                                  CHAIN PTR FOR PCI SRB/IOSBS          09960002
IOSPCHN  DS    A                   PTR TO ENDING STATUS IOSB FOR        10000002
*                                  PCI SRB/IOSBS                        10050002
*                                  PTR TO FIRST PCI SRB/IOSB FOR        10100002
*                                  ENDING STATUS IOSB                   10110002
IOSERP   DS    A                   ERP DYNAMIC WORKAREA ADDRESS         10150021
*                                  MUST BE SET TO ZERO BY DRIVER        10200021
IOSPCI   DS    A                   PCI EXIT ADDRESS                     10250021
IOSNRM   DS    A                   NORMAL EXIT ADDRESS                  10300021
IOSABN   DS    A                   ABNORMAL EXIT ADDRESS                10350021
IOSDIE   DS    A                   DISABLED INTERRUPT EXIT ADDRESS      10400021
IOSRST   DS    A                   REAL ADDRESS OF REAL CHANNEL         10450021
*                                  PROGRAM                              10500021
IOSVST   DS    A                   VIRTUAL ADDR  OF REAL CHNNL PROG     10550021
IOSDSID  DS    A                   DATA SET IDENTIFIER FOR PURGE        10600021
IOSRSS1B DS    XL1                 RESERVED                             10650021
IOSAFF   DS    XL1                 CPU AFFINITY INDICATOR FOR           11550021
*                                  GUARANTEED DEVICE PATH               11600021
IOSPATH  DS    XL2                 PATH SPECIFICATION FOR GUAR-         11650021
*                                  ANTEED DEVICE PATH OR SPE-           11700021
*                                  CIFIC EXPOSURE REQUESTED             11750021
         ORG   IOSPATH                                                  11800021
IOSCHN   DS    XL1                                                      11850021
IOSGDP   EQU   X'80'               GUARANTEED DEVICE PATH               11900021
IOSEXP   EQU   X'40'               SPECIFIC EXPOSURE REQUESTED          11950021
IOSPATH2 EQU   X'20'               RESERVED                             12000021
IOSPATH3 EQU   X'10'               RESERVED                             12010021
*        EQU   X'0F'               CHANNEL NUMBER                       12050021
IOSCUDEV DS    XL1                 CONTROL UNIT/DEVICE ADDRESS          12100021
IOSCU    EQU   X'F0'               CONTROL UNIT                         12150021
IOSDEV   EQU   X'0F'               DEVICE                               12200021
         SPACE 1                                                        12250021
IOSFMSK  DS    XL1                 MODE SET/FILE MASK                   12300021
IOSCKEY  DS    XL1                 PROTECT KEY OF CHANNEL PROGRAM       12350021
*        EQU   X'F0'               PROTECT KEY                          12400021
IOSCKEY4 EQU   X'08'               RESERVED                             12450021
IOSCKEY5 EQU   X'04'               RESERVED                             12460021
IOSCKEY6 EQU   X'02'               RESERVED                             12470021
IOSCKEY7 EQU   X'01'               RESERVED                             12480021
IOSMDB   DS    XL1                 ERP IMMEDIATE CCW OP CODE            12500021
IOSMDM   DS    XL1                 ERP MODIFIER MASK                    12550021
IOSEEK   DS    CL8                 STATIC SEEK ADDRESS                  12600021
IOSEEKA  DS    CL8                 DYNAMIC SEEK ADDRESS                 12650021
         ORG   IOSEEKA                                                  12700021
IOSSKM   DS    XL1                 M                                    12750021
IOSSKBB  DS    XL2                 BB                                   12800021
IOSSKCC  DS    XL2                 CC                                   12850021
IOSSKHH  DS    0XL2                HH                                   12900021
IOSSKH1  DS    XL1                 H                                    12910021
IOSSKH2  DS    XL1                 H                                    12920021
IOSSKR   DS    XL1                 R                                    12950021
         ORG   IOSEEKA+L'IOSEEKA   '                                    13000021
         SPACE 1                                                        13050021
IOSEND   EQU   *                   END OF IOSB                          13100021
         SPACE 1                                                        13150021
         ORG   IOSSECT             START OF ATTN SECTION                13200021
IOSATTSN DS    XL24                ADDITIONAL SENSE IF ANY              13250021
         DS    XL16                ADDITIONAL SENSE IF ANY     @G29ANLO 13300000
IOSATTWA DS    XL(IOSEND-*)        ATTN ROUTINE WORK AREA               13350021
         SPACE 1                                                        13400021
         ORG   IOSSECT             START OF WTO SECTION                 13450021
IOSWTOWA EQU   *                   WTO WORK AREA                        13500021
IOSWTOCH DS    XL2                 ADDR CC=3 OCCURRED ON                13510021
IOSWTOCP DS    XL1                 CPU CC=3 OCCURRED ON                 13520021
IOSWTOPT DS    XL1                 PATH INDICATOR FOR CC=3              13530021
IOSWRMDR DS    XL(IOSEND-*)        REMAINDER OF WTO WORK AREA           13540021
         SPACE 1                                                        13550021
         ORG   IOSSECT             START OF PCI SECTION                 13600021
         DS    A                   SAME AS IOSIPIB. MUST NOT BE         13650021
*                                  CHANGED                              13700021
         DS    A                   SAME AS IOSPCHN. MUST NOT BE         13750021
*                                  CHANGED                              13800021
IOSPCIRS DS    XL32                PCI RESERVED AREA                    13850021
IOSPCIWA DS    XL(IOSEND-*)        PCI WORK AREA                        13900021
         MEND                                                           13950021
*                                                            @ZM30407*/ 13970003
         EJECT                                                          14000021
*%IOSBPLS: ;                                                            14050021
*                                                                       14100021
*/*************************************************************/        14150021
*/*                                                           */        14200021
*/*  THIS STRUCTURE DESCRIBES THE CONTROL BLOCK PASSED TO THE */        14250021
*/*  I/O SUPERVISOR  AS A  PARAMETER OF THE SRB.  THE CONTROL */        14300021
*/*  BLOCK CONTAINS ALL INFORMATION NECESSARY TO INITIATE AND */        14350021
*/*  TERMINATE AN I/O OPERATION.  FIELDS OF THE IOSB ARE USED */        14400021
*/*  FOR COMMUNICATION BETWEEN THE:                           */        14450021
*/*                                                           */        14500021
*/*      1. I/O SUPERVISOR AND I/O REQUESTOR                  */        14550021
*/*      2. I/O SUPERVISOR AND ERROR RECOVERY PROCEDURES      */        14600021
*/*      3. COMPONENTS OF THE I/O SUPERVISOR                  */        14650021
*/*      4. SUCCESSIVE ENTRANCES TO THE ERP'S                 */        14700021
*/*      5. ERP AND COMMON WTO AND STATISTICS UPDATE MODULES  */        14750021
*/*                                                           */        14800021
*/*************************************************************/        14850021
*/*                                                           */        14900021
*/*      05/30/72   LEVEL=00                                  */        14950021
*/*                                                           */        15000021
*/*************************************************************/        15050021
*                                                                       15100021
*   DCL 1 IOSB  BDY(WORD)  BASED(IOSBPTR),                              15110021
*       2 IOSFLA    CHAR(1),       /* FLAG BYTE A             */        15150021
*         3 IOSACHN BIT(2),        /* COMMAND & DATA CHAINING */        15200021
*           4 IOSDCHN BIT(1),      /* DATA CHAINING           */        15250021
*           4 IOSCCHN BIT(1),      /* COMMAND CHAINING        */        15300021
*         3 IOSERR  BIT(1),        /* ERROR ROUTINE IN CONTROL          15350002
*                                     MUST BE ZEROED BY DRIVER          15400002
*                                     IF ERP RETURNS WITH THIS          15450002
*                                     BIT ON, A RETRY IS                15500002
*                                     ASSUMED. IF THE ERP RE-           15550002
*                                     TURNS WITH THIS BIT OFF,          15600002
*                                     THE ERROR IS CONSIDERED           15650002
*                                     PERMANENT OR CORRECTED            15700002
*                                     DEPENDING ON THE SETTING          15750002
*                                     OF IOSEX.               */        15800002
*         3 IOSSMDA BIT(1),        /* ERP STATUS MODFR BIT .            15850002
*                                     MUST BE ZEROED BY DRIVER          15900002
*                                      TAPE - REPOSITION DEVCE          15950002
*                                      1052 - IMMEDIATE OPERA-          16000002
*                                        TION, CCW OP CODE IN           16050002
*                                        IOSMDB.              */        16100002
*         3 IOSSMDB BIT(1),        /* ERP STATUS MODFR BIT B            16150002
*                                     MUST BE ZEROED BY DRIVER          16200002
*                                     SET BY FETCH IN APPEN-            16250002
*                                     DAGE FOR POSTING.                 16300002
*                                      TAPE - CRC NEEDED                16350002
*                                      DASD - PCI FETCH STOP            16400002
*                                           FLAG              */        16450002
*         3 IOSEX   BIT(1),        /* EXCEPTIONAL CONDITION.            16500002
*                                     UPON RETURN FROM NORMAL           16550002
*                                     OR ABNORMAL EXIT WITH             16600002
*                                     THIS BIT ON, ERP PROCES-          16650002
*                                     SING IS INITIATED IF IN-          16700002
*                                     ITIAL ERROR CONDITION.            16750002
*                                     IF BIT IS OFF, IT IS AS-          16800002
*                                     SUMED THAT THE EXIT COR-          16850002
*                                     RECTED THE CONDITION OR           16900002
*                                     DID NOT CONSIDER IT AN            16950002
*                                     ERROR. WHEN THE ERP RE-           17000002
*                                     TURNS WITH THIS BIT ON,           17050002
*                                     AND IOSERR OFF,THE ERROR          17100002
*                                     IS CONSIDERED PERMANENT.          17150002
*                                     WHEN THE ERP RETRNS WITH          17200002
*                                     THIS BIT OFF, THE ERROR           17250002
*                                     HAS BEEN CORRECTED.     */        17300002
*         3 IOSDOM  BIT(1),        /* DOM MACRO REQUIRED     @YM06828*/ 17350002
*         3 IOSIOSB BIT(1),        /* IOSB CREATED BY IOS.              17400002
*                                     MUST BE ZEROED BY DRIVER*/        17450002
*                                                                       17500021
*       2 IOSFLB    CHAR(1),       /* FLAG BYTE B             */        17550021
*         3 IOSDIESE BIT(1),       /* SECOND ENTRY TO DIE     */        17600021
*         3 IOSSDR   BIT(1),       /* ERP DOESNT WANT OBR    @Z40MPLG*/ 17650004
*         3 IOSNOTRS BIT(1),       /* DRIVER WANTS NO TRAS ON           17660003
*                                     ENTRY TO DIE.          @ZA25620*/ 17663003
*         3 IOSFLB3  BIT(1),       /* RESERVED                */        17670021
*         3 IOSFLB4  BIT(1),       /* RESERVED                */        17680021
*         3 IOSMSG   BIT(1),       /* MESSAGE INDICATOR                 17700002
*                                     0 = INTRVNTN REQURD MSG           17750002
*                                     1 = I/O ERROR MESSAGE   */        17800002
*         3 IOSBDCST BIT(1),       /* BROADCAST BIT           */        17850021
*         3 IOSLOG   BIT(1),       /* CREATE AN OBR RECORD    */        17900021
*                                                                       17950021
*       2 IOSFLC    CHAR(1),       /* DEVICE DEP ERP FLAGS    */        18000021
*         3 IOSDVMNT BIT(1),       /* DAVV ISSUED MOUNT       */        18050021
*         3 IOSDVALT BIT(1),       /* ALTERNATE TRACK PROCES-           18100002
*                                     SING BY DAVV            */        18150002
*          4 IOSVERIF BIT(1),      /* UNSOLICITED DEVICE END            18160002
*                                     VERIFICATION NEEDED               18170002
*                                     (NON-DA)                */        18180002
*         3 IOSCC3WE BIT(1),       /* GDP REQ'RS CC3 POST X6D@DCRR054*/ 18200003
*         3 IOSTP    BIT(1),       /* NO SPECIAL CC3 HANDLINGTOBEFLGD*/ 18210003
*         3 IOSRWAIT BIT(2),       /* RESTARTABLE WAIT REASON@ZA00904*/ 18215004
*         3 IOSCTCNR BIT(1),       /* CTC-NO RETRY ALLOWED   @ZA11845*/ 18225000
*         3 IOSFLC7  BIT(1),       /* RESERVED                */        18242021
*                                                                       18250021
*       2 IOSPROC   CHAR(1),       /* THIS BYTE INDICATES WHAT          18300002
*                                     TYPE OF SPECIAL PROCES-           18350002
*                                     SING IS TO BE PERFORMED           18400002
*                                     BY IOS COMPONENTS OPER-           18450002
*                                     ATING ASYNCHRONOUS TO             18500002
*                                     MAINLINE                          18550002
*                                     MUST BE ZEROED BY DRIVER          18600002
*                                     DCLS ARE AT END OF IOSB */        18610002
*                                                                       18650021
*       2 IOSDVRID  CHAR(1),       /* DRIVER ID VALUE                   19250002
*                                     VALUES AT END OF IOSB   */        19300002
*                                                                       20300021
*       2 IOSPRLVL  CHAR(1),       /* PRIORITY LEVEL AT WHICH           20350002
*                                     THE ADDRESS SPACE IS TO BE        20400002
*                                     SCHEDULED, 0 OR 1       */        20450002
*       2 IOSASID   CHAR(2),       /* ADDR SPACE ID OF MEMORY           20500002
*                                     TO BE SCHEDULED AT TERM           20550002
*                                     OF I/O REQUEST          */        20600002
*       2 IOSPGAD   PTR(31),       /* PGM ADDR TO BE DISPTCHD */        20650021
*       2 IOSPKEY BIT(8),          /* PROTECT KEY OF IOSPGAD  */        20700021
*        3 *       BIT(4),         /* PROTECT KEY             */        20750021
*        3 IOSLCL  BIT(1),         /* ASID SCHDLD AT LOCAL LVL*/        20800021
*        3 IOSIDR  BIT(1),         /* ASYNCHRONOUS SCHEDULING           20850002
*                                     SHOULD BE USED FOR THIS           20900002
*                                     REQUEST (INDIRECT RE-             20950002
*                                     CORDING FOR PAGING I/O  */        21000002
*        3 IOSPGDPX BIT(1),        /* THIS REQUEST HAS A BACK           21050002
*                                     UP COPY (DUPLEXED PAGE) */        21100002
*        3 IOSPKY7  BIT(1),        /* RESERVED                */        21150021
*       2 IOSCOD    CHAR(1),       /* I/O COMPLETION CODE               21200002
*                                     USED AS TEMP SAVE FOR             21250002
*                                     SYSTEM MASK BY CHAN SCHD          21300002
*                                     VALUES AT END OF IOSB   */        21350002
*                                                                       23500021
*       2 IOSOPT    CHAR(1),       /* OPTIONS BYTE            */        23510021
*         3 IOSBYP  BIT(1),        /* BYPSS IOS CHAN PGM PRFX */        23520021
*         3 IOSDEP  BIT(1),        /* DEVICE END POST REQUSTD */        23530021
*         3 IOSQISCE BIT(1),       /* THIS REQUEST INITIATED            23540002
*                                     BY FUNCTION WHICH HAS             23542002
*                                     QUIESCED THE DEVICE     */        23544002
*         3 IOSPSLL BIT(1),        /* ON=LOCAL LOCK NOT WANTED          23546002
*                                     FOR POST STATUS PROCSS            23548002
*                                     OFF=LOCAL LOCK WANTED   */        23548402
*         3 IOSNERP BIT(1),        /* IBM ERPS NOT TO BE USED */        23548821
*         3 IOSTSLL BIT(1),        /* ON = LOCAL LOCK NOT               23548902
*                                     WANTED BY TERMINATION             23549002
*                                     ROUTINE                           23549102
*                                     OFF = LOCAL LOCK WANTED           23550802
*                                     BY TERMINATION ROUTINE            23552802
*                                     IF IOSPSLL ALSO ON      */        23552902
*         3 IOSAPR  BIT(1),        /* ALT PATH RETRY ACTIVE.            23554702
*                                     MUST BE ZEROED BY DRIVER*/        23556402
*         3 IOSRELSE BIT(1),       /* STAND-ALONE RELEASE CCW           23558102
*                                     ISSUED BY IOS           */        23559802
*                                                                       23575002
*       2 IOSOPT2  CHAR(1),        /* OPTION BYTE 2           */        23587502
*         3 IOSHTP  BIT(1),        /* ELIGIBLE FOR SHOULDR TAP*/        23597502
*         3 IOSIGP  BIT(1),        /* ELIGIBLE FOR SIGP      @ZA18121*/ 23599503
          3 IOSCHMSK BIT(1),       /* UPDATE IRTCHMSK, DON'T SIGP       23609503
                                                             @ZA47390*/ 23619503
          3 IOSOPT2X BIT(5),       /* RESERVED BITS          @ZA47390*/ 23629503
*       2 IOSUCB    PTR(31),       /* UNIT CONTROL BLOCK ADDR */        23639503
*       2 *         CHAR(8) BDY(WORD),                                  23659503
*         3 IOSCC     BIT(8),      /* SIO CONDITION CODE      */        23679503
*         3 IOSCSW CHAR(7) BDY(WORD,2), /* CSW LO ORDR 7 BYTES*/        23699503
*          4 IOSCSWCA  PTR(24) BDY(WORD,2), /*                          23719503
*                                     LAST COMMAND ADDRESS    */        23810002
*          4 IOSTATUS  CHAR(2),    /* CSW STATUS              */        23850021
*            5 IOSTSA  BIT(8),     /* DEVICE STATUS           */        23900021
*            5 IOSTSB  BIT(8),     /* CHANNEL STATUS          */        23950021
*          4 IOSCSWRC PTR(16) BDY(WORD,3), /*                           24000003
*                                     RESIDUAL COUNT          */        24010003
*                                                                       24050021
*       2 IOSSRB    PTR(31),       /* POINTER BACK TO SRB     */        24100021
*       2 IOSUSE    PTR(31),       /* USER FIELD              */        24150021
*       2 IOSRES4A  PTR(31),       /* RESERVED                */        24200021
*       2 IOSAPMSK  CHAR(2),       /* EXCLUSIVE PATH MASK FOR           24250002
*                                     APR                               24300002
*                                     MUST BE ZEROED BY DRIVER*/        24350002
*       2 IOSSNS    BIT(16),       /* SENSE DATA              */        24400021
*                                                                       24450021
*  /***********************************************************/        24460002
*  /*  END OF COMMON SECTION AND START OF PROCESSING  DEPEN-  */        24500002
*  /*  DENT SECTIONS WHICH ARE: NORMAL I/O REQUEST, WTO, AND  */        24510002
*  /*  PCI SCHEDULING.                                        */        24550002
*  /***********************************************************/        24560002
*                                                                       24600021
*       2 IOSIPIB   PTR(31),       /* IOS/PURGE INTERFACE               24650002
*                                     BLOCK ADDRESS                     24700002
*                                     MUST BE ZEROED BY DRIVER.         24750002
*                                     OR CHAIN PTR FOR PCI              24760002
*                                     SRB/IOSBS               */        24770002
*       2 IOSPCHN   PTR(31),       /* PTR TO ENDING STATUS IOSB         24800002
*                                     FOR PCI SRB/IOSBS.                24810002
*                                     PTR TO FIRST PCI SRB/IOSB         24820002
*                                     FOR ENDING STATUS IOSB. */        24830002
*       2 IOSERP    PTR(31),       /* ERP DYNAMIC W.A. ADDR.            24850002
*                                     MUST BE ZEROED BY DRIVER*/        24900002
*       2 IOSPCI    PTR(31),       /* PCI EXIT ADDRESS        */        24950021
*       2 IOSNRM    PTR(31),       /* NORMAL EXIT ADDRESS     */        25000021
*       2 IOSABN    PTR(31),       /* ABNORMAL EXIT ADDRESS   */        25050021
*       2 IOSDIE    PTR(31),       /* DISABLED INT. EXIT ADDR */        25100021
*       2 IOSRST    PTR(31),       /* REAL ADDRESS OF REAL              25150002
*                                     CHANNEL PROGRAM         */        25200002
*       2 IOSVST    PTR(31),       /* VIRTUAL ADDRESS OF REAL           25250002
*                                     CHANNEL PROGRAM         */        25300002
*       2 IOSDSID   PTR(31),       /* DATA SET ID FOR PURGE   */        25350021
*                                                                       25400021
*       2 IOSRSS1B  CHAR(1),       /* RESERVED                */        25450021
*       2 IOSAFF    BIT(8),        /* CPU AFFINITY INDICATOR            26200002
*                                     FOR GUARANTEED DEVCE PTH*/        26250002
*       2 IOSPATH   CHAR(2),       /* PATH SPECIFICATION FOR            26300002
*                                     GUARANTEED DEVICE PATH            26350002
*                                     OR SPECIFIC EXPOSURE              26400002
*                                     REQUESTS                */        26450002
*         3 IOSCHN  CHAR(1),                                            26500021
*           4 IOSGDP    BIT(1),    /* GUARANTEED DEVICE PATH  */        26550021
*           4 IOSEXP    BIT(1),    /* SPECIFIC EXPOSURE REQST */        26600021
*           4 IOSPATH2  BIT(1),    /* RESERVED                */        26650021
*           4 IOSPATH3  BIT(1),    /* RESERVED                */        26660021
*           4 *         BIT(4),    /* CHANNEL NUMBER          */        26700021
*                                                                       26750021
*         3 IOSCUDEV CHAR(1),      /* CONTRL UNIT/DEVICE ADDR */        26800021
*                                                                       26850021
*       2 IOSFMSK   CHAR(1),       /* MODE SET/FILE MASK      */        27150021
*       2 IOSCKEY   BIT(8),        /* PROT. KEY OF CHAN PGM   */        27200021
*         3 *        BIT(4),       /* PROTECT KEY             */        27250021
*         3 IOSCKEY4 BIT(1),       /* RESERVED                */        27300021
*         3 IOSCKEY5 BIT(1),       /* RESERVED                */        27310021
*         3 IOSCKEY6 BIT(1),       /* RESERVED                */        27320021
*         3 IOSCKEY7 BIT(1),       /* RESERVED                */        27330021
*       2 IOSMDB    CHAR(1),       /* ERP IMMED. CCW OP CODE  */        27350021
*       2 IOSMDM    CHAR(1),       /* ERP MODIFIER MASK       */        27400021
*       2 IOSEEK    CHAR(8),       /* STATIC SEEK ADDRESS     */        27450021
*       2 IOSEEKA CHAR(8) BDY(WORD), /* DYNAMIC SEEK ADDRESS  */        27500003
*         3 IOSSKM  PTR(8),             /*   M                */        27530003
*         3 IOSSKBB PTR(16) BDY(WORD,2), /*  BB               */        27560003
*         3 IOSCCHH CHAR(4) BDY(WORD,4), /*  CCHH             */        27590003
*          4 IOSSKCC PTR(16) BDY(WORD,4), /* CC               */        27620003
*          4 IOSSKHH PTR(16) BDY(WORD,2), /* HH               */        27650003
*             5 IOSSKH1 PTR(8),         /*   H                */        27710021
*             5 IOSSKH2  PTR(8),        /*   H                */        27720021
*         3 IOSSKR  PTR(8),             /*   R                */        27750021
*       2 IOSEND    CHAR(0);       /* END OF IOSB             */        27800021
*                                                                       27950021
*  /*  ATTENTION PROCESSING SECTION                           */        28000002
*   DCL 1 IOSATTSC  CHAR(64) DEF(IOSIPIB),                              28100021
*         2 IOSATTSN CHAR(24),     /* ADDITIONAL SENSE IF ANY */        28150021
*         2 *        CHAR(16),   /* ADDITIONAL SENSE IF ANY  @G29ANLO*/ 28200000
*         2 IOSATTWA CHAR(24);     /* ATTN RTN WORK AREA      */        28250021
*                                                                       28300021
*  /*  WTO PROCESSING SECTION                                 */        28302002
*   DCL 1 IOSWTOWA  CHAR(64) DEF(IOSIPIB),                              28310021
*         2 IOSWTOCH CHAR(2),      /* ADDR CC=3 OCCURRED ON   */        28312021
*         2 IOSWTOCP CHAR(1),      /* CPU CC=3 OCCURRED ON    */        28314021
*         2 IOSWTOPT CHAR(1),      /* PATH IND. FOR CC=3      */        28316021
*         2 IOSWRNDR CHAR(60);     /* REMAINDER OF WTO W.A.   */        28318021
*                                                                       28320021
*  /*  PCI SCHEDULING SECTION                                 */        28330002
*   DCL 1 IOSPCISC  CHAR(64)  DEF(IOSIPIB) BDY(WORD),                   28350021
*         2 *       PTR(31),       /* SAME AS IOSIPIB. MUST             28400002
*                                     NOT BE USED             */        28450002
*         2 *       PTR(31),       /* SAME AS IOSPCHN. MUST             28500002
*                                     NOT BE USED             */        28550002
*         2 IOSPCIRS CHAR(36),     /* PCI RSVD SECTION        */        28600021
*         2 IOSPCIWA CHAR(20);     /* PCI WORK AREA           */        28650021
*                                                                       28700021
* /************************************************************/        28750021
* /*                                                          */        28800021
* /*     FOLLOWING ARE THE PLS DECLARES WHICH REPLACE  THE    */        28850021
* /*     PREVIOUSLY DEFINED %DCLARES.  THE FIELDS TO WHICH    */        28900021
* /*     THE VALUES APPLY ARE REPRODUCED AS A COMMENT. THIS   */        28950021
* /*     CHANGE ALLOWS A CROSS REFERENCE OF THE NAMES  USED   */        29000021
* /*     AS FIELD VALUES.                                     */        29050021
* /*                                                          */        29100021
* /************************************************************/        29150021
*                                                                       29200021
*   /*  2 IOSPROC  CHAR(1),           SEE DCL FOR DESCRIPTION */        29250002
*                                                                       29300021
*   DCL IOSAPCI BIT(8) CONSTANT('04'X);     /* PCI            */        29350021
*   DCL IOSATTN BIT(8) CONSTANT('08'X);     /* ATTENTION      */        29400021
*   DCL IOSAPURG BIT(8) CONSTANT('0C'X);    /* PURGE          */        29450002
*   DCL IOSADAVV BIT(8) CONSTANT('10'X);    /* DAVV           */        29500021
*   DCL IOSAWTO BIT(8) CONSTANT('14'X);     /* WTO            */        29550021
*   DCL IOSADDR BIT(8) CONSTANT('18'X);     /* DDR            */        29600021
*   DCL IOSACRH BIT(8) CONSTANT('1C'X);     /* CRH            Y30CQLG*/ 29650003
*   DCL  IOSAUR BIT(8) CONSTANT('20'X);     /* UNCONDITIONAL            29660003
*                                              RESERVE       @ZA35535*/ 29670003
*                                                                       29700021
*   /*  2 IOSDVRID CHAR(1),           SEE DCL FOR DESCRIPTION */        29750002
*                                                                       29800021
*   DCL IOSIOSID BIT(8) CONSTANT('00'X); /*                             29850002
*                                     RESERVED FOR IOS        */        29900002
*   DCL IOSMISID BIT(8) CONSTANT('01'X); /*                             29950002
*                                     MISCELLANEOUS ID FOR I/O          30000002
*                                     REQUESTS THAT CANNOT BE           30050002
*                                     PURGED, ASSOCIATED WITH           30100002
*                                     A TASK, OR VIOLATE XTNTS*/        30150002
*   DCL IOSXCPID BIT(8) CONSTANT('02'X);    /* EXCP           */        30200021
*   DCL IOSVSAID BIT(8) CONSTANT('03'X);    /* VSAM           */        30300021
*   DCL IOSATMID BIT(8) CONSTANT('04'X);    /* VTAM           */        30400002
*   DCL IOSTCMID BIT(8) CONSTANT('05'X);    /* TCAM           */        30500021
*   DCL IOSOLTID BIT(8) CONSTANT('06'X);    /* OLTEP          */        30600021
*   DCL IOSFCHID BIT(8) CONSTANT('07'X);    /* PROGRAM FETCH  */        30650021
*   DCL IOSJESID BIT(8) CONSTANT('08'X);    /* JES3           */        30700004
*   DCL IOSSS1ID BIT(8) CONSTANT('09'X);    /* SS1/DSM        */        30720004
*   DCL IOSPRGID BIT(8) CONSTANT('0A'X);   /* IECVIOPM PURGE @ZA04107*/ 30740004
*   DCL IOSVPSID BIT(8) CONSTANT('0B'X);   /* VPSS           @G29ANLO*/ 30770000
*                                                                       30800021
*   /*  2 IOSCOD CHAR(1),             SEE DCL FOR DESCRIPTION */        30850002
*                                                                       30900021
* /************************************************************/        30902002
* /*  COMPLETION CODES 41 - 5F ARE RESERVED FOR PERMANENT     */        30910002
* /*  ERROR CONDITIONS. THESE CODES WILL ALWAYS BE LAST ENTRY */        30920002
* /*  CODES TO ABNORMAL EXITS.                                */        30930002
* /*  COMPLETION CODES 60 - 73 ARE RESERVED FOR IOS USE.      */        30940002
* /*  COMPLETION CODES 74 - 7E DENOTE ABNORMAL CONDITIONS FOR */        30942002
* /*  WHICH CORRECTION MAY BE POSSIBLE. THESE CODES DENOTE    */        30944002
* /*  FIRST ENTRY TO ABNORMAL EXITS.                          */        30946002
* /************************************************************/        30948002
*                                                                       30948402
*   DCL IOSFTCHC BIT(8) CONSTANT('71'X); /*                             30950002
*                                     HARDWARE CORRECTED DATA           31000002
*                                     CHECK FOR FETCH         */        31050021
*   DCL IOSMIHC BIT(8) CONSTANT('74'X); /*                              31060002
*                                     THE I/O REQUEST HAS BEEN          31070002
*                                     ROUTED TO I/O RESTART BY          31080002
*                                     CCH, ALTERNATE CPU RECOV-         31090002
*                                     ERY, MISSING INTERRUPT            31092002
*                                     HANDLER.                */        31094002
*   DCL IOSFINTC BIT(8) CONSTANT('7E'X); /*                             31100002
*                                     INTERCEPT CONDITION BE-           31150002
*                                     FORE ENTRANCE TO ERP    */        31200021
*   DCL IOSNRMC BIT(8) CONSTANT('7F'X); /*                              31250002
*                                     NORMAL COMPLETION       */        31300002
*   DCL IOSGDPWE BIT(8) CONSTANT('6D'X); /* IECVPST GOTO ABE & ERP      31310003
*                                                            @DCRR054*/ 31320003
*   DCL IOSERRC BIT(8) CONSTANT('41'X); /*                              31350002
*                                     PERMANENT I/O ERROR     */        31400002
*   DCL IOSEXTC BIT(8) CONSTANT('42'X); /*                              31450002
*                                     EXTENT ERROR            */        31500002
*   DCL IOSDPXC BIT(8) CONSTANT('43'X); /*                              31550002
*                                     DUPLEXED I/O REQUEST WAS          31600002
*                                     NOT STARTED BECAUSE OF            31650021
*                                     A QUIESCED OR NOT READY           31700021
*                                     DEVICE.                 */        31750021
*   DCL IOSINTC BIT(8) CONSTANT('44'X); /*                              31800002
*                                     REQUEST INTERCEPTED BE-           31850002
*                                     CAUSE A PERMANENT ERROR           31900021
*                                     OCCURRED THE LAST TIME            31950021
*                                     THE DEVICE WAS USED.    */        32000021
*   DCL IOSABNC BIT(8) CONSTANT('45'X); /*                              32050002
*                                     I/O REQUEST ABNORMALLY            32100002
*                                     TERMINATED BECAUSE OF PRO-        32150021
*                                     GRAM CHECK, MACHINE CHECK,        32200021
*                                     ETC. IN IOS OR AN APPEN-          32250021
*                                     DAGE.                   */        32300021
*   DCL IOSCD46 BIT(8) CONSTANT('46'X);     /* RESERVED       */        32350021
*   DCL IOSCD47 BIT(8) CONSTANT('47'X);     /* RESERVED       */        32400021
*   DCL IOSPRGC BIT(8) CONSTANT('48'X);     /* REQUEST PURGED */        32450021
*   DCL IOSCD49 BIT(8) CONSTANT('49'X);     /* RESERVED       */        32500021
*   DCL IOSTAPEC BIT(8) CONSTANT('4B'X);    /*                          32550002
*                                     ERR IN TAPE REPOSITIONNG*/        32600002
*   DCL IOSIVEXP BIT(8) CONSTANT('4C'X);    /*                          32650002
*                                     INVALID EXPOSURE NUMBER */        32700002
*   DCL IOSGDPCC BIT(8) CONSTANT('4D'X);    /*                          32750002
*                                     CC=3 - GDP OR WHILE NIP           32800002
*                                     IN CONTROL              */        32802002
*   DCL IOSGDPRD BIT(8) CONSTANT('4E'X);    /*                          32850002
*                                     GDP - RESERVED DEVICE             32900002
*                                     OR IN CONJUNCTION WITH            32910002
*                                     IOSRELSE,DEVICE CANNOT            32920002
*                                     BE RELEASED.            */        32930002
*   DCL IOSGDPCO BIT(8) CONSTANT('4F'X);    /*                          32950002
*                                     GDP - CPU OFFLINE       */        33000002
*   DCL IOSCD50 BIT(8) CONSTANT('50'X);     /* RESERVED       */        33050002
*   DCL IOSMIHCA BIT(8) CONSTANT('51'X);    /*                          33350002
*                                     THE REQUEST HAS BEEN DE-          33400002
*                                     CLARED IN PERMANENT ERROR         33450021
*                                     AFTER ERP AND I/O RESTART         33500021
*                                     PROCESSING.             */        33550021
*                                                                       33600021
*   /*  3 IOSCUDEV CHAR(1),           SEE DCL FOR DESCRIPTION */        33650002
*                                                                       33700021
*   DCL IOSCU BIT(8) CONSTANT('F0'X);  /* CONTROL UNIT        */        33750021
*   DCL IOSDEV BIT(8) CONSTANT('0F'X); /* DEVICE              */        33800021
*   DCL IOSSNSBD BIT(16) CONSTANT('10FE'X); /*                          33850002
*                                     VALUE SUPPLIED FOR                33900002
*                                     UNSUCCESSFUL SENSE      */        33950002
*                                                                       34000002
*   /*  3 IOSCC BIT(8),               SEE DCL FOR DESCRIPTION */        34050002
*                                                                       34100002
*   DCL IOSCC3 BIT(8) CONSTANT('30'X); /* CONDITION CODE 3    */        34150002
*   DCL IOSCC2 BIT(8) CONSTANT('20'X); /* CONDITION CODE 2    */        34200002
*   DCL IOSCC1 BIT(8) CONSTANT('10'X); /* CONDITION CODE 1    */        34250002
*   DCL IOSCC0 BIT(8) CONSTANT('00'X); /* CONDITION CODE 0    */        34300002
*                                                                       34350004
*   /* 3 IOSRWAIT BIT(2),            RESTARTABLE WAIT REASON @ZA00904*/ 34400004
*                                                                       34450004
*   DCL IOSRWVID BIT(8) CONSTANT('00'X); /* 00--WRONG VOL ID @ZA00904*/ 34500004
*   DCL IOSRWIR  BIT(8) CONSTANT('04'X); /* 01--INTERVENTION @ZA00904*/ 34550004
*                                        /*     REQUIRED     @ZA00904*/ 34600004
*   DCL IOSRWCC3 BIT(8) CONSTANT('08'X); /* 10--CONDITION    @ZA00904*/ 34650004
*                                        /*     CODE 3       @ZA00904*/ 34700004
*   DCL IOSRWERR BIT(8) CONSTANT('0C'X); /* 11--READ ERROR   @ZA00904*/ 34750004
*                                        /*     FOR LABEL    @ZA00904*/ 34800004