• Abstract / Synopsis of DMSBTP
• Latest Source of DMSBTP
• Fixes Applied : 9
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R14291DS]

CMS File Input : DMSBTP ASSEMBLE
Date : 12/12/1978 8:22:00 AM
VM Context : MAINT(393)
File Name : DMSBTP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM

1. R09951DS 611 BATCH ABEND WHEN CMSBATCH PART OF JOB STREAM
2. R10749DS 613 UV01149 CP CMD 'SMSG' NOT INCLUDED IN CPTAB
3. R11258DS 614 UV01322 DMSBTP DOESN'T RECOGNIZE 8-CHARACTER CP COMMANDS
4. R10476DS 614 UV01486 BATCH FAILS TO CLOSE USER LINKED DISK ON ABEND
5. R11947DS 617 UV02561 PROTECT BATCH SPOOL DEVICES ON CP LINK CMD
6. R12384DS 618 UV03426 BATCH FAILS TO RESET LINKTAB ON BAD LINK
7. R12722DS 619 UV03836 BATCH CHECK FOR CP CMDS DUMP AND TAG TOO LONG
8. R12624DS 620 UV04149 BATCH FAILS TO RESET SPOLL FLASH, FCB, MODIFY, CHAR
9. R14291DS 624 UV05536 NL CHARACTER IN JNAME OF JOBCARD CAUSES BATCH ABEND

Date Wednesday Apr 09, 1980 03:19:00 AM
Loaded from MAINT(193)

       R09951DS: ./ I 70000 $ 70100
       R09951DS: *         R5  DMSBTP SECOND BASE REGISTER                      @VA09951
       R09951DS: ./ R 235000 $ 235000
       R09951DS:          USING DMSBTP,R12,R5       SET ADDRESSABILITY          @VA09951
       R09951DS: ./ I 238000 $ 238100 100
       R09951DS:          LA    R5,4095(0,R15)      SET R5 4K HIGHER THAN R12   @VA09951
       R09951DS:          LA    R5,1(0,R5)          MAKES R5 X'1000' EVEN       @VA09951
       R09951DS: ./ I 345000 $ 345100 100
       R09951DS:          CLC   0(8,R2),BATCK            WAS CMSBATCH ISSUED?   @VA09951
       R09951DS:          BNE   NOOOPS        NO - SO LETS KEEP ON TRUCKING     @VA09951
       R09951DS:          LINEDIT DISP=CPCOMM,SUB=(CHARA,ID),RENT=NO,TEXTA=BATMSG
       R09951DS:          SR    R15,R15      BETTER DO A LITTLE HOUSE KEEPING   @VA09951
       R09951DS:          B     RDCARD       FLUSH IT                           @VA09951
       R09951DS: NOOOPS   EQU *                                                 @VA09951
       R09951DS: ./ R 481000 $ 481000
       R09951DS:          LA    R6,LINKEND          END OF SAME                 @VA09951
       R09951DS: ./ R 485000 $ 485000
       R09951DS:          CR    R4,R6               END OF TABLE                @VA09951
       R09951DS: ./ R 865000 $ 865000
       R09951DS:          LA    R14,KEYS      POINT TO ALLOWABLE KEYWORDS       @VA09951
       R09951DS: ./ R 868000 $ 868000
       R09951DS:          CLC   0(8,R14),0(R1)      TABEL ENTRY = CARD PARM?    @VA09951
       R09951DS: ./ R 871000 $ 871000
       R09951DS:          BXLE  R14,R6,TABLOOP      AND KEEP LOOKING.....       @VA09951
       R09951DS: ./ I 1010000 $ 1010100 10
       R09951DS: BATCK    DC    CL8'CMSBATCH'                                   @VA09951
       R09951DS: BATMSG   DC    X'44'                                           @VA09951
       R09951DS:          DC    CL13'MSG ........ '                             @VA09951
       R09951DS:          DC    CL37'''CMSBATCH'' NOT ALLOWED IN JOB STREAM.'   @VA09951
       R09951DS:          DC    CL18' STATEMENT IGNORED'                        @VA09951
 BEGIN APPLY >>> ./ I 70000 $ 70100
   END APPLY >>> ./ I 70000 $ 70100
 BEGIN APPLY >>> ./ R 235000 $ 235000
   END APPLY >>> ./ R 235000 $ 235000
 BEGIN APPLY >>> ./ I 238000 $ 238100 100
   END APPLY >>> ./ I 238000 $ 238100 100
 BEGIN APPLY >>> ./ I 345000 $ 345100 100
   END APPLY >>> ./ I 345000 $ 345100 100
 BEGIN APPLY >>> ./ R 481000 $ 481000
   END APPLY >>> ./ R 481000 $ 481000
 BEGIN APPLY >>> ./ R 485000 $ 485000
   END APPLY >>> ./ R 485000 $ 485000
 BEGIN APPLY >>> ./ R 865000 $ 865000
   END APPLY >>> ./ R 865000 $ 865000
 BEGIN APPLY >>> ./ R 868000 $ 868000
   END APPLY >>> ./ R 868000 $ 868000
 BEGIN APPLY >>> ./ R 871000 $ 871000
   END APPLY >>> ./ R 871000 $ 871000
 BEGIN APPLY >>> ./ I 1010000 $ 1010100 10
   END APPLY >>> ./ I 1010000 $ 1010100 10
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Jun 04, 1980 05:17:00 AM
Loaded from MAINT(193)

       R10749DS: ./ I 444000 $ 444500
       R10749DS:          DC    CL8'SMSG',X'00',AL1(2)                          @VA10749
 BEGIN APPLY >>> ./ I 444000 $ 444500
   END APPLY >>> ./ I 444000 $ 444500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jun 27, 1980 06:09:00 AM
Loaded from MAINT(193)

       R11258DS: ./ I 383000 $ 383500
       R11258DS:          SR    R10,R6              SET MAX ITERATION           @VA11258
       R11258DS: ./ I 391000 $ 391500
       R11258DS:          B     FLAGCHK             ALL 8 CHARS MATCHED         @VA11258
 BEGIN APPLY >>> ./ I 383000 $ 383500
   END APPLY >>> ./ I 383000 $ 383500
 BEGIN APPLY >>> ./ I 391000 $ 391500
   END APPLY >>> ./ I 391000 $ 391500
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Jun 27, 1980 06:27:00 AM
Loaded from MAINT(193)

       R10476DS: ./ I 00238200          $ 238600 400                XEDIT 06/04/80 16:20:56
       R10476DS:          ST    R5,BASE2  FOR SAFTY - WE SOMETIME LOSE THE BASE @VA10476
       R10476DS: ./ I 00288000          $ 288500 500                XEDIT 06/04/80 16:20:56
       R10476DS: BASE2    DC    F'0'                                            @VA10476
       R10476DS: ./ I 00669000          $ 669500 500                XEDIT 06/04/80 16:20:56
       R10476DS:          L     R5,BASE2            SET SECOND BASE REG         @VA10476
       R10476DS: ./ I 00742000          $ 742500 500                XEDIT 06/04/80 16:20:56
       R10476DS: *        BUT FIRST CLOSE ANY OPEN FILES
       R10476DS: ./ I 00743000          $ 743200 200                XEDIT 06/04/80 16:20:56
       R10476DS:          LA    R1,FINISPL          CLOSE ALL FILES             @VA10476 00743200
       R10476DS:          SVC   202                                             @VA10476 00743400
       R10476DS:          DC    AL4(*+4)            IGNORE ERRORS               @VA10476 00743600
       R10476DS: ./ I 00816000          $ 816200 200                XEDIT 06/04/80 16:20:56
       R10476DS: FINISPL  DC    CL8'FINIS'          PLIST TO CLOSE FILES        @VA10476 00816200
       R10476DS:          DC    3CL8'*'                                         @VA10476 00816400
       R10476DS:          DC    8X'FF'                                          @VA10476 00816600
       R10476DS:          SPACE 1                                               @VA10476 00816800
 BEGIN APPLY >>> ./ I 00238200          $ 238600 400                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00238200          $ 238600 400                XEDIT 06/04/80 16:20:56
 BEGIN APPLY >>> ./ I 00288000          $ 288500 500                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00288000          $ 288500 500                XEDIT 06/04/80 16:20:56
 BEGIN APPLY >>> ./ I 00669000          $ 669500 500                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00669000          $ 669500 500                XEDIT 06/04/80 16:20:56
 BEGIN APPLY >>> ./ I 00742000          $ 742500 500                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00742000          $ 742500 500                XEDIT 06/04/80 16:20:56
 BEGIN APPLY >>> ./ I 00743000          $ 743200 200                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00743000          $ 743200 200                XEDIT 06/04/80 16:20:56
 BEGIN APPLY >>> ./ I 00816000          $ 816200 200                XEDIT 06/04/80 16:20:56
   END APPLY >>> ./ I 00816000          $ 816200 200                XEDIT 06/04/80 16:20:56
Update Succeeded
Update Execution Time 23 milliseconds.

Date Thursday Nov 13, 1980 11:13:00 AM
Loaded from MAINT(193)

       R11947DS: ./ I 00490000          $ 490100 100                   09/29/80 19:20:45
       R11947DS:          LA    R9,ENDSTAB          PREP FOR DEV ADDR SCAN      @VA11947 00490100
       R11947DS:          LA    R7,RDRTAB           PREPARE TO BXLE THRU DEVICE @VA11947 00490200
       R11947DS:          LA    R8,8                SET ENTRY SIZE              @VA11947 00490300
       R11947DS: LNKCHK   CLC   32(8,R1),0(R7)    IS DEVICE ILLEGAL UNDER BATCH @VA11947 00490400
       R11947DS:          BE    ERR107E           IF SO, TELL USER IT'S A NO NO @VA11947 00490500
       R11947DS:          BXLE  R7,R8,LNKCHK                                    @VA11947 00490600
 BEGIN APPLY >>> ./ I 00490000          $ 490100 100                   09/29/80 19:20:45
   END APPLY >>> ./ I 00490000          $ 490100 100                   09/29/80 19:20:45
Update Succeeded
Update Execution Time 16 milliseconds.

Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)

       R12384DS: ./ I 00371000          $ 371050 50                    12/02/80 22:50:11
       R12384DS:          TM    BATFLAG3,BATCPFNG   IS THIS AN ERR RET?         @VA12384
       R12384DS:          BNO   CPVALID             NO - OK CHECK THE LINK      @VA12384 00371080
       R12384DS:          LR    R1,R2               GET LINK CMD PASSED TO CP   @VA12384 00371160
       R12384DS:          CLC   0(4,R1),LINK        IS THIS LINK CMD?           @VA12384 00371200
       R12384DS:          BNE   RETCPERR            NO-RETURN IMMED. TO CPF     @VA12384 00371240
       R12384DS:          LA    R1,4(R1)            ADJUST ADD FOR DETACH       @VA12384 00371280
       R12384DS:          SR    R8,R8               SET UP WORK REGS            @VA12384 00371320
       R12384DS:          LA    R9,2                DITTO                       @VA12384 00371360
       R12384DS: CPFTST   EQU   *                                               @VA12384 00371400
       R12384DS:          LA    R1,1(R1)            PASS FIRST BLANK AFTER LINK @VA12384 00371440
       R12384DS:          CLI   0(R1),X'40'         CHARACTER EQUAL BLANK?      @VA12384 00371480
       R12384DS:          BNE   CPFTST              NO - TRY NEXT ONE           @VA12384 00371520
       R12384DS:          LA    R8,1(R8)            ADD BLANK COUNT AND CHECK.. @VA12384 00371560
       R12384DS:          CR    R8,R9               IF WE HAVE 2 BLANKS         @VA12384 00371600
       R12384DS:          BNE   CPFTST              NO - GO CHECK FOR 1 MORE    @VA12384 00371640
       R12384DS:          LA    R1,1(R1)            BUMP PASS TO DEVICE ADD     @VA12384 00371680
       R12384DS:          LA    R8,16               CHECKDET WILL NEED R1 EQUAL @VA12384 00371720
       R12384DS:          SR    R1,R8               .....TO R1-X'10'            @VA12384 00371760
       R12384DS:          B     CHECKDET            NOW REMOVE IT FROM TABLE    @VA12384 00371800
       R12384DS: ./ I 00557000          $ 557500 500                   12/02/80 22:50:11
       R12384DS:          NI    BATFLAG3,255-BATCPFNG         RESET ERROR FLAG  @VA12384
 BEGIN APPLY >>> ./ I 00371000          $ 371050 50                    12/02/80 22:50:11
   END APPLY >>> ./ I 00371000          $ 371050 50                    12/02/80 22:50:11
 BEGIN APPLY >>> ./ I 00557000          $ 557500 500                   12/02/80 22:50:11
   END APPLY >>> ./ I 00557000          $ 557500 500                   12/02/80 22:50:11
Update Succeeded
Update Execution Time 23 milliseconds.

Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)

       R12722DS: ./ R 00439000          $ 439000 1000                  02/13/81 00:04:46
       R12722DS:          DC    CL8'DUMP',X'00',AL1(2)                          @VA12722 00439000
       R12722DS: ./ R 00447000          $ 447000 1000                  02/13/81 00:04:46
       R12722DS:          DC    CL8'TAG',X'00',AL1(2)                           @VA12722 00447000
 BEGIN APPLY >>> ./ R 00439000          $ 439000 1000                  02/13/81 00:04:46
   END APPLY >>> ./ R 00439000          $ 439000 1000                  02/13/81 00:04:46
 BEGIN APPLY >>> ./ R 00447000          $ 447000 1000                  02/13/81 00:04:46
   END APPLY >>> ./ R 00447000          $ 447000 1000                  02/13/81 00:04:46
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)

       R12624DS: ./ R 00626000          $ 626000 500                   01/12/81 18:00:23
       R12624DS:          CPF   'SP CON START OFF NOTERM CLASS T FLASH NULL 0           *00626000
       R12624DS:                MODIFY NULL CHARS NULL FCB NULL'                @VA12624 00626500
       R12624DS: ./ R 00628000 00632000 $ 628000 1000                  01/12/81 18:00:23
       R12624DS:          CPF   'SPOOL PRT CLASS A CONT COPY 1 OFF CLOSE FLASH NULL 0   *00628000
       R12624DS:                MODIFY NULL CHARS NULL FCB NULL'                @VA12624 00626500
       R12624DS:          CPF   'SPOOL PUN CLASS A CONT COPY 1 OFF CLOSE'       @VA12624 00629000
       R12624DS: ./ I 00634000          $ 634500 500                   01/12/81 18:00:23
       R12624DS:          EJECT                                                 @VA12624 00634500
 BEGIN APPLY >>> ./ R 00626000          $ 626000 500                   01/12/81 18:00:23
   END APPLY >>> ./ R 00626000          $ 626000 500                   01/12/81 18:00:23
 BEGIN APPLY >>> ./ R 00628000 00632000 $ 628000 1000                  01/12/81 18:00:23
   END APPLY >>> ./ R 00628000 00632000 $ 628000 1000                  01/12/81 18:00:23
 BEGIN APPLY >>> ./ I 00634000          $ 634500 500                   01/12/81 18:00:23
   END APPLY >>> ./ I 00634000          $ 634500 500                   01/12/81 18:00:23
Update Succeeded
Update Execution Time 23 milliseconds.

Date Wednesday Oct 14, 1981 09:57:00 AM
Loaded from MAINT(193)

       R14291DS: ./ I 00726000          $ 726500 500                   09/21/81 15:54:40
       R14291DS:          DC    AL4(*+4)       IGNORE THE ERRORS                @VA14291
       R14291DS: ./ I 00729000          $ 729500 500                   09/21/81 15:54:40
       R14291DS:          DC    AL4(*+4)       IGNORE THE ERRORS                @VA14291
 BEGIN APPLY >>> ./ I 00726000          $ 726500 500                   09/21/81 15:54:40
   END APPLY >>> ./ I 00726000          $ 726500 500                   09/21/81 15:54:40
 BEGIN APPLY >>> ./ I 00729000          $ 729500 500                   09/21/81 15:54:40
   END APPLY >>> ./ I 00729000          $ 729500 500                   09/21/81 15:54:40
Update Succeeded
Update Execution Time 16 milliseconds.