• Abstract / Synopsis of DMKCQH
• Latest Source of DMKCQH
• Fixes Applied : 3
• Latest Source Date : Thursday, December 14, 1978
• Last Fix ID : [R13360DK]

CMS File Input : DMKCQH ASSEMBLE
Date : 12/14/1978 9:08:00 AM
VM Context : MAINT(394)
File Name : DMKCQH.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

1. R09331DK 601 POSSIBLE PROGRAM CHECKS ON 'Q PRT TBL'
2. R12778DK 619 UV03818 EXTRA CARRIAGE RETURNS ON D/T3215 FROM QUERY CMD
3. R13360DK 622 UV04596 CALL DMKCQH DIRECTLY FOR Q RDR, PRT, PU

Date Monday Feb 05, 1979 10:56:00 AM
Loaded from MAINT(294)

       R09331DK: ./ I 456000 $ 456100 100
       R09331DK:          OI    SFBFLAG,SFBINUSE    CURRENTLY IN USE            @VA09331
       R09331DK: ./ I 479000 $ 479100 100
       R09331DK:          NI    SFBFLAG,X'FF'-SFBINUSE  NOT IN USE ANYMORE      @VA09331
 BEGIN APPLY >>> ./ I 456000 $ 456100 100
   END APPLY >>> ./ I 456000 $ 456100 100
 BEGIN APPLY >>> ./ I 479000 $ 479100 100
   END APPLY >>> ./ I 479000 $ 479100 100
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Feb 19, 1981 03:10:00 PM
Loaded from MAINT(294)

       R12778DK: ./ I 423000 $ 423100 100                                                00001000
       R12778DK:          MVI   0(R9),X'40'    SET BYTE ZERO TO A BLANK         @VA12778 00002000
       R12778DK:          MVC   1(119,R9),0(R9)  SET BUFFER AREA TO BLANKS      @VA12778 00003000
 BEGIN APPLY >>> ./ I 423000 $ 423100 100                                                00001000
   END APPLY >>> ./ I 423000 $ 423100 100                                                00001000
Update Succeeded
Update Execution Time 8 milliseconds.

Date Wednesday Jun 24, 1981 06:05:00 AM
Loaded from MAINT(294)

       R13360DK: ./ R 17000 19000 $ 17000 1000                                           00001000
       R13360DK: *        DMKCQHQU - TO PROCESS THE 'QUERY RDR' COMMAND                  00002000
       R13360DK: *                 - TO PROCESS THE 'QUERY PRT' COMMAND                  00003000
       R13360DK: *                 - TO PROCESS THE 'QUERY PCH' COMMAND                  00004000
       R13360DK: ./ I 22000 $ 22500                                                      00005000
       R13360DK: *        GPR6 - BRANCH TABLE INDEX VALUE                                00006000
       R13360DK: ./ R 35000 36000 $ 35000                                                00007000
       R13360DK: *        NOTE: RETURN IS MADE DIRECTLY TO DMKCFM VIA USE OF SVC 16      00008000
       R13360DK: ./ R 72000 $ 72000 500                                                  00009000
       R13360DK: *        GPR6  - BRANCH INDEX VALUE                                     00010000
       R13360DK: *              - ADDRESS OF RCHBLOK OR VCUBLOK                          00011000
       R13360DK: ./ R 113000 114000 $ 113000 500                                         00012000
       R13360DK: *           OF RETURNING TO THE INVOKER.                                00013000
       R13360DK: *        2. THE PROPER ROUTINE IS ENTERED VIA A BRANCH TABLE.           00014000
       R13360DK: *           REGISTER 6 IS SET UP BY DMKCFMQU TO INDEX TO THE PROPER     00015000
       R13360DK: *           BRANCH INSTRUCTION.                                         00016000
       R13360DK: ./ R 118000 120000 $ 118000                                             00017000
       R13360DK: *        4. READER -                                                    00018000
       R13360DK: ./ R 207000 $ 207000                                                    00019000
       R13360DK:          ENTRY DMKCQHQU                                        @VA13360 00020000
       R13360DK: ./ R 209000 210000 $ 209000 1000                                        00021000
       R13360DK: DMKCQHQU SVC   16             GIVE UP SAVEAREA - USE CFMQU'S   @VA13360 00022000
       R13360DK:          SL    R12,=A(DMKCQHQU-DMKCQH) SET ADDRESSABILITY      @VA13360 00023000
       R13360DK: ./ I 215000 $ 215100 100                                                00024000
       R13360DK:          B     FCNTBL(R6)     BRANCH TO PROPER ROUTINE         @VA13360 00025000
       R13360DK: *                                                                       00026000
       R13360DK: FCNTBL   B     QRYRDR         QUERY RDR                        @VA13360 00027000
       R13360DK:          B     QRYPRT         QUERY PRT                        @VA13360 00028000
       R13360DK:          B     QRYPU          QUERY PU                         @VA13360 00029000
       R13360DK: *                                                                       00030000
       R13360DK: QRYRDR   EQU   *              QUERY READER COMMAND             @VA13360 00031000
       R13360DK: ./ R 220000 227000 $ 220000                                             00032000
       R13360DK: QRYPRT   EQU   *              QUERY PRINTER COMMAND            @VA13360 00033000
       R13360DK: ./ R 232000 239000 $ 232000                                             00034000
       R13360DK: QRYPU    EQU   *              QUERY PUNCH COMMAND              @VA13360 00035000
 BEGIN APPLY >>> ./ R 17000 19000 $ 17000 1000                                           00001000
   END APPLY >>> ./ R 17000 19000 $ 17000 1000                                           00001000
 BEGIN APPLY >>> ./ I 22000 $ 22500                                                      00005000
   END APPLY >>> ./ I 22000 $ 22500                                                      00005000
 BEGIN APPLY >>> ./ R 35000 36000 $ 35000                                                00007000
   END APPLY >>> ./ R 35000 36000 $ 35000                                                00007000
 BEGIN APPLY >>> ./ R 72000 $ 72000 500                                                  00009000
   END APPLY >>> ./ R 72000 $ 72000 500                                                  00009000
 BEGIN APPLY >>> ./ R 113000 114000 $ 113000 500                                         00012000
   END APPLY >>> ./ R 113000 114000 $ 113000 500                                         00012000
 BEGIN APPLY >>> ./ R 118000 120000 $ 118000                                             00017000
   END APPLY >>> ./ R 118000 120000 $ 118000                                             00017000
 BEGIN APPLY >>> ./ R 207000 $ 207000                                                    00019000
   END APPLY >>> ./ R 207000 $ 207000                                                    00019000
 BEGIN APPLY >>> ./ R 209000 210000 $ 209000 1000                                        00021000
   END APPLY >>> ./ R 209000 210000 $ 209000 1000                                        00021000
 BEGIN APPLY >>> ./ I 215000 $ 215100 100                                                00024000
   END APPLY >>> ./ I 215000 $ 215100 100                                                00024000
 BEGIN APPLY >>> ./ R 220000 227000 $ 220000                                             00032000
   END APPLY >>> ./ R 220000 227000 $ 220000                                             00032000
 BEGIN APPLY >>> ./ R 232000 239000 $ 232000                                             00034000
   END APPLY >>> ./ R 232000 239000 $ 232000                                             00034000
Update Succeeded
Update Execution Time 31 milliseconds.