ibm:vm370-lib:cp:dmkcqg.assemble_hst
Table of Contents
DMKCQG History
References
- Fixes Applied : 13
- Latest Source Date : Saturday, December 9, 1978
- Last Fix ID : [HRC065DK]
Update History
CMS File Input : DMKCQG ASSEMBLE
Date : 12/9/1978 4:56:00 AM
VM Context : MAINT(394)
File Name : DMKCQG.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
- R09273DK 601 3800 VSPXBLOK REORGANIZED FOR PERFORMANCE
- R09175DK 602 CP FUNCTION MISSING CHECK ON SECOND ADDRESS OF RANGE IN QUERY V
- R09186DK 608 CORRECT CC AND SENSE FOR A TIO TO A NOTREADY GRAF
- R09683DK 610 COPY SHOWS A CPY WHETHER NEEDED OR NOT
- R09138DK 611 MSDMKCQG022E REPEATED ON RANGE
- R10878DK 611 DMKCQG QUERY OF VIRTUAL UR SPOOLED DEV GIVES INCORROUT DIST
- R10879DK 611 Q V DASD FOR TDISK GIVES VOLSER, SHOULD GIVE (TEMP)
- R09461DK 611 UV00383 DMKCQG MOVES ONE BYTE TOO MUCH
- R10569DK 616 DMKCQG REG8=ZEROES ON CALL TO DMKSCNRD.
- R13360DK 622 UV04596 CALL DMKCQH DIRECTLY FOR Q RDR, PRT, PU
- HRC009DK V01 DISPLAY REAL VOL FOR TDSK DISK RATHER THAN TDSK
- HRC011DK V01 ADD 3380 MDISK/DEDICATED DEVICE SUPPORT
- HRC065DK V01 Logical Device Support Facility
R09273DK
Date Friday Jan 19, 1979 09:14:00 AM
Loaded from MAINT(294)
R09273DK: ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK DMK00010
BEGIN APPLY >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK DMK00010
Comment >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK DMK00010
END APPLY >>> ./ * DUMMY UPDATE FOR REASSEMBLY FOR NEW VSPXBLOK DMK00010
Update Succeeded
Update Execution Time 8 milliseconds.
R09175DK
Date Monday Apr 02, 1979 03:30:00 AM
Loaded from MAINT(294)
R09175DK: ./ I 337200 $ 337203 3 00001000
R09175DK: CL R2,F3 MORE THAN THREE CHARACTERS @VA09175 00002000
R09175DK: BH QRYUSER NOT A VALID ADDRESS @VA09175 00003000
BEGIN APPLY >>> ./ I 337200 $ 337203 3 00001000
END APPLY >>> ./ I 337200 $ 337203 3 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R09186DK
Date Tuesday Jan 08, 1980 06:22:00 AM
Loaded from MAINT(294)
R09186DK: ./ D 673000 674000 $ 00001000 BEGIN APPLY >>> ./ D 673000 674000 $ 00001000 END APPLY >>> ./ D 673000 674000 $ 00001000 Update Succeeded Update Execution Time 16 milliseconds.
R09683DK
Date Thursday Mar 06, 1980 10:11:00 AM
Loaded from MAINT(294)
R09683DK: ./ R 00561000 $ 00561010 00001000
R09683DK: MVC DATAREC+29(4),=C'COPY' MOVE IN LITERAL @VA09683 00002000
R09683DK: ./ R 00561500 $ 00561510 00003000
R09683DK: MVC DATAREC+29(5),=C'CPY *' SQUEEZE IN INLINE DUP@VA09683 00004000
BEGIN APPLY >>> ./ R 00561000 $ 00561010 00001000
END APPLY >>> ./ R 00561000 $ 00561010 00001000
BEGIN APPLY >>> ./ R 00561500 $ 00561510 00003000
END APPLY >>> ./ R 00561500 $ 00561510 00003000
Update Succeeded
Update Execution Time 16 milliseconds.
R09138DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R09138DK: ./ I 992440 $ 992445 5 00001000
R09138DK: L R1,SAVER2 RESTORE ERROR CODE @VA09138 00002000
R09138DK: C R1,=F'22' IS IT A '022E'? @VA09138 00003000
R09138DK: BE QRYVFRET YES,GET OUT @VA09138 00004000
BEGIN APPLY >>> ./ I 992440 $ 992445 5 00001000
END APPLY >>> ./ I 992440 $ 992445 5 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10878DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R10878DK: ./ R 581000 $ 581010 10 00001000
R10878DK: MVC DATAREC+27(8),VSPXDIST-VSPXBLOK(R1) MOVE IN @VA10878 00002000
R10878DK: * DIST CODE 00003000
BEGIN APPLY >>> ./ R 581000 $ 581010 10 00001000
END APPLY >>> ./ R 581000 $ 581010 10 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R10879DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R10879DK: ./ R 618000 621000 $ 618100 100 00001000
R10879DK: QRYVMINI LH R1,VDEVBND SIZE OF MINIDISK(CYL) @VA10879 00002000
R10879DK: ./ I 623000 $ 623100 100 00003000
R10879DK: MVC DATAREC+14(6),=C'(TEMP)' @VA10879 00004000
R10879DK: TM VDEVFLAG,VDEVTDSK MINI-DISK? @VA10879 00005000
R10879DK: BO CHKWRT1 @VA10879 00006000
R10879DK: ./ I 627000 $ 627100 00007000
R10879DK: CHKWRT1 EQU * @VA10879 00008000
BEGIN APPLY >>> ./ R 618000 621000 $ 618100 100 00001000
END APPLY >>> ./ R 618000 621000 $ 618100 100 00001000
BEGIN APPLY >>> ./ I 623000 $ 623100 100 00003000
END APPLY >>> ./ I 623000 $ 623100 100 00003000
BEGIN APPLY >>> ./ I 627000 $ 627100 00007000
END APPLY >>> ./ I 627000 $ 627100 00007000
Update Succeeded
Update Execution Time 16 milliseconds.
R09461DK
Date Wednesday Apr 02, 1980 04:01:00 AM
Loaded from MAINT(294)
R09461DK: ./ R 661000 $ 661100 00001000
R09461DK: USERDISC MVC DATAREC+9(12),=C'DISCONNECTED' @VA09461 00002000
BEGIN APPLY >>> ./ R 661000 $ 661100 00001000
END APPLY >>> ./ R 661000 $ 661100 00001000
Update Succeeded
Update Execution Time 8 milliseconds.
R10569DK
Date Monday Sep 08, 1980 06:25:00 AM
Loaded from MAINT(294)
R10569DK: ./ R 363000 $ 363300 300 00001000
R10569DK: ICM R8,B'1111',VMTERM IS THERE ANYTHING? @VA10569 00002000
R10569DK: BZ QRYUDSC NO...BRANCH. @VA10569 00003000
BEGIN APPLY >>> ./ R 363000 $ 363300 300 00001000
END APPLY >>> ./ R 363000 $ 363300 300 00001000
Update Succeeded
Update Execution Time 16 milliseconds.
R13360DK
Date Wednesday Jun 24, 1981 06:05:00 AM
Loaded from MAINT(294)
R13360DK: ./ D 12000 $ 00001000
R13360DK: ./ D 54300 54700 $ 00002000
R13360DK: ./ R 88000 93000 $ 88000 3000 00003000
R13360DK: * | QUERY | VIRTUAL DASD | 00004000
R13360DK: * | Q | TAPES | 00005000
R13360DK: ./ D 116000 124000 $ 00006000
R13360DK: ./ R 160000 161000 $ 160000 00007000
R13360DK: * 12. STEP 12 DELETED, MOVED TO CQH 00008000
R13360DK: ./ D 243000 $ 00009000
R13360DK: ./ D 267550 $ 00010000
R13360DK: ./ R 290000 292000 $ 290000 1000 00011000
R13360DK: B QRYEXIT RESERVED @VA13360 00012000
R13360DK: B QRYEXIT RESERVED @VA13360 00013000
R13360DK: B QRYEXIT RESERVED @VA13360 00014000
R13360DK: ./ D 308070 308910 $ 00015000
R13360DK: ./ R 766000 773000 $ 766000 800 00016000
R13360DK: * EQU X'80' RESERVED 00017000
R13360DK: * EQU X'40' RESERVED 00018000
R13360DK: * EQU X'20' RESERVED 00019000
R13360DK: * EQU X'10' RESERVED 00020000
R13360DK: * EQU X'08' RESERVED 00021000
R13360DK: * EQU X'04' RESERVED 00022000
R13360DK: * EQU X'02' RESERVED 00023000
R13360DK: * EQU X'01' RESERVED 00024000
R13360DK: ./ R 773450 $ 773450 00025000
R13360DK: * EQU X'20' RESERVED 00026000
BEGIN APPLY >>> ./ D 12000 $ 00001000
END APPLY >>> ./ D 12000 $ 00001000
BEGIN APPLY >>> ./ D 54300 54700 $ 00002000
END APPLY >>> ./ D 54300 54700 $ 00002000
BEGIN APPLY >>> ./ R 88000 93000 $ 88000 3000 00003000
END APPLY >>> ./ R 88000 93000 $ 88000 3000 00003000
BEGIN APPLY >>> ./ D 116000 124000 $ 00006000
END APPLY >>> ./ D 116000 124000 $ 00006000
BEGIN APPLY >>> ./ R 160000 161000 $ 160000 00007000
END APPLY >>> ./ R 160000 161000 $ 160000 00007000
BEGIN APPLY >>> ./ D 243000 $ 00009000
END APPLY >>> ./ D 243000 $ 00009000
BEGIN APPLY >>> ./ D 267550 $ 00010000
END APPLY >>> ./ D 267550 $ 00010000
BEGIN APPLY >>> ./ R 290000 292000 $ 290000 1000 00011000
END APPLY >>> ./ R 290000 292000 $ 290000 1000 00011000
BEGIN APPLY >>> ./ D 308070 308910 $ 00015000
END APPLY >>> ./ D 308070 308910 $ 00015000
BEGIN APPLY >>> ./ R 766000 773000 $ 766000 800 00016000
END APPLY >>> ./ R 766000 773000 $ 766000 800 00016000
BEGIN APPLY >>> ./ R 773450 $ 773450 00025000
END APPLY >>> ./ R 773450 $ 773450 00025000
Update Succeeded
Update Execution Time 31 milliseconds.
HRC009DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC009DK: ./ R 0623300 $ 0623301 1
HRC009DK: CNOP 0,4
BEGIN APPLY >>> ./ R 0623300 $ 0623301 1
END APPLY >>> ./ R 0623300 $ 0623301 1
Update Succeeded
Update Execution Time 23 milliseconds.
HRC011DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC011DK: ./ I 00596000 $ 596200 200 01/28/06 10:02:14
HRC011DK: MVC DATAREC+9(4),=C'3380' HRC011DK 00596200
HRC011DK: CLI VDEVTYPE,TYP3380 IS IT A 3380 ? HRC011DK 00596400
HRC011DK: BE QRYVMINI IF YES BRANCH HRC011DK 00596600
HRC011DK: ./ R 00623000 $ 623040 40 01/28/06 10:02:14
HRC011DK: STCM R1,15,DATAREC+25 HRC011DK 00623040
HRC011DK: ./ R 00629000 00630000 $ 629590 590 01/28/06 10:02:14
HRC011DK: MVC DATAREC+30(3),=C'CYL' HRC011DK 00629490
HRC011DK: LA R0,33 GET LNG LEN. HRC011DK 00630000
BEGIN APPLY >>> ./ I 00596000 $ 596200 200 01/28/06 10:02:14
END APPLY >>> ./ I 00596000 $ 596200 200 01/28/06 10:02:14
BEGIN APPLY >>> ./ R 00623000 $ 623040 40 01/28/06 10:02:14
END APPLY >>> ./ R 00623000 $ 623040 40 01/28/06 10:02:14
BEGIN APPLY >>> ./ R 00629000 00630000 $ 629590 590 01/28/06 10:02:14
END APPLY >>> ./ R 00629000 00630000 $ 629590 590 01/28/06 10:02:14
Update Succeeded
Update Execution Time 16 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00369000 $ 00369100 100
HRC065DK: TM RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BO QRYLDEV Yes HRC065DK
HRC065DK: ./ I 00374000 $ 00374100 100
HRC065DK: QRYLDEV EQU * HRC065DK
HRC065DK: LH R1,RDEVADD-RDEVBLOK(,R8) Get the LDEV address HRC065DK
HRC065DK: N R1,F4095 Keep only the dev num HRC065DK
HRC065DK: CALL DMKCVTBH Make it displayable HRC065DK
HRC065DK: STCM R1,7,SAVEWRK4+3 Put dev addr in message HRC065DK
HRC065DK: MVI SAVEWRK4+2,C'L' Move in LDEV indicator HRC065DK
HRC065DK: B QRYUDSC Go display msg HRC065DK
HRC065DK: *
HRC065DK: ./ I 00693000 $ 00693020 020
HRC065DK: TM RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BZ LDEV010 No HRC065DK
HRC065DK: LH R1,RDEVADD-RDEVBLOK(,R8) Get the LDEV address HRC065DK
HRC065DK: N R1,F4095 Keep only the dev num HRC065DK
HRC065DK: CALL DMKCVTBH Make it displayable HRC065DK
HRC065DK: STCM R1,7,DATAREC+18 Put dev addr in message HRC065DK
HRC065DK: MVI DATAREC+17,C'L' Move in LDEV indicator HRC065DK
HRC065DK: B LDEV020 Go display msg HRC065DK
HRC065DK: *
HRC065DK: LDEV010 EQU * HRC065DK
HRC065DK: ./ I 00696000 $ 00696100 100
HRC065DK: *
HRC065DK: LDEV020 EQU * HRC065DK
BEGIN APPLY >>> ./ I 00369000 $ 00369100 100
END APPLY >>> ./ I 00369000 $ 00369100 100
BEGIN APPLY >>> ./ I 00374000 $ 00374100 100
END APPLY >>> ./ I 00374000 $ 00374100 100
BEGIN APPLY >>> ./ I 00693000 $ 00693020 020
END APPLY >>> ./ I 00693000 $ 00693020 020
BEGIN APPLY >>> ./ I 00696000 $ 00696100 100
END APPLY >>> ./ I 00696000 $ 00696100 100
Update Succeeded
Update Execution Time 23 milliseconds.
ibm/vm370-lib/cp/dmkcqg.assemble_hst.txt · Last modified: 2023/08/06 13:36 by Site Administrator