Type ASSEMBLE
Source Lines : 379
Fixes Applied : 3
Most Recent Version : Thursday, December 7, 1978
Last Fix ID : [HRC019DK]

Module

       DMKMID

Function

       TO CHANGE THE DATE IN SYSTEM LOW STORAGE
       AT MIDNITE AND RESET THE CLOCK COMPARATOR FOR
       THE NEXT MIDNITE EVENT.  ALSO SEND MESSAGES TO
       ALL USERS ABOUT THE DATE CHANGE.

Attributes

       RE-ENTERABLE, PAGEABLE, CALLED VIA SVC

Operation

       1. ADJUST THE TIMER EVENT IN THE TRQBLOK FOR NEXT
       MIDNITE AND CALL DMKSCHST TO SET THE EVENT

       2. VALIDATE THE PRESENT DATE ... IT MUST BE IN THE
       FORM -- MM/DD/YY, WITH NO DIGIT LESS THAN 0 OR
       GREATER THAN 9. ISSUE ERROR MSG DMKMID310E IF ERROR

       3. CONVERT MM DD YY TO BINARY FOR ARITHMETIC

       4. ADJUST THE DAY BY ADDING  ONE.
       ADJUST THE MONTH BY ONE IF THE DAY IS OVER THE
       MONTH LIMIT ( CHECK AGAINST THE MTBL).
       ADJUST THE YEAR BY ONE IF THE MONTH GOES TO 13.
       SET THE DAY TO ONE FOR A NEW MONTH.
       SET THE MONTH TO ONE FOR A NEW YEAR.

       5. CONVERT THE MM DD YY TO DECIMAL AND STORE BACK
       IN THE DATE FIELD

       6. SET THE DAY OF THE WEEK FIELD IN DMKSYSDW

       7. SEND A MESSAGE TO ALL USERS ABOUT THE DATE CHANGE

       7A.RESET DMKSYSMU (MAXIMUM NUMBER OF USERS THAT HAVE
          LOGGED ON THE SYSTEM) SO THE RESPONSE TO "QUERY
          CPSYS" WILL BE MORE MEANINGFUL. (DMKSYSMU IS SET TO
          THE CURRENT NUMBER OF USER'S LOGGED ON THE SYSTEM,
          DMKSYSNM).

       8. RETURN TO CALLER ( DMKSCH )

Calls to Other Routines

       DMKERMSG - TO WRITE ERROR MESSAGE
       DMKSCHST - TO SCHEDULE NEXT MIDNITE EVENT
       DMKCVTDT - TO GET NEW DATE AND TIME
       DMKLOKSW - SWITCH TO ANOTHER VMBLOK IF SYSTEM IS AP-MODE