ibm:vm370-lib:cms:dmsbwr.assemble_hst
Table of Contents
DMSBWR History
References
- Fixes Applied : 3
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC012DS]
Update History
CMS File Input : DMSBWR ASSEMBLE
Date : 12/12/1978 8:22:00 AM
VM Context : MAINT(393)
File Name : DMSBWR.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM
Update Order
- R10561DS 610 DMSBWR REJECTS I/O WHEN BUFFERS ARE IN A DCSS
- R09491DS 612 UV01001 MSDMSTYP104S VARIABLE FILE UPDATED DIFFERENT LENGTH
- HRC012DS V01 ADD ADDITIONAL CHARACTERS FOR FILE NAME
R10561DS
Date Wednesday Feb 27, 1980 01:30:00 AM
Loaded from MAINT(193)
R10561DS: ./ R 396000 $ 396000 200
R10561DS: BNH BUFOK GO TO IT @VA10561
R10561DS: CLC VMSIZE+1(3),SVCOPSW+5 DCSS USER..?? @VA10561
R10561DS: BH ERROR22 NO KILL HIM (RC=2) @VA10561
R10561DS: BUFOK EQU * @VA10561
BEGIN APPLY >>> ./ R 396000 $ 396000 200
END APPLY >>> ./ R 396000 $ 396000 200
Update Succeeded
Update Execution Time 16 milliseconds.
R09491DS
Date Wednesday May 07, 1980 04:30:00 AM
Loaded from MAINT(193)
R09491DS: ./ I 90000 $ 90100 100
R09491DS: *
R09491DS: * 27. ATTEMPT TO UPDATE VARIABLE LENGTH ITEM WITH ONE OF DIFFERENT
R09491DS: * LENGTH
R09491DS: ./ I 610000 $ 610500
R09491DS: NI AFTFLG2,255-SAMELEN INITIALIZE SAME LENGTH @VA09491
R09491DS: ./ R 837000 $ 836040 40
R09491DS: CLM R4,B'0011',AFTWP REPLACING LAST RECORD ? @VA09491
R09491DS: BE LASTREC YES, OK @VA09491
R09491DS: BL MAYADD CHECK FOR ADDING NEXT RECORD @VA09491
R09491DS: TM AFTFLG2,AFTNEW CHECK NEW FILE @VA09491
R09491DS: BO LASTREC YES, ALLOW DIFFERENT LENGTH @VA09491
R09491DS: TM DOSFLAGS,DOSMODE IN DOS MOD ? @VA09491
R09491DS: BO LASTREC YES, SKIP LENGTH CHECK @VA09491
R09491DS: OI AFTFLG2,SAMELEN CHECK SAME LENGTH @VA09491
R09491DS: LH R6,FCBNUM COUNT OF FCB ENTRIES @VA09491
R09491DS: LTR R6,R6 ARE THERE ANY ? @VA09491
R09491DS: BZ LASTREC NO , SKIP THE CHECK @VA09491
R09491DS: LA R3,0(,R11) POINT TO WRBUF PLIST @VA09491
R09491DS: S R3,SIXTEEN BACK UP 4 WORDS @VA09491
R09491DS: L R7,FCBFIRST FCB ANCHOR @VA09491
R09491DS: USING FCBSECT,R7 FCB ADDRESSABILITY @VA09491
R09491DS: LOOPFCB EQU * @VA09491
R09491DS: CLC FCBDD,EIGHT(R3) FCB DDNAME IN PLIST @VA09491
R09491DS: BE FOUNDFCB YES, CHECK IT @VA09491
R09491DS: L R7,0(,R7) BUMP TO NEXT FCB @VA09491
R09491DS: BCT R6,LOOPFCB LOOP THRU ENTRIES @VA09491
R09491DS: B LASTREC NOT FOUND @VA09491
R09491DS: FOUNDFCB EQU * CHECK RECORD FORMAT @VA09491
R09491DS: NI AFTFLG2,255-SAMELEN NO LENGTH CHECK @VA09491
R09491DS: LA R7,0(,R7) CLEAR HIGH BYTE @VA09491
R09491DS: CR R7,R3 THE SAME FCB ? @VA09491
R09491DS: BNE LASTREC NO, FORGET IT @VA09491
R09491DS: ICM R3,M7,DEBDCBAD+1 DCB POINTER IN FCB @VA09491
R09491DS: BZ LASTREC NO , SKIP DCB CHECK @VA09491
R09491DS: C R3,VMSIZE BEYOND ADDRESSABILITY @VA09491
R09491DS: BNL LASTREC YES , SKIP IT @VA09491
R09491DS: USING IHADCB,R3 DCB ADDRESSABILITY @VA09491
R09491DS: TM DCBRECFM,UND RECFM = UNDEFINED @VA09491
R09491DS: BO LASTREC YES , SKIP LENGTH CHECK @VA09491
R09491DS: OI AFTFLG2,SAMELEN ALL REPLACES MUST BE @VA09491
R09491DS: * THE SAME LENGTH AS BEFORE @VA09491
R09491DS: B LASTREC BYPASS NEXT CHECK @VA09491
R09491DS: DROP R3 DROP DCB ADDRESSABILITY @VA09491
R09491DS: DROP R7 DROP FCB ADDRESSABILITY @VA09491
R09491DS: MAYADD DS 0H @VA09491
R09491DS: LA R4,1(,R4) CHECK FOR ADDING ONE RECORD @VA09491
R09491DS: ./ I 841000 $ 841500
R09491DS: LASTREC DS 0H @VA09491
R09491DS: ./ I 931000 $ 931100 100
R09491DS: TM AFTFLG2,SAMELEN MUST CHECK LENGTH ? @VA09491
R09491DS: BZ LAB1 NO,CONTINUE @VA09491
R09491DS: CLC 0(2,R5),PNOBY+2(R11) IS LENGTH OK @VA09491
R09491DS: BNE ERROR27 NO , WRONG LENGTH @VA09491
R09491DS: LAB1 DS 0H @VA09491
R09491DS: ./ I 939000 $ 939100 100
R09491DS: TM AFTFLG2,SAMELEN MUST CHECK LENGTH ? @VA09491
R09491DS: BZ LAB2 NO, CONTINUE @VA09491
R09491DS: CLC 0(1,R5),PNOBY+2(R11) IS FIRST HALF OK ? @VA09491
R09491DS: BNE ERROR27 NOPE @VA09491
R09491DS: LAB2 DS 0H @VA09491
R09491DS: ./ I 943000 $ 943100 100
R09491DS: TM AFTFLG2,SAMELEN MUST CHECK LENGTH @VA09491
R09491DS: BZ LAB3 NO, CONTINUE @VA09491
R09491DS: CLC 0(1,R5),PNOBY+3(R11) IS SECOND HALF OK ? @VA09491
R09491DS: BNE ERROR27 NO, DIFFERENT LENGTH @VA09491
R09491DS: LAB3 DS 0H @VA09491
R09491DS: ./ I 953000 $ 953100 100
R09491DS: TM AFTFLG2,SAMELEN MUST CHECK LENGTH @VA09491
R09491DS: BZ LAB4 NO, CONTINUE @VA09491
R09491DS: CLC 0(2,R5),PNOBY+2(R11) IS LENGTH OK @VA09491
R09491DS: BNE ERROR27 NO, DIFFERENT LENGTH @VA09491
R09491DS: LAB4 DS 0H @VA09491
R09491DS: ./ I 959000 $ 959200 200
R09491DS: ERROR27 EQU * @VA09491
R09491DS: LA R15,27 ERROR CODE 26 @VA09491
R09491DS: B ERR RETURN WITH AN ERROR @VA09491
R09491DS: ./ I 1198000 $ 1198500
R09491DS: SIXTEEN DC F'16' FULLWORD SIXTEEN @VA09491
R09491DS: ./ I 1216000 $ 1216200 200
R09491DS: M7 EQU 7 MASK SEVEN @VA09491
R09491DS: EIGHT EQU 8 MISCELLANEOUS 8 @VA09491
R09491DS: ./ I 1427000 $ 1427200 200
R09491DS: DCBD DSORG=(PS)
R09491DS: CMSCB
BEGIN APPLY >>> ./ I 90000 $ 90100 100
END APPLY >>> ./ I 90000 $ 90100 100
BEGIN APPLY >>> ./ I 610000 $ 610500
END APPLY >>> ./ I 610000 $ 610500
BEGIN APPLY >>> ./ R 837000 $ 836040 40
END APPLY >>> ./ R 837000 $ 836040 40
BEGIN APPLY >>> ./ I 841000 $ 841500
END APPLY >>> ./ I 841000 $ 841500
BEGIN APPLY >>> ./ I 931000 $ 931100 100
END APPLY >>> ./ I 931000 $ 931100 100
BEGIN APPLY >>> ./ I 939000 $ 939100 100
END APPLY >>> ./ I 939000 $ 939100 100
BEGIN APPLY >>> ./ I 943000 $ 943100 100
END APPLY >>> ./ I 943000 $ 943100 100
BEGIN APPLY >>> ./ I 953000 $ 953100 100
END APPLY >>> ./ I 953000 $ 953100 100
BEGIN APPLY >>> ./ I 959000 $ 959200 200
END APPLY >>> ./ I 959000 $ 959200 200
BEGIN APPLY >>> ./ I 1198000 $ 1198500
END APPLY >>> ./ I 1198000 $ 1198500
BEGIN APPLY >>> ./ I 1216000 $ 1216200 200
END APPLY >>> ./ I 1216000 $ 1216200 200
BEGIN APPLY >>> ./ I 1427000 $ 1427200 200
END APPLY >>> ./ I 1427000 $ 1427200 200
Update Succeeded
Update Execution Time 31 milliseconds.
HRC012DS
Date Sunday Mar 19, 2006 12:47:00 PM
Loaded from MAINT(093)
HRC012DS: ./ R 00441000 $ 441490 490 03/19/06 12:47:52
HRC012DS: CK LA R1,8(,R11) POINT TO FILE NAME HRC012DS 00441490
HRC012DS: ./ R 00446000 $ 446490 490 03/19/06 12:47:52
HRC012DS: CKTYP LA R1,16(,R11) POINT TO FILE TYPE HRC012DS 00446490
HRC012DS: ./ R 00512000 00524000 $ 512690 690 03/19/06 12:47:52
HRC012DS: PTEST DS 0H CHECK CHARACTER VALIDITY HRC012DS 00512690
HRC012DS: LA R5,7(,R1) PNT AT LAST BYTE OF NAME HRC012DS 00513380
HRC012DS: LR R0,R1 SAVE POINTER BEFORE TRT HRC012DS 00514070
HRC012DS: TRT 0(8,R1),INVTBL CHECK FOR INVALID CHARACTER HRC012DS 00514760
HRC012DS: BZR R15 IF ALL OK, EXIT WITH CC = 0. HRC012DS 00515450
HRC012DS: CR R0,R1 DID TRT ERROR AT FIRST CHAR HRC012DS 00516140
HRC012DS: BE SETCODE ERROR ON FIRST CHARACTER HRC012DS 00516830
HRC012DS: SR R5,R1 CHECK IF FIRST CHAR INVALID HRC012DS 00517520
HRC012DS: * SIZE IS -1 FOR EXECUTE INST HRC012DS 00518210
HRC012DS: BMR R15 TSK! TSK! BAD LIST HRC012DS 00518900
HRC012DS: EX R5,CLC CHECK THE REST FOR BLANKS HRC012DS 00519590
HRC012DS: BR R15 EXIT WITH CC SET 0 OR ¬0 HRC012DS 00520280
HRC012DS: SETCODE DS 0H SET A NON ZERO CONDITION CODE HRC012DS 00520970
HRC012DS: CR R15,R1 R15 = RETURN, R1 = PRAM LIST HRC012DS 00521660
HRC012DS: BR R15 RETURN TO CALLER WITH CC = 2 HRC012DS 00522350
HRC012DS: CLC CLC 0(0,R1),INVTBL CHECK FOR BLANKS IN NAME HRC012DS 00523040
HRC012DS: ./ R 01358000 $ 1358490 490 03/19/06 12:47:52
HRC012DS: ERROR22 DMSERR TEXT='Virtual Storage capacity exceeded', @VA02525X01358490
HRC012DS: ./ R 01371000 $ 1371290 290 03/19/06 12:47:52
HRC012DS: BUSTMSG DC C'Disk ''..(....)'' has maximum number of files' *01371490
HRC012DS: HRC012DS
HRC012DS: ./ R 01374000 $ 1374490 490 03/19/06 12:47:52
HRC012DS: FULLMSG DC C'Disk ''..(....)'' is full' HRC012DS 01374490
HRC012DS: ./ R 01377000 01379000 $ 1377190 190 03/19/06 12:47:52
HRC012DS: INVTBL DC 256X'40' X'40' MEANS "INVALID" HRC012DS 01377190
HRC012DS: ORG INVTBL+78 HRC012DS 01377380
HRC012DS: DC X'00' '+' IS VALID PLUS HRC012DS 01377570
HRC012DS: ORG INVTBL+91 HRC012DS 01377760
HRC012DS: DC X'00' '$' IS VALID DOLLAR HRC012DS 01377950
HRC012DS: ORG INVTBL+96 HRC012DS 01378140
HRC012DS: DC X'00' '-' IS VALID DASH/HYPHEN HRC012DS 01378330
HRC012DS: ORG INVTBL+109 HRC012DS 01378520
HRC012DS: DC X'00' '_' IS VALID UNDERSCORE HRC012DS 01378710
HRC012DS: ORG INVTBL+122 HRC012DS 01378900
HRC012DS: DC X'00' ':' IS VALID COLON HRC012DS 01379090
HRC012DS: ./ R 01396000 $ 1396490 490 03/19/06 12:47:52
HRC012DS: ORG , HRC012DS 01396490
BEGIN APPLY >>> ./ R 00441000 $ 441490 490 03/19/06 12:47:52
END APPLY >>> ./ R 00441000 $ 441490 490 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 00446000 $ 446490 490 03/19/06 12:47:52
END APPLY >>> ./ R 00446000 $ 446490 490 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 00512000 00524000 $ 512690 690 03/19/06 12:47:52
END APPLY >>> ./ R 00512000 00524000 $ 512690 690 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 01358000 $ 1358490 490 03/19/06 12:47:52
END APPLY >>> ./ R 01358000 $ 1358490 490 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 01371000 $ 1371290 290 03/19/06 12:47:52
END APPLY >>> ./ R 01371000 $ 1371290 290 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 01374000 $ 1374490 490 03/19/06 12:47:52
END APPLY >>> ./ R 01374000 $ 1374490 490 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 01377000 01379000 $ 1377190 190 03/19/06 12:47:52
END APPLY >>> ./ R 01377000 01379000 $ 1377190 190 03/19/06 12:47:52
BEGIN APPLY >>> ./ R 01396000 $ 1396490 490 03/19/06 12:47:52
END APPLY >>> ./ R 01396000 $ 1396490 490 03/19/06 12:47:52
Update Succeeded
Update Execution Time 31 milliseconds.
ibm/vm370-lib/cms/dmsbwr.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator