ibm:vm370-lib:cp:dmkvde.assemble_hst
Table of Contents
DMKVDE History
References
- Fixes Applied : 10
- Latest Source Date : Thursday, December 7, 1978
- Last Fix ID : [HRC039DK]
Update History
CMS File Input : DMKVDE ASSEMBLE
Date : 12/7/1978 5:18:00 PM
VM Context : MAINT(394)
File Name : DMKVDE.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:48 AM
Created : 1/16/2021 7:31:48 AM
Update Order
- R09957DK 604 CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R09204DK 606 LIMIT TIO LOOP TO 256 RETRIES
- R10201DK 609 LOOP ATTACHING A NOT-READY 2305
- R12941DK 622 UV04884 SYNC ERROR RECOV FOR INTERVENTION REQUIRED COND.
- R13651DK 623 UV04932 DMKVDA ERROR MESSAGE ROUTINE SPLIT INTO DMKVDERR
- R11952DK 625 UV03674 ATTACH CMD TO A BUSY DASD GIVES INCORRECT MESSAGE
- R13217DK 628 UV06065 AFTER VM09651 MSDMKDEF040E AND MSDMKLNK022E MISLEAD
- R15392DK 629 BUCKET
- R16237DK 629 BUCKET
- HRC039DK H40 Fix various DASD attached to SYSTEM issues
R09957DK
Date Thursday Jul 12, 1979 09:54:00 AM
Loaded from MAINT(294)
R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.
R09204DK
Date Friday Nov 02, 1979 10:16:00 AM
Loaded from MAINT(294)
R09204DK: ./ I 120000 $ 120100 00001000
R09204DK: LA R7,X'100' LOAD TIO LOOP COUNT @VA09204 00002000
R09204DK: ./ R 197100 $ 197200 100 00003000
R09204DK: BO CKMORE YES-CONTINUE CHECK @VA09204 00004000
R09204DK: BCT R7,RDLCPEX1 NO-RETRY TIO 256 TIMES @VA09204 00005000
R09204DK: CKMORE EQU * @VA09204 00006000
BEGIN APPLY >>> ./ I 120000 $ 120100 00001000
END APPLY >>> ./ I 120000 $ 120100 00001000
BEGIN APPLY >>> ./ R 197100 $ 197200 100 00003000
END APPLY >>> ./ R 197100 $ 197200 100 00003000
Update Succeeded
Update Execution Time 8 milliseconds.
R10201DK
Date Friday Jan 25, 1980 09:25:00 AM
Loaded from MAINT(294)
R10201DK: ./ R 219000 $ 219100 00001000
R10201DK: LA R3,1 NO. OF EXPOSURES TO VARY @VA10201 00002000
R10201DK: ./ R 224000 $ 224100 00003000
R10201DK: LA R3,8 NO. OF EXPOSURES FOR DRUM @VA10201 00004000
R10201DK: ./ R 229000 $ 229100 00005000
R10201DK: BCT R3,VARYLOOP CONTINUE @VA10201 00006000
BEGIN APPLY >>> ./ R 219000 $ 219100 00001000
END APPLY >>> ./ R 219000 $ 219100 00001000
BEGIN APPLY >>> ./ R 224000 $ 224100 00003000
END APPLY >>> ./ R 224000 $ 224100 00003000
BEGIN APPLY >>> ./ R 229000 $ 229100 00005000
END APPLY >>> ./ R 229000 $ 229100 00005000
Update Succeeded
Update Execution Time 16 milliseconds.
R12941DK
Date Tuesday Jul 07, 1981 01:38:00 PM
Loaded from MAINT(294)
R12941DK: ./ *
BEGIN APPLY >>> ./ *
Comment >>> ./ *
END APPLY >>> ./ *
Update Succeeded
Update Execution Time 8 milliseconds.
R13651DK
Date Friday Aug 07, 1981 07:16:00 AM
Loaded from MAINT(294)
R13651DK: ./ R 00008000 00010000 $ 8000 500 06/18/81 14:45:15
R13651DK: * CONTENTS - 00008100
R13651DK: * 00008600
R13651DK: * DMKVDEDC - SUBROUTINE TO VERIFY DEVICE EXISTENCE FOR DEVICE 00009100
R13651DK: * WHICH IS BEING ATTACHED. 00009600
R13651DK: * 00010100
R13651DK: * DMKVDERR - SUBROUTINE TO ISSUE ATTACH ERROR MESSAGES. 00010600
R13651DK: ./ I 00021000 $ 21100 100 06/18/81 14:45:15
R13651DK: EXTRN DMKCVTBD @VA13651 00021050
R13651DK: EXTRN DMKCVTBH @VA13651 00021100
R13651DK: EXTRN DMKERMSG @VA13651 00021150
R13651DK: EXTRN DMKLOCKD @VA13651 00021200
R13651DK: EXTRN DMKSCNRD @VA13651 00021250
R13651DK: EXTRN DMKSCNRN @VA13651 00021300
R13651DK: ./ I 00022000 $ 22100 100 06/18/81 14:45:15
R13651DK: *. 00022020
R13651DK: * SUBROUTINE NAME - 00022040
R13651DK: * DMKVDEDC - VERIFY DEVICE EXISTENCE 00022060
R13651DK: * 00022080
R13651DK: * FUNCTION - 00022100
R13651DK: * TO VERIFY THE EXISTENCE OF A DEVICE WHICH IS BEING ATTACHED. 00022120
R13651DK: ./ R 00339000 00360000 $ 339000 1000 06/18/81 14:45:15
R13651DK: *. 00400000
R13651DK: * SUBROUTINE NAME - 00401000
R13651DK: * 00402000
R13651DK: * DMKVDERR - ISSUE ATTACH ERROR MESSAGES 00403000
R13651DK: * 00404000
R13651DK: * FUNCTION - 00405000
R13651DK: * TO ISSUE ERROR MESSAGES FOR THE 'ATTACH' COMMAND 00406000
R13651DK: * 00407000
R13651DK: * ATTRIBUTES - 00408000
R13651DK: * 00409000
R13651DK: * REENTRANT, PAGEABLE, CALLED VIA SVC 00410000
R13651DK: * 00411000
R13651DK: * ENTRY CONDITIONS - 00412000
R13651DK: * 00413000
R13651DK: * GPR 2 - ERROR MESSAGE INDEX 00414000
R13651DK: * GPR 7 - ADDRESS OF ERROR MESSAGE AREA 00415000
R13651DK: * GPR 9 - ADDRESS OF UDEVBLOK 00416000
R13651DK: * GPR 10 - ADDRESS OF VMBLOK FOR ATTACHED-TO USER 00417000
R13651DK: * GPR 11 - ADDRESS OF CALLER'S VMBLOK 00418000
R13651DK: * GPR 12 - BASE REGISTER 00419000
R13651DK: * GPR 13 - ADDRESS OF STANDARD SAVE AREA 00420000
R13651DK: * 00421000
R13651DK: * EXIT CONDITIONS - 00422000
R13651DK: * 00423000
R13651DK: * GPR 2 = BRANCH TABLE INDEX FOR DMKVDA TO CONTINUE PROCESSING 00424000
R13651DK: * 00425000
R13651DK: * CALLS TO OTHER ROUTINES - 00426000
R13651DK: * 00427000
R13651DK: * DMKCVTBD 00428000
R13651DK: * DMKCVTBH 00429000
R13651DK: * DMKERMSG 00430000
R13651DK: * DMKLOCKD 00431000
R13651DK: * DMKSCNRD 00432000
R13651DK: * DMKSCNRN 00433000
R13651DK: * DMKSCNRU 00434000
R13651DK: * 00435000
R13651DK: * EXTERNAL REFERENCES - 00436000
R13651DK: * 00437000
R13651DK: * NONE 00438000
R13651DK: * 00439000
R13651DK: * TABLES / WORK AREAS - 00440000
R13651DK: * 00441000
R13651DK: * ERROR MESSAGE AREA 00442000
R13651DK: * DMKVDA'S SAVEAREA 00443000
R13651DK: * 00444000
R13651DK: * REGISTER USAGE - 00445000
R13651DK: * 00446000
R13651DK: * GPR 2 - ERROR INDEX CODE 00447000
R13651DK: * GPR 4 - ADDRESS OF SAVEAREA 00448000
R13651DK: * GPR 7 - ADDRESS OF ERROR MESSAGE AREA 00449000
R13651DK: * GPR 9 - UDEVBLOK ADDRESS 00450000
R13651DK: * GPR 10 - ADDRESS OF VMBLOK FOR ATTACHED-TO USER 00451000
R13651DK: * GPR 11 - ADDRESS OF CALLER'S OR USER'S VMBLOK 00452000
R13651DK: * GPR 12 - BASE REGISTER 00453000
R13651DK: * GPR 13 - ADDRESS OF DMKVDA'S SAVE AREA 00454000
R13651DK: * 00455000
R13651DK: * ALL OTHER REGISTERS ARE WORK REGISTERS 00456000
R13651DK: * 00457000
R13651DK: * NOTES - NONE 00458000
R13651DK: * 00459000
R13651DK: * OPERATION - 00460000
R13651DK: * 00461000
R13651DK: * 1. THE ERROR INDEX PASSED FROM DMKVDA IS USED AS AN INDEX 00462000
R13651DK: * INTO A BRANCH TABLE TO BRANCH TO THE APPROPRIATE ERROR 00463000
R13651DK: * MESSAGE PROCESSING. FOR EACH MESSAGE, THE VARIABLE DATA 00464000
R13651DK: * (IF ANY) IS SUPPLIED, THE MESSAGE NUMBER IS SET, AND 00465000
R13651DK: * DMKERMSG IS CALLED. IF DMKVDA DOES NOT NEED TO RECEIVE 00466000
R13651DK: * CONTROL BACK AFTER THE ERROR MESSAGE IS WRITTEN, DMKVDERR 00467000
R13651DK: * RELEASES ITS OWN SAVEAREA BEFORE CALLING DMKERMSG. 00468000
R13651DK: * DMKERMSG WILL THEN RELEASE DMKVDA'S SAVEAREA BEFORE 00469000
R13651DK: * RETURNING TO THE CALLER OF DMKVDA. 00470000
R13651DK: * 00471000
R13651DK: * RESPONSES - 00472000
R13651DK: * NONE 00473000
R13651DK: * 00474000
R13651DK: * ERROR MESSAGES - 00475000
R13651DK: * 00476000
R13651DK: * DMKVDE003E INVALID OPTION - $OPTION$ 00477000
R13651DK: * DMKVDE006E INVALID DEVICE TYPE - RADDR 00478000
R13651DK: * DMKVDE020E USERID MISSING OR INVALID 00479000
R13651DK: * DMKVDE021E RADDR MISSING OR INVALID 00480000
R13651DK: * DMKVDE022E VADDR MISSING OR INVALID 00481000
R13651DK: * DMKVDE023E VOLID MISSING OR INVALID 00482000
R13651DK: * DMKVDE034E CHANNEL MISSING OR INVALID 00483000
R13651DK: * DMKVDE040E DEV ADDR DOES NOT EXIST 00484000
R13651DK: * DMKVDE045E $USERID$ NOT LOGGED ON 00485000
R13651DK: * DMKVDE046E TYPE RADDR OFFLINE 00486000
R13651DK: * DMKVDE120E TYPE RADDR NOT ATTACHED; USERID VADDR ALREADY 00487000
R13651DK: * DEFINED 00488000
R13651DK: * DMKVDE121E TYPE RADDR NOT ATTACHED TO $USERID$ 00489000
R13651DK: * DMKVDE122E TYPE RADDR ALREADY ATTACHED TO $USERID$ 00490000
R13651DK: * DMKVDE123E DASD RADDR CP OWNED 00491000
R13651DK: * DMKVDE124E DASD RADDR IN USE BY NNN USERS 00492000
R13651DK: * DMKVDE125E DASD RADDR VOLID $VOLID$ ALREADY ATTACHED 00493000
R13651DK: * TO SYSTEM 00494000
R13651DK: * DMKVDE126E DASD RADDR ERROR READING VOLID 00495000
R13651DK: * DMKVDE127E DASD RADDR VOLID $VOLID$ DOES NOT MATCH 00496000
R13651DK: * DMKVDE128E DASD RADDR ERROR READING ALLOCATION RECORD 00497000
R13651DK: * DMKVDE131E INSUFFICIENT FREE STORAGE AVAILABLE FOR 00498000
R13651DK: * ATTACH REQUEST 00499000
R13651DK: * DMKVDE133E DASD RADDR NOT READY 00500000
R13651DK: * DMKVDE134E TYPE RADDR NOT ATTACHED; CHAN XX DEDICATED 00501000
R13651DK: * DMKVDE142E TYPE RADDR NOT DRAINED 00502000
R13651DK: * DMKVDE143E TYPE RADDR IN USE BY SYSTEM 00503000
R13651DK: *. 00504000
R13651DK: EJECT 00505000
R13651DK: DMKVDERR RELOC @VA13651 00506000
R13651DK: LR R4,R13 SAVE R13 SAVEAREA ADDR FOR LATER @VA13651 00507000
R13651DK: L R13,SAVER13 USE DMKVDA'S SAVEAREA @VA13651 00508000
R13651DK: USING WRK2,R7 GET ADDRESSABILITY TO MSG AREA @VA13651 00509000
R13651DK: USING VMBLOK,R11 GET ADDRESSABILITY TO VMBLOK @VA13651 00510000
R13651DK: USING UDEVBLOK,R9 GET ADDRESSABILITY TO UDEVBLOK @VA13651 00511000
R13651DK: B ERRTABL-8(R2) BRANCH TO PROPER ERROR ROUTINE; @VA13651 00512000
R13651DK: * R2 IS ERROR INDEX SET BY DMKVDA 00513000
R13651DK: SPACE 2 00514000
R13651DK: *---------------------------------------------------------------------* 00515000
R13651DK: * CVTRADD - CONVERT DEVICE ADDRESS TO HEXADECIMAL * 00516000
R13651DK: * ZAPVOLD - REMOVE VOLUME SERIAL FROM REAL DEVICE BLOCK * 00517000
R13651DK: *---------------------------------------------------------------------* 00518000
R13651DK: SPACE 2 00519000
R13651DK: CVTRADD EQU * CONVERT REAL DEVICE ADDRESS @V407466 00520000
R13651DK: L R1,DEVADDR @V407466 00521000
R13651DK: TM VDABITS,RANGE+MULTR RANGE/MULTIPLES BEING PROC @V407466 00522000
R13651DK: BZ CONVERT NO, USE ADDR IN DEVADDR FIELD @V407466 00523000
R13651DK: LH R1,UDEVADD DEVICE ADDRESS @V407466 00524000
R13651DK: CONVERT CALL DMKCVTBH @V407466 00525000
R13651DK: BR R5 @V407466 00526000
R13651DK: SPACE 00527000
R13651DK: ZAPVOLD EQU * REMOVE VOLID FROM RDEVBLOK @V407466 00528000
R13651DK: L R1,SAVEWRK9 REAL DEVICE BLOCK POINTER - SAVED@V407466 00529000
R13651DK: SWITCH CONTINUE PROCESSING ON I/O PROC @V407508 00530000
R13651DK: USING RDEVBLOK,R1 @V407466 00531000
R13651DK: MVC RDEVUSER(4),ASYSVM IN USE BY SYSTEM @V407466 00532000
R13651DK: BR R5 @V407466 00533000
R13651DK: DROP R1 @V407466 00534000
R13651DK: EJECT 00535000
R13651DK: *---------------------------------------------------------------------* 00536000
R13651DK: * FREUSER AND SWPUSER - UNLOCK USERID AND SWAP VMBLOKS * 00537000
R13651DK: *---------------------------------------------------------------------* 00538000
R13651DK: SPACE 2 00539000
R13651DK: FREUSER EQU * UNLOCK ATTACHEE'S USERID @V407466 00540000
R13651DK: LA R1,VMUSER @V407466 00541000
R13651DK: CALL DMKLOCKD DIRECTORY UNLOCK SUBROUTINE @V407466 00542000
R13651DK: L R1,SAVER11 GET CALLER'S VMBLOK ADDRESS @V407508 00543000
R13651DK: SWTCHVM SWITCH TO CALLER'S VMBLOK @V4M0193 00544000
R13651DK: BR R5 ...RETURN TO CALLER @V407466 00545000
R13651DK: SPACE 2 00546000
R13651DK: SWPUSER EQU * SWAP TO TARGET USER'S VMBLOK @V407466 00547000
R13651DK: LR R1,R10 GET USER'S VMBLOK ADDRESS @V407508 00548000
R13651DK: SWTCHVM SWITCH TO SPECIFIED USER @V4M0193 00549000
R13651DK: BR R5 @V407466 00550000
R13651DK: EJECT 00551000
R13651DK: *---------------------------------------------------------------------* 00552000
R13651DK: * GETRDEV, GETRTYP - GET REAL DEVICE BLOCK + TYPE NAME * 00553000
R13651DK: *---------------------------------------------------------------------* 00554000
R13651DK: SPACE 2 00555000
R13651DK: GETRDEV EQU * LOCATE REAL DEVICE BLOCK @V407466 00556000
R13651DK: TM VDABITS,RANGE+MULTR RANGE OR MULTIPLES @V407466 00557000
R13651DK: BM GETRDEV2 YES, R1 ALREADY SET UP @V407466 00558000
R13651DK: L R1,DEVADDR REAL DEVICE ADDRESS @V407466 00559000
R13651DK: GETRDEV2 CALL DMKSCNRU ...FIND THE RDEVBLOK @V407466 00560000
R13651DK: BNZ UNKNOWN2 REAL DEVICE DOES NOT EXIST @VA13651 00561000
R13651DK: ST R8,SAVEWRK9 SAVE THE RDEVBLOK POINTER @V407466 00562000
R13651DK: BR R5 @V407466 00563000
R13651DK: SPACE 00564000
R13651DK: GETRTYP EQU * GET EBCDIC TYPE-NAME OF REAL DEV @V407466 00565000
R13651DK: L R8,SAVEWRK9 RDEVBLOK ADDRESS @V407466 00566000
R13651DK: CALL DMKSCNRN ...GET IT'S TYPE-NAME @V407466 00567000
R13651DK: LR R3,R1 ...INTO R4 @V407466 00568000
R13651DK: BR R5 @V407466 00569000
R13651DK: EJECT 00570000
R13651DK: * 00571000
R13651DK: * ERROR INDEX = 28 00572000
R13651DK: * 00573000
R13651DK: INVOPTS EQU * INVALID OPTION - OPTION @V407466 00574000
R13651DK: LA R2,EMSG003 MSG= DMKVDE003E @VA13651 00575000
R13651DK: B MSGSEND3 (R0,R1 STILL SET FROM SCAN) @V407490 00576000
R13651DK: * 00577000
R13651DK: * ERROR INDEX = 88 00578000
R13651DK: * 00579000
R13651DK: INVOPTS2 EQU * @V407466 00580000
R13651DK: LA R2,EMSG003 MSG= DMKVDE003E @VA13651 00581000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00582000
R13651DK: B MSGSEND3 (R0,R1 STILL SET FROM SCAN) @VA13651 00583000
R13651DK: * 00584000
R13651DK: * ERROR INDEX = 92 00585000
R13651DK: * 00586000
R13651DK: INVTYPE EQU * INVALID DEVICE TYPE - RADDR @V407466 00587000
R13651DK: BAL R5,CVTRADD GET REAL ADDRESS @V407466 00588000
R13651DK: STCM R1,B'0111',ATTCUU ADDR @V407466 00589000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00590000
R13651DK: LA R2,EMSG006 MSG= DMKVDE006E @VA13651 00591000
R13651DK: B MSGSEND2 @V407466 00592000
R13651DK: * 00593000
R13651DK: * ERROR INDEX = 48 00594000
R13651DK: * 00595000
R13651DK: INVUSID EQU * USERID MISSING OR INVALID @V407466 00596000
R13651DK: LA R2,EMSG020 MSG= DMKVDE020E @VA13651 00597000
R13651DK: B MSGONLY @V407466 00598000
R13651DK: * 00599000
R13651DK: * ERROR INDEX = 52 00600000
R13651DK: * 00601000
R13651DK: INVADD1 EQU * FIRST ADDR MISSING OR INVALID @V407466 00602000
R13651DK: TM VDABITS,CHANNEL MESSAGE FOR CAHNNEL COMMAND @V407466 00603000
R13651DK: BZ VDA021 BRANCH IF NOT @V407466 00604000
R13651DK: LA R2,EMSG034 LOAD CHANNEL ERROR CODE @V407490 00605000
R13651DK: B MSGONLY . . . . @V407466 00606000
R13651DK: VDA021 EQU * RADDR MISSING OR INVALID @V407490 00607000
R13651DK: MVC 0(L'VMUSER,R7),CMDUSER MOVE IN INVALID PARM @V407490 00608000
R13651DK: LA R0,L'VMUSER SET UP LENGTH @V407490 00609000
R13651DK: LA R2,EMSG021 SET UP ERROR CODE @V407490 00610000
R13651DK: B MSGSEND2 GO SEND MSG WITH NO RETURN @V407490 00611000
R13651DK: * 00612000
R13651DK: * ERROR INDEX = 96 00613000
R13651DK: * 00614000
R13651DK: VDE021A EQU * RADDR MISSING OR INVALID @VA13651 00615000
R13651DK: TM VDABITS,RANGE RANGE ?? @V407490 00616000
R13651DK: BZ VDA021B NO, BYPASS RANGE PROCESSING @V407490 00617000
R13651DK: BAL R5,SWPUSER SET UP TO UNLOCK ATTACHEE @V407490 00618000
R13651DK: BAL R5,FREUSER UNLOCK USERS CONTROL BLOCKS @V407490 00619000
R13651DK: VDA021B LH R1,UDEVADD PICK UP DEVICE ADDRESS @V407490 00620000
R13651DK: CALL DMKCVTBH CONVERT IT BACK @V407490 00621000
R13651DK: STCM R1,B'0111',ATTCUU STORE ADDRESS @V407490 00622000
R13651DK: LA R0,ATTSIZE1 SET UP SIZE OF ERROR MSG @V407490 00623000
R13651DK: LA R2,EMSG021 LOAD ERROR CODE FOR DMKVDE021 @VA13651 00624000
R13651DK: TM VDABITS,MULTR MULTIPLE DEVICES ????? @V407490 00625000
R13651DK: BO MSGSEND YES, SEND MSG AND RETURN TO VDE @VA13651 00626000
R13651DK: B MSGSEND2 GO SEND MSG, NO RETURN @V407490 00627000
R13651DK: * 00628000
R13651DK: * ERROR INDEX = 36 00629000
R13651DK: * 00630000
R13651DK: INVADD2 EQU * VADDR MISSING OR INVALID @V407466 00631000
R13651DK: TM VDABITS,ATTSYST ATTACH TO SYSTEM ? @V407466 00632000
R13651DK: BO INVOLID YES - ADD2 IS REALLY A VOLID @V407466 00633000
R13651DK: VDA022 LA R2,EMSG022 VADDR MISSING OR INVALID @V407490 00634000
R13651DK: B MSGONLY @V407466 00635000
R13651DK: * 00636000
R13651DK: * ERROR INDEX = 100 00637000
R13651DK: * 00638000
R13651DK: VDE022B EQU * @VA13651 00639000
R13651DK: LA R2,EMSG022 VADDR MISSING OR INVALID @V407490 00640000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00641000
R13651DK: B MSGONLY ISSUE MESSAGE @V407466 00642000
R13651DK: * 00643000
R13651DK: * ERROR INDEX = 40 00644000
R13651DK: * 00645000
R13651DK: INVOLID EQU * VOLID MISSING OR INVALID @V407466 00646000
R13651DK: LA R2,EMSG023 MSG= DMKVDE023E @VA13651 00647000
R13651DK: B MSGONLY @V407466 00648000
R13651DK: * 00649000
R13651DK: * ERROR INDEX = 80 00650000
R13651DK: * 00651000
R13651DK: UNKNOWN2 EQU * DEV ADDR DOES NOT EXIST @VA13651 00652000
R13651DK: BAL R5,CVTRADD CONVERT ADDRESS TO HEX @V407466 00653000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00654000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00655000
R13651DK: LA R2,EMSG040 MSG= DMKVDE040E @VA13651 00656000
R13651DK: B MSGSEND GO BUILD + TYPE MESSAGE @V407466 00657000
R13651DK: * 00658000
R13651DK: * ERROR INDEX = 44 00659000
R13651DK: * 00660000
R13651DK: NOTLOGD EQU * USERID NOT LOGGED ON @V407466 00661000
R13651DK: MVC 0(L'VMUSER,R7),CMDUSER USERID @VA13651 00662000
R13651DK: LA R0,L'VMUSER DATA LENGTH @V407466 00663000
R13651DK: LA R2,EMSG045 MSG= DMKVDE045E @VA13651 00664000
R13651DK: B MSGSEND2 @V407466 00665000
R13651DK: * 00666000
R13651DK: * ERROR INDEX = 12 00667000
R13651DK: * 00668000
R13651DK: DEVOFFL EQU * TYPE RADDR OFFLINE @V407466 00669000
R13651DK: LA R2,EMSG046 MSG= DMKVDE046E @VA13651 00670000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO 'SYSTEM' @V407466 00671000
R13651DK: BO TYPRADD YES, DO NOT WANT TO RETURN @V407490 00672000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00673000
R13651DK: B TYPRADD GO BUILD VARIABLE STRING @V407490 00674000
R13651DK: * 00675000
R13651DK: * ERROR INDEX = 60 00676000
R13651DK: * 00677000
R13651DK: BAD05 EQU * @VA13651 00678000
R13651DK: * 00679000
R13651DK: * ERROR INDEX = 56 00680000
R13651DK: * 00681000
R13651DK: DALREDY EQU * TYPE RADDR NOT ATTACHED; USERID @V407466 00682000
R13651DK: * VADDR ALREADY DEFINED 00683000
R13651DK: BAL R5,FREUSER ONLOCK USER'S CONTROL BLOCKS @V407466 00684000
R13651DK: BAL R6,USERDEV SET UP 'TYPE RADDR USERID' STRING@V407466 00685000
R13651DK: LH R1,VIRTADD VIRTUAL ADDRESS @V407466 00686000
R13651DK: TM VDABITS,RANGE+MULTR RANGE OR MULTIPLES @V407466 00687000
R13651DK: BZ CVT NO, ADDRESS IN 'VIRTADD' @V407466 00688000
R13651DK: LH R1,UDEVADD ADDRESS IN UDEVBLOK @V407466 00689000
R13651DK: CVT CALL DMKCVTBH CONVERT FOR MESSAGE @V407466 00690000
R13651DK: MVI ATTDEL2,BIN0 DELIMITER AFTER 'USERID' @V407466 00691000
R13651DK: STCM R1,B'0111',ATTVADDR ...ADD 'VADDR' @V407466 00692000
R13651DK: LA R0,ATTSIZE3 DATA LENGTH @V407466 00693000
R13651DK: LA R2,EMSG120 MSG= DMKVDE120E @VA13651 00694000
R13651DK: B MSGSEND @V407466 00695000
R13651DK: * 00696000
R13651DK: * ERROR INDEX = 20 00697000
R13651DK: * 00698000
R13651DK: DEVOWND EQU * DASD RADDR CP OWNED @V407466 00699000
R13651DK: BAL R5,CVTRADD CONVERT ADDRESS @V407466 00700000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00701000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00702000
R13651DK: LA R2,EMSG123 MSG= DMKVDE123E @VA13651 00703000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO 'SYSTEM' @V407466 00704000
R13651DK: BO MSGSEND2 YES, DO NOT RETURN TO DMKVDE @VA13651 00705000
R13651DK: B MSGSEND @V407466 00706000
R13651DK: * 00707000
R13651DK: * ERROR INDEX = 16 00708000
R13651DK: * 00709000
R13651DK: SHRCHEK EQU * CHECK DIFF VARIETIES OF 'SHARED' @V407466 00710000
R13651DK: L R8,SAVEWRK9 GET RDEVBLOK ADDRESS @V407466 00711000
R13651DK: USING RDEVBLOK,R8 @V407466 00712000
R13651DK: CLI RDEVTYPC,CLASDASD IS IT DASD DEVICE ? @V407466 00713000
R13651DK: BE DEVSHRD YES - ACTUAL LINK USAGE @V407466 00714000
R13651DK: LA R2,EMSG143 MSG= DMKVDE143 @VA13651 00715000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO 'SYSTEM' @V407466 00716000
R13651DK: BO TYPRADD YES, DO NOT RETURN AFTER MSG @V407466 00717000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00718000
R13651DK: SHRCHEK2 B TYPRADD @V407466 00719000
R13651DK: * 00720000
R13651DK: * ERROR INDEX = 64 00721000
R13651DK: * 00722000
R13651DK: CHANDED EQU * ERROR FOR DEDICATED CHANNELS @V407490 00723000
R13651DK: AIF (NOT &DEDCH).NOTDED3 **AIF** @V407466 00724000
R13651DK: LR R6,R8 RESTORE R6 @V407466 00725000
R13651DK: BAL R5,FREUSER UNLOCK USER'S CONTROL BLOCKS @V407466 00726000
R13651DK: USING VCHBLOK,R6 @V407466 00727000
R13651DK: LH R1,VCHADD GET ADDRESS OF VIRTUAL CHANNEL @V407466 00728000
R13651DK: SRL R1,8(0) ... @V407466 00729000
R13651DK: CALL DMKCVTBD CONVERT TO DECIMAL @V407466 00730000
R13651DK: DROP R6 @V407466 00731000
R13651DK: MVI ATTDEL1,BIN0 DELIMITER @V407466 00732000
R13651DK: STCM R1,B'0011',ATTCHAN STORE CHANNEL NUMBER @V407466 00733000
R13651DK: TM ATTCHAN,HEX0F CHANNEL NUMBER > 9 @V407466 00734000
R13651DK: BNZ *+8 YES - LEAVE CHANNEL NUMBER ALONE @V407466 00735000
R13651DK: MVI ATTCHAN,BIN0 CLEAR HI ORDER BYTE @V407466 00736000
R13651DK: BAL R5,GETRDEV GET REAL DEVICE BOLCKS @V407466 00737000
R13651DK: BAL R5,GETRTYP GO GET THE TYPE OF DEVICE @V407466 00738000
R13651DK: BAL R5,CVTRADD ... @V407466 00739000
R13651DK: ST R3,ATTCUU SAVE IT. @V407466 00740000
R13651DK: ST R1,ATTNO STORE DEVICE ADDRESS @V407466 00741000
R13651DK: MVI ATTNO,BIN0 DELIMITER @V407466 00742000
R13651DK: LA R0,ATTSIZE4 MESSAGE LENGTH @V407466 00743000
R13651DK: LA R2,EMSG134 MSG= DMKVDE134E @VA13651 00744000
R13651DK: B MSGSEND @V407466 00745000
R13651DK: .NOTDED3 ANOP 00746000
R13651DK: * 00747000
R13651DK: * ERROR INDEX = 8 00748000
R13651DK: * 00749000
R13651DK: NODRAIN EQU * TYPE RADDR NOT DRAINED @V407466 00750000
R13651DK: LA R2,EMSG142 MSG= DMKVDE142E @VA13651 00751000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO 'SYSTEM' @V407466 00752000
R13651DK: BO TYPRADD YES, DO NOT RETURN @V407466 00753000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00754000
R13651DK: TYPRADD EQU * @V407466 00755000
R13651DK: BAL R5,GETRTYP @V407466 00756000
R13651DK: BAL R5,CVTRADD @V407466 00757000
R13651DK: ST R3,ATTCUU @V407466 00758000
R13651DK: ST R1,ATTNO @V407466 00759000
R13651DK: MVI ATTNO,BIN0 DELIMITER @V407466 00760000
R13651DK: LA R0,L'SAVEWRK2+L'SAVEWRK3 DATA LENGTH @V407466 00761000
R13651DK: B MSGSEND2 GO SEND IT @V407490 00762000
R13651DK: * 00763000
R13651DK: * ERROR INDEX = 84 00764000
R13651DK: * 00765000
R13651DK: DEVSHRD EQU * DASD RADDR IN USE BY NNN USERS @V407466 00766000
R13651DK: CLC RDEVSER(6),CMDUSER IS VOLID CORRECT? @VA11349 00767000
R13651DK: BNE WRNGVOL YES, CONTINUE. @VA11139 00768000
R13651DK: BAL R5,CVTRADD CONVERT ADDRESS @V407466 00769000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00770000
R13651DK: MVI ATTDEL4,BIN0 DELIMITER @V407466 00771000
R13651DK: L R8,SAVEWRK9 SAVED RDEVBLOK ADDRESS @V407466 00772000
R13651DK: LH R1,RDEVLNKS-RDEVBLOK(,R8) NO. OF USERS @V407466 00773000
R13651DK: CALL DMKCVTBD CONVERT TO DECIMAL @V407466 00774000
R13651DK: STCM R1,B'0111',ATTNO NUMBER OF USERS @V407466 00775000
R13651DK: LA R0,ATTSIZE5 DATA LENGTH @V407466 00776000
R13651DK: LA R2,EMSG124 MSG= DMKVDE124E @VA13651 00777000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO 'SYSTEM' @V407466 00778000
R13651DK: BO MSGSEND2 DO NOT RETURN TO DMKVDE AFTER MSG@VA13651 00779000
R13651DK: B MSGSEND @V407466 00780000
R13651DK: * 00781000
R13651DK: * ERROR INDEX = 104 00782000
R13651DK: * 00783000
R13651DK: DUPVOL EQU * DASD RADDR VOLID $VOL$ ALRDY ATT @V407466 00784000
R13651DK: MSG125E CALL DMKSCNRD GET REAL DEVICE ADDRESS @V407466 00785000
R13651DK: CALL DMKCVTBH CONVERT TO HEX @V407466 00786000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00787000
R13651DK: MVI ATTDEL4,BIN0 DELIMITER @V407466 00788000
R13651DK: * VOLID IS IN 'CMDUSER' = SAVEWRK3,4 00789000
R13651DK: MVC ATTNO(L'SAVEWRK3+L'SAVEWRK4),CMDUSER @V407466 00790000
R13651DK: LA R0,L'SAVEWRK2+L'SAVEWRK3+L'SAVEWRK4 LENGTH @V407466 00791000
R13651DK: LA R2,EMSG125 MSG= DMKVDE125 @VA13651 00792000
R13651DK: B MSGSEND2 @V407466 00793000
R13651DK: * 00794000
R13651DK: * ERROR INDEX = 72 00795000
R13651DK: * 00796000
R13651DK: LABLERR EQU * DASD RADDR ERROR RDING VOL LABEL @V407466 00797000
R13651DK: BAL R5,CVTRADD @V407466 00798000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00799000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00800000
R13651DK: LA R2,EMSG126 MSG= DMKVDE126 @VA13651 00801000
R13651DK: B MSGSEND2 @V407466 00802000
R13651DK: * 00803000
R13651DK: * ERROR INDEX = 108 00804000
R13651DK: * 00805000
R13651DK: WRNGVOL EQU * DASD RADDR VOL1 VOL2 DON'T MATCH @V407466 00806000
R13651DK: BAL R5,CVTRADD GET DEVICE ADDRESS @V407466 00807000
R13651DK: STCM R1,B'0111',ATTCUU @V407466 00808000
R13651DK: MVI ATTDEL4,BIN0 DELIMITER @V407466 00809000
R13651DK: MVC ATTNO(6),RDEVSER-RDEVBLOK(R8) VOLID FROM DEV @V407466 00810000
R13651DK: BAL R5,ZAPVOLD CLEAR VOLID FROM RDEVBLOK @V407466 00811000
R13651DK: LA R0,L'SAVEWRK2+L'SAVEWRK3+L'SAVEWRK4-2 LENGTH @V407466 00812000
R13651DK: LA R2,EMSG127 MSG= DMKVDE127E @VA13651 00813000
R13651DK: B MSGSEND2 @V407466 00814000
R13651DK: * 00815000
R13651DK: * ERROR INDEX = 32 00816000
R13651DK: * 00817000
R13651DK: NOSTOR MVC ATTCUU(L'ATTACHED-2),ATTACHED INSUFFICIENT @V407466 00818000
R13651DK: LA R2,EMSG131 FREE STORAGE AVAILABLE FOR @V407490 00819000
R13651DK: LA R0,L'ATTACHED-2 ATTACH REQUEST @V407466 00820000
R13651DK: B MSGSEND ISSUE MESSAGE @V407466 00821000
R13651DK: * 00822000
R13651DK: * ERROR INDEX = 68 00823000
R13651DK: * 00824000
R13651DK: INTREQD EQU * DASD RADDR NOT READY @V407466 00825000
R13651DK: BAL R5,CVTRADD GET REAL DEVICE ADDRESS @V407466 00826000
R13651DK: STCM R1,B'0111',ATTCUU DATA FOR DMKERMSG @V407466 00827000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00828000
R13651DK: LA R2,EMSG133 MSG= DMKVDE133E @VA13651 00829000
R13651DK: B MSGSEND @V407466 00830000
R13651DK: * 00831000
R13651DK: * ERROR INDEX = 76 00832000
R13651DK: * 00833000
R13651DK: NOALLOC EQU * DASD RADDR ERR READING ALLOC REC.@V407466 00834000
R13651DK: BAL R5,CVTRADD @V407466 00835000
R13651DK: STCM R1,B'0111',ATTUSER2+3 SAVE ADDR OUT OF THE WAY @V407466 00836000
R13651DK: LA R0,ATTSIZE1 DATA LENGTH @V407466 00837000
R13651DK: LA R2,EMSG128 MSG= DMKVDE128E @VA13651 00838000
R13651DK: LA R1,ATTUSER2+3 DATA START @V407466 00839000
R13651DK: ICM R2,B'1100',=X'80E6' RETURN HERE, 'W' ACTION CODE@V407466 00840000
R13651DK: ICM R0,B'1110',DMKVDE+3 MODULE IDENTIFIER @VA13651 00841000
R13651DK: CALL DMKERMSG GO DO IT @V407466 00842000
R13651DK: B RESPATT ISSUE RESPONSES @V407466 00843000
R13651DK: * 00844000
R13651DK: * ERROR INDEX = 24 00845000
R13651DK: * 00846000
R13651DK: DEVDEDD EQU * TYPE RADDR ALREADY ATT TO USERID @V407466 00847000
R13651DK: LA R2,EMSG122 MGS=DMKVDE122E @VA13651 00848000
R13651DK: TM VDABITS,ATTSYST ATTACHING TO THE 'SYSTEM' @V407466 00849000
R13651DK: BO DEVDEDD3 YES, DO NOT RETURN @V407466 00850000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00851000
R13651DK: DEVDEDD3 DS 0H @V4M0236 00852000
R13651DK: BAL R6,USERDEV SET UP DATA STRING FOR 'ERMSG' @V407466 00853000
R13651DK: L R8,SAVEWRK9 GET RDEVBLOK ADDRESS @V4M0236 00854000
R13651DK: L R8,RDEVUSER-RDEVBLOK(,R8) GET USERS VMBLOK ADDR @V4M0236 00855000
R13651DK: MVC ATTUSE(L'VMUSER),VMUSER-VMBLOK(R8) MOVE IN @V4M0236 00856000
R13651DK: * CORRECT USERID @V4M0236 00857000
R13651DK: B MSGSEND2 @V407490 00858000
R13651DK: SPACE 2 00859000
R13651DK: MSGONLY EQU * NO EXTRA DATA FOR MESSAGE @V407466 00860000
R13651DK: SLR R1,R1 @V407466 00861000
R13651DK: SLR R0,R0 @V407466 00862000
R13651DK: B MSGSEND3 GO SEND MESSAGE @VA11361 00863000
R13651DK: SPACE 2 00864000
R13651DK: MSGSEND EQU * BUILD + TYPE ERROR MESSAGE @V407466 00865000
R13651DK: ICM R2,B'1000',=X'80' RETURN TO DMKVDE AFTER MSG @VA13651 00866000
R13651DK: MSGSEND2 LR R1,R7 GET ADDRESS OF ERROR MSG AREA @VA13651 00867000
R13651DK: MSGSEND3 EQU * @V407490 00868000
R13651DK: LTR R2,R2 CHECK TO SEE IF WE ARE RETURNING @V407490 00869000
R13651DK: BM WILLRET YES, WE SHALL RETURN..... @V407490 00870000
R13651DK: ICM R2,B'1000',=X'40' NOT RETURNING,SET UP FRET @V407490 00871000
R13651DK: LA R3,MSGSIZE+MULTSIZE+VOLSIZE BUFFER SIZE @V60B6B8 00872000
R13651DK: SLL R3,24 GET IT TO THE HI-ORDER @V407490 00873000
R13651DK: ICM R3,B'0111',SAVEWRK5+1 GET THE ADDRESS TO FRET @V407490 00874000
R13651DK: LR R13,R4 RESTORE DMKVDE SAVEAREA ADDR @VA13651 00875000
R13651DK: SVC 16 RELEASE THIS SAVEAREA @VA13651 00876000
R13651DK: WILLRET EQU * @V407490 00877000
R13651DK: ICM R0,B'1110',DMKVDE+3 MODULE IDENTIFIER @VA13651 00878000
R13651DK: CALL DMKERMSG GO DO IT @V407466 00879000
R13651DK: ST R2,SAVER2 SAVE ERROR NUMBER @V407490 00880000
R13651DK: * SAVED IN DMKVDA'S SAVEAREA 00881000
R13651DK: LR R13,R4 RESTORE DMKVDE SAVEAREA ADDRESS @VA13651 00882000
R13651DK: CH R2,=H'131' INSUFFICIENT STORAGE MSG? @V407466 00883000
R13651DK: BE CLEANXT YES, UNLOCK USER'S BLOCKS @V407466 00884000
R13651DK: TM VDABITS,MULTR MULTIPLES BEING PROCESSED? @V407466 00885000
R13651DK: BO MULTCONT YES, CONTINUE @V407466 00886000
R13651DK: TM VDABITS,RANGE IS RANGE BEING PROCESSED @V407466 00887000
R13651DK: BZ CLEANXT NO, EXIT @V407466 00888000
R13651DK: LH R1,UDEVADD UDEVADD TO R1 @V407466 00889000
R13651DK: LA R1,1(,R1) UP BY ONE @V407466 00890000
R13651DK: CH R1,VDABITS+2 END OF RANGE @V407466 00891000
R13651DK: BNH PROCESS NO, KEEP PROCESSING @V407466 00892000
R13651DK: * B CLEANXT GET OUT @VA13651 00893000
R13651DK: SPACE 2 00894000
R13651DK: CLEANXT EQU * @VA13651 00895000
R13651DK: LA R2,VDEXIT SET BRANCH INDEX FOR RETURN @VA13651 00896000
R13651DK: B ERREXIT GO EXIT FROM DMKVDERR @VA13651 00897000
R13651DK: PROCESS EQU * @VA13651 00898000
R13651DK: LA R2,VDEPROC SET BRANCH INDEX FOR RETURN @VA13651 00899000
R13651DK: ST R1,SAVER1 SAVE NEW R1 VALUE FOR DMKVDA @VA13651 00900000
R13651DK: B ERREXIT GO EXIT FROM DMKVDERR @VA13651 00901000
R13651DK: MULTCONT EQU * @VA13651 00902000
R13651DK: LA R2,VDEMULT SET BRANCH INDEX FOR RETURN @VA13651 00903000
R13651DK: B ERREXIT GO EXIT FROM DMKVDERR @VA13651 00904000
R13651DK: RESPATT EQU * @VA13651 00905000
R13651DK: LA R2,VDERESP SET BRANCH INDEX FOR RETURN @VA13651 00906000
R13651DK: L R4,SAVER13 RE-OBTAIN ADDR OF VDA'S SAVEAREA @VA13651 00907000
R13651DK: L R4,SAVEWRK5-SAVEAREA(,R4) ADDR OF VDA MSG AREA @VA13651 00908000
R13651DK: LA R4,0(,R4) CLEAR HIGH ORDER BYTE @VA13651 00909000
R13651DK: ST R4,SAVER4 SET NEW R4 VALUE FOR DMKVDA @VA13651 00910000
R13651DK: ERREXIT EQU * RETURN TO DMKVDA @VA13651 00911000
R13651DK: ST R2,SAVER2 SET BRANCH RETURN FOR DMKVDA @VA13651 00912000
R13651DK: EXIT RETURN TO DMKVDA @VA13651 00913000
R13651DK: * 00914000
R13651DK: * BRANCH TABLE FOR ERROR INDEX CODES FROM DMKVDA 00915000
R13651DK: * 00916000
R13651DK: ERRTABL DS 0H ERROR NUMBERS 8,12,16,20,24 @V407466 00917000
R13651DK: B NODRAIN 8 @V407466 00918000
R13651DK: B DEVOFFL 12 @V407466 00919000
R13651DK: B SHRCHEK 16 @V407466 00920000
R13651DK: B DEVOWND 20 @V407466 00921000
R13651DK: B DEVDEDD 24 @V407466 00922000
R13651DK: B INVOPTS 28 @V407466 00923000
R13651DK: B NOSTOR 32 @V407466 00924000
R13651DK: B INVADD2 36 @V407466 00925000
R13651DK: B INVOLID 40 @V407466 00926000
R13651DK: B NOTLOGD 44 @V407466 00927000
R13651DK: B INVUSID 48 @V407466 00928000
R13651DK: B INVADD1 52 @V407466 00929000
R13651DK: B DALREDY 56 @V407466 00930000
R13651DK: B BAD05 60 @V407466 00931000
R13651DK: B CHANDED 64 @V407466 00932000
R13651DK: B INTREQD 68 DEVICE NOT READY @V407466 00933000
R13651DK: B LABLERR 72 ERROR READING LABEL @V407466 00934000
R13651DK: B NOALLOC 76 ERROR READING ALLOC. RECORD @V407466 00935000
R13651DK: B UNKNOWN2 80 DEVICE DOES NOT EXIST @VA13651 00936000
R13651DK: B DEVSHRD 84 @VA13651 00937000
R13651DK: B INVOPTS2 88 @VA13651 00938000
R13651DK: B INVTYPE 92 @VA13651 00939000
R13651DK: B VDE021A 96 @VA13651 00940000
R13651DK: B VDE022B 100 @VA13651 00941000
R13651DK: B DUPVOL 104 @VA13651 00942000
R13651DK: B WRNGVOL 108 @VA13651 00943000
R13651DK: B MSG076 112 @VA13651 00944000
R13651DK: SPACE 2 00945000
R13651DK: *---------------------------------------------------------------------* 00946000
R13651DK: * USERDEV - BUILD STRING FOR DMKERMSG = "TYPE RADDR USERID" * 00947000
R13651DK: *---------------------------------------------------------------------* 00948000
R13651DK: SPACE 2 00949000
R13651DK: USERDEV EQU * @V407466 00950000
R13651DK: BAL R5,GETRTYP GET 'TYPE' IN GPR 3 @V407466 00951000
R13651DK: BAL R5,CVTRADD GET 'RADD' IN GPR 1 @V407466 00952000
R13651DK: MVC ATTUSE(L'VMUSER),CMDUSER USERID TO MESSAGE @V407466 00953000
R13651DK: ST R3,ATTCUU DEVICE 'TYPE' TO MSG @V407466 00954000
R13651DK: ST R1,ATTNO DEVICE 'CUU' TO MSG @V407466 00955000
R13651DK: MVI ATTNO,BIN0 DELIMITER @V407490 00956000
R13651DK: MVI ATTDEL1,BIN0 DELIMITER @V407466 00957000
R13651DK: LA R0,ATTSIZE2 DATA LENGTH @V407466 00958000
R13651DK: BR R6 RETURN @V407466 00959000
R13651DK: SPACE 2 00960000
R13651DK: MSG076 EQU * SET UP MSG DMKVDA076E @VMI2020 00961000
R13651DK: L R2,OPTION76 DMKERMSG OPTIONS @VMI2020 00962000
R13651DK: TM VDABITS,ATTSYST IS IT ATT TO SYSTEM @V60B6B8 00963000
R13651DK: BO ADDCMDU YES, GET VOLID PTR @V60B6B8 00964000
R13651DK: L R1,SAVEWRK5 WORKAREA ADDR @V60B6B8 00965000
R13651DK: LA R1,0(,R1) CLEAR HIGH ORDER BYTE @VA13651 00966000
R13651DK: LA R0,MSGSIZE+MULTSIZE OFFSET IN D-WORDS @V60B6B8 00967000
R13651DK: SLL R0,3 INTO BYTES @V60B6B8 00968000
R13651DK: AR R1,R0 POINT TO VOLID IN WORKAREA @V60B6B8 00969000
R13651DK: B SETPL GET PARM LENGTH @V60B6B8 00970000
R13651DK: ADDCMDU EQU * GET VOLID PTR @V60B6B8 00971000
R13651DK: LA R1,CMDUSER VOLID IF ATT TO SYSTEM @V60B6B8 00972000
R13651DK: SETPL EQU * PARM LENGTH @V60B6B8 00973000
R13651DK: LA R0,VOLIDSIZ VOLSER 6 BYTES LONG @V60B6B8 00974000
R13651DK: B WILLRET AND CALL DMKERMSG @V60B6B8 00975000
R13651DK: DS 0F @V60B6B8 00976000
R13651DK: OPTION76 EQU * @VMI2020 00977000
R13651DK: DC X'80' RETURN FROM ERMSG TO VDA @V60B6B8 00978000
R13651DK: DC C'E' ERROR MESSAGE @V60B6B8 00979000
R13651DK: DC X'004C' MSG ID OF DEC. 76 @VMI2020 00980000
R13651DK: ATTACHED DC CL8'ATTACHED' CONSTANT FOR MESSAGE @VA13651 00981000
R13651DK: VOLSIZE EQU 1 @V60B6B8 00982000
R13651DK: EJECT 00983000
R13651DK: LTORG @V407466 00984000
R13651DK: EJECT 00985000
R13651DK: COPY SAVE @V407466 00986000
R13651DK: EJECT 00987000
R13651DK: COPY EQU @V407466 00988000
R13651DK: COPY DEVTYPES @V407466 00989000
R13651DK: PSA @V407466 00990000
R13651DK: COPY RBLOKS @V407466 00991000
R13651DK: COPY IOBLOKS @V407466 00992000
R13651DK: COPY IOER @V407466 00993000
R13651DK: VDELOK DSECT , DSECT FOR EXPANDED IOBLOK @V407466 00994000
R13651DK: DS (IOBSIZE)D @V407466 00995000
R13651DK: VDELCCW DS 7D @V407466 00996000
R13651DK: * SEEK,TIC/NOP/SEARCH/TIC/READ/SENSE 00997000
R13651DK: VDELCNT DS 1D SEEK AND SEARCH ARGS @V407466 00998000
R13651DK: VDELBUF DS 10D 80-BYTE LABEL-RECORD BUFFER @V407466 00999000
R13651DK: VDELSNS DS CL(IOERSNSZ) SENSE AREA @V407466 01000000
R13651DK: VDELLEN EQU (*-VDELOK)/8 BLOCK LENGTH IN DBL-WDS @V407466 01001000
R13651DK: SPACE 01002000
R13651DK: *----------------------------* 01003000
R13651DK: * 01004000
R13651DK: WRK2 DSECT ERROR MESSAGE DSECT @V407466 01005000
R13651DK: ATTCUU DS CL3 CUU @V407466 01006000
R13651DK: ATTSIZE1 EQU *-ATTCUU DATA LENGTH @V407466 01007000
R13651DK: ATTDEL4 DS X DELIMITER @V407466 01008000
R13651DK: ATTNO DS CL3 NUMBER OF USERS @V407466 01009000
R13651DK: ATTSIZE5 EQU *-ATTCUU DATA LENGTH @V407466 01010000
R13651DK: DS X ... @V407466 01011000
R13651DK: ATTDEL1 DS X DELIMITER @V407466 01012000
R13651DK: ATTUSE DS CL3 USERID @V407466 01013000
R13651DK: ATTDEL5 DS X DELIMITER @V407466 01014000
R13651DK: ATTUSER2 DS CL4 USERID @V407466 01015000
R13651DK: ATTSIZE2 EQU *-ATTCUU DATA LENGTH @V407466 01016000
R13651DK: ATTDEL2 DS X DELIMITER @V407466 01017000
R13651DK: ATTVADDR DS CL3 VADDR @V407466 01018000
R13651DK: ATTSIZE3 EQU *-ATTCUU DATA LENGTH @V407466 01019000
R13651DK: MSGSIZE EQU (*-ATTCUU+7)/8 @V407466 01020000
R13651DK: ORG ATTDEL1 SAVEWRK4 @V407466 01021000
R13651DK: ATTDEL3 DS X DELIMITER @V407466 01022000
R13651DK: ATTCHAN DS CL2 CHANNEL @V407466 01023000
R13651DK: ATTSIZE4 EQU *-ATTCUU DATA LENGTH @V407466 01024000
R13651DK: ORG ATTCUU @V407466 01025000
R13651DK: DS CL4 @V407466 01026000
R13651DK: ATTCON DS CL8 CONSTANT 'ATTACHED' @V407466 01027000
R13651DK: *----------------------------* 01028000
R13651DK: * 01029000
R13651DK: VDABITS EQU SAVEWRK1 FLAGS USED WITHIN VDA @V407466 01030000
R13651DK: MULTCUU EQU SAVEWRK1+2 NO. MULT. ADDRS IN MSG @V407466 01031000
R13651DK: DEVADDR EQU SAVEWRK2 REAL/VIRTUAL DEVICE ADDRESS @V407466 01032000
R13651DK: CMDUSER EQU SAVEWRK3 AND SAVEWRK4 - USERID @V407466 01033000
R13651DK: VIRTADD EQU SAVEWRK1+2 VIRTUAL DEVICE ADDRESS @V407466 01034000
R13651DK: SPACE 01035000
R13651DK: * EQUATES 01036000
R13651DK: BIN0 EQU X'00' DELIMTER @V407466 01037000
R13651DK: HEX0F EQU X'0F' @V407466 01038000
R13651DK: EMSG003 EQU 3 @V407490 01039000
R13651DK: EMSG006 EQU 6 @V407490 01040000
R13651DK: EMSG020 EQU 20 @V407490 01041000
R13651DK: EMSG021 EQU 21 @V407490 01042000
R13651DK: EMSG022 EQU 22 @V407490 01043000
R13651DK: EMSG023 EQU 23 @V407490 01044000
R13651DK: EMSG034 EQU 34 @V407490 01045000
R13651DK: EMSG040 EQU 40 @V407490 01046000
R13651DK: EMSG045 EQU 45 @V407490 01047000
R13651DK: EMSG046 EQU 46 @V407490 01048000
R13651DK: EMSG120 EQU 120 @V407490 01049000
R13651DK: EMSG122 EQU 122 @V407490 01050000
R13651DK: EMSG123 EQU 123 @V407490 01051000
R13651DK: EMSG124 EQU 124 @V407490 01052000
R13651DK: EMSG125 EQU 125 @V407490 01053000
R13651DK: EMSG126 EQU 126 @V407490 01054000
R13651DK: EMSG127 EQU 127 @V407490 01055000
R13651DK: EMSG128 EQU 128 @V407490 01056000
R13651DK: EMSG131 EQU 131 @V407490 01057000
R13651DK: EMSG133 EQU 133 @V407490 01058000
R13651DK: EMSG134 EQU 134 @V407490 01059000
R13651DK: EMSG142 EQU 142 @V407490 01060000
R13651DK: EMSG143 EQU 143 @V407490 01061000
R13651DK: VOLIDSIZ EQU 6 @V407490 01062000
R13651DK: VDEXIT EQU 0 BRANCH INDEX FOR RETURN TO VDA @VA13651 01063000
R13651DK: VDEPROC EQU 4 BRANCH INDEX FOR RETURN TO VDA @VA13651 01064000
R13651DK: VDEMULT EQU 8 BRANCH INDEX FOR RETURN TO VDA @VA13651 01065000
R13651DK: VDERESP EQU 12 BRANCH INDEX FOR RETURN TO VDA @VA13651 01066000
R13651DK: SPACE 01067000
R13651DK: * 01068000
R13651DK: * FLAGS DEFINED IN "VDABITS" : 01069000
R13651DK: * 01070000
R13651DK: CHANNEL EQU X'80' "CHANNEL" OPTION SPECIFIED @V407466 01071000
R13651DK: NSYSOP EQU X'40' CALLER IS NOT SYSTEM OPERATOR @V407466 01072000
R13651DK: MULTR EQU X'20' MULTIPLE RADDR ON COMMAND LINE @V407466 01073000
R13651DK: ATTSYST EQU X'10' ATTACH/DETACH TO/FROM "SYSTEM" @V407466 01074000
R13651DK: ATTREAD EQU X'08' ATTACH "R/O" @V407466 01075000
R13651DK: ATTCTCA EQU X'02' ATTACH REAL CHAN-TO-CHAN ADAPTER @V407466 01076000
R13651DK: DED2305 EQU X'01' ATTACH/DEDICATE MULTI EXP DEVICE @V407466 01077000
R13651DK: RANGE EQU X'04' RANGE ON COMMAND LINE @V407466 01078000
R13651DK: SPACE 01079000
R13651DK: MDSECT DSECT @V407466 01080000
R13651DK: MULTADD DS F @V407466 01081000
R13651DK: DS 47F UP TO 48 CCU ON ONE COMMAND EXEC.@V407466 01082000
R13651DK: DS 4D @V407466 01083000
R13651DK: MULTSIZE EQU (*-MULTADD+7)/8 @V407466 01084000
R13651DK: MSGAREA EQU *-MULTADD @V407466 01085000
R13651DK: EJECT 01086000
R13651DK: COPY VMBLOK @V407466 01087000
R13651DK: COPY UDIRECT @V407466 01088000
R13651DK: COPY VBLOKS @VA13651 01089000
R13651DK: DMKVDE CSECT RE-ENTER MAIN CSECT @VA13651 01090000
R13651DK: END DMKVDE @VA13651 01091000
BEGIN APPLY >>> ./ R 00008000 00010000 $ 8000 500 06/18/81 14:45:15
END APPLY >>> ./ R 00008000 00010000 $ 8000 500 06/18/81 14:45:15
BEGIN APPLY >>> ./ I 00021000 $ 21100 100 06/18/81 14:45:15
END APPLY >>> ./ I 00021000 $ 21100 100 06/18/81 14:45:15
BEGIN APPLY >>> ./ I 00022000 $ 22100 100 06/18/81 14:45:15
END APPLY >>> ./ I 00022000 $ 22100 100 06/18/81 14:45:15
BEGIN APPLY >>> ./ R 00339000 00360000 $ 339000 1000 06/18/81 14:45:15
END APPLY >>> ./ R 00339000 00360000 $ 339000 1000 06/18/81 14:45:15
Update Succeeded
Update Execution Time 16 milliseconds.
R11952DK
Date Thursday Oct 29, 1981 10:10:00 AM
Loaded from MAINT(294)
R11952DK: ./ I 197300 $ 197320 20 00001000
R11952DK: LA R3,BUSY151 BUSY CONDITION? @VA11952 00002000
R11952DK: ST R10,SAVER8 SAVE POINTER TO IOBLOK @VA11952 00003000
R11952DK: B EXIT GET RC BACK TO DMKVDA @VA11952 00004000
R11952DK: ./ I 315000 $ 315100 00005000
R11952DK: BUSY151 EQU 120 @VA11952 00006000
R11952DK: ./ I 442000 $ 442100 100 00007000
R11952DK: * DMKVDE151I DASD RADDR NOT ATTACHED,BUSY PERSISTS, 00008000
R11952DK: * IOBSTAT=XX, IOBCSW+4=YYYY 00009000
R11952DK: ./ I 797000 $ 797300 10 00010000
R11952DK: * 00011000
R11952DK: * ERROR INDEX=120 00012000
R11952DK: * 00013000
R11952DK: MSG151 EQU * BUSY CONDITION PERSISTS @VA11952 00014000
R11952DK: USING IOBLOK,R8 @VA11952 00015000
R11952DK: BAL R5,CVTRADD GET DEVICE ADDRESS @VA11952 00016000
R11952DK: STCM R1,B'0111',ATTCUU STORE DEVICE ADDRESS @VA11952 00017000
R11952DK: MVI ATTDEL4,BIN0 DELIMITER @VA11952 00018000
R11952DK: SR R1,R1 ZERO OUT R1 @VA11952 00019000
R11952DK: ICM R1,B'0001',IOBSTAT GET IOB STATUS @VA11952 00020000
R11952DK: CALL DMKCVTBH CONVERT IOB STATUS @VA11952 00021000
R11952DK: STH R1,ATTNO STORE IOB STATUS @VA11952 00022000
R11952DK: MVI ATTNO+2,BIN0 DELIMITER @VA11952 00023000
R11952DK: SR R1,R1 ZERO OUT R1 @VA11952 00024000
R11952DK: ICM R1,B'0011',IOBCSW+4 GET IOB SENSE @VA11952 00025000
R11952DK: CALL DMKCVTBH CONVERT IOB SENSE @VA11952 00026000
R11952DK: STCM R1,B'1111',ATTNO+4 STORE IOB SENSE @VA11952 00027000
R11952DK: LA R0,L'ATTCUU+L'ATTDEL4+8 MSG LENGTH @VA11952 00028000
R11952DK: ICM R2,B'1111',IMSG SET UP FOR 151I MSG @VA11952 00029000
R11952DK: LR R1,R7 ADDRESS OF MSG AREA @VA11952 00030000
R11952DK: ICM R0,B'1110',DMKVDE+3 MODULE ID @VA11952 00031000
R11952DK: LR R10,R8 R10 POINTS TO IOBLOK @VA11952 00032000
R11952DK: DROP R8 @VA11952 00033000
R11952DK: CALL DMKERMSG PRINT MSG @VA11952 00034000
R11952DK: B RDLFRET CLEAN UP @VA11952 00035000
R11952DK: ./ I 883000 $ 883100 00036000
R11952DK: B MSG151 120 BUSY CONDITION PERSISTS @VA11952 00037000
R11952DK: ./ I 921000 $ 921500 00038000
R11952DK: IMSG DC X'80C90097' @VA11952 00039000
BEGIN APPLY >>> ./ I 197300 $ 197320 20 00001000
END APPLY >>> ./ I 197300 $ 197320 20 00001000
BEGIN APPLY >>> ./ I 315000 $ 315100 00005000
END APPLY >>> ./ I 315000 $ 315100 00005000
BEGIN APPLY >>> ./ I 442000 $ 442100 100 00007000
END APPLY >>> ./ I 442000 $ 442100 100 00007000
BEGIN APPLY >>> ./ I 797000 $ 797300 10 00010000
END APPLY >>> ./ I 797000 $ 797300 10 00010000
BEGIN APPLY >>> ./ I 883000 $ 883100 00036000
END APPLY >>> ./ I 883000 $ 883100 00036000
BEGIN APPLY >>> ./ I 921000 $ 921500 00038000
END APPLY >>> ./ I 921000 $ 921500 00038000
Update Succeeded
Update Execution Time 23 milliseconds.
R13217DK
Date Monday Feb 15, 1982 09:29:00 AM
Loaded from MAINT(294)
R13217DK: ./ I 442200 $ 442300 00001000
R13217DK: * DMKVDE153E DEVICE RADDR EXCEEDS MAX NUM OF VIRTUAL DEVICES 00002000
R13217DK: ./ I 798000 $ 798050 100 00003000
R13217DK: MAXDEV DS 0H PROCESS MAX DEVICES EXCEEDED @VA13217 00004000
R13217DK: MVC ATTCUU(3),=C'RNG' SETUP FOR POSSIBLE RANGE ERR @VA13217 00005000
R13217DK: TM VDABITS,RANGE PROCESSING RANGE OF DEVICES? @VA13217 00006000
R13217DK: BO MAXDEVR YES - SKIP ADDRESS CONVERT @VA13217 00007000
R13217DK: LH R1,UDEVADD PICK UP DEVICE ADDRESS @VA13217 00008000
R13217DK: CALL DMKCVTBH CONVERT TO HEXADECIMAL @VA13217 00009000
R13217DK: STCM R1,7,ATTCUU DVC ADDR TO INSERT IN MSG @VA13217 00010000
R13217DK: MAXDEVR LA R0,ATTSIZE1 SIZE OF DATA TO INSERT @VA13217 00011000
R13217DK: LA R2,EMSG153 MESSAGE NUMBER @VA13217 00012000
R13217DK: B MSGSEND2 SEND MSG AND EXIT @VA13217 00013000
R13217DK: ./ I 883100 $ 883200 00014000
R13217DK: B MAXDEV 124 @VA13217 00015000
R13217DK: ./ I 1000000 $ 1000500 00016000
R13217DK: EMSG153 EQU 153 @VA13217 00017000
BEGIN APPLY >>> ./ I 442200 $ 442300 00001000
END APPLY >>> ./ I 442200 $ 442300 00001000
BEGIN APPLY >>> ./ I 798000 $ 798050 100 00003000
END APPLY >>> ./ I 798000 $ 798050 100 00003000
BEGIN APPLY >>> ./ I 883100 $ 883200 00014000
END APPLY >>> ./ I 883100 $ 883200 00014000
BEGIN APPLY >>> ./ I 1000000 $ 1000500 00016000
END APPLY >>> ./ I 1000000 $ 1000500 00016000
Update Succeeded
Update Execution Time 8 milliseconds.
R15392DK
Date Friday Aug 30, 1985 11:49:00 AM
Loaded from MAINT(294)
R15392DK: ./ I 445000 $ 445500 00001000
R15392DK: MVC SAVEWRK1,ZEROES CLEAR FOR FLAG BYTE 00002000
R15392DK: ./ D 821000 $ 00003000
R15392DK: ./ I 850000 $ 850500 00004000
R15392DK: LR R13,R4 RESTORE VDE SAVEAREA ADDRESS 00005000
BEGIN APPLY >>> ./ I 445000 $ 445500 00001000
END APPLY >>> ./ I 445000 $ 445500 00001000
BEGIN APPLY >>> ./ D 821000 $ 00003000
END APPLY >>> ./ D 821000 $ 00003000
BEGIN APPLY >>> ./ I 850000 $ 850500 00004000
END APPLY >>> ./ I 850000 $ 850500 00004000
Update Succeeded
Update Execution Time 16 milliseconds.
R16237DK
Date Friday Aug 30, 1985 11:48:00 AM
Loaded from MAINT(294)
R16237DK: ./ I 838000 $ 838100 100 00001000
R16237DK: LR R13,R4 RESTORE VDE'S SAVEAREA 00002000
BEGIN APPLY >>> ./ I 838000 $ 838100 100 00001000
END APPLY >>> ./ I 838000 $ 838100 100 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
HRC039DK
Date Tuesday Feb 21, 2017 08:51:00 PM
Loaded from MAINT(094)
HRC039DK: ./ * Do not issue DMKVDE127E DASD cuu VOLID volser DOES NOT MATCH here
HRC039DK: ./ D 00652000 00653000
BEGIN APPLY >>> ./ * Do not issue DMKVDE127E DASD cuu VOLID volser DOES NOT MATCH here
Comment >>> ./ * Do not issue DMKVDE127E DASD cuu VOLID volser DOES NOT MATCH here
END APPLY >>> ./ * Do not issue DMKVDE127E DASD cuu VOLID volser DOES NOT MATCH here
BEGIN APPLY >>> ./ D 00652000 00653000
END APPLY >>> ./ D 00652000 00653000
Update Succeeded
Update Execution Time 16 milliseconds.
ibm/vm370-lib/cp/dmkvde.assemble_hst.txt · Last modified: 2023/08/06 13:37 by Site Administrator