DMSBTP History
References
-
-
Fixes Applied : 9
-
Last Fix ID : [R14291DS]
Update History
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
Update Order
R09951DS 611 BATCH ABEND WHEN CMSBATCH PART OF JOB STREAM
R10749DS 613 UV01149 CP CMD 'SMSG' NOT INCLUDED IN CPTAB
R11258DS 614 UV01322 DMSBTP DOESN'T RECOGNIZE 8-CHARACTER CP COMMANDS
R10476DS 614 UV01486 BATCH FAILS TO CLOSE USER LINKED DISK ON ABEND
R11947DS 617 UV02561 PROTECT BATCH SPOOL DEVICES ON CP LINK CMD
R12384DS 618 UV03426 BATCH FAILS TO RESET LINKTAB ON BAD LINK
R12722DS 619 UV03836 BATCH CHECK FOR CP CMDS DUMP AND TAG TOO LONG
R12624DS 620 UV04149 BATCH FAILS TO RESET SPOLL FLASH, FCB, MODIFY, CHAR
R14291DS 624 UV05536 NL CHARACTER IN JNAME OF JOBCARD CAUSES BATCH ABEND
R09951DS
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.
R10749DS
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.
R11258DS
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.
R10476DS
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.
R11947DS
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.
R12384DS
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.
R12722DS
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.
R12624DS
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.
R14291DS
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.