* % 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