• Abstract / Synopsis of DMKCQY
• Latest Source of DMKCQY
• Fixes Applied : 5
• Latest Source Date : Wednesday, December 13, 1978
• Last Fix ID : [HRC108DK]

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

1. R10073DK 604 ECPS/AP SUPPORT 3031/3041 REL 6
2. HRC029DK V01 UPDATE TO SUPPORT 24 PFS AND LARGER LOGO
3. HRC065DK V01 Logical Device Support Facility
4. HRC107DK H40 add Query USER ID
5. HRC108DK H40 Implement SYSID

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.

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.

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.

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.

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.