DMSFLD History
References
-
-
Fixes Applied : 16
-
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.