ibm:vm370-lib:cms:dmssbs.assemble_hst
Table of Contents
DMSSBS History
References
- Fixes Applied : 6
- Latest Source Date : Tuesday, December 12, 1978
- 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.
ibm/vm370-lib/cms/dmssbs.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator