DMKCQY History
References
-
-
Fixes Applied : 5
-
Last Fix ID : [HRC108DK]
Update History
CMS File Input : DMKCQY ASSEMBLE
Date : 12/13/1978 4:55:00 PM
VM Context : MAINT(394)
File Name : DMKCQY.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM
Update Order
R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
HRC065DK V01 Logical Device Support Facility
HRC107DK H40 add Query USER ID
HRC108DK H40 Implement SYSID
R10073DK
Date Thursday Jul 05, 1979 04:08:00 PM
Loaded from MAINT(294)
R10073DK: ./ R 558000 $ 558100 100
R10073DK: * CPASSIST ON|OFF (PROC XX ON|OFF PROC YY)
R10073DK: ./ R 566000 $ 566100 100
R10073DK: CPAMSGOK EQU * @V5DAACD
R10073DK: TM APSTAT1,APUOPER DO WE HAVE ANOTHER PROCESSOR? @V5DAACD
R10073DK: BO CPAAP YES --- @V5DAACD
R10073DK: LA R0,12 NO MSG LNG OF 12 @V5DAACD
R10073DK: CPAMSG EQU * @V5DAACD
R10073DK: ./ I 568000 $ 568020 020
R10073DK: CPAAP EQU * CHECK BOTH PROCESSORS @V5DAACD
R10073DK: MVC SAVEWRK5(19),=C' PROC ON PROC ' @V5DAACD
R10073DK: LH R1,IPUADDR GET OUR PROC ADDRESS @V5DAACD
R10073DK: CALL DMKCVTBD @V5DAACD
R10073DK: STCM R1,B'0011',SAVEWRK6+2 @V5DAACD
R10073DK: LH R1,IPUADDRX GET THE OTHER PROC ADDR. @V5DAACD
R10073DK: CALL DMKCVTBD @V5DAACD
R10073DK: STCM R1,B'0011',SAVEWRK9+2 @V5DAACD
R10073DK: L R1,PREFIXB CHECK FOR ON/OFF OF OTHER PROC. @V5DAACD
R10073DK: TM CPSTAT2-PSA(R1),CPASTON @V5DAACD
R10073DK: BO CPALN YES ITS ON @V5DAACD
R10073DK: MVC SAVEWRK7+1(3),=C'OFF' @V5DAACD
R10073DK: CPALN EQU * @V5DAACD
R10073DK: LA R0,32 SET MSG LNG TO 32 @V5DAACD
R10073DK: B CPAMSG AND GO ISSUE MSG. @V5DAACD
BEGIN APPLY >>> ./ R 558000 $ 558100 100
END APPLY >>> ./ R 558000 $ 558100 100
BEGIN APPLY >>> ./ R 566000 $ 566100 100
END APPLY >>> ./ R 566000 $ 566100 100
BEGIN APPLY >>> ./ I 568000 $ 568020 020
END APPLY >>> ./ I 568000 $ 568020 020
Update Succeeded
Update Execution Time 16 milliseconds.
HRC029DK
Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
HRC029DK: ./ R 00382000 $ 382490 490 02/13/06 16:16:05
HRC029DK: * 5. REPEAT FOR ALL 24 PF IF ALL REQUEST HRC029DK 00382000
HRC029DK: ./ R 00402000 $ 402490 490 02/13/06 16:16:05
HRC029DK: PFREE LA R0,36 SIZE FOR BUFFER HRC029DK 00402000
HRC029DK: ./ R 00448000 $ 448490 490 02/13/06 16:16:05
HRC029DK: CH R8,=H'24' ALL DONE NOW ?? HRC029DK 00448000
HRC029DK: ./ R 00458000 $ 458490 490 02/13/06 16:16:05
HRC029DK: LA R0,36 SIZE HRC029DK 00458000
BEGIN APPLY >>> ./ R 00382000 $ 382490 490 02/13/06 16:16:05
END APPLY >>> ./ R 00382000 $ 382490 490 02/13/06 16:16:05
BEGIN APPLY >>> ./ R 00402000 $ 402490 490 02/13/06 16:16:05
END APPLY >>> ./ R 00402000 $ 402490 490 02/13/06 16:16:05
BEGIN APPLY >>> ./ R 00448000 $ 448490 490 02/13/06 16:16:05
END APPLY >>> ./ R 00448000 $ 448490 490 02/13/06 16:16:05
BEGIN APPLY >>> ./ R 00458000 $ 458490 490 02/13/06 16:16:05
END APPLY >>> ./ R 00458000 $ 458490 490 02/13/06 16:16:05
Update Succeeded
Update Execution Time 23 milliseconds.
HRC065DK
Date Friday May 19, 2017 07:03:00 PM
Loaded from MAINT(094)
HRC065DK: ./ I 00220000 $ 00220100 100
HRC065DK: TM RDEVADD-RDEVBLOK(R8),RDEVLDEV Is this an LDEV? HRC065DK
HRC065DK: BO QRYLDEV Yes HRC065DK
HRC065DK: ./ I 00226000 $ 00226100 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: ST R1,12(,R3) Put dev addr in message HRC065DK
HRC065DK: MVC 10(3,R3),=C' -L' Move in LDEV indicator HRC065DK
HRC065DK: BR R9 Return HRC065DK
HRC065DK: *
BEGIN APPLY >>> ./ I 00220000 $ 00220100 100
END APPLY >>> ./ I 00220000 $ 00220100 100
BEGIN APPLY >>> ./ I 00226000 $ 00226100 100
END APPLY >>> ./ I 00226000 $ 00226100 100
Update Succeeded
Update Execution Time 16 milliseconds.
HRC107DK
Date Thursday Feb 23, 2017 11:13:00 AM
Loaded from MAINT(094)
HRC107DK: ./ I 00124000 $ 124100 100
HRC107DK: B QRYUSRID Q USERID HRC107DK
HRC107DK: ./ I 00622000 $ 622010 10
HRC107DK: *. HRC107DK
HRC107DK: * QUERY USERID HRC107DK
HRC107DK: * HRC107DK
HRC107DK: * Command format HRC107DK
HRC107DK: * HRC107DK
HRC107DK: * +------------------------+ HRC107DK
HRC107DK: * X QUERY X USERID X HRC107DK
HRC107DK: * +-----------+------------+ HRC107DK
HRC107DK: * HRC107DK
HRC107DK: * 1. Format response HRC107DK
HRC107DK: * 2. Write response HRC107DK
HRC107DK: * HRC107DK
HRC107DK: * Response: HRC107DK
HRC107DK: * HRC107DK
HRC107DK: * USERID HRC107DK
HRC107DK: * HRC107DK
HRC107DK: *. HRC107DK
HRC107DK: SPACE
HRC107DK: QRYUSRID EQU * HRC107DK
HRC107DK: LA R0,8 Length of userid HRC107DK
HRC107DK: LA R1,VMUSER Address of username in VMBLOK HRC107DK
HRC107DK: B QRYWRIT Send the response and exit HRC107DK
HRC107DK: SPACE
BEGIN APPLY >>> ./ I 00124000 $ 124100 100
END APPLY >>> ./ I 00124000 $ 124100 100
BEGIN APPLY >>> ./ I 00622000 $ 622010 10
END APPLY >>> ./ I 00622000 $ 622010 10
Update Succeeded
Update Execution Time 16 milliseconds.
HRC108DK
Date Friday Mar 03, 2017 10:29:00 AM
Loaded from MAINT(094)
HRC108DK: ./ I 00094000 $ 0094100 100
HRC108DK: EXTRN DMKSYSID HRC108DK
HRC108DK: ./ R 00622150 $ 00622155 10
HRC108DK: * USERID [AT SYSID] HRC108DK
HRC108DK: ./ R 00622200 00622230 $ 00622201 10
HRC108DK: MVC SAVEWRK2(8),VMUSER Copy userid from VMBLOK HRC108DK
HRC108DK: LA R1,SAVEWRK2 Get address of response HRC108DK
HRC108DK: LA R0,8 Get length of just userid HRC108DK
HRC108DK: L R7,=A(DMKSYSID) Get address of SYSID HRC108DK
HRC108DK: CLC 0(8,R7),=CL8' ' Check for blank SYSID HRC108DK
HRC108DK: BE QRYWRIT Return just userid & exit HRC108DK
HRC108DK: LA R3,1(R1) Start at userid + 1 HRC108DK
HRC108DK: LA R4,1 Specify increment as 1 HRC108DK
HRC108DK: LA R5,7(R1) Finish at userid + 7 HRC108DK
HRC108DK: USRLOOP EQU * HRC108DK
HRC108DK: CLI 0(R3),C' ' Check for short userid HRC108DK
HRC108DK: BE USRIDEND Found short userid? HRC108DK
HRC108DK: BXLE R3,R4,USRLOOP Got to end of userid? HRC108DK
HRC108DK: USRIDEND EQU * HRC108DK
HRC108DK: MVC 0(4,R3),=C' AT ' Copy constant separator in HRC108DK
HRC108DK: MVC 4(8,R3),0(R7) Copy SYSID into response HRC108DK
HRC108DK: SR R3,R1 Get length of userid HRC108DK
HRC108DK: LA R0,12(R3) Add SYSID & const length HRC108DK
HRC108DK: B QRYWRIT Send the response and exit HRC108DK
HRC108DK: SPACE 1 HRC108DK
BEGIN APPLY >>> ./ I 00094000 $ 0094100 100
END APPLY >>> ./ I 00094000 $ 0094100 100
BEGIN APPLY >>> ./ R 00622150 $ 00622155 10
END APPLY >>> ./ R 00622150 $ 00622155 10
BEGIN APPLY >>> ./ R 00622200 00622230 $ 00622201 10
END APPLY >>> ./ R 00622200 00622230 $ 00622201 10
Update Succeeded
Update Execution Time 23 milliseconds.