DMSSBS History
References
-
-
Fixes Applied : 6
-
Last Fix ID : [R15172DS]
Update History
CMS File Input : DMSSBS ASSEMBLE
Date : 12/12/1978 8:33:00 AM
VM Context : MAINT(393)
File Name : DMSSBS.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
R10855DS 610 DCB
EOF INDICATOR FOR BPAM READ NOT RESET BEFORE RETURN TO CALLER
R11908DS 618 UV02299 ADD MSGDMSSBS120S FOR BDAM BSAM
R11885DS 618 UV02372 BSAM READ OF UPDATE FILE WRONGLY INCREMENTS ITEM NUMBER
R13077DS 620 UV04154 PE02299 DMSSBS120S, ABEND001 ON END-OF-TAPE WITH VM11908
R13638DS 623 UV05262 IF NOT PO, BRANCH AROUND INC CHECK FOR PO
R15172DS 629 UV06410 LOOP IN DMSSBS WHEN UPDATING BPAM RECORDS
R10855DS
Date Thursday Mar 13, 1980 03:05:00 AM
Loaded from MAINT(193)
R10855DS: ./ I 220000 $ 220500
R10855DS: XC DCBFDAD(8),DCBFDAD CLEAR DCB EOF POINTER @VA10855
BEGIN APPLY >>> ./ I 220000 $ 220500
END APPLY >>> ./ I 220000 $ 220500
Update Succeeded
Update Execution Time 16 milliseconds.
R11908DS
Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
R11908DS: ./ R 00044000 $ 44000 100 09/18/80 15:22:25
R11908DS: * @VA11908 00044000
R11908DS: * IF A BDAM/BSAM WRITE IS ATTEMPTED TO A CMS DISK IN @VA11908 00044000
R11908DS: * READ ONLY MODE A DMSSBS120S MESSAGE IS ISSUED WITH A @VA11908 00044000
R11908DS: * R/C '012' FOLLOWED BY A ABEND 001. @VA11908 00044000
R11908DS: * @VA11908 00044000
R11908DS: * @VA11908 00044800
R11908DS: ./ I 00394000 $ 394200 200 09/18/80 15:22:25
R11908DS: TM IOBIOFLG,IOBOUT CHECK FOR OUTPUT @VA11908 00394200
R11908DS: BO TESTERR YES,BRANCH @VA11908 00394400
R11908DS: NOTERR EQU * @VA11908 00394600
R11908DS: ./ I 00457000 $ 457040 40 09/18/80 15:22:25
R11908DS: * @VA11908 00457040
R11908DS: * THIS ROUTINE CHECKS FOR A WRITE TO A READ ONLY DISK FOR @VA11908 00457080
R11908DS: * BSAM AND BDAM,IF YES AND OUTPUT ERROR WILL OCCUR @VA11908 00457120
R11908DS: * WITH AN ABEND 001. @VA11908 00457160
R11908DS: * @VA11908 00457200
R11908DS: TESTERR EQU * @VA11908 00457240
R11908DS: L R14,IOBECBPT GET ECB ADDRESS @VA11908 00457280
R11908DS: CLI 3(R14),X'0C' CHECK FOR R/O DISK @VA11908 00457320
R11908DS: BNE NOTERR BRANCH ON NO ERROR @VA11908 00457360
R11908DS: ST R2,24(R13) STORE DCB ADDRESS IN R1 @VA11908 00457400
R11908DS: ST R14,20(R13) STORE ECB PTR IN R0 @VA11908 00457440
R11908DS: MVI 24(R13),X'40' STORE OUTPUT INDICATOR @VA11908 00457480
R11908DS: LM R0,R1,20(R13) LOAD REGS FROM SAVE AREA @VA11908 00457520
R11908DS: LA R15,SYNABEND @VA11908 00457560
R11908DS: BALR R14,R0 SET BASE REG @VA11908 00457600
R11908DS: SYNABEND EQU * @VA11908 00457640
R11908DS: SYNADAF ACSMETH=BSAM @VA11908 00457680
R11908DS: LA R4,54(R1) @VA11908 00457720
R11908DS: DMSERR MF=I,NUM=120,LET=S,SUB=(CHARA,(R4)), @VA11908X00457760
R11908DS: TEXT='.............................' @VA11908 00457800
R11908DS: SYNADRLS @VA11908 00457840
R11908DS: ABEND 1 @VA11908 00457880
BEGIN APPLY >>> ./ R 00044000 $ 44000 100 09/18/80 15:22:25
END APPLY >>> ./ R 00044000 $ 44000 100 09/18/80 15:22:25
BEGIN APPLY >>> ./ I 00394000 $ 394200 200 09/18/80 15:22:25
END APPLY >>> ./ I 00394000 $ 394200 200 09/18/80 15:22:25
BEGIN APPLY >>> ./ I 00457000 $ 457040 40 09/18/80 15:22:25
END APPLY >>> ./ I 00457000 $ 457040 40 09/18/80 15:22:25
Update Succeeded
Update Execution Time 16 milliseconds.
R11885DS
Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
R11885DS: ./ I 00163000 $ 163300 300 09/23/80 16:40:55
R11885DS: OUT EQU X'04' OPEN FOR OUTPUT @VA11885
R11885DS: UP EQU X'03' OPEN FOR IN/OUT @VA11885
R11885DS: ./ R 00310000 $ 310000 1000 09/23/80 16:40:55
R11885DS: BL UPCHECK NO, RETURN TO CALLER WITH END @VA11885 00310000
R11885DS: ./ I 00420000 $ 420100 100 09/23/80 16:40:55
R11885DS: UPCHECK EQU * @VA11885
R11885DS: TM IOBIOFLG,IOBIN INPUT ? @VA11885
R11885DS: BNO UPITEM NO , INCREMENT ITEM @VA11885
R11885DS: TM DEBOPATB,OUT OPEN FOR UPDATE ? @VA11885
R11885DS: BNO UPITEM NO , INCREMENT ITEM @VA11885
R11885DS: TM DEBOPATB,UP OTHER OPEN OPTIONS ? @VA11885
R11885DS: BZ RETRN NO , SKIP INCREMENT OF ITEM @VA11885
BEGIN APPLY >>> ./ I 00163000 $ 163300 300 09/23/80 16:40:55
END APPLY >>> ./ I 00163000 $ 163300 300 09/23/80 16:40:55
BEGIN APPLY >>> ./ R 00310000 $ 310000 1000 09/23/80 16:40:55
END APPLY >>> ./ R 00310000 $ 310000 1000 09/23/80 16:40:55
BEGIN APPLY >>> ./ I 00420000 $ 420100 100 09/23/80 16:40:55
END APPLY >>> ./ I 00420000 $ 420100 100 09/23/80 16:40:55
Update Succeeded
Update Execution Time 16 milliseconds.
R13077DS
Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
R13077DS: ./ R 44000 45000 $ 44000 100
R13077DS: * @VA11908
R13077DS: * IF A BDAM/BSAM WRITE IS ATTEMPTED TO A CMS DISK IN @VA11908
R13077DS: * READ-ONLY MODE, MESSAGE DMSSBS120S IS ISSUED WITH A @VA11908
R13077DS: * R/C '012' , FOLLOWED BY AN ABEND 001. @VA11908
R13077DS: * @VA11908
R13077DS: * @VA11908
R13077DS: * CALLS TO OTHER ROUTINES:
R13077DS: ./ R 394000 395000 $ 394000 200
R13077DS: L R3,16(R13) RESTORE OUR BASE REG
R13077DS: TM IOBIOFLG,IOBOUT CHECK FOR OUTPUT @VA11908
R13077DS: BO TESTERR YES, BRANCH @VA11908
R13077DS: NOTERR EQU * @VA11908
R13077DS: TM IOBIOFLG,IOBIN INPUT ? @VA03979
R13077DS: ./ R 457000 458000 $ 457000 40
R13077DS: B DMSSBSRT RETURN WITH ERROR SHOWING @VA06128
R13077DS: * @VA11908
R13077DS: * THIS ROUTINE CHECKS FOR A WRITE TO A READ-ONLY DISK FOR @VA11908
R13077DS: * BPAM AND BDAM. IF YES, AN OUTPUT ERROR WILL OCCUR @VA11908
R13077DS: * WITH AN ABEND 001. @VA11908
R13077DS: * @VA11908
R13077DS: TESTERR EQU * @VA11908
R13077DS: TM FCBDEV,FCBTAP A TAPE FILE ? @VA13077
R13077DS: BO NOTERR YES @VA13077
R13077DS: CLI 3(R1),X'0C' CHECK FOR R/O DISK @VA11908
R13077DS: BNE NOTERR BRANCH ON NO ERROR @VA11908
R13077DS: ST R2,24(R13) STORE DCB ADDRESS IN R1 @VA11908
R13077DS: ST R1,20(R13) STORE ECB PTR IN R0 @VA11908
R13077DS: MVI 24(R13),X'40' STORE OUTPUT INDICATOR @VA11908
R13077DS: LM R0,R1,20(R13) LOAD REGS FROM SAVEAREA @VA11908
R13077DS: LA R15,SYNABEND POINT TO SYNABEND @VA11908
R13077DS: BALR R14,R0 SET BASE REG @VA11908
R13077DS: SYNABEND EQU * @VA11908
R13077DS: SYNADAF ACSMETH=BSAM @VA11908
R13077DS: LA R4,54(R1) @VA11908
R13077DS: DMSERR MF=I,NUM=120,LET=S,SUB=(CHARA,(R4)), @VA11908X
R13077DS: TEXT='.............................' @VA11908
R13077DS: SYNADRLS @VA11908
R13077DS: ABEND 1 @VA11908
R13077DS: EJECT
BEGIN APPLY >>> ./ R 44000 45000 $ 44000 100
END APPLY >>> ./ R 44000 45000 $ 44000 100
BEGIN APPLY >>> ./ R 394000 395000 $ 394000 200
END APPLY >>> ./ R 394000 395000 $ 394000 200
BEGIN APPLY >>> ./ R 457000 458000 $ 457000 40
END APPLY >>> ./ R 457000 458000 $ 457000 40
Update Succeeded
Update Execution Time 16 milliseconds.
R13638DS
Date Tuesday Sep 08, 1981 08:25:00 AM
Loaded from MAINT(193)
R13638DS: ./ I 00420100 $ 420130 30
R13638DS: TM DCBDSORG,PO PARTITIONED ORGANIZATION? @VA13638
R13638DS: BNO UPITEM YES, BRANCH AROUND ITEM INC @VA13638
BEGIN APPLY >>> ./ I 00420100 $ 420130 30
END APPLY >>> ./ I 00420100 $ 420130 30
Update Succeeded
Update Execution Time 8 milliseconds.
R15172DS
Date Wednesday Mar 24, 1982 03:26:00 PM
Loaded from MAINT(193)
R15172DS: ./ R 0163000 0164000 $ 0163100 100
R15172DS: BSAMREAD EQU X'80'
R15172DS: UPDT EQU X'80' UPDATE MODE
R15172DS: ./ R 0310000 $ 0310100 100
R15172DS: BL UPITEM NO, RETURN TO CALLER WITH END@VA15172
R15172DS: ./ R 0420000 0421000 $ 0420100 100
R15172DS: BE RETRN YES, DON'T UPDATE ITEM NO. V0300
R15172DS: UPITEM LH R5,FCBITEM UPDATE ITEM NUMBER V0300
BEGIN APPLY >>> ./ R 0163000 0164000 $ 0163100 100
END APPLY >>> ./ R 0163000 0164000 $ 0163100 100
BEGIN APPLY >>> ./ R 0310000 $ 0310100 100
END APPLY >>> ./ R 0310000 $ 0310100 100
BEGIN APPLY >>> ./ R 0420000 0421000 $ 0420100 100
END APPLY >>> ./ R 0420000 0421000 $ 0420100 100
Update Succeeded
Update Execution Time 16 milliseconds.