• Abstract / Synopsis of DMKCST
• Latest Source of DMKCST
• Fixes Applied : 4
• Latest Source Date : Thursday, December 7, 1978
• Last Fix ID : [R12943DK]

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

1. R09273DK 601 3800 VSPXBLOK REORGANIZED FOR PERFORMANCE
2. R09783DK 607 ABENDPRG005 WHEN TAG QUERY FILE IS ISSUED FOR A MONITOR SPOOL FILE
3. R09978DK 615 CODE ADDED TO KEEP FROM LOSING SFBLOKS
4. R12943DK 620 UV04107 MODULE DMKCST DOES NOT TAG DUMP OR MONITOR SPOOL

Date Tuesday Jan 23, 1979 12:37:00 PM
Loaded from MAINT(294)

       R09273DK: ./ R 287000 291000 $ 287300 300                                         DMK00010
       R09273DK: *        3.  IF NEW TAG DATA HAS BEEN SPECIFIED, GO TO STEP 6.          DMK00020
       R09273DK: *        4.  IF OLD VSPXBLOK IS LONGER THAN MINIMUM, GET A SHORT        DMK00030
       R09273DK: *            ONE, MOVE IN THE OLD HEADER INFO AND FRET THE OLD ONE.     DMK00040
       R09273DK: *        5.  GO TO STEP 8.                                              DMK00050
       R09273DK: *        6.  GET A NEW VSPXBLOK WHICH IS LONG ENOUGH FOR THE NEW        DMK00060
       R09273DK: *            TAG INFORMATION, MOVE IN THE OLD HEADER INFO               DMK00070
       R09273DK: *            AND FRET THE OLD ONE.                                      DMK00080
       R09273DK: *        7.  MOVE THE NEW TAG DATA AND TAG LENGTH INTO THE VSPXBLOK.    DMK00090
       R09273DK: *        8.  CALL GETDEVIC; IF LAST DEVICE, EXIT; OTHERWISE GO TO       DMK00100
       R09273DK: ./ R 335000 349000 $ 335000 500                                         DMK00110
       R09273DK:          CLI   VSPXLEN,VSPXSIZ1    ALREADY AT MINIMUM?         @VA09273 DMK00120
       R09273DK:          BE    TD11                XFER IF SO                  @VA09273 DMK00130
       R09273DK:          LA    R0,VSPXSIZ1         GET A MINIMUM LENGTH BLOCK  @VA09273 DMK00140
       R09273DK:          CALL  DMKFREE             GET THE STORAGE             @VA09273 DMK00150
       R09273DK:          MVC   0(VSPXSIZ1*8,R1),VSPXBLOK  MOVE IN OLD HDR      @VA09273 DMK00160
       R09273DK:          MVI   VSPXTGLN-VSPXBLOK(R1),X'00'  ZERO TAG LENGTH    @VA09273 DMK00170
       R09273DK:          STC   R0,VSPXLEN-VSPXBLOK(R1)  LENGTH OF THE BLOCK    @VA09273 DMK00180
       R09273DK:          ST    R1,VDEVEXTN         THE NEW VSPXBLOK            @VA09273 DMK00190
       R09273DK:          SR    R0,R0               GET THE LENGTH              @VA09273 DMK00200
       R09273DK:          IC    R0,VSPXLEN               OF THE OLD ONE         @VA09273 DMK00210
       R09273DK:          LR    R1,R6               ADDRESS OF THE OLD ONE      @VA09273 DMK00220
       R09273DK:          CALL  DMKFRET             FRET THE STORAGE            @VA09273 DMK00230
       R09273DK:          B     TD11                GO LOOK AT NEXT DEVICE      @VA09273 DMK00240
       R09273DK:          SPACE                                                          DMK00250
       R09273DK: TD08     LA    R0,VSPXSIZ1*8+7     HEADER LENGTH               @VA09273 DMK00260
       R09273DK:          AL    R0,SAVEWRK6         TAG LENGTH                  @VA09273 DMK00270
       R09273DK:          SRL   R0,3                CONVERT TO DOUBLEWORDS      @VA09273 DMK00280
       R09273DK:          CALL  DMKFREE             STORAGE FOR NEW VSPXBLOK    @VA09273 DMK00290
       R09273DK:          MVC   0(VSPXSIZ1*8,R1),VSPXBLOK  MOVE IN OLD HDR      @VA09273 DMK00300
       R09273DK:          STC   R0,VSPXLEN-VSPXBLOK(R1)  LGTH OF NEW VSPXBLOK   @VA09273 DMK00310
       R09273DK:          MVC   VSPXTGLN-VSPXBLOK(1,R1),SAVEWRK6+3 NEW TAG LGTH @VA09273 DMK00320
       R09273DK:          ST    R1,VDEVEXTN         SAVE ADDRESS IN VDEVBLOK    @VA09273 DMK00330
       R09273DK:          SR    R0,R0               PREPARE TO FRET OLD ONE     @VA09273 DMK00340
       R09273DK:          IC    R0,VSPXLEN          OLD LENGTH IN DBLWDS        @VA09273 DMK00350
       R09273DK:          LR    R1,R6               ADDRESS OF OLD ONE          @VA09273 DMK00360
       R09273DK:          CALL  DMKFRET             FRET THE STORAGE            @VA09273 DMK00370
       R09273DK:          L     R6,VDEVEXTN         RESTORE ADDRESSIBILITY      @VA09273 DMK00380
 BEGIN APPLY >>> ./ R 287000 291000 $ 287300 300                                         DMK00010
   END APPLY >>> ./ R 287000 291000 $ 287300 300                                         DMK00010
 BEGIN APPLY >>> ./ R 335000 349000 $ 335000 500                                         DMK00110
   END APPLY >>> ./ R 335000 349000 $ 335000 500                                         DMK00110
