ibm:vm370-lib:cms:dmsfld.assemble_hst
Table of Contents
DMSFLD History
References
- Fixes Applied : 16
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [HRC309DS]
Update History
CMS File Input : DMSFLD ASSEMBLE
Date : 12/12/1978 8:26:00 AM
VM Context : MAINT(393)
File Name : DMSFLD.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM
Update Order
- R09122DS 601 FILEDEF DISK FOR OLD DDNAME DOES NOT SET DEFAULT FN/FT/FM
- R09051DS 601 FILEDEF DD TAP DOES NOT USE OLD FILEDEF TAPE ID
- R09115DS 602 MSDMSFLD070E WHEN FILEDEF FROM EXEC HAS PAREN BEFORE OPTIONS
- R09624DS 606 UPCASE NOT RESET AFTER LOWCASE
- R11265DS 613 UV01310 MSDMSSTT062E FOR FI OF OS D.S. AFTER FI SAME DDN
- R11480DS 614 UV01433 MSDMSSTT048E ERRONEOUS FOR FORTHX OF UNKNOWN FN
- R11224DS 614 UV01531 WHEN RESET CONCAT FILES PREVENT HAS WRONG POINTER
- R11278DS 615 UV01720 STORAGE NOT FREED AFTER MULTIPLE FI FOR OS PDS D.S.
- R12255DS 618 UV03110 ELIMINATE I/O ON FILEDEF'S
- R12529DS 619 UV03467 PROPAGATION OF OSFST BLOCKS EXHAUSTS AVAILABLE STORAGE
- R13014DS 620 UV04161 FILEDEF WITH LRECL OR BLKSIZE GT 32760 GIVES NO ERROR
- R13706DS 623 UV05179 FILEDEF OS DISK MODE=* CAUSES DMSFRE161T RC=6
- R14030DS 624 UV05277 FILEDEF OVERRIDE CONCAT- DMSFRE161T WITH RC=6
- R14165DS 625 UV05382 DMSITP141T ABEND 0C5 IF OS DISK ACCESSED B/A
- HRC002DS V01 ADD MORE MINIDISKS & TAPES TO MATCH VM/SP - FILEDEF
- HRC309DS v03 eplist support, error messages to lowercase.
R09122DS
Date Friday Jan 26, 1979 01:08:00 AM
Loaded from MAINT(193)
R09122DS: ./ I 696000 $ 696200 200
R09122DS: MVC FCBDSNAM(8),FILE DEFAULT FILENAME EQ FILE @VA09122
R09122DS: MVC FCBDSTYP(8),0(R5) DEFAULT FILETYPE TO DDNAME @VA09122
R09122DS: MVC FCBDSMD(2),A1 DEFAULT MODE EQ A1 @VA09122
BEGIN APPLY >>> ./ I 696000 $ 696200 200
END APPLY >>> ./ I 696000 $ 696200 200
Update Succeeded
Update Execution Time 16 milliseconds.
R09051DS
Date Friday Jan 26, 1979 01:23:00 AM
Loaded from MAINT(193)
R09051DS: ./ R 1252000 $ 1252000
R09051DS: BO T1B YES @VA09051
R09051DS: ./ R 1256000 $ 1255200 300
R09051DS: MVC FCBTAPID(8),TAP2 DEFAULT TAPE = TAP2 @VA09051
R09051DS: T1A EQU * @VA06191
R09051DS: CLI 11(R5),BLANK SPECIFIC TAPE ID @VA09051
R09051DS: BNE T1B YES @VA09051
R09051DS: MVC 8(4,R5),FCBTAPID NO, USE OLD TAPE ID @VA09051
R09051DS: T1B EQU * @VA09051
R09051DS: ./ D 1260000 1261000 $
R09051DS: ./ I 1842000 $ 1842500
R09051DS: TAP2 DC CL8'TAP2' DEFAULT TAPE ID @VA09051
BEGIN APPLY >>> ./ R 1252000 $ 1252000
END APPLY >>> ./ R 1252000 $ 1252000
BEGIN APPLY >>> ./ R 1256000 $ 1255200 300
END APPLY >>> ./ R 1256000 $ 1255200 300
BEGIN APPLY >>> ./ D 1260000 1261000 $
END APPLY >>> ./ D 1260000 1261000 $
BEGIN APPLY >>> ./ I 1842000 $ 1842500
END APPLY >>> ./ I 1842000 $ 1842500
Update Succeeded
Update Execution Time 23 milliseconds.
R09115DS
Date Tuesday Apr 03, 1979 03:30:00 AM
Loaded from MAINT(193)
R09115DS: ./ D 1275000 1276000 $
R09115DS: ./ R 1279000 1280000 $ 1279100 100
R09115DS: LR R9,R5 POINT TO OPTIONS @VA09115
R09115DS: B D2 CHECK DELIMITER ON OPTIONS @VA09115
R09115DS: ./ R 1363000 1364000 $ 1363000 500
R09115DS: LA R9,8(,R5) SKIP TO OPTIONS @VA09115
R09115DS: CR R9,R8 SVC CAL @VA09115
R09115DS: BNE D2AB NO , INVALID PARAMETER @VA09115
R09115DS: ./ D 1448000 1449000 $
R09115DS: ./ R 1452000 1453000 $ 1452100 100
R09115DS: LR R9,R5 POINT TO OPTIONS @VA09115
R09115DS: B D2 CHECK DELIMITER ON OPTIONS @VA09115
BEGIN APPLY >>> ./ D 1275000 1276000 $
END APPLY >>> ./ D 1275000 1276000 $
BEGIN APPLY >>> ./ R 1279000 1280000 $ 1279100 100
END APPLY >>> ./ R 1279000 1280000 $ 1279100 100
BEGIN APPLY >>> ./ R 1363000 1364000 $ 1363000 500
END APPLY >>> ./ R 1363000 1364000 $ 1363000 500
BEGIN APPLY >>> ./ D 1448000 1449000 $
END APPLY >>> ./ D 1448000 1449000 $
BEGIN APPLY >>> ./ R 1452000 1453000 $ 1452100 100
END APPLY >>> ./ R 1452000 1453000 $ 1452100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R09624DS
Date Tuesday Nov 06, 1979 11:06:00 AM
Loaded from MAINT(193)
R09624DS: ./ I 1374000 $ 1374200 200
R09624DS: CLI FLAG2,MATCH FOUND ? @VA09624
R09624DS: BNE COMMONT @VA09624
R09624DS: NI FCBIOSW,255-FCBCASE DEFAULT UPCASE @VA09624
BEGIN APPLY >>> ./ I 1374000 $ 1374200 200
END APPLY >>> ./ I 1374000 $ 1374200 200
Update Succeeded
Update Execution Time 23 milliseconds.
R11265DS
Date Wednesday Jun 04, 1980 05:23:00 AM
Loaded from MAINT(193)
R11265DS: ./ R 1443000 $ 1443000
R11265DS: B DEFFNFT SET DEFAULT FN FT @VA11265
BEGIN APPLY >>> ./ R 1443000 $ 1443000
END APPLY >>> ./ R 1443000 $ 1443000
Update Succeeded
Update Execution Time 16 milliseconds.
R11480DS
Date Friday Jun 27, 1980 06:09:00 AM
Loaded from MAINT(193)
R11480DS: ./ I 878000 $ 878100 100
R11480DS: CLI 0(R9),C' ' IS MODE MISSING @VA11480
R11480DS: BNE MODENUM NO, CHECK FOR MODE NUMBER @VA11480
R11480DS: LA R9,8(,R9) BUMP TO NEXT PLIST SLOT @VA11480
R11480DS: B DEFMODE BR - USE DEFAULT MODE @VA11480
R11480DS: MODENUM EQU * @VA11480
BEGIN APPLY >>> ./ I 878000 $ 878100 100
END APPLY >>> ./ I 878000 $ 878100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R11224DS
Date Monday Jun 30, 1980 06:30:00 AM
Loaded from MAINT(193)
R11224DS: ./ R 01734000 $ 1734000 100
R11224DS: BNZ OSDSN YES, HAVE TO FRET IT @VA11224
R11224DS: LR R4,R2 RESTORE CURRENT FCB PTR @VA11224
R11224DS: BR R10 RETURN TO CALLER @VA11224
R11224DS: OSDSN EQU * CLEAR DSN BLOCK @VA11224
BEGIN APPLY >>> ./ R 01734000 $ 1734000 100
END APPLY >>> ./ R 01734000 $ 1734000 100
Update Succeeded
Update Execution Time 16 milliseconds.
R11278DS
Date Thursday Jul 31, 1980 07:21:00 AM
Loaded from MAINT(193)
R11278DS: ./ R 1731000 1733000 $ 1731000 500
R11278DS: SR R1,R1 ZERO REGISTER @VA11278
R11278DS: L R7,FCBOSFST PICK UP OLD OSFST BLOCK @VA11278
R11278DS: L R8,FCBOSFST-FCBSECT(,R2) PICK UP CURR OSFST @VA11278
R11278DS: ICM R1,SEVEN,FCBOSDSN+1 PICK UP OLD DSN BLOCK @VA11278
R11278DS: ./ R 1734200 $ 1734200
R11278DS: B CLRFST1 CHECK FOR OS FST FREE @VA11278
R11278DS: ./ R 1738000 $ 1738000 100
R11278DS: BE CLRFST1 NO, CHECK FOR OSFST FREE @VA11278
R11278DS: ./ R 1740000 1742000 $ 1740000 500
R11278DS: CLRDSN EQU * @VA11278
R11278DS: L R7,FCBOSFST PICK UP OLD OSFST BLOCK @VA11278
R11278DS: SR R8,R8 INDICATE CURR IS OLD @VA11278
R11278DS: SR R1,R1 ZERO REGISTER @VA11278
R11278DS: ICM R1,SEVEN,FCBOSDSN+1 PICK UP DSN BLOCK @VA11278
R11278DS: BZ CLRFST1 NO, CHECK FOR OSFST FREE @VA11278
R11278DS: ./ R 1744000 1747000 $ 1744000 50
R11278DS: LR R2,R15 SAVE ERROR CODE @V201122
R11278DS: DMSFRET DWORDS=6,LOC=(1) RELEASE IT @V201122
R11278DS: LR R15,R2 RESTORE ERROR CODE @V201122
R11278DS: * REMOVE AND FREE OS FST FROM ACTIVE DISK TABLE AND OS FST CHAIN
R11278DS: CLRFST1 EQU * @VA11278
R11278DS: LA R7,0(,R7) CLEAR HI ORDER BYTE @VA11278
R11278DS: LTR R7,R7 DOES OSFST EXIST? @VA11278
R11278DS: BZR R10 NO - RETURN TO CALLER @VA11278
R11278DS: LA R8,0(,R8) CLEAR HI ORDER BYTE @VA11278
R11278DS: CR R7,R8 ARE OSFST'S THE SAME @VA11278
R11278DS: BER R10 YES, DON'T FRET IT @VA11278
R11278DS: LR R2,R15 SAVE ERROR CODE @VA11278
R11278DS: LA R1,FCBOP SET UP PLIST FOR DMSLAD @VA11278
R11278DS: L R15,AADTLKP ADDRESS OF DMSLAD LOOKUP @VA11278
R11278DS: BALR R14,R15 GO TO DMSLAD @VA11278
R11278DS: LTR R15,R15 LOOKUP SUCCESSFUL @VA11278
R11278DS: BNZ FSTFREE NO, GO FREE OS FST @VA11278
R11278DS: USING ADTSECT,R1 ADT ADDRESSABILITY @VA11278
R11278DS: CLM R7,SEVEN,OSADTFST+1 ADT HAVE SAME OS FST ADDR @VA11278
R11278DS: BNE UNHKFST NO, FREE IT @VA11278
R11278DS: USING OSFST,R7 OSFST ADDRESSABILITY @VA11278
R11278DS: MVC OSADTFST+1(3),OSFSTNXT+1 MOVE PREVIOUS TO ADT @VA11278
R11278DS: UNHKFST EQU * @VA11278
R11278DS: DROP R7 @VA11278
R11278DS: USING OSFST,R8 OSFST ADDRESSABILITY @VA11278
R11278DS: L R8,OSADTFST GET CURRENT OSFST @VA11278
R11278DS: CKFST EQU * @VA11278
R11278DS: LA R8,0(,R8) CLEAR HI ORDER BYTE @VA11278
R11278DS: LTR R8,R8 END OF OSFST CHAIN? @VA11278
R11278DS: BZ FSTFREE YES- FREE OLD OSFST @VA11278
R11278DS: CLM R7,SEVEN,OSFSTNXT+1 OLD FST = PREVIOUS @VA11278
R11278DS: BE UNCHFST YES, UNCHAIN OLD FST @VA11278
R11278DS: L R8,OSFSTNXT GET PREVIOUS FST @VA11278
R11278DS: B CKFST CHECK THIS SLOT @VA11278
R11278DS: DROP R8 @VA11278
R11278DS: USING OSFST,R7 OSFST ADDRESSABILITY @VA11278
R11278DS: UNCHFST EQU * @VA11278 11278
R11278DS: MVC OSFSTNXT+1-OSFST(,R8),OSFSTNXT+1 UNHOOK OLD FST @VA11278 11278
R11278DS: FSTFREE EQU * @VA11278
R11278DS: LA R0,OSFSTLTH GET OSFST LENGTH @VA11278
R11278DS: LR R1,R7 ADDRESS OF OSFST BLOCK @VA11278
R11278DS: DMSFRET DWORDS=(0),LOC=(1) FREE OS FST BLOCK @VA11278
R11278DS: LR R15,R2 RESTORE ERROR CODE @VA11278
R11278DS: BR R10 RETURN TO CALLER @VA11278
R11278DS: DROP R1 @VA11278
R11278DS: DROP R7 @VA11278
R11278DS: ./ I 1957000 $ 1957500 100
R11278DS: SEVEN EQU 7 VALUE @VA11278
R11278DS: ./ I 2019000 $ 2019100 100
R11278DS: ADT @VA11278
R11278DS: OSFST @VA11278
BEGIN APPLY >>> ./ R 1731000 1733000 $ 1731000 500
END APPLY >>> ./ R 1731000 1733000 $ 1731000 500
BEGIN APPLY >>> ./ R 1734200 $ 1734200
END APPLY >>> ./ R 1734200 $ 1734200
BEGIN APPLY >>> ./ R 1738000 $ 1738000 100
END APPLY >>> ./ R 1738000 $ 1738000 100
BEGIN APPLY >>> ./ R 1740000 1742000 $ 1740000 500
END APPLY >>> ./ R 1740000 1742000 $ 1740000 500
BEGIN APPLY >>> ./ R 1744000 1747000 $ 1744000 50
END APPLY >>> ./ R 1744000 1747000 $ 1744000 50
BEGIN APPLY >>> ./ I 1957000 $ 1957500 100
END APPLY >>> ./ I 1957000 $ 1957500 100
BEGIN APPLY >>> ./ I 2019000 $ 2019100 100
END APPLY >>> ./ I 2019000 $ 2019100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R12255DS
Date Tuesday Dec 16, 1980 12:15:00 PM
Loaded from MAINT(193)
R12255DS: ./ I 00799000 $ 799500 500 12/03/80 13:41:24
R12255DS: XC FCBDSMD(2),FCBDSMD CLEAR FCB INDICATOR @VA12255 00799500
R12255DS: ./ I 00803000 $ 803500 500 12/03/80 13:41:24
R12255DS: MVC FCBDSMD(2),STATFM RESTORE FILE MODE IND @VA12255 00803500
R12255DS: ./ R 01973000 $ 1973000 1000 12/03/80 13:41:24
R12255DS: STATFM DC CL2' ' @VA12255 01973000
BEGIN APPLY >>> ./ I 00799000 $ 799500 500 12/03/80 13:41:24
END APPLY >>> ./ I 00799000 $ 799500 500 12/03/80 13:41:24
BEGIN APPLY >>> ./ I 00803000 $ 803500 500 12/03/80 13:41:24
END APPLY >>> ./ I 00803000 $ 803500 500 12/03/80 13:41:24
BEGIN APPLY >>> ./ R 01973000 $ 1973000 1000 12/03/80 13:41:24
END APPLY >>> ./ R 01973000 $ 1973000 1000 12/03/80 13:41:24
Update Succeeded
Update Execution Time 23 milliseconds.
R12529DS
Date Tuesday Mar 10, 1981 03:10:00 AM
Loaded from MAINT(193)
R12529DS: ./ I 536000 $ 536500
R12529DS: LR R4,R1 PUT ADDRESS OF FCB INTO REG4 @VA12529
R12529DS: ./ R 543000 $ 543000
R12529DS: BZ FSTRLS NO @VA12529
R12529DS: ./ R 545000 $ 544200 200
R12529DS: FSTRLS EQU *
R12529DS: LR R5,R2 SAVE CHAIN POINTER @VA12529
R12529DS: STH R7,FCBNUM SAVE CURRENT FCB COUNT @VA12529
R12529DS: L R7,FCBOSFST GET OSFST ADDRESS @VA12529
R12529DS: SR R8,R8 CLEAR REGISTER @VA12529
R12529DS: BAL R10,CLRFST1 CHECK FOR OSFST FREE @VA12529
R12529DS: BAL R10,FRET GO RELEASE FCB @VA12529
R12529DS: LR R2,R5 RESTORE CHAIN POINTER @VA12529
R12529DS: LH R7,FCBNUM RESTORE COUNT OF ENTRIES @VA12529
BEGIN APPLY >>> ./ I 536000 $ 536500
END APPLY >>> ./ I 536000 $ 536500
BEGIN APPLY >>> ./ R 543000 $ 543000
END APPLY >>> ./ R 543000 $ 543000
BEGIN APPLY >>> ./ R 545000 $ 544200 200
END APPLY >>> ./ R 545000 $ 544200 200
Update Succeeded
Update Execution Time 31 milliseconds.
R13014DS
Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
R13014DS: ./ I 1032000 $ 1032300 300
R13014DS: C R7,MAXREC MORE THAN 32,760 ? @VA13014
R13014DS: BH CONV4 YES, THAT'S THE MAXIMUM @VA13014
R13014DS: ./ I 1050000 $ 1050300 300
R13014DS: C R7,MAXREC MORE THAN 32,760 ? @VA13014
R13014DS: BH CONV4 YES, THAT'S THE MAXIMUM @VA13014
R13014DS: ./ I 1810000 $ 1810100 100
R13014DS: MAXREC DC F'32760' MAXIMUM LRECL AND BLKSIZE @VA13014
BEGIN APPLY >>> ./ I 1032000 $ 1032300 300
END APPLY >>> ./ I 1032000 $ 1032300 300
BEGIN APPLY >>> ./ I 1050000 $ 1050300 300
END APPLY >>> ./ I 1050000 $ 1050300 300
BEGIN APPLY >>> ./ I 1810000 $ 1810100 100
END APPLY >>> ./ I 1810000 $ 1810100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R13706DS
Date Wednesday Aug 05, 1981 07:24:00 AM
Loaded from MAINT(193)
R13706DS: ./ I 1744600 $ 1744610 10 06/25/81 16:33:31
R13706DS: CLI FCBDSMD,MODESTAR IS MODE = '*' ??? @VA13706
R13706DS: BE GETADT NO, GO THROUGH ADT LIST @VA13706
R13706DS: ./ I 1744950 $ 1744975 25 06/25/81 16:33:31
R13706DS: UNCHADT EQU * @VA13706
R13706DS: ./ I 1745050 $ 1745075 25 06/25/81 16:33:31
R13706DS: B FSTFREE FRET THE FST @VA13706
R13706DS: ./ I 1748000 $ 1748030 30 06/25/81 16:33:31
R13706DS: * @VA13706
R13706DS: * THE FOLLOWING CODE WILL UNCHAIN AN FST BLOCK FROM THE ADT @VA13706
R13706DS: * WHEN THE CORRESPONDING FCB'S FILE MODE WAS * @VA13706
R13706DS: * @VA13706
R13706DS: GETADT EQU * @VA13706
R13706DS: SR R1,R1 ZERO OUT R1 @VA13706
R13706DS: NEXTDISK EQU * @VA13706
R13706DS: L R15,AADTNXT ADDRESS OF DMSLAD ADTNXT @VA13706
R13706DS: BALR R14,R15 GET NEXT ADT POINTER @VA13706
R13706DS: LTR R15,R15 WAS THERE ANOTHER ADT ?? @VA13706
R13706DS: BNZ FSTFREE NO, NONE FOUND, FREE FST @VA13706
R13706DS: USING ADTSECT,R1 ADT ADDRESSABILITY @VA13706
R13706DS: TM ADTFLG2,ADTFROS IS THIS AN OS DISK ?? @VA13706
R13706DS: BNO NEXTDISK NO, GO GET NEXT ADT POINTER@VA13706
R13706DS: CLM R7,SEVEN,OSADTFST+1 ADT HAVE SAME OS FST ADDR @VA13706
R13706DS: BE UNCHADT SINCE UNCHAINED, FREE FST @VA13706
R13706DS: USING OSFST,R8 OSFST ADDRESSABILITY @VA13706
R13706DS: L R8,OSADTFST GET CURRENT OSFST @VA13706
R13706DS: CKFST1 EQU * @VA13706
R13706DS: LA R8,0(,R8) CLEAR HI ORDER BYTE @VA13706
R13706DS: LTR R8,R8 END OF OSFST CHAIN? @VA13706
R13706DS: BZ NEXTDISK YES- FREE OLD OSFST @VA13706
R13706DS: CLM R7,SEVEN,OSFSTNXT+1 OLD FST = PREVIOUS @VA13706
R13706DS: BE UNCHFST YES, UNCHAIN OLD FST @VA13706
R13706DS: L R8,OSFSTNXT GET PREVIOUS FST @VA13706
R13706DS: B CKFST1 CHECK THIS SLOT @VA13706
R13706DS: DROP R8,R1 @VA13706
R13706DS: MODESTAR EQU X'5C' INDICATES FILE MODE = * @VA13706
BEGIN APPLY >>> ./ I 1744600 $ 1744610 10 06/25/81 16:33:31
END APPLY >>> ./ I 1744600 $ 1744610 10 06/25/81 16:33:31
BEGIN APPLY >>> ./ I 1744950 $ 1744975 25 06/25/81 16:33:31
END APPLY >>> ./ I 1744950 $ 1744975 25 06/25/81 16:33:31
BEGIN APPLY >>> ./ I 1745050 $ 1745075 25 06/25/81 16:33:31
END APPLY >>> ./ I 1745050 $ 1745075 25 06/25/81 16:33:31
BEGIN APPLY >>> ./ I 1748000 $ 1748030 30 06/25/81 16:33:31
END APPLY >>> ./ I 1748000 $ 1748030 30 06/25/81 16:33:31
Update Succeeded
Update Execution Time 16 milliseconds.
R14030DS
Date Thursday Aug 27, 1981 03:17:00 PM
Loaded from MAINT(193)
R14030DS: ./ I 641000 $ 641500 500 XEDIT 08/24/81 14:18:45
R14030DS: OI FCBINIT,FCBCATML INDICATE CONCATENATION @VA14030
R14030DS: ./ I 655000 $ 655500 500 XEDIT 08/24/81 14:18:45
R14030DS: NI FCBINIT,255-FCBCATML TURN OFF CONCATENATION @VA14030
R14030DS: ./ R 01726000 $ 1726000 1000 XEDIT 08/24/81 14:18:45
R14030DS: ST R2,PREVENT PUT CURRENT ENTRY INTO PREV. @VA14030
R14030DS: ./ R 01734000 01734300 $ 1734000 1000 XEDIT 08/24/81 14:18:45
R14030DS: BZR R10 NO, RETURN TO CALLER @VA14030
R14030DS: ./ R 01744000 $ 1744000 50 XEDIT 08/24/81 14:18:45
R14030DS: ST R15,GR15SAVE SAVE ERROR CODE @VA14030
R14030DS: ./ R 01744100 $ 1744100 50 XEDIT 08/24/81 14:18:45
R14030DS: L R15,GR15SAVE RESTORE ERROR CODE @VA14030
R14030DS: ./ R 01744550 $ 1744550 50 XEDIT 08/24/81 14:18:45
R14030DS: ST R15,GR15SAVE SAVE ERROR CODE @VA14030
R14030DS: ./ R 01746100 $ 1746100 50 XEDIT 08/24/81 14:18:45
R14030DS: L R15,GR15SAVE RESTORE ERROR CODE @VA14030
BEGIN APPLY >>> ./ I 641000 $ 641500 500 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ I 641000 $ 641500 500 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ I 655000 $ 655500 500 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ I 655000 $ 655500 500 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01726000 $ 1726000 1000 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01726000 $ 1726000 1000 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01734000 01734300 $ 1734000 1000 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01734000 01734300 $ 1734000 1000 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01744000 $ 1744000 50 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01744000 $ 1744000 50 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01744100 $ 1744100 50 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01744100 $ 1744100 50 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01744550 $ 1744550 50 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01744550 $ 1744550 50 XEDIT 08/24/81 14:18:45
BEGIN APPLY >>> ./ R 01746100 $ 1746100 50 XEDIT 08/24/81 14:18:45
END APPLY >>> ./ R 01746100 $ 1746100 50 XEDIT 08/24/81 14:18:45
Update Succeeded
Update Execution Time 31 milliseconds.
R14165DS
Date Monday Sep 28, 1981 08:12:00 AM
Loaded from MAINT(193)
R14165DS: ./ R 01744600 01745450 $ 1744600 40
R14165DS: SR R1,R1 ZERO OUT R1 @VA14165
R14165DS: NEXTDISK EQU * @VA14165
R14165DS: L R15,AADTNXT ADDRESS OF DMSLAD ADTNXT @VA14165
R14165DS: BALR R14,R15 GET NEXT ADT POINTER @VA14165
R14165DS: LTR R15,R15 WAS THERE ANOTHER ADT ?? @VA14165
R14165DS: BNZ FSTFREE NO, NONE FOUND, FREE FST @VA14165
R14165DS: USING ADTSECT,R1 ADT ADDRESSABILITY @VA14165
R14165DS: TM ADTFLG2,ADTFROS IS THIS AN OS DISK ?? @VA14165
R14165DS: BNO NEXTDISK NO, GO GET NEXT ADT POINTER@VA14165
R14165DS: CLM R7,SEVEN,OSADTFST+1 ADT HAVE SAME OS FST ADDR @VA14165
R14165DS: BNE CKCHAIN NO,SEE IF IT'S IN FST CHAIN@VA14165
R14165DS: USING OSFST,R7 OSFST ADDRESSABILITY @VA14165
R14165DS: MVC OSADTFST+1(3),OSFSTNXT+1 MOVE PREVIOUS TO ADT @VA14165
R14165DS: B FSTFREE SINCE UNCHAINED FREE FST @VA14165
R14165DS: DROP R7 @VA14165
R14165DS: CKCHAIN EQU * @VA14165
R14165DS: USING OSFST,R8 OSFST ADDRESSABILITY @VA14165
R14165DS: L R8,OSADTFST GET CURRENT OSFST @VA14165
R14165DS: CKFST EQU * @VA14165
R14165DS: LA R8,0(,R8) CLEAR HI ORDER BYTE @VA14165
R14165DS: LTR R8,R8 END OF OSFST CHAIN? @VA14165
R14165DS: BZ NEXTDISK YES- FREE OLD OSFST @VA14165
R14165DS: ./ D 01748030 01748840
BEGIN APPLY >>> ./ R 01744600 01745450 $ 1744600 40
END APPLY >>> ./ R 01744600 01745450 $ 1744600 40
BEGIN APPLY >>> ./ D 01748030 01748840
END APPLY >>> ./ D 01748030 01748840
Update Succeeded
Update Execution Time 23 milliseconds.
HRC002DS
Date Thursday Feb 09, 2006 09:22:00 PM
Loaded from MAINT(093)
HRC002DS: ./ R 00191000 $ 191490 490 01/01/06 12:32:26
HRC002DS: * TAPN - TAPE FILE; WHERE N = 0-F, INDICATING THE HRC002DS 00191490
HRC002DS: ./ R 01266000 $ 1266090 90 01/01/06 12:32:26
HRC002DS: CLI 11(R5),C'A' ? IS IT < 'A' ? HRC002DS 01266090
HRC002DS: BL ERR27A YES, ERROR EXIT. HRC002DS 01266180
HRC002DS: CLI 11(R5),C'F' ? IS IT > 'F' ? HRC002DS 01266270
HRC002DS: BNH T3 NO, CONTINUE HRC002DS 01266360
HRC002DS: CLI 11(R5),C'0' ? IS IT A NUMERIC < 0 ? HRC002DS 01266450
HRC002DS: ./ R 01268000 $ 1268490 490 01/01/06 12:32:26
HRC002DS: CLI 11(R5),C'9' ? IS A DIGIT > 9 ? HRC002DS 01268490
BEGIN APPLY >>> ./ R 00191000 $ 191490 490 01/01/06 12:32:26
END APPLY >>> ./ R 00191000 $ 191490 490 01/01/06 12:32:26
BEGIN APPLY >>> ./ R 01266000 $ 1266090 90 01/01/06 12:32:26
END APPLY >>> ./ R 01266000 $ 1266090 90 01/01/06 12:32:26
BEGIN APPLY >>> ./ R 01268000 $ 1268490 490 01/01/06 12:32:26
END APPLY >>> ./ R 01268000 $ 1268490 490 01/01/06 12:32:26
Update Succeeded
Update Execution Time 31 milliseconds.
HRC309DS
Date Friday Feb 12, 2010 10:02:00 AM
Loaded from MAINT(093)
HRC309DS: ./ R 00100000 00106000 $ 100000 1000 02/10/10 15:10:58
HRC309DS: * | If = x'0B', it was issued as a command from DMSINT. HRC309DS 00100000
HRC309DS: * | If = x'0D', it was issued from an EXEC file (DMSEXT), HRC309DS 00101000
HRC309DS: * | with "&CONTROL" set to either "CMS" or "ALL". HRC309DS 00102000
HRC309DS: * | If = X'01', it was issued from an EXEC file (DMSEXT), HRC309DS 00103000
HRC309DS: * | with "&CONTROL OFF" in effect. HRC309DS 00104000
HRC309DS: * | Otherwise it is assumed to be issued from a function, HRC309DS 00105000
HRC309DS: * | I.E. called from another program. HRC309DS 00106000
HRC309DS: ./ R 00304000 00309000 $ 304000 1000 02/10/10 15:10:58
HRC309DS: CLM R5,8,=X'0B' hi byte of "R1" < X'0B' ? HRC309DS 00304000
HRC309DS: BL LETSGO yes, it's a function or EXEC HRC309DS 00305000
HRC309DS: CLM R5,8,=X'0D' EXEC w/&CONTROL ALL or CMS? HRC309DS 00306000
HRC309DS: BH LETSGO no, treat as a function call HRC309DS 00307000
HRC309DS: OI MSGSWT,PRINT called from DMSINT or EXEC, so HRC309DS 00308000
HRC309DS: * we will display error messages HRC309DS 00309000
HRC309DS: ./ I 00326000 $ 326050 050
HRC309DS: C R6,8(R2) check for '(' as last parm HRC309DS 00326050
HRC309DS: BNE OPT1B not there, proceed normally HRC309DS 00326100
HRC309DS: ST R6,8(R2) overwrite the lone '(' with HRC309DS 00326150
HRC309DS: ST R6,12(R2) a fence to make it go away HRC309DS 00326200
HRC309DS: B SETPLIST and pretend we never saw it HRC309DS 00326250
HRC309DS: OPT1B DS 0H HRC309DS 00326300
HRC309DS: ./ R 01603000 01604000 $ 1603000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=3,LET=E,SUB=(CHARA,(R5)),TEXT='Invalid option ''...*01603000
HRC309DS: .....''' HRC309DS 01604000
HRC309DS: ./ R 01610000 01611000 $ 1610000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=65,LET=E,SUB=(CHARA,(R5)),TEXT='''........'' option*01610000
HRC309DS: specified twice' HRC309DS 01611000
HRC309DS: ./ R 01618000 01619000 $ 1618000 1000 02/10/10 15:10:58
HRC309DS: ..'' and ''........'' are conflicting options',RENT=NO 01618000
HRC309DS: RET66 LA R15,24 return code = 24 HRC309DS 01619000
HRC309DS: ./ R 01625000 01625000 $ 1625000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=23,LET=E,TEXT='No filetype specified' HRC309DS 01625000
HRC309DS: ./ R 01632000 01633000 $ 1632000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=27,LET=E,SUB=(CHARA,(R5)),TEXT='Invalid device ''..*01632000
HRC309DS: ......''' HRC309DS 01633000
HRC309DS: ./ R 01642000 01644000 $ 1642000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=29,LET=E,SUB=(CHARA,(R5),CHARA,(R2)),TEXT='Invalid *01642000
HRC309DS: parameter ''........'' in the option ''........'' filed'*01643000
HRC309DS: ,RENT=NO HRC309DS 01644000
HRC309DS: ./ R 01650000 01650000 $ 1650000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=35,LET=E,TEXT='Invalid tape mode' HRC309DS 01650000
HRC309DS: ./ R 01656000 01657000 $ 1656000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=50,LET=E,TEXT='Parameter missing after DDname' 01656000
HRC309DS: RET50 LA R15,24 return code = 24 HRC309DS 01657000
HRC309DS: ./ R 01661000 01662000 $ 1661000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=70,LET=E,SUB=(CHARA,(R5)),TEXT='Invalid parameter '*01661000
HRC309DS: '........''' HRC309DS 01662000
HRC309DS: ./ R 01668000 01668000 $ 1668000 1000 02/10/10 15:10:58
HRC309DS: DMSERR NUM=704,LET=I,TEXT='Invalid CLEAR request' HRC309DS 01668000
HRC309DS: ./ R 01670000 01670000 $ 1670000 1000 02/10/10 15:10:58
HRC309DS: ERR221E DMSERR TEXT='Invalid dataset name',NUM=221,LET=E HRC309DS 01670000
HRC309DS: ./ R 01674000 01674000 $ 1674000 1000 02/10/10 15:10:58
HRC309DS: TEXT='Fileid already in use' HRC309DS 01674000
BEGIN APPLY >>> ./ R 00100000 00106000 $ 100000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 00100000 00106000 $ 100000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 00304000 00309000 $ 304000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 00304000 00309000 $ 304000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ I 00326000 $ 326050 050
END APPLY >>> ./ I 00326000 $ 326050 050
BEGIN APPLY >>> ./ R 01603000 01604000 $ 1603000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01603000 01604000 $ 1603000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01610000 01611000 $ 1610000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01610000 01611000 $ 1610000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01618000 01619000 $ 1618000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01618000 01619000 $ 1618000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01625000 01625000 $ 1625000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01625000 01625000 $ 1625000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01632000 01633000 $ 1632000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01632000 01633000 $ 1632000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01642000 01644000 $ 1642000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01642000 01644000 $ 1642000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01650000 01650000 $ 1650000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01650000 01650000 $ 1650000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01656000 01657000 $ 1656000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01656000 01657000 $ 1656000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01661000 01662000 $ 1661000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01661000 01662000 $ 1661000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01668000 01668000 $ 1668000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01668000 01668000 $ 1668000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01670000 01670000 $ 1670000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01670000 01670000 $ 1670000 1000 02/10/10 15:10:58
BEGIN APPLY >>> ./ R 01674000 01674000 $ 1674000 1000 02/10/10 15:10:58
END APPLY >>> ./ R 01674000 01674000 $ 1674000 1000 02/10/10 15:10:58
Update Succeeded
Update Execution Time 55 milliseconds.
ibm/vm370-lib/cms/dmsfld.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator