• Abstract / Synopsis of DMKSEP
• Latest Source of DMKSEP
• Fixes Applied : 5
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [HRC108DK]

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

1. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
2. R11473DK 614 UV01400 DMKSEP FAILS TO RESTORE REG0 AFTER ROUTINE BLOKLETR
3. R12975DK 621 UV04435 DMKSEP USES WRITE W/O SPACE INSTEAD BLOCK DATA CK
4. R14226DK 625 UV05585 MSDMKRSE500I ON 1403 W/O UCS AFTER VM12975
5. HRC302DK V04 CREATE INDIVIDUAL PRINT/PUNCH FILES IF HERCULES
6. HRC108DK H40 Implement SYSID (System identification)

Date Thursday Jul 12, 1979 09:53:00 AM
Loaded from MAINT(294)

       R09957DK: ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
 BEGIN APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
     Comment >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
   END APPLY >>> ./ * FORCE RE-ASSEMBLY FOR APAR VM09957
Update Succeeded
Update Execution Time 8 milliseconds.

Date Tuesday Jul 08, 1980 05:30:00 AM
Loaded from MAINT(294)

       R11473DK: ./ R 679000 $ 679100 100                                                00001000
       R11473DK:          LM    R14,R0,SAVEWRK2 RESTOR REGS 14, 15, AND 0       @VA11473 00002000
 BEGIN APPLY >>> ./ R 679000 $ 679100 100                                                00001000
   END APPLY >>> ./ R 679000 $ 679100 100                                                00001000
Update Succeeded
Update Execution Time 8 milliseconds.

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

       R12975DK: ./ R 189000 191000 $ 189000 300                                         00001000
       R12975DK:          MVC   0(8,R1),LOADCK MOVE IN BLOCK DATA CHECK CCW     @VA12975 00002000
       R12975DK: ./ R 870000 $ 870000 1000                                               00003000
       R12975DK: LOADCK   CCW   X'73',*-*,SILI+CC,1 BLOCK DATA CHECK CCW        @VA12975 00004000
 BEGIN APPLY >>> ./ R 189000 191000 $ 189000 300                                         00001000
   END APPLY >>> ./ R 189000 191000 $ 189000 300                                         00001000
 BEGIN APPLY >>> ./ R 870000 $ 870000 1000                                               00003000
   END APPLY >>> ./ R 870000 $ 870000 1000                                               00003000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Wednesday Oct 14, 1981 10:01:00 AM
Loaded from MAINT(294)

       R14226DK: ./ R 189000 $ 189000 300                                                00001000
       R14226DK:          LM    R3,R4,LOADCK   GET VERIFY UCS/BLK DATA CHK CCW  @VA14226 00002000
       R14226DK:          ALR   R3,R1          UPDATE DATA ADDRESS              @VA14226 00003000
       R14226DK:          STM   R3,R4,0(R1)    AND STORE IN BUFFER              @VA14226 00004000
       R14226DK: ./ R 870000 $ 870000 1000                                               00005000
       R14226DK: LOADCK   CCW   X'01',23,SILI+CC,1 VER UCS LOAD/BLK DATA LATCH  @VA14226 00006000
 BEGIN APPLY >>> ./ R 189000 $ 189000 300                                                00001000
   END APPLY >>> ./ R 189000 $ 189000 300                                                00001000
 BEGIN APPLY >>> ./ R 870000 $ 870000 1000                                               00005000
   END APPLY >>> ./ R 870000 $ 870000 1000                                               00005000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Mar 07, 2017 01:08:00 AM
Loaded from MAINT(094)

       HRC108DK: ./ I 00057000          $ 00057100 100
       HRC108DK: *        DMKSYSID - Address of SYSID                           HRC108DK
       HRC108DK: ./ I 00167100          $ 00167200 100
       HRC108DK:          EXTRN DMKSYSID                                        HRC108DK
       HRC108DK: ./ R 00318000 00321000 $ 00318100 100
       HRC108DK:          MVC   23(8,R2),=C'LOCATION' Move in 'LOCATION'        HRC108DK
       HRC108DK:          L     R3,=A(DMKSYSID)       Get address of SYSID      HRC108DK
       HRC108DK:          MVC   45(8,R2),0(R3)        Move in SYSID             HRC108DK
       HRC108DK:          MVC   33(6,R2),=C'USERID'   Move in 'USERID'          HRC108DK
       HRC108DK:          MVC   57(8,R2),SFBUSER      Move in USERID            HRC108DK
       HRC108DK:          BAL   R6,MVCLINE2           Set next two lines        HRC108DK
       HRC108DK:          MVC   23(8,R2),=C'LOCATION' Move in 'LOCATION'        HRC108DK
       HRC108DK:          L     R3,=A(DMKSYSID)       Get address of SYSID      HRC108DK
       HRC108DK:          MVC   45(8,R2),0(R3)        Move in SYSID             HRC108DK
       HRC108DK:          MVC   33(6,R2),=C'ORIGIN'   Move in 'ORIGIN'          HRC108DK
       HRC108DK:          MVC   57(8,R2),SFBORIG      Move in origin USERID     HRC108DK
       HRC108DK: ./ D 00349000
 BEGIN APPLY >>> ./ I 00057000          $ 00057100 100
   END APPLY >>> ./ I 00057000          $ 00057100 100
 BEGIN APPLY >>> ./ I 00167100          $ 00167200 100
   END APPLY >>> ./ I 00167100          $ 00167200 100
 BEGIN APPLY >>> ./ R 00318000 00321000 $ 00318100 100
   END APPLY >>> ./ R 00318000 00321000 $ 00318100 100
 BEGIN APPLY >>> ./ D 00349000
   END APPLY >>> ./ D 00349000
Update Succeeded
Update Execution Time 23 milliseconds.