Table of Contents

DMKCSO History

References

Update History

CMS File Input : DMKCSO ASSEMBLE
Date : 12/13/1978 4:56:00 PM
VM Context : MAINT(394)
File Name : DMKCSO.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:45 AM
Created : 1/16/2021 7:31:45 AM

Update Order

  1. R09264DK 601 3800 RDEVBLOK EXTENSION NOT CLEARED AFTER DRAIN
  2. R09957DK - CORRECT IOBLOK CONFLICT IN MSS SUPPORT
  3. R09477DK 609 UNNECESSARY CHECKPOINTS DURING CHANGE COMMAND
  4. R11294DK 613 UV01092 ACTIVITY COUNT INCORRECTLY DECREMENTED MULT-DRAIN
  5. R13341DK 622 UV04646 ABENDPTR003 AFTER FLUSH COMMAND ON D/T3800
  6. R13377DK 623 UV04685 BACKSPACE WHILE BACKSPACING CAUSES LOOP.
  7. HRC302DK V04 CREATE INDIVIDUAL PRINT/PUNCH FILES IF HERCULES

R09264DK

Date Monday Jan 22, 1979 02:18:00 PM
Loaded from MAINT(294)
       R09264DK: ./ I 730000 $ 730100 100
       R09264DK:          LTR   R5,R5               DRAIN COMMAND?              @VA09264
       R09264DK:          BZ    START2              XFER IF NOT                 @VA09264
       R09264DK:          L     R3,RDEVEXTN         POINT TO RDEVBLOK EXTENSION @VA09264
       R09264DK:          USING RSPXBLOK,R3         ADDRESSIBILITY              @VA09264
       R09264DK:          XC    RSPXBLOK(RSPXSIZE*8),RSPXBLOK  CLEAR IT         @VA09264
       R09264DK:          DROP  R3                  NO LONGER NEEDED            @VA09264
       R09264DK: START2   DS    0H                                              @VA09264
 BEGIN APPLY >>> ./ I 730000 $ 730100 100
   END APPLY >>> ./ I 730000 $ 730100 100
Update Succeeded
Update Execution Time 16 milliseconds.

R09957DK

Date Thursday Jul 12, 1979 09:51: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.

R09477DK

Date Friday Jan 25, 1980 01:24:00 AM
Loaded from MAINT(294)
       R09477DK: ./ R 720000 $ 720000                                                    00001000
       R09477DK:          BNZ   DONEXT1        YES, DON'T TOUCH OR CHECKPOINT   @VA09477 00002000
       R09477DK: ./ R 726000 $ 726000                                                    00003000
       R09477DK:          BO    DONEXT1        YES, DON'T TOUCH OR CHECKPOINT   @VA09477 00004000
       R09477DK: ./ D 853000 855000                                                      00005000
       R09477DK: ./ I 915000 $ 915100 100                                                00007000
       R09477DK: DONEXT1  EQU   *                                               @VA09477 00008000
 BEGIN APPLY >>> ./ R 720000 $ 720000                                                    00001000
   END APPLY >>> ./ R 720000 $ 720000                                                    00001000
 BEGIN APPLY >>> ./ R 726000 $ 726000                                                    00003000
   END APPLY >>> ./ R 726000 $ 726000                                                    00003000
 BEGIN APPLY >>> ./ D 853000 855000                                                      00005000
   END APPLY >>> ./ D 853000 855000                                                      00005000
 BEGIN APPLY >>> ./ I 915000 $ 915100 100                                                00007000
   END APPLY >>> ./ I 915000 $ 915100 100                                                00007000
Update Succeeded
Update Execution Time 23 milliseconds.

R11294DK

Date Thursday Jun 05, 1980 05:02:00 AM
Loaded from MAINT(294)
       R11294DK: ./ R 727000 728000 $ 727100 100                                         00001000
       R11294DK: STARTALL DS    0H                                              @VA11294 00002000
       R11294DK:          NI    RDEVFLAG,X'FF'-RDEVLOAD RESET LOAD FLAG         @VA11294 00003000
       R11294DK:          LTR   R5,R5          DRAIN COMMAND ?                  @VA11294 00004000
       R11294DK:          BZ    NOTDRAIN       NO - NORMAL PATH                 @VA11294 00005000
       R11294DK:          TM    RDEVFLAG,RDEVDRAN ALREADY DRAINED ?             @VA11294 00006000
       R11294DK:          BO    TESTDEV1       YES - 3800 ACT COUNT CORRECT     @VA11294 00007000
       R11294DK: NOTDRAIN DS    0H                                              @VA11294 00008000
       R11294DK:          NI    RDEVFLAG,X'FF'-RDEVDRAN RESET DRAIN FLAG        @VA11294 00009000
       R11294DK:          EX    R5,SETDRAIN    SET START / DRAIN OPTIONS        @VA11294 00010000
 BEGIN APPLY >>> ./ R 727000 728000 $ 727100 100                                         00001000
   END APPLY >>> ./ R 727000 728000 $ 727100 100                                         00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R13341DK

Date Wednesday Jun 24, 1981 06:12:00 AM
Loaded from MAINT(294)
       R13341DK: ./ I 825000 $ 825400 400                                                00001000
       R13341DK:          ICM   R14,B'1111',RSPSFBLK-RSPLCTL(R4) PRT GOING IDLE @VA13341 00002000
       R13341DK:          BZ    DONEXT         YES,NO NEED FOR NEW ONE.         @VA13341 00003000
 BEGIN APPLY >>> ./ I 825000 $ 825400 400                                                00001000
   END APPLY >>> ./ I 825000 $ 825400 400                                                00001000
Update Succeeded
Update Execution Time 16 milliseconds.

R13377DK

Date Friday Aug 07, 1981 07:02:00 AM
Loaded from MAINT(294)
       R13377DK: ./ I 01172000 $ 01172010 10                                             00001000
       R13377DK: *        DMKCSO441E  NOT ACCEPTED.  PREVIOUS BACKSPACE STILL BEING
       R13377DK: *                        PROCESSED.                            @VA13377
       R13377DK: ./ I 01181000 $ 01181300 300                                            00001000
       R13377DK:          TM    RDEVFLAG,RDEVBACK   SEE IF ALREADY BACKSPACING  @VA13377 00002000
       R13377DK:          BO    MSG441E             YES, CAN'T DO IT AGAIN YET  @VA13377 00003000
       R13377DK: ./ I 01361000 $ 01361100 100                                            00004000
       R13377DK: MSG441E  EQU   *    HERE ON BACKSPACE WHEN ALREADY BACKSPACING @VA13377 00005000
       R13377DK:          LA    R2,441               ERR MSG DMKCSO441E         @VA13377 00007000
       R13377DK:          LA    R1,BACKSPAC          VARIABLE FOR SUBSTITUTION  @VA13377 00008000
       R13377DK:          LA    R0,L'BACKSPAC        LENGTH TO SUBSTITUTE       @VA13377 00009000
       R13377DK:          B     EXIT8                GO PROCESS THE MSG         @VA13377 00010000
       R13377DK:          SPACE 1                                                        00011000
       R13377DK: ./ D 01387000 $                                                         00012000
       R13377DK: ./ D 01419000 $                                                         00013000
       R13377DK: ./ R 01421000 $ 01421000 500                                            00014000
       R13377DK: BACKSPAC DC    C'BACKSPACE'                                    @VA13377 00015000
 BEGIN APPLY >>> ./ I 01172000 $ 01172010 10                                             00001000
   END APPLY >>> ./ I 01172000 $ 01172010 10                                             00001000
 BEGIN APPLY >>> ./ I 01181000 $ 01181300 300                                            00001000
   END APPLY >>> ./ I 01181000 $ 01181300 300                                            00001000
 BEGIN APPLY >>> ./ I 01361000 $ 01361100 100                                            00004000
   END APPLY >>> ./ I 01361000 $ 01361100 100                                            00004000
 BEGIN APPLY >>> ./ D 01387000 $                                                         00012000
   END APPLY >>> ./ D 01387000 $                                                         00012000
 BEGIN APPLY >>> ./ D 01419000 $                                                         00013000
   END APPLY >>> ./ D 01419000 $                                                         00013000
 BEGIN APPLY >>> ./ R 01421000 $ 01421000 500                                            00014000
   END APPLY >>> ./ R 01421000 $ 01421000 500                                            00014000
Update Succeeded
Update Execution Time 8 milliseconds.