Update Succeeded
Update Execution Time 16 milliseconds.

Date Monday Dec 03, 1979 12:03:00 PM
Loaded from MAINT(294)

       R09783DK: ./ I 423600 $ 423750 100                                                00001000
       R09783DK:          CLI   24(R2),X'08'   IS THIS REALLY A TAG RECORD?     @VA09783 00002000
       R09783DK:          BNE   TF04           NONE--SHOULD NOT HAPPEN.         @VA09783 00003000
       R09783DK: ./ I 573600 $ 573750 100                                                00004000
       R09783DK:          CLI   24(R2),X'08'   IS THIS REALLY A TAG RECORD?     @VA09783 00005000
       R09783DK:          BNE   QF07           NONE--TAG MISSING.               @VA09783 00006000
 BEGIN APPLY >>> ./ I 423600 $ 423750 100                                                00001000
   END APPLY >>> ./ I 423600 $ 423750 100                                                00001000
 BEGIN APPLY >>> ./ I 573600 $ 573750 100                                                00004000
   END APPLY >>> ./ I 573600 $ 573750 100                                                00004000
Update Succeeded
Update Execution Time 16 milliseconds.

Date Tuesday Jul 29, 1980 05:16:00 AM
Loaded from MAINT(294)

       R09978DK: ./ R 78400 $ 78400                                                      00001000
       R09978DK: *        SAVEWRK9  -   SAVEAREA TO SAVE SFBFLAG                         00002000
       R09978DK: ./ I 420000 $ 420100 100                                                00003000
       R09978DK:          MVC   SAVEWRK9(1),SFBFLAG SAVE FLAGS                  @VA09978 00004000
       R09978DK:          OI    SFBFLAG,SFBINUSE MARK SPOOL FILE BLOCK IN USE   @VA09978 00005000
       R09978DK: ./ I 422000 $ 422100 100                                                00006000
       R09978DK:          MVC   SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00008000
       R09978DK: ./ I 447000 $                                                           00009000
       R09978DK:          BNZ   MSG424E        PAGING ERROR ON WRITE - QUIT     @VA09978 00010000
       R09978DK: ./ I 570000 $ 570100 100                                                00011000
       R09978DK:          MVC   SAVEWRK9(1),SFBFLAG SAVE FLAG                   @VA09978 00012000
       R09978DK:          OI    SFBFLAG,SFBINUSE MARK SPOOL FILE BLOCK IN USE   @VA09978 00013000
       R09978DK: ./ I 572000 $ 572100 100                                                00014000
       R09978DK:          MVC   SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00016000
       R09978DK: ./ I 912000 $ 912100 100                                                00017000
       R09978DK:          MVC   SFBFLAG,SAVEWRK9 RESTORE FLAG IF IT WAS ORIG.ON @VA09978 00019000
 BEGIN APPLY >>> ./ R 78400 $ 78400                                                      00001000
   END APPLY >>> ./ R 78400 $ 78400                                                      00001000
 BEGIN APPLY >>> ./ I 420000 $ 420100 100                                                00003000
   END APPLY >>> ./ I 420000 $ 420100 100                                                00003000
 BEGIN APPLY >>> ./ I 422000 $ 422100 100                                                00006000
   END APPLY >>> ./ I 422000 $ 422100 100                                                00006000
 BEGIN APPLY >>> ./ I 447000 $                                                           00009000
   END APPLY >>> ./ I 447000 $                                                           00009000
 BEGIN APPLY >>> ./ I 570000 $ 570100 100                                                00011000
   END APPLY >>> ./ I 570000 $ 570100 100                                                00011000
 BEGIN APPLY >>> ./ I 572000 $ 572100 100                                                00014000
   END APPLY >>> ./ I 572000 $ 572100 100                                                00014000
 BEGIN APPLY >>> ./ I 912000 $ 912100 100                                                00017000
   END APPLY >>> ./ I 912000 $ 912100 100                                                00017000
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Apr 08, 1981 04:07:00 AM
Loaded from MAINT(294)

       R12943DK: ./ R 423600 $ 423610                                                    00001000
       R12943DK:          BNE   MSG027E        INVALID FILE MESSAGE             @VA12943 00002000
       R12943DK: ./ R 423850 $ 423860                                                    00003000
       R12943DK:          BNE   MSG027E        INVALID FILE TYPE                @VA12943 00004000
       R12943DK: ./ R 425000 $ 425010                                                    00005000
       R12943DK:          BO    MSG027E        INVALID FILE                     @VA12943 00006000
 BEGIN APPLY >>> ./ R 423600 $ 423610                                                    00001000
   END APPLY >>> ./ R 423600 $ 423610                                                    00001000
 BEGIN APPLY >>> ./ R 423850 $ 423860                                                    00003000
   END APPLY >>> ./ R 423850 $ 423860                                                    00003000
 BEGIN APPLY >>> ./ R 425000 $ 425010                                                    00005000
   END APPLY >>> ./ R 425000 $ 425010                                                    00005000
Update Succeeded
Update Execution Time 16 milliseconds.