• Abstract / Synopsis of DMKJRL
• Latest Source of DMKJRL
• Fixes Applied : 2
• Latest Source Date : Tuesday, February 20, 1979
• Last Fix ID : [R13020DK]

CMS File Input : DMKJRL ASSEMBLE
Date : 2/20/1979 12:50:00 PM
VM Context : MAINT(394)
File Name : DMKJRL.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:46 AM
Created : 1/16/2021 7:31:46 AM

1. R11133DK 616 UV00642 UPDATES DATE TIME FIELD IN SUBSEQUENT 04 ACC CARDS
2. R13020DK 621 UV04222 TYPE 06 ACCOUNTING RECORD TERMINAL ADDRESS

Date Tuesday Sep 09, 1980 11:39:00 AM
Loaded from MAINT(294)

       R11133DK: ./ I 795000 $ 795100 50                                                 00001000
       R11133DK:          CLC   PWDINVCT,JPSLOGAR IS THIS THE 1ST CARD TO BE    @VA11133 00002000
       R11133DK: *                             PUNCHED?                                  00003000
       R11133DK:          BE    CARD1          YES ONTO CARD1                   @VA11133 00004000
       R11133DK:          LR    R9,R2          SAVE R2 ACROSS DMKCVTDT          @VA11133 00005000
       R11133DK:          LA    R1,DATEWORK    CATCHES THE DATE FROM DMKCVTDT   @VA11133 00006000
       R11133DK:          LA    R2,TIMEWORK    CATCHES THE TIME FROM DMKCVTDT   @VA11133 00007000
       R11133DK:          CALL  DMKCVTDT       GET DATE AND TIME                @VA11133 00008000
       R11133DK:          LR    R2,R9          RESTORE R2                       @VA11133 00009000
       R11133DK:          MVC   LADATE(L'LADATE+L'LATIME),SLYMASK MOVE IN MASK  @VA11133 00010000
       R11133DK: *                             TO REMOVE : AND /                         00011000
       R11133DK:          TR    LADATE(L'LADATE+L'LATIME),DATEWORK GET DATE IN  @VA11133 00012000
       R11133DK: *                             MMDDYYHHMMSS FORMAT                       00013000
       R11133DK:          B     CARD2                                           @VA11133 00014000
       R11133DK: CARD1    DS    0H                                              @VA11133 00015000
       R11133DK: ./ I 797000 $ 797050                                                    00016000
       R11133DK: CARD2    DS    0H                                              @VA11133 00017000
 BEGIN APPLY >>> ./ I 795000 $ 795100 50                                                 00001000
   END APPLY >>> ./ I 795000 $ 795100 50                                                 00001000
 BEGIN APPLY >>> ./ I 797000 $ 797050                                                    00016000
   END APPLY >>> ./ I 797000 $ 797050                                                    00016000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Jun 03, 1981 05:13:00 AM
Loaded from MAINT(294)

       R13020DK: ./ R 1223000   $  1223100                                               00001000
       R13020DK:          MVC   LCHTRMAA,=C'NONE' INTIALIZE FILE TO CONTAIN     @VA13020 00002000
 BEGIN APPLY >>> ./ R 1223000   $  1223100                                               00001000
   END APPLY >>> ./ R 1223000   $  1223100                                               00001000
Update Succeeded
Update Execution Time 16 milliseconds.