ibm:vm370-lib:cp:dmkddr.assemble_hst
Table of Contents
DMKDDR History
References
- Fixes Applied : 17
- Latest Source Date : Wednesday, December 13, 1978
- Last Fix ID : [HRC012DK]
Update History
CMS File Input : DMKDDR ASSEMBLE
Date : 12/13/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKDDR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
- R08827DK 606 DOES NOT CLOSE, DDR ALL 3350 MINI DISK
- R10205DK 607 STANDALONE IPL DDR TAPE TO DISK MSDMKDDR718E
- R10042DK 608 DDR THROUGH 3830 FAILS WITH DEVICE BUSY VDEVBUSY
- R10358DK 609 DATA CHECK ON 3203 PRINTER RUNNING DDR STANDALONE
- R10621DK 611 DDR STANDALONE WITH PRINTER DEFINED 009 GOES INTO WAIT
- R10884DK 611 UV00487 CORRECT SPELLING OF OUTPUT AT LABEL DDR705B
- R11415DK 613 UV01172 PE08827 LABEL TAPEER BR AFTER TEST FOR EQU CHECK INCORRECT
- R11504DK 615 UV01883 DDR STANDALONE WITH D/T3066 CONSOLE WAIT SOLUTION
- R12622DK 619 UV03591 STANDALONE DDR REW-UNLOADS PRIOR TORESTORE FIRST TAPE
- R12496DK 619 UV03637 VM/SP DDR GETS ERR 705E WHEN DUMP OUT619 IS MULTI TAPE
- R12739DK 619 UV03733 DDR GIVES CMD REJECT ERR COND RUNNING IN CMS/VM MACH.
- R13103DK 619 UV04037 STANDALONE DMKDDR TAPE REW ERROR AFTER PE..VM12622
- R13315DK 623 UV04735 CH9 CH12 PRINTER INTERRUPTS
- R13582DK 623 UV04739 RESTRICT CONTINUATION AFTER I/O DEFINE ERROR
- R12548DK 625 UV05696 TURN OFF READ REQUEST.
- HRC012DK V01 3380 SUPPORT FOR DDR
R09957DK
Date Thursday Jul 12, 1979 09:51: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 23 milliseconds.
R08827DK
Date Friday Nov 02, 1979 06:01:00 AM
Loaded from MAINT(294)
R08827DK: ./ R 3402000 $ 3402200 200 00001000
R08827DK: BNZ TSTBUSO NO - TEST BUS OUT @VA08827 00002000
R08827DK: TM SENSE,X'40' TEST FOR DEV NOT READY @VA08827 00003000
R08827DK: BZ DDR705 NO - WRITE ERROR MESSAGE @VA08827 00004000
R08827DK: B DDR710 YES - THATS INTV. REQUIRED @VA08827 00005000
R08827DK: ./ R 3403000 $ 00006000
R08827DK: TSTBUSO TM SENSE,X'20' IS IT A BUS-OUT CHECK? @VA08827 00007000
R08827DK: ./ R 4330000 4331000 $ 4330000 1000 00008000
R08827DK: DDR705B MSG 'INPUT XXXXXXXXXXXX OPTPUT XXXXXXXXXXXX CCW XXXXXXXXXXXXX00009000
R08827DK: XXXX',CLOSEJOB 00010000
BEGIN APPLY >>> ./ R 3402000 $ 3402200 200 00001000
END APPLY >>> ./ R 3402000 $ 3402200 200 00001000
BEGIN APPLY >>> ./ R 3403000 $ 00006000
END APPLY >>> ./ R 3403000 $ 00006000
BEGIN APPLY >>> ./ R 4330000 4331000 $ 4330000 1000 00008000
END APPLY >>> ./ R 4330000 4331000 $ 4330000 1000 00008000
Update Succeeded
Update Execution Time 55 milliseconds.
R10205DK
Date Friday Dec 07, 1979 09:20:00 AM
Loaded from MAINT(294)
R10205DK: ./ I 3417000 $ 3417300 300 00001000
R10205DK: CLI 0(R5),X'01' IS IT A WRITE? @VA10205 00002000
R10205DK: BNE NOFPTST NO - DON'T TEST FOR FILE PROTECT @VA10205 00003000
R10205DK: ./ I 3420000 $ 3420500 00004000
R10205DK: NOFPTST EQU * @VA10205 00005000
BEGIN APPLY >>> ./ I 3417000 $ 3417300 300 00001000
END APPLY >>> ./ I 3417000 $ 3417300 300 00001000
BEGIN APPLY >>> ./ I 3420000 $ 3420500 00004000
END APPLY >>> ./ I 3420000 $ 3420500 00004000
Update Succeeded
Update Execution Time 47 milliseconds.
R10042DK
Date Friday Jan 11, 1980 01:09:00 AM
Loaded from MAINT(294)
R10042DK: ./ I 3735000 $ 3735300 300 00001000
R10042DK: MVI DEVBUCT+1,X'00' CLEAR BUSY COUNTER @VA10042 00002000
R10042DK: BUSYRTRY EQU * @VA10042 00003000
R10042DK: ./ I 3762000 $ 3762100 100 00004000
R10042DK: CL R15,=F'5' BUSY OR INTPT. PENDING? @VA10042 00005000
R10042DK: BNE CKMOR NO-CONTINUE CHECK @VA10042 00006000
R10042DK: LA R4,1 @VA10042 00007000
R10042DK: AH R4,DEVBUCT ADD ONE TO BUSY COUNT @VA10042 00008000
R10042DK: STH R4,DEVBUCT STORE COUNT @VA10042 00009000
R10042DK: CLI DEVBUCT+1,20 HAVE WE GONE 20 TIMES? @VA10042 00010000
R10042DK: BH DDR705 YES-BUSY TOO LONG @VA10042 00011000
R10042DK: B BUSYRTRY @VA10042 00012000
R10042DK: CKMOR EQU * @VA10042 00013000
R10042DK: ./ I 4836000 $ 4836500 00014000
R10042DK: DEVBUCT DC H'0' DEVICE BUSY COUNT @VA10042 00015000
BEGIN APPLY >>> ./ I 3735000 $ 3735300 300 00001000
END APPLY >>> ./ I 3735000 $ 3735300 300 00001000
BEGIN APPLY >>> ./ I 3762000 $ 3762100 100 00004000
END APPLY >>> ./ I 3762000 $ 3762100 100 00004000
BEGIN APPLY >>> ./ I 4836000 $ 4836500 00014000
END APPLY >>> ./ I 4836000 $ 4836500 00014000
Update Succeeded
Update Execution Time 39 milliseconds.
R10358DK
Date Tuesday Feb 05, 1980 02:04:00 AM
Loaded from MAINT(294)
R10358DK: ./ R 2075000 $ 2075100 DMK00010
R10358DK: MVI 2(R2),C'.' NEATEN UP @VA10358 DMK00020
R10358DK: ./ R 2081000 $ 2081100 DMK00030
R10358DK: MVI 5(R2),C'.' NEATEN UP @VA10358 DMK00040
R10358DK: ./ R 4703000 $ 4703100 DMK00050
R10358DK: HEADER DC C'COPYING DATA XX/XX/XX AT XX.XX.XX GMT FROM' @VA10358 DMK00060
BEGIN APPLY >>> ./ R 2075000 $ 2075100 DMK00010
END APPLY >>> ./ R 2075000 $ 2075100 DMK00010
BEGIN APPLY >>> ./ R 2081000 $ 2081100 DMK00030
END APPLY >>> ./ R 2081000 $ 2081100 DMK00030
BEGIN APPLY >>> ./ R 4703000 $ 4703100 DMK00050
END APPLY >>> ./ R 4703000 $ 4703100 DMK00050
Update Succeeded
Update Execution Time 47 milliseconds.
R10621DK
Date Monday Apr 07, 1980 02:27:00 AM
Loaded from MAINT(294)
R10621DK: ./ R 799000 803000 $ 799100 00001000
R10621DK: NEWADD LA R15,CONIOB POINT TO IOB @VA10621 00002000
R10621DK: ./ I 806000 $ 806200 200 00003000
R10621DK: LA R15,PRINTIOB WE WILL DO AN INITIALIZE PRINTER @VA10621 00004000
R10621DK: LA R1,INITCCW IN CASE THE PRINTER IS A 3800 @VA10621 00005000
R10621DK: ST R1,IOBCCW SAVE THE CCW STRING @VA10621 00006000
R10621DK: BAL R14,STARTIO GO DO IT @VA10621 00007000
BEGIN APPLY >>> ./ R 799000 803000 $ 799100 00001000
END APPLY >>> ./ R 799000 803000 $ 799100 00001000
BEGIN APPLY >>> ./ I 806000 $ 806200 200 00003000
END APPLY >>> ./ I 806000 $ 806200 200 00003000
Update Succeeded
Update Execution Time 47 milliseconds.
R10884DK
Date Monday Apr 07, 1980 03:14:00 AM
Loaded from MAINT(294)
R10884DK: ./ R 4330000 4331000 $ 4330000 1000 00001000
R10884DK: DDR705B MSG 'INPUT XXXXXXXXXXXX OUTPUT XXXXXXXXXXXX CCW XXXXXXXXXXXXX00002000
R10884DK: XXXX',CLOSEJOB 00003000
BEGIN APPLY >>> ./ R 4330000 4331000 $ 4330000 1000 00001000
END APPLY >>> ./ R 4330000 4331000 $ 4330000 1000 00001000
Update Succeeded
Update Execution Time 39 milliseconds.
R11415DK
Date Thursday Jun 05, 1980 05:09:00 AM
Loaded from MAINT(294)
R11415DK: ./ R 3402200 $ 3402200 00001000
R11415DK: BZ TSTBUSO NO - TEST FOR BUSOUT @VA11415 00002000
BEGIN APPLY >>> ./ R 3402200 $ 3402200 00001000
END APPLY >>> ./ R 3402200 $ 3402200 00001000
Update Succeeded
Update Execution Time 31 milliseconds.
R11504DK
Date Tuesday Jul 29, 1980 06:27:00 AM
Loaded from MAINT(294)
R11504DK: ./ I 878000 $ 878010 00001000
R11504DK: NI SENSECCW+4,255-CC RESET CHAINING FLAG @VA11504 00002000
R11504DK: ./ R 5086000 $ 5086100 100 00003000
R11504DK: SENSECCW CCW 04,SENSE,SILI+CC,24 @VA11504 00004000
R11504DK: CCW 08,CURS3066,SILI+CC,1 @VA11504 00005000
BEGIN APPLY >>> ./ I 878000 $ 878010 00001000
END APPLY >>> ./ I 878000 $ 878010 00001000
BEGIN APPLY >>> ./ R 5086000 $ 5086100 100 00003000
END APPLY >>> ./ R 5086000 $ 5086100 100 00003000
Update Succeeded
Update Execution Time 39 milliseconds.
R12622DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12622DK: ./ I 804000 $ 804100 00001000
R12622DK: NI SENSECCW+4,255-CC RESET CHAINING FLAG @VA12622 00002000
R12622DK: ./ D 878010 $ 00003000
BEGIN APPLY >>> ./ I 804000 $ 804100 00001000
END APPLY >>> ./ I 804000 $ 804100 00001000
BEGIN APPLY >>> ./ D 878010 $ 00003000
END APPLY >>> ./ D 878010 $ 00003000
Update Succeeded
Update Execution Time 47 milliseconds.
R12496DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12496DK: ./ R 4345000 $ 4345010 00001000
R12496DK: MVC IRSAVE(28),SIOSAVE SAVE START IO REGS @VA12496 00002000
BEGIN APPLY >>> ./ R 4345000 $ 4345010 00001000
END APPLY >>> ./ R 4345000 $ 4345010 00001000
Update Succeeded
Update Execution Time 31 milliseconds.
R12739DK
Date Thursday Feb 12, 1981 02:12:00 AM
Loaded from MAINT(294)
R12739DK: ./ I 3760000 $ 3760500 00001000
R12739DK: XC SENSE,SENSE CLEAN UP SENSE @VA12739 00002000
R12739DK: ./ D 3765000 $ 00003000
BEGIN APPLY >>> ./ I 3760000 $ 3760500 00001000
END APPLY >>> ./ I 3760000 $ 3760500 00001000
BEGIN APPLY >>> ./ D 3765000 $ 00003000
END APPLY >>> ./ D 3765000 $ 00003000
Update Succeeded
Update Execution Time 39 milliseconds.
R13103DK
Date Tuesday Mar 24, 1981 10:02:00 AM
Loaded from MAINT(294)
R13103DK: ./ R 804100 805000 $ 804500 500 00001000
R13103DK: MSGRET NI SENSECCW+4,255-CC RESET CHAINING FLAG @VA13103 00002000
R13103DK: LA R3,CONERROR POINT TO ERROR ROUTINE @VA13103 00003000
BEGIN APPLY >>> ./ R 804100 805000 $ 804500 500 00001000
END APPLY >>> ./ R 804100 805000 $ 804500 500 00001000
Update Succeeded
Update Execution Time 47 milliseconds.
R13315DK
Date Friday Aug 07, 1981 07:13:00 AM
Loaded from MAINT(294)
R13315DK: ./ I 2164000 $ 2164200 200 00001000
R13315DK: TM IOBCSW+4,UE IS ERROR CH. 12? @VA13315 00002000
R13315DK: BO PTRESTRT YES, SEE IF MORE IN THE CHAIN @VA13315 00003000
R13315DK: TM SENSE,CH9 IS ERROR CH. 9? @VA13315 00004000
R13315DK: BO PTRESTRT YES, CHECK CHAIN FOR MORE @VA13315 00005000
R13315DK: ./ I 2165000 $ 2165070 70 00007000
R13315DK: SPACE 3 00009000
R13315DK: PTRESTRT EQU * HERE FOR CH9, CH12 TO DRIVE @VA13315 00010000
R13315DK: * REST OF CCW CHAIN 00011000
R13315DK: L R1,IOBCSW GET POINTER TO NEXT CCW @VA13315 00012000
R13315DK: LTR R1,R1 IS THERE ONE? @VA13315 00013000
R13315DK: BZ SIORET NOPE, ALL DONE @VA13315 00014000
R13315DK: S R1,=F'8' BACK UP TO LAST EXECUTED CCW @VA13315 00015000
R13315DK: TM 4(R1),CC COMMAND CHAIN? @VA13315 00016000
R13315DK: BZ SIORET NO,CH9 OR CH12 WAS LAST CCW IN @VA13315 00017000
R13315DK: * CHAIN 00018000
R13315DK: LA R1,8(,R1) GET NEXT CCW.... @VA13315 00019000
R13315DK: B RESTART AND 'REDRIVE' IT @VA13315 00020000
R13315DK: ./ I 5369000 $ 5369500 00021000
R13315DK: CH9 EQU X'01' CH9 SENSE BIT ON PRINTER @VA13315 00022000
BEGIN APPLY >>> ./ I 2164000 $ 2164200 200 00001000
END APPLY >>> ./ I 2164000 $ 2164200 200 00001000
BEGIN APPLY >>> ./ I 2165000 $ 2165070 70 00007000
END APPLY >>> ./ I 2165000 $ 2165070 70 00007000
BEGIN APPLY >>> ./ I 5369000 $ 5369500 00021000
END APPLY >>> ./ I 5369000 $ 5369500 00021000
Update Succeeded
Update Execution Time 47 milliseconds.
R13582DK
Date Friday Aug 07, 1981 07:13:00 AM
Loaded from MAINT(294)
R13582DK: ./ I 01041000 $ 01041010 10 00009000
R13582DK: NI DDRFLAG3,X'FF'-INERROR TURN OFF FLAG @VA13582 00010000
R13582DK: ./ I 01043000 $ 01043010 10 00011000
R13582DK: NI DDRFLAG3,X'FF'-OUTERROR TURN OFF FLAG @VA13582 00012000
R13582DK: ./ R 01073000 $ 1073000
R13582DK: BNE PREDR708 BRANCH IF TYPES INCOMPATIBLE @VA13582
R13582DK: ./ I 1343000 $ 1343010 10
R13582DK: TM DDRFLAG3,INERROR+OUTERROR TEST FOR I/O DEF ERROR@VA13582
R13582DK: BM DDR708 AGAIN ERROR MSG @VA13582
R13582DK: ./ I 01362000 $ 01362010 10 00001000
R13582DK: TM DDRFLAG3,INERROR+OUTERROR TEST FOR I/O DEF ERROR@VA13582 00002000
R13582DK: BM DDR708 AGAIN ERROR MSG @VA13582 00004000
R13582DK: ./ R 04341000 04342000 $ 4341010 10 00013000
R13582DK: PREDR708 DS 0H @VA13582
R13582DK: CL R15,=A(OUTIOB) IS AN OUT DEF. ERROR @VA13582 00014000
R13582DK: BNE ERINMSG IF NOT BRANCH @VA13582 00015000
R13582DK: OI DDRFLAG3,OUTERROR SET OUT ERROR FLAG @VA13582 00016000
R13582DK: DDR708 DS 0H @VA13582
R13582DK: OI DDRFLAG,ERROR TURN ON THE ERROR SWITCH
R13582DK: MSG 'DMKDDR708E INVALID INPUT OR OUTPUT DEFINITION',STRGAIN
R13582DK: ERINMSG DS 0H @VA13582 00021000
R13582DK: OI DDRFLAG3,INERROR SET IN ERROR FLAG @VA13582 00022000
R13582DK: B DDR708 GO WRITE MSG @VA13582 00023000
R13582DK: STRGAIN DS 0H @VA13582 00024000
R13582DK: TM DDRFLAG,CARDIN IS THIS A CARD INPUT @VA13582
R13582DK: BO GTCARD GO TO SCAN OTHER @VA13582 00025000
R13582DK: B STARTNEW BEGIN AGAIN @VA13582 00026000
R13582DK: ./ I 04687000 $ 04687010 10 00027000
R13582DK: DDRFLAG3 DC X'0' INPUT OR OUTPUT ERROR FLAG @VA13582 00028000
R13582DK: OUTERROR EQU X'04' FOR FLAG OUT DEF. ERROR @VA13582 00029000
R13582DK: INERROR EQU X'02' FOR FLAG IN DEF. ERROR @VA13582 00030000
BEGIN APPLY >>> ./ I 01041000 $ 01041010 10 00009000
END APPLY >>> ./ I 01041000 $ 01041010 10 00009000
BEGIN APPLY >>> ./ I 01043000 $ 01043010 10 00011000
END APPLY >>> ./ I 01043000 $ 01043010 10 00011000
BEGIN APPLY >>> ./ R 01073000 $ 1073000
END APPLY >>> ./ R 01073000 $ 1073000
BEGIN APPLY >>> ./ I 1343000 $ 1343010 10
END APPLY >>> ./ I 1343000 $ 1343010 10
BEGIN APPLY >>> ./ I 01362000 $ 01362010 10 00001000
END APPLY >>> ./ I 01362000 $ 01362010 10 00001000
BEGIN APPLY >>> ./ R 04341000 04342000 $ 4341010 10 00013000
END APPLY >>> ./ R 04341000 04342000 $ 4341010 10 00013000
BEGIN APPLY >>> ./ I 04687000 $ 04687010 10 00027000
END APPLY >>> ./ I 04687000 $ 04687010 10 00027000
Update Succeeded
Update Execution Time 86 milliseconds.
R12548DK
Date Tuesday Nov 03, 1981 04:24:00 PM
Loaded from MAINT(294)
R12548DK: ./ I 3992000 $ 3992100 100 00001000
R12548DK: NI PARM,X'FF'-PARMREA TURN OFF READ REQUEST @VA12548 00002000
BEGIN APPLY >>> ./ I 3992000 $ 3992100 100 00001000
END APPLY >>> ./ I 3992000 $ 3992100 100 00001000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC012DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC012DK: ./ R 00112000 $ 112490 490 02/08/06 17:26:13
HRC012DK: * 3350, 3380 HRC012DK 00112490
HRC012DK: ./ I 00156000 $ 156500 500 02/08/06 17:26:13
HRC012DK: * | SYS CONS | HRC012DK 00156500
HRC012DK: ./ I 00789000 $ 789500 500 02/08/06 17:26:13
HRC012DK: ST R10,MACHINE SAVE FOR BAREMAC COMPARE HRC012DK 00789500
HRC012DK: ./ I 00799100 $ 801100 2000 02/08/06 17:26:13
HRC012DK: NI IOBSTAT,X'FF'-IOBNOPER ASSUME OPERATIONAL CONS HRC012DK 00801100
HRC012DK: ./ I 00804000 $ 804200 200 02/08/06 17:26:13
HRC012DK: BAL R14,MSG002A PRINT MSG HRC012DK 00804200
HRC012DK: ./ R 00842000 $ 842190 190 02/08/06 17:26:13
HRC012DK: BNE GTFILE HRC012DK 00842190
HRC012DK: BAL R14,MSG002 HRC012DK 00842380
HRC012DK: B GTCARD NO- BRANCH AND GET THE FIRST STATHRC012DK 00842570
HRC012DK: GTFILE EQU * HRC012DK 00842760
HRC012DK: ./ I 01010000 $ 1010500 500 02/08/06 17:26:13
HRC012DK: TABLE 3380,4,CLASDASD,TYP3380,100,884,885,14 HRC012DK 01010500
HRC012DK: ./ I 01063000 $ 1063060 60 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3380 IS IT 3380 DEVICE HRC012DK 01063060
HRC012DK: BZ CKTAPE HRC012DK 01063120
HRC012DK: LA R1,SNSE4CCW GET ADDRESS OF SENSE ID X'E4' HRC012DK 01063180
HRC012DK: ST R1,IOBCCW SAV ADDRESS OF SENSE ID X'E4' HRC012DK 01063240
HRC012DK: XC SENSE,SENSE ZERO OUT SENSE HRC012DK 01063300
HRC012DK: BAL R14,STARTIO GO ISSUE SENSE HRC012DK 01063360
HRC012DK: TM SENSEB6,RDEVMD82 IS THIS A MODEL 2 OR 3 HRC012DK 01063420
HRC012DK: BZ CONTINUE HRC012DK 01063480
HRC012DK: MVC IOBCYLP(L4),PRIM3382 MOVE IN MAX & ALT CYL MDL2 HRC012DK 01063540
HRC012DK: TM SENSEB6,RDEVMD83 IS THIS A MODEL 3 HRC012DK 01063600
HRC012DK: BZ CONTINUE HRC012DK 01063660
HRC012DK: MVC IOBCYLP(L4),PRIM3383 MOVE IN MAX & ALT CYL MDL3 HRC012DK 01063720
HRC012DK: B CONTINUE HRC012DK 01063780
HRC012DK: CKTAPE EQU * HRC012DK 01063840
HRC012DK: ./ R 01065000 $ 1065490 490 02/08/06 17:26:13
HRC012DK: BZ CONTINUE DON'T BOTHER WITH MODE + DISP HRC012DK 01065490
HRC012DK: ./ I 01071000 $ 1071500 500 02/08/06 17:26:13
HRC012DK: STCM R6,B'0010',SVDSTAT SAVE VDEVSTAT HRC012DK 01071500
HRC012DK: ./ I 01073000 $ 1073010 10 02/08/06 17:26:13
HRC012DK: TM IOBCLASS,CLASDASD DISK DEVICE HRC012DK 01073010
HRC012DK: BNO CONTINUT HRC012DK 01073020
HRC012DK: TM SVDSTAT,VDVDED HRC012DK 01073030
HRC012DK: BO CONTINUT HRC012DK 01073040
HRC012DK: STM R3,R8,MDSKREGS HRC012DK 01073050
HRC012DK: MVC DEVCUU,CCU HRC012DK 01073060
HRC012DK: CLI DEVCUU,C'0' HRC012DK 01073070
HRC012DK: BNE ISSQUERY HRC012DK 01073080
HRC012DK: MVI DEVCUU,C' ' HRC012DK 01073090
HRC012DK: ISSQUERY EQU * HRC012DK 01073100
HRC012DK: LA R3,QRYDEV HRC012DK 01073110
HRC012DK: LA R4,QRYRESP HRC012DK 01073120
HRC012DK: LA R5,L'QRYDEV+L'DEVCUU HRC012DK 01073130
HRC012DK: ICM R5,B'1000',BUFFRET HRC012DK 01073140
HRC012DK: LA R6,L'QRYRESP HRC012DK 01073150
HRC012DK: * DIAG R3,R5,X'0008' HRC012DK 01073160
HRC012DK: DC X'83350008' HRC012DK 01073170
HRC012DK: BNZ CONTINUT HRC012DK 01073180
HRC012DK: *----------------------------------------------------------* HRC012DK 01073190
HRC012DK: * FIND THE CYLINDER FIELD BY SKIPPING OVER THE APPROPRIATE HRC012DK 01073200
HRC012DK: * NUMBER OF BLANKS. HRC012DK 01073210
HRC012DK: *----------------------------------------------------------* HRC012DK 01073220
HRC012DK: LA R7,CYLPOS-1 HRC012DK 01073230
HRC012DK: LA R8,QRYRESP HRC012DK 01073240
HRC012DK: KPSRCH DS 0H HRC012DK 01073250
HRC012DK: CLI 0(R8),C' ' HRC012DK 01073260
HRC012DK: BE NXTBLANK HRC012DK 01073270
HRC012DK: NEXTCHAR DS 0H HRC012DK 01073280
HRC012DK: LA R8,1(R8) HRC012DK 01073290
HRC012DK: B KPSRCH HRC012DK 01073300
HRC012DK: NXTBLANK DS 0H HRC012DK 01073310
HRC012DK: LA R8,1(R8) IF THERE ARE MORE THAN 1 HRC012DK 01073320
HRC012DK: CLI 0(R8),C' ' BLANK IN BUFFER, THEN HRC012DK 01073330
HRC012DK: BE NXTBLANK SKIP IT HRC012DK 01073340
HRC012DK: BCT R7,NEXTCHAR HRC012DK 01073350
HRC012DK: *----------------------------------------------------------* HRC012DK 01073360
HRC012DK: * FIND THE FIRST EBCDIC CODED DECIMAL NUMBER IN THE HRC012DK 01073370
HRC012DK: * CYLINDER FIELD AND CONVERT IT TO A BINARY VALUE. HRC012DK 01073380
HRC012DK: *----------------------------------------------------------* HRC012DK 01073390
HRC012DK: LR R1,R8 SAVE CYLINDER FIELD POSITION HRC012DK 01073400
HRC012DK: LA R7,CYLPRMSZ MAXUMUM SIZE HRC012DK 01073410
HRC012DK: SR R2,R2 ACTUAL SIZE IN R2 HRC012DK 01073420
HRC012DK: NEXTNUM DS 0H HRC012DK 01073430
HRC012DK: TM 0(R8),X'F0' HRC012DK 01073440
HRC012DK: BNO MDSKBINC HRC012DK 01073450
HRC012DK: LA R8,1(,R8) HRC012DK 01073460
HRC012DK: LA R2,1(,R2) HRC012DK 01073470
HRC012DK: BCT R7,NEXTNUM HRC012DK 01073480
HRC012DK: MDSKBINC DS 0H HRC012DK 01073490
HRC012DK: BAL R14,BINCONV HRC012DK 01073500
HRC012DK: BCTR R2,0 -1 TO GET TOTAL NUM CYLINDERS HRC012DK 01073510
HRC012DK: CLM R2,B'0011',IOBCYLP DO WE HAVE A FULLPACK MINI? HRC012DK 01073520
HRC012DK: BNL CONTINUT YES, LEAVE SETTINGS HRC012DK 01073530
HRC012DK: STH R2,IOBCYLP SAVE ADDR OF LAST PRIMARY CYL HRC012DK 01073540
HRC012DK: STH R2,IOBCYLA LAST ALT CYL = LAST PRIM CYL HRC012DK 01073550
HRC012DK: CONTINUT EQU * HRC012DK 01073560
HRC012DK: ./ I 01170000 $ 1170300 300 02/08/06 17:26:13
HRC012DK: NI SPRNTDEV,X'00' CLEAR OPTION FLAG HRC012DK 01170300
HRC012DK: MVC PRINTIOB+(IOBUADD-IOB)(2),=XL2'000E' RESET HRC012DK 01170600
HRC012DK: ./ R 01173000 $ 1173080 80 02/08/06 17:26:13
HRC012DK: CL R2,=F'4' SEE IF LENGTH OF CONS SPEC HRC012DK 01173080
HRC012DK: BNE NOTCONS1 NO, CANT BE CONS HRC012DK 01173160
HRC012DK: CLC =C'CONS',0(R1) HRC012DK 01173240
HRC012DK: BNE DDR701 NO, GIVE ERROR MESSAGE HRC012DK 01173320
HRC012DK: OI SPRNTDEV,CONS INDICATE SYSPRINT=CONS OPTION HRC012DK 01173400
HRC012DK: MVC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 01173480
HRC012DK: NI IOBSTAT,X'FF'-IOBNOPER PRESUME CONS WORKS HRC012DK 01173560
HRC012DK: B GTCARD HRC012DK 01173640
HRC012DK: NOTCONS1 EQU * HRC012DK 01173720
HRC012DK: CL R2,=F'3' IS IT OVER 3 HRC012DK 01173800
HRC012DK: ./ I 01174000 $ 1174300 300 02/08/06 17:26:13
HRC012DK: CLC MACHINE,BAREMAC IS THIS UNDER CMS ? HRC012DK 01174300
HRC012DK: BNE GTCARD YES, IGNORE THIS CARD HRC012DK 01174600
HRC012DK: ./ R 01180000 01183000 $ 1181990 1990 02/08/06 17:26:13
HRC012DK: BAL R3,PRTINIT HRC012DK 01181990
HRC012DK: ./ I 01184000 $ 1184090 90 02/08/06 17:26:13
HRC012DK: SPACE 3 , HRC012DK 01184090
HRC012DK: PRTINIT EQU * HRC012DK 01184180
HRC012DK: LA R15,PRINTIOB DO AN INITIALIZE PRINTER IN CASE HRC012DK 01184270
HRC012DK: NI IOBSTAT,255-IOBNOPER HRC012DK 01184360
HRC012DK: LA R1,INITCCW THIS IS A 3800 PRINTER HRC012DK 01184450
HRC012DK: ST R1,IOBCCW SAVE THE CCW STRING HRC012DK 01184540
HRC012DK: BAL R14,STARTIO GO DO IT HRC012DK 01184630
HRC012DK: NI SPRNTDEV,X'00' HRC012DK 01184720
HRC012DK: OI SPRNTDEV,PRT HRC012DK 01184810
HRC012DK: BR R3 HRC012DK 01184900
HRC012DK: ./ I 01214000 $ 1214200 200 02/08/06 17:26:13
HRC012DK: TM SPRNTDEV,CONS+PRT HRC012DK 01214200
HRC012DK: BNZ SETABLES HRC012DK 01214400
HRC012DK: BAL R3,PRTINIT HRC012DK 01214600
HRC012DK: SETABLES EQU * HRC012DK 01214800
HRC012DK: ./ I 01321000 $ 1321300 300 02/08/06 17:26:13
HRC012DK: CLC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 01321300
HRC012DK: BE SPACEONE YES, GO PRINT A BLANK ONE HRC012DK 01321600
HRC012DK: ./ R 01325000 $ 1325290 290 02/08/06 17:26:13
HRC012DK: BAL R14,MSG004 * HRC012DK 01325290
HRC012DK: B TESTIN GO START THE JOB STEP HRC012DK 01325580
HRC012DK: ./ R 01340000 $ 1340090 90 02/08/06 17:26:13
HRC012DK: SCANDUMP EQU * HRC012DK 01340090
HRC012DK: TM SPRNTDEV,CONS+PRT HRC012DK 01340180
HRC012DK: BNZ DEVTEST HRC012DK 01340270
HRC012DK: BAL R3,PRTINIT HRC012DK 01340360
HRC012DK: DEVTEST EQU * HRC012DK 01340450
HRC012DK: TM INIOB+(IOBCLASS-IOB),CLASDASD IS IT A DASD DEVHRC012DK 01340540
HRC012DK: ./ R 01359000 $ 1359090 90 02/08/06 17:26:13
HRC012DK: SCANREST EQU * HRC012DK 01359090
HRC012DK: TM SPRNTDEV,CONS+PRT SYSPRINT DEVICE PROCESSED? HRC012DK 01359180
HRC012DK: BNZ DEVTST HRC012DK 01359270
HRC012DK: BAL R3,PRTINIT HRC012DK 01359360
HRC012DK: DEVTST EQU * HRC012DK 01359450
HRC012DK: TM INIOB+(IOBCLASS-IOB),CLASTAPE IS THE INPUT A TAPHRC012DK 01359540
HRC012DK: ./ R 01378000 $ 1378090 90 02/08/06 17:26:13
HRC012DK: SCANCOPY EQU * HRC012DK 01378090
HRC012DK: TM SPRNTDEV,CONS+PRT SYSPRINT DEVICE PROCESSED? HRC012DK 01378180
HRC012DK: BNZ TSTDEV HRC012DK 01378270
HRC012DK: BAL R3,PRTINIT HRC012DK 01378360
HRC012DK: TSTDEV EQU * HRC012DK 01378450
HRC012DK: TM INIOB+(IOBCLASS-IOB),255 IS THE CLASS = ZERO HRC012DK 01378540
HRC012DK: ./ I 02084000 $ 2084500 500 02/08/06 17:26:13
HRC012DK: BAL R14,MSG004 PRINT THE STARTING MSG HRC012DK 02084500
HRC012DK: ./ I 02088000 $ 2088500 500 02/08/06 17:26:13
HRC012DK: LA R0,CONCCW1 POINT TO THE CCW HRC012DK 02088500
HRC012DK: ./ R 02118000 $ 2118490 490 02/08/06 17:26:13
HRC012DK: PRINTIT BAL R14,CMSA GO TEST FOR BARE MAC HRC012DK 02118490
HRC012DK: ./ R 02121000 $ 2121490 490 02/08/06 17:26:13
HRC012DK: B TESTIN HRC012DK 02121490
HRC012DK: ./ R 02123000 $ 2123090 90 02/08/06 17:26:13
HRC012DK: CMSA CLC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 02123090
HRC012DK: BNE CMS2 HRC012DK 02123180
HRC012DK: LR R1,R0 HRC012DK 02123270
HRC012DK: LA R15,CONIOB HRC012DK 02123360
HRC012DK: CLC MACHINE,BAREMAC HRC012DK 02123450
HRC012DK: BNE SKIP1 HRC012DK 02123540
HRC012DK: B GRAPHID HRC012DK 02123630
HRC012DK: SPACE 3 HRC012DK 02123720
HRC012DK: CMS2 CL R10,BAREMAC TEST FOR BARE MAC HRC012DK 02123810
HRC012DK: ./ I 02124000 $ 2124500 500 02/08/06 17:26:13
HRC012DK: SKIP1 EQU * HRC012DK 02124500
HRC012DK: ./ I 02128000 $ 2128100 100 02/08/06 17:26:13
HRC012DK: CLC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 02128100
HRC012DK: BNE NTCNS01 HRC012DK 02128200
HRC012DK: STCM R2,B'0111',CONFCB+9 HRC012DK 02128300
HRC012DK: STH R3,CONFCB+14 HRC012DK 02128400
HRC012DK: LA R1,CONFCB HRC012DK 02128500
HRC012DK: B ISCNS01 HRC012DK 02128600
HRC012DK: NTCNS01 EQU * HRC012DK 02128700
HRC012DK: ./ I 02136000 $ 2136500 500 02/08/06 17:26:13
HRC012DK: ISCNS01 EQU * HRC012DK 02136500
HRC012DK: ./ I 02148000 $ 2148500 500 02/08/06 17:26:13
HRC012DK: LR R0,R1 * SAVE FOR CONS OUTPUT HRC012DK 02148500
HRC012DK: ./ R 02153000 $ 2153490 490 02/08/06 17:26:13
HRC012DK: BAL R14,CMSA GO TEST FOR CMS HRC012DK 02153490
HRC012DK: ./ R 02288000 $ 2288490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 02288490
HRC012DK: ./ R 02303000 $ 2303490 490 02/08/06 17:26:13
HRC012DK: * DEFAULT TO 3330/3340/3350/3380 DEFAULT TO 33XX DASD HRC012DK 02303490
HRC012DK: ./ R 02309000 $ 2309490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 02309490
HRC012DK: ./ R 02344000 $ 2344490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 ? HRC012DK 02344490
HRC012DK: ./ R 02366000 $ 2366490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 02366490
HRC012DK: ./ R 02436000 $ 2436490 490 02/08/06 17:26:13
HRC012DK: DASDE TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 02436490
HRC012DK: ./ R 02456000 $ 2456490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 02456490
HRC012DK: ./ R 02847000 $ 2847190 190 02/08/06 17:26:13
HRC012DK: PRINT2 EQU * HRC012DK 02847190
HRC012DK: CLC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 02847380
HRC012DK: BE CONSOUT1 HRC012DK 02847570
HRC012DK: TM DDRFLAG2,TYPE TYPE OPERATION HRC012DK 02847760
HRC012DK: ./ I 02848000 $ 2848500 500 02/08/06 17:26:13
HRC012DK: CONSOUT1 EQU * HRC012DK 02848500
HRC012DK: ./ I 03031000 $ 3031300 300 02/08/06 17:26:13
HRC012DK: CLC PRINTIOB+(IOBUADD-IOB)(2),CONIOB+(IOBUADD-IOB) HRC012DK 03031300
HRC012DK: BE CONSOUT2 HRC012DK 03031600
HRC012DK: ./ I 03034000 $ 3034500 500 02/08/06 17:26:13
HRC012DK: CONSOUT2 EQU * HRC012DK 03034500
HRC012DK: ./ R 03093000 $ 3093490 490 02/08/06 17:26:13
HRC012DK: * IF NOT 3330/3340/3350/3380 NOT USR WITH MEHRC012DK 03093490
HRC012DK: ./ R 03211000 $ 3211490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3350+TYP3380 HRC012DK 03211490
HRC012DK: ./ R 03300000 $ 3300490 490 02/08/06 17:26:13
HRC012DK: TM IOBTYPE,TYP3330+TYP3340+TYP3350+TYP3380 HRC012DK 03300490
HRC012DK: ./ R 04469000 $ 4469490 490 02/08/06 17:26:13
HRC012DK: MSG002 MSG 'VM/370 DASD DUMP/RESTORE PROGRAM RELEASE 6' HRC012DK 04469490
HRC012DK: ./ R 04482000 04502000 $ 4482290 290 02/08/06 17:26:13
HRC012DK: MSG004 EQU * HRC012DK 04482290
HRC012DK: ST R14,MSG00414 HRC012DK 04482580
HRC012DK: MVC MSG4AOTL,=CL10' ' HRC012DK 04482870
HRC012DK: MVC MSG4AALL,=CL10' ' HRC012DK 04483160
HRC012DK: MVC MSG4AMOD,=CL9'PRINTING' HRC012DK 04483450
HRC012DK: CLI SAVENAME,C'P' IS THIS A PRINT HRC012DK 04483740
HRC012DK: BE VSNMOVE HRC012DK 04484030
HRC012DK: MVC MSG4AMOD,=CL9'COPYING' HRC012DK 04484320
HRC012DK: CLI SAVENAME,C'C' IS THIS A COPY HRC012DK 04484610
HRC012DK: BE OUTCUUMV HRC012DK 04484900
HRC012DK: MVC MSG4AMOD,=CL9'DUMPING' SET UP DUMPING HRC012DK 04485190
HRC012DK: CLI SAVENAME,C'D' IS THIS A DUMP HRC012DK 04485480
HRC012DK: BNE MSG4RSTR NO, MUST BE RESTORING HRC012DK 04485770
HRC012DK: LH R1,OUTIOB+(IOBATAPE-IOB) HRC012DK 04486060
HRC012DK: CHKALTAD EQU * HRC012DK 04486350
HRC012DK: LTR R1,R1 HRC012DK 04486640
HRC012DK: BZ OUTCUUMV HRC012DK 04486930
HRC012DK: MVC MSG4AALL,=CL10'ALT(CUU' HRC012DK 04487220
HRC012DK: STH R1,MSG4AALA HRC012DK 04487510
HRC012DK: LA R1,MSG4AALA HRC012DK 04487800
HRC012DK: LA R2,2 LENGTH HRC012DK 04488090
HRC012DK: BAL R14,DECCONV CONVERT IT HRC012DK 04488380
HRC012DK: MVC MSG4AALA,MSG4AALA+1 HRC012DK 04488670
HRC012DK: MVI MSG4AALA+L'MSG4AALA,C')' HRC012DK 04488960
HRC012DK: B OUTCUUMV HRC012DK 04489250
HRC012DK: MSG4RSTR EQU * HRC012DK 04489540
HRC012DK: MVC MSG4AMOD,=CL9'RESTORING' HRC012DK 04489830
HRC012DK: LH R1,INIOB+(IOBATAPE-IOB) HRC012DK 04490120
HRC012DK: B CHKALTAD HRC012DK 04490410
HRC012DK: OUTCUUMV EQU * HRC012DK 04490700
HRC012DK: MVC MSG4AOTL,=CL10'OUT(CUU' HRC012DK 04490990
HRC012DK: LH R1,OUTIOB+(IOBUADD-IOB) HRC012DK 04491280
HRC012DK: STH R1,MSG4AOTA HRC012DK 04491570
HRC012DK: LA R1,MSG4AOTA HRC012DK 04491860
HRC012DK: LA R2,2 LENGTH HRC012DK 04492150
HRC012DK: BAL R14,DECCONV CONVERT IT HRC012DK 04492440
HRC012DK: MVC MSG4AOTA,MSG4AOTA+1 HRC012DK 04492730
HRC012DK: MVI MSG4AOTA+L'MSG4AOTA,C')' HRC012DK 04493020
HRC012DK: VSNMOVE EQU * HRC012DK 04493310
HRC012DK: MVC MSG4AINL,=CL9'IN(CUU' HRC012DK 04493600
HRC012DK: LH R1,INIOB+(IOBUADD-IOB) HRC012DK 04493890
HRC012DK: STH R1,MSG4AINA HRC012DK 04494180
HRC012DK: LA R1,MSG4AINA HRC012DK 04494470
HRC012DK: LA R2,2 LENGTH HRC012DK 04494760
HRC012DK: BAL R14,DECCONV CONVERT IT HRC012DK 04495050
HRC012DK: MVC MSG4AINA,MSG4AINA+1 HRC012DK 04495340
HRC012DK: MVI MSG4AINA+L'MSG4AINA,C')' HRC012DK 04495630
HRC012DK: MVC MSG004A+16(6),INIOB+(IOBVSER-IOB) SET UP VSN HRC012DK 04495920
HRC012DK: L R14,MSG00414 HRC012DK 04496210
HRC012DK: * MSG 'PRINTING XXXXXX IN(CUU) ' HRC012DK 04496500
HRC012DK: * MSG 'DUMPING XXXXXX IN(CUU) OUT(CUU) ALT(CUU)' HRC012DK 04496790
HRC012DK: * MSG 'COPYING XXXXXX IN(CUU) OUT(CUU) ' HRC012DK 04497080
HRC012DK: MSG004A MSG 'RESTORING XXXXXX IN(CUU) OUT(CUU) ALT(CUU)' HRC012DK 04497370
HRC012DK: MSG4ABNK EQU MSG004A+13,3 HRC012DK 04497660
HRC012DK: MSG4AMOD EQU MSG004A+06,9 HRC012DK 04497950
HRC012DK: MSG4AVSN EQU MSG004A+16,6 HRC012DK 04498240
HRC012DK: MSG4AINL EQU MSG004A+23,9 HRC012DK 04498530
HRC012DK: MSG4AINA EQU MSG004A+26,3 HRC012DK 04498820
HRC012DK: MSG4AOTL EQU MSG004A+32,10 HRC012DK 04499110
HRC012DK: MSG4AOTA EQU MSG004A+36,3 HRC012DK 04499400
HRC012DK: MSG4AALL EQU MSG004A+42,10 HRC012DK 04499690
HRC012DK: MSG4AALA EQU MSG004A+46,3 HRC012DK 04499980
HRC012DK: MSG00414 DC F'0' HRC012DK 04500270
HRC012DK: ./ I 04647000 $ 4647200 200 02/08/06 17:26:13
HRC012DK: TM SPRNTDEV,CONS WAS CONS SPECIFIED HRC012DK 04647200
HRC012DK: BO TESTCMS UES DON'T CLOSE 00E HRC012DK 04647400
HRC012DK: TM SPRNTDEV,PRT WAS PRINTER INITIALIZED ? HRC012DK 04647600
HRC012DK: BNO TESTCMS NO, DON'T CLOSE 00E HRC012DK 04647800
HRC012DK: ./ I 04687000 $ 4687005 5 02/08/06 17:26:13
HRC012DK: SPACE , HRC012DK 04687005
HRC012DK: ./ I 04691000 $ 4691500 500 02/08/06 17:26:13
HRC012DK: SPACE , HRC012DK 04691500
HRC012DK: ./ I 04700000 $ 4700100 100 02/08/06 17:26:13
HRC012DK: SPACE , HRC012DK 04700100
HRC012DK: SPRNTDEV DC X'00' FLAG FOR SYSPRINT OPTION HRC012DK 04700200
HRC012DK: PRT EQU X'02' PRINTER HRC012DK 04700300
HRC012DK: CONS EQU X'01' CONSOLE HRC012DK 04700400
HRC012DK: SPACE , HRC012DK 04700500
HRC012DK: ./ R 04702000 $ 4702290 290 02/08/06 17:26:13
HRC012DK: SVDSTAT DC X'00' VDEVSTAT ON DIAG X'24' HRC012DK 04702290
HRC012DK: VDVDED EQU X'01' DED DEVICE HRC012DK 04702580
HRC012DK: ./ D 04711000 04712000 02/08/06 17:26:13
HRC012DK: ./ I 04835000 $ 4835040 40 02/08/06 17:26:13
HRC012DK: SPACE , HRC012DK 04835040
HRC012DK: SENSEB0 EQU SENSE HRC012DK 04835080
HRC012DK: SENSEB1 EQU SENSE+1 HRC012DK 04835120
HRC012DK: SENSEB2 EQU SENSE+2 HRC012DK 04835160
HRC012DK: SENSEB3 EQU SENSE+3 HRC012DK 04835200
HRC012DK: SENSEB6 EQU SENSE+6 HRC012DK 04835240
HRC012DK: SPACE , HRC012DK 04835280
HRC012DK: RDEVMD82 EQU X'08' 3380-2 HRC012DK 04835320
HRC012DK: RDEVMD83 EQU X'0C' 3380-3 HRC012DK 04835360
HRC012DK: DS 0H HRC012DK 04835400
HRC012DK: PRIM3383 DS 0CL4 PARM FOR 3380-3 HRC012DK 04835440
HRC012DK: MCYL3383 DC H'2654' HRC012DK 04835480
HRC012DK: ALT3383 DC H'2655' HRC012DK 04835520
HRC012DK: SPACE , HRC012DK 04835560
HRC012DK: PRIM3382 DS 0CL4 PARM FOR 3380-2 HRC012DK 04835600
HRC012DK: MCYL3382 DC H'1769' HRC012DK 04835640
HRC012DK: ALT3382 DC H'1770' HRC012DK 04835680
HRC012DK: SPACE , HRC012DK 04835720
HRC012DK: PRIM3380 DS 0CL4 PARM FOR 3380-1 HRC012DK 04835760
HRC012DK: MCYL3380 DC H'0884' HRC012DK 04835800
HRC012DK: ALT3380 DC H'0885' HRC012DK 04835840
HRC012DK: SPACE , HRC012DK 04835880
HRC012DK: MHD3380 DC H'14' MAX HEAD NUMBER FOR 3380 HRC012DK 04835920
HRC012DK: SPACE , HRC012DK 04835960
HRC012DK: ./ I 04942000 $ 4942100 100 02/08/06 17:26:13
HRC012DK: SPACE , HRC012DK 04942100
HRC012DK: CYLPRMSZ EQU 6 CYLINDER PARAMETER SIZE HRC012DK 04942200
HRC012DK: CYLPOS EQU 6 CYLINDER PARAMETER POSITION HRC012DK 04942300
HRC012DK: MDSKREGS DC 6F'0' REGISTER SAVE AREA HRC012DK 04942400
HRC012DK: BUFFRET DC X'40' INDICATE BUFFER RETURN. HRC012DK 04942500
HRC012DK: QRYDEV DC CL15'QUERY VIRTUAL' QUERY VIRTUAL COMMAND HRC012DK 04942600
HRC012DK: DEVCUU DC CL4' ' DEVICE ADDRESS FOR QUERY HRC012DK 04942700
HRC012DK: QRYRESP DC CL80' ' QUERY RESPONSE BUFFER HRC012DK 04942800
HRC012DK: SPACE , HRC012DK 04942900
HRC012DK: ./ I 04947000 $ 4947500 500 02/08/06 17:26:13
HRC012DK: MACHINE DS F USED FOR BARE MACHINE COMP HRC012DK 04947500
HRC012DK: ./ R 05001000 05003000 $ 5001390 390 02/08/06 17:26:13
HRC012DK: CCW 25,SYSPTRBF,CC+SILI,L'SYSPTRBF HRC012DK 05001390
HRC012DK: CCW 17,HEADER2,CC+SILI,L'HEADER2 HRC012DK 05001780
HRC012DK: CCW 09,HEADER3,SILI,L'HEADER3 HRC012DK 05002170
HRC012DK: CONCCW1 CCW 09,SYSPTRBF,CC+SILI,L'SYSPTRBF HRC012DK 05002560
HRC012DK: CCW 09,HEADER2,CC+SILI,L'HEADER2 HRC012DK 05002950
HRC012DK: CCW 09,HEADER3,SILI,L'HEADER3 HRC012DK 05003340
HRC012DK: ./ I 05041000 $ 5041070 70 02/08/06 17:26:13
HRC012DK: CCW 02,DB5,CC,0 HRC012DK 05041070
HRC012DK: CCW 02,DB6,CC,0 HRC012DK 05041140
HRC012DK: CCW 02,DB7,CC,0 HRC012DK 05041210
HRC012DK: CCW 02,DB8,CC,0 HRC012DK 05041280
HRC012DK: CCW 02,DB9,CC,0 HRC012DK 05041350
HRC012DK: CCW 02,DB10,CC,0 HRC012DK 05041420
HRC012DK: CCW 02,DB11,CC,0 HRC012DK 05041490
HRC012DK: CCW 02,DB12,CC,0 HRC012DK 05041560
HRC012DK: CCW 02,DB13,CC,0 HRC012DK 05041630
HRC012DK: CCW 02,DB14,CC,0 HRC012DK 05041700
HRC012DK: CCW 02,DB15,CC,0 HRC012DK 05041770
HRC012DK: CCW 02,DB16,CC,0 HRC012DK 05041840
HRC012DK: ./ R 05086100 $ 5086110 10 02/08/06 17:26:13
HRC012DK: SNSE4CCW CCW E4,SENSE,SILI,L7 E4 SENSE ID CCW HRC012DK 05086110
HRC012DK: E4 EQU X'E4' HRC012DK 05086120
HRC012DK: SENSECCW CCW 04,SENSE,SILI+CC,24 HRC012DK 05086130
HRC012DK: ./ I 05093000 $ 5093070 70 02/08/06 17:26:13
HRC012DK: CCW 01,DB5,CC+SILI,0 HRC012DK 05093070
HRC012DK: CCW 01,DB6,CC+SILI,0 HRC012DK 05093140
HRC012DK: CCW 01,DB7,CC+SILI,0 HRC012DK 05093210
HRC012DK: CCW 01,DB8,CC+SILI,0 HRC012DK 05093280
HRC012DK: CCW 01,DB9,CC+SILI,0 HRC012DK 05093350
HRC012DK: CCW 01,DB10,CC+SILI,0 HRC012DK 05093420
HRC012DK: CCW 01,DB11,CC+SILI,0 HRC012DK 05093490
HRC012DK: CCW 01,DB12,CC+SILI,0 HRC012DK 05093560
HRC012DK: CCW 01,DB13,CC+SILI,0 HRC012DK 05093630
HRC012DK: CCW 01,DB14,CC+SILI,0 HRC012DK 05093700
HRC012DK: CCW 01,DB15,CC+SILI,0 HRC012DK 05093770
HRC012DK: CCW 01,DB16,CC+SILI,0 HRC012DK 05093840
HRC012DK: ./ I 05328000 $ 5328070 70 02/08/06 17:26:13
HRC012DK: DB5 DS 4096X DATA BUFFER 5 HRC012DK 05328070
HRC012DK: DB6 DS 4096X DATA BUFFER 6 HRC012DK 05328140
HRC012DK: DB7 DS 4096X DATA BUFFER 7 HRC012DK 05328210
HRC012DK: DB8 DS 4096X DATA BUFFER 8 HRC012DK 05328280
HRC012DK: DB9 DS 4096X DATA BUFFER 9 HRC012DK 05328350
HRC012DK: DB10 DS 4096X DATA BUFFER 10 HRC012DK 05328420
HRC012DK: DB11 DS 4096X DATA BUFFER 11 HRC012DK 05328490
HRC012DK: DB12 DS 4096X DATA BUFFER 12 HRC012DK 05328560
HRC012DK: DB13 DS 4096X DATA BUFFER 13 HRC012DK 05328630
HRC012DK: DB14 DS 4096X DATA BUFFER 14 HRC012DK 05328700
HRC012DK: DB15 DS 4096X DATA BUFFER 15 HRC012DK 05328770
HRC012DK: DB16 DS 4096X DATA BUFFER 16 HRC012DK 05328840
HRC012DK: ./ D 05360000 05369000 02/08/06 17:26:13
HRC012DK: ./ I 05370000 $ 5370090 90 02/08/06 17:26:13
HRC012DK: L1 EQU 1 HRC012DK
HRC012DK: L2 EQU 2 HRC012DK
HRC012DK: L4 EQU 4 HRC012DK
HRC012DK: L5 EQU 5 HRC012DK
HRC012DK: L7 EQU 7 HRC012DK
HRC012DK: L8 EQU 8 HRC012DK
HRC012DK: L10 EQU 10 HRC012DK
HRC012DK: L16 EQU 16 HRC012DK
HRC012DK: D2 EQU 2 HRC012DK
HRC012DK: D5 EQU 5 HRC012DK
BEGIN APPLY >>> ./ R 00112000 $ 112490 490 02/08/06 17:26:13
END APPLY >>> ./ R 00112000 $ 112490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 00156000 $ 156500 500 02/08/06 17:26:13
END APPLY >>> ./ I 00156000 $ 156500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 00789000 $ 789500 500 02/08/06 17:26:13
END APPLY >>> ./ I 00789000 $ 789500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 00799100 $ 801100 2000 02/08/06 17:26:13
END APPLY >>> ./ I 00799100 $ 801100 2000 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 00804000 $ 804200 200 02/08/06 17:26:13
END APPLY >>> ./ I 00804000 $ 804200 200 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 00842000 $ 842190 190 02/08/06 17:26:13
END APPLY >>> ./ R 00842000 $ 842190 190 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01010000 $ 1010500 500 02/08/06 17:26:13
END APPLY >>> ./ I 01010000 $ 1010500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01063000 $ 1063060 60 02/08/06 17:26:13
END APPLY >>> ./ I 01063000 $ 1063060 60 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01065000 $ 1065490 490 02/08/06 17:26:13
END APPLY >>> ./ R 01065000 $ 1065490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01071000 $ 1071500 500 02/08/06 17:26:13
END APPLY >>> ./ I 01071000 $ 1071500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01073000 $ 1073010 10 02/08/06 17:26:13
END APPLY >>> ./ I 01073000 $ 1073010 10 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01170000 $ 1170300 300 02/08/06 17:26:13
END APPLY >>> ./ I 01170000 $ 1170300 300 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01173000 $ 1173080 80 02/08/06 17:26:13
END APPLY >>> ./ R 01173000 $ 1173080 80 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01174000 $ 1174300 300 02/08/06 17:26:13
END APPLY >>> ./ I 01174000 $ 1174300 300 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01180000 01183000 $ 1181990 1990 02/08/06 17:26:13
END APPLY >>> ./ R 01180000 01183000 $ 1181990 1990 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01184000 $ 1184090 90 02/08/06 17:26:13
END APPLY >>> ./ I 01184000 $ 1184090 90 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01214000 $ 1214200 200 02/08/06 17:26:13
END APPLY >>> ./ I 01214000 $ 1214200 200 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 01321000 $ 1321300 300 02/08/06 17:26:13
END APPLY >>> ./ I 01321000 $ 1321300 300 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01325000 $ 1325290 290 02/08/06 17:26:13
END APPLY >>> ./ R 01325000 $ 1325290 290 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01340000 $ 1340090 90 02/08/06 17:26:13
END APPLY >>> ./ R 01340000 $ 1340090 90 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01359000 $ 1359090 90 02/08/06 17:26:13
END APPLY >>> ./ R 01359000 $ 1359090 90 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 01378000 $ 1378090 90 02/08/06 17:26:13
END APPLY >>> ./ R 01378000 $ 1378090 90 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02084000 $ 2084500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02084000 $ 2084500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02088000 $ 2088500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02088000 $ 2088500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02118000 $ 2118490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02118000 $ 2118490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02121000 $ 2121490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02121000 $ 2121490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02123000 $ 2123090 90 02/08/06 17:26:13
END APPLY >>> ./ R 02123000 $ 2123090 90 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02124000 $ 2124500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02124000 $ 2124500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02128000 $ 2128100 100 02/08/06 17:26:13
END APPLY >>> ./ I 02128000 $ 2128100 100 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02136000 $ 2136500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02136000 $ 2136500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02148000 $ 2148500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02148000 $ 2148500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02153000 $ 2153490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02153000 $ 2153490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02288000 $ 2288490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02288000 $ 2288490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02303000 $ 2303490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02303000 $ 2303490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02309000 $ 2309490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02309000 $ 2309490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02344000 $ 2344490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02344000 $ 2344490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02366000 $ 2366490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02366000 $ 2366490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02436000 $ 2436490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02436000 $ 2436490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02456000 $ 2456490 490 02/08/06 17:26:13
END APPLY >>> ./ R 02456000 $ 2456490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 02847000 $ 2847190 190 02/08/06 17:26:13
END APPLY >>> ./ R 02847000 $ 2847190 190 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 02848000 $ 2848500 500 02/08/06 17:26:13
END APPLY >>> ./ I 02848000 $ 2848500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 03031000 $ 3031300 300 02/08/06 17:26:13
END APPLY >>> ./ I 03031000 $ 3031300 300 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 03034000 $ 3034500 500 02/08/06 17:26:13
END APPLY >>> ./ I 03034000 $ 3034500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 03093000 $ 3093490 490 02/08/06 17:26:13
END APPLY >>> ./ R 03093000 $ 3093490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 03211000 $ 3211490 490 02/08/06 17:26:13
END APPLY >>> ./ R 03211000 $ 3211490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 03300000 $ 3300490 490 02/08/06 17:26:13
END APPLY >>> ./ R 03300000 $ 3300490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 04469000 $ 4469490 490 02/08/06 17:26:13
END APPLY >>> ./ R 04469000 $ 4469490 490 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 04482000 04502000 $ 4482290 290 02/08/06 17:26:13
END APPLY >>> ./ R 04482000 04502000 $ 4482290 290 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04647000 $ 4647200 200 02/08/06 17:26:13
END APPLY >>> ./ I 04647000 $ 4647200 200 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04687000 $ 4687005 5 02/08/06 17:26:13
END APPLY >>> ./ I 04687000 $ 4687005 5 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04691000 $ 4691500 500 02/08/06 17:26:13
END APPLY >>> ./ I 04691000 $ 4691500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04700000 $ 4700100 100 02/08/06 17:26:13
END APPLY >>> ./ I 04700000 $ 4700100 100 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 04702000 $ 4702290 290 02/08/06 17:26:13
END APPLY >>> ./ R 04702000 $ 4702290 290 02/08/06 17:26:13
BEGIN APPLY >>> ./ D 04711000 04712000 02/08/06 17:26:13
END APPLY >>> ./ D 04711000 04712000 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04835000 $ 4835040 40 02/08/06 17:26:13
END APPLY >>> ./ I 04835000 $ 4835040 40 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04942000 $ 4942100 100 02/08/06 17:26:13
END APPLY >>> ./ I 04942000 $ 4942100 100 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 04947000 $ 4947500 500 02/08/06 17:26:13
END APPLY >>> ./ I 04947000 $ 4947500 500 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 05001000 05003000 $ 5001390 390 02/08/06 17:26:13
END APPLY >>> ./ R 05001000 05003000 $ 5001390 390 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 05041000 $ 5041070 70 02/08/06 17:26:13
END APPLY >>> ./ I 05041000 $ 5041070 70 02/08/06 17:26:13
BEGIN APPLY >>> ./ R 05086100 $ 5086110 10 02/08/06 17:26:13
END APPLY >>> ./ R 05086100 $ 5086110 10 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 05093000 $ 5093070 70 02/08/06 17:26:13
END APPLY >>> ./ I 05093000 $ 5093070 70 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 05328000 $ 5328070 70 02/08/06 17:26:13
END APPLY >>> ./ I 05328000 $ 5328070 70 02/08/06 17:26:13
BEGIN APPLY >>> ./ D 05360000 05369000 02/08/06 17:26:13
END APPLY >>> ./ D 05360000 05369000 02/08/06 17:26:13
BEGIN APPLY >>> ./ I 05370000 $ 5370090 90 02/08/06 17:26:13
END APPLY >>> ./ I 05370000 $ 5370090 90 02/08/06 17:26:13
Update Succeeded
Update Execution Time 539 milliseconds.
ibm/vm370-lib/cp/dmkddr.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator