Table of Contents

DMKMID History

References

Update History

CMS File Input : DMKMID ASSEMBLE
Date : 12/7/1978 5:10:00 PM
VM Context : MAINT(394)
File Name : DMKMID.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:47 AM
Created : 1/16/2021 7:31:47 AM

Update Order

  1. R09181DK 606 DMKMID UPDATE OF TODATE AND DATE IN ABSOLUTE ZERO PSA
  2. R15404DK 629 UV06293 CHANGE DMKMID TO CALL DMKQCNWT WITH NOTRESP OPTION
  3. HRC019DK V01 IMPLEMENT EXTENDED HRC QUERY FUNCTIONS

R09181DK

Date Friday Nov 02, 1979 10:29:00 AM
Loaded from MAINT(294)
       R09181DK: ./ I 120020 $ 120030 20                                                 00002000
       R09181DK:          L     R14,PREFIXA    GET PREFIX ADDRESS  OF THIS PROC @VA09181 00003000
       R09181DK:          MVC   TODATE-PSA(,R14),TODATE NEW MIDNIGHT CONSTANT   @VA09181 00004000
       R09181DK: *                             INTO ABSOLUTE PSA                         00005000
       R09181DK: ./ I 189000 $ 189025 50                                                 00006000
       R09181DK:          L     R14,PREFIXA    GET PREFIX ADDRESS OF THIS PROC  @VA09181 00007000
       R09181DK:          MVC   DATE-PSA(,R14),DATE NEW DATE INTO ABSOLUTE PSA  @VA09181 00008000
 BEGIN APPLY >>> ./ I 120020 $ 120030 20                                                 00002000
   END APPLY >>> ./ I 120020 $ 120030 20                                                 00002000
 BEGIN APPLY >>> ./ I 189000 $ 189025 50                                                 00006000
   END APPLY >>> ./ I 189000 $ 189025 50                                                 00006000
Update Succeeded
Update Execution Time 16 milliseconds.

R15404DK

Date Thursday Apr 01, 1982 02:48:00 PM
Loaded from MAINT(294)
       R15404DK: ./ R 248000 $ 248100 100                                                00001000
       R15404DK:          L     R2,OPTIONS     SET UP OPTION PARMS FOR DMKQCNWT @VA15404 00002000
       R15404DK:          CALL  DMKQCNWT       SEND MESSAGE                     @VA15404 00003000
       R15404DK: ./ I 288000 $ 288100 100                                                00004000
       R15404DK: OPTIONS  DC    A(ALARM+NORET+NOTRESP) MASK FOR MIDNIGHT MSG    @VA15404 00005000
       R15404DK: *                             PASSED ONTO DMKQCNWT             @VA15404 00006000
 BEGIN APPLY >>> ./ R 248000 $ 248100 100                                                00001000
   END APPLY >>> ./ R 248000 $ 248100 100                                                00001000
 BEGIN APPLY >>> ./ I 288000 $ 288100 100                                                00004000
   END APPLY >>> ./ I 288000 $ 288100 100                                                00004000
Update Succeeded
Update Execution Time 8 milliseconds.

HRC019DK

Date Tuesday Jan 01, 2013 05:53:00 PM
Loaded from MAINT(094)
       HRC019DK: ./ I 00045000
       HRC019DK: *        DMKSYSMU - TO RESET MAXIMUM NUMBER OF USERS                    00045100
       HRC019DK: *        DMKSYSNM - USED TO RESET DMKSYSMU                              00045200
       HRC019DK: ./ I 00097000
       HRC019DK: *        7A.RESET DMKSYSMU (MAXIMUM NUMBER OF USERS THAT HAVE           00097100
       HRC019DK: *           LOGGED ON THE SYSTEM) SO THE RESPONSE TO "QUERY             00097200
       HRC019DK: *           CPSYS" WILL BE MORE MEANINGFUL. (DMKSYSMU IS SET TO         00097300
       HRC019DK: *           THE CURRENT NUMBER OF USER'S LOGGED ON THE SYSTEM,          00097400
       HRC019DK: *           DMKSYSNM).                                                  00097500
       HRC019DK: *                                                                       00097600
       HRC019DK: ./ I 00107101
       HRC019DK:          EXTRN DMKSYSMU                                        HRC019DK 00107201
       HRC019DK:          EXTRN DMKSYSNM                                        HRC019DK 00107301
       HRC019DK: ./ I 00211000
       HRC019DK:          L     R1,=A(DMKSYSNM)     POINTER TO CURRENT USER CNT HRC019DK 00211001
       HRC019DK:          L     R1,0(,R1)           GET THE ACTUAL COUNT        HRC019DK 00211002
       HRC019DK:          L     R2,=A(DMKSYSMU)     POINTER TO MAX USER COUNTER HRC019DK 00211003
       HRC019DK:          ST    R1,0(,R2)           SET MAX TO CURRENT          HRC019DK 00211004
 BEGIN APPLY >>> ./ I 00045000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 00045000
 BEGIN APPLY >>> ./ I 00097000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 00097000
 BEGIN APPLY >>> ./ I 00107101
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 00107101
 BEGIN APPLY >>> ./ I 00211000
  ***WARNING***  >>>  Automatic Resequencing Suppressed
   END APPLY >>> ./ I 00211000
Update Succeeded
Update Execution Time 16 milliseconds.