DMSSMN History
References
-
-
Fixes Applied : 4
-
Last Fix ID : [R14218DS]
Update History
CMS File Input : DMSSMN ASSEMBLE
Date : 12/12/1978 8:34:00 AM
VM Context : MAINT(393)
File Name : DMSSMN.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
R10305DS 611 UNABLE TO SATISFY DMSFREE REQUEST DURING GOFORT COMPILATION
R11172DS 614 UV01197 DMSSMN SHOULD RET 0 IN R15 AFTER SUCCESSFUL GETMAIN
R12358DS 618 UV03316 ABEND90A WHEN FREEMAIN ISSUED FOR AREA WITH ZERO LENGTH
R14218DS 624 UV05509 GETMAIN EC LENGTH=0 ABENDS CODE=804
R10305DS
Date Wednesday Apr 09, 1980 03:18:00 AM
Loaded from MAINT(193)
R10305DS: ./ R 279000 $ 279000
R10305DS: BZ GLOBLIBC RESERVE LESS DIRECTORY SPACE @VA10305
R10305DS: ./ I 281000 $ 281120 120
R10305DS: B MNM ALL LIBRARIES ACCOUNTED FOR @VA10305
R10305DS: GLOBLIBC EQU * @VA10305
R10305DS: CLC TOTLIBS,TWOPAGES DIRECTORIES EXCEED TWO PAGES? @VA10305
R10305DS: BL MNM NO, ASSUME SUFFICIENT SPACE @VA10305
R10305DS: A R2,TOTLIBS YES, ALLOT MORE DIRECTORY SPACE @VA10305
R10305DS: S R2,TWOPAGES BUT NOT TOO MUCH @VA10305
R10305DS: N R2,MASKB ROUND UP @VA10305
R10305DS: ./ R 356000 $ 356000
R10305DS: BZ GLOBLIBU RESERVE LESS DIRECTORY SPACE @VA10305
R10305DS: ./ I 358000 $ 358120 120
R10305DS: B CKM ALL LIBRARIES ACCOUNTED FOR @VA10305
R10305DS: GLOBLIBU EQU * @VA10305
R10305DS: CLC TOTLIBS,TWOPAGES DIRECTORIES EXCEED TWO PAGES? @VA10305
R10305DS: BL CKM NO, ASSUME SUFFICIENT SPACE @VA10305
R10305DS: A R2,TOTLIBS YES, ALLOT MORE DIRECTORY SPACE @VA10305
R10305DS: S R2,TWOPAGES BUT NOT TOO MUCH @VA10305
R10305DS: N R2,MASKB ROUND UP @VA10305
R10305DS: ./ I 520000 $ 520500
R10305DS: TWOPAGES DC F'8192' X'1000' PER PAGE @VA10305
BEGIN APPLY >>> ./ R 279000 $ 279000
END APPLY >>> ./ R 279000 $ 279000
BEGIN APPLY >>> ./ I 281000 $ 281120 120
END APPLY >>> ./ I 281000 $ 281120 120
BEGIN APPLY >>> ./ R 356000 $ 356000
END APPLY >>> ./ R 356000 $ 356000
BEGIN APPLY >>> ./ I 358000 $ 358120 120
END APPLY >>> ./ I 358000 $ 358120 120
BEGIN APPLY >>> ./ I 520000 $ 520500
END APPLY >>> ./ I 520000 $ 520500
Update Succeeded
Update Execution Time 16 milliseconds.
R11172DS
Date Friday Jun 27, 1980 06:09:00 AM
Loaded from MAINT(193)
R11172DS: ./ I 00344000 $ 00344100 100
R11172DS: XC EGPR15,EGPR15 SET RETURN CODE @VA11172
R11172DS: ./ I 00366000 $ 00366100 100
R11172DS: XC EGPR15,EGPR15 SET RETURN CODE @VA11172
BEGIN APPLY >>> ./ I 00344000 $ 00344100 100
END APPLY >>> ./ I 00344000 $ 00344100 100
BEGIN APPLY >>> ./ I 00366000 $ 00366100 100
END APPLY >>> ./ I 00366000 $ 00366100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R12358DS
Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)
R12358DS: ./ D 169000 170000
R12358DS: ./ I 172000 $ 172300 300
R12358DS: TM EGPR1+3,X'07' IS BLOCK ALIGNED ON A DBL WORD? @VA12358
R12358DS: BNZ ABEND9XX NO - ABEND X'90A' @VA12358
R12358DS: ./ R 207000 208000 $ 207500
R12358DS: FEMODE EQU * @VA12358
R12358DS: ./ I 210000 $ 210300 300
R12358DS: TM 3(R1),X'07' IS BLOCK ALIGNED ON A DBL WORD? @VA12358
R12358DS: BNZ ABEND9XX IF NOT - ABEND X'905' @VA12358
BEGIN APPLY >>> ./ D 169000 170000
END APPLY >>> ./ D 169000 170000
BEGIN APPLY >>> ./ I 172000 $ 172300 300
END APPLY >>> ./ I 172000 $ 172300 300
BEGIN APPLY >>> ./ R 207000 208000 $ 207500
END APPLY >>> ./ R 207000 208000 $ 207500
BEGIN APPLY >>> ./ I 210000 $ 210300 300
END APPLY >>> ./ I 210000 $ 210300 300
Update Succeeded
Update Execution Time 16 milliseconds.
R14218DS
Date Thursday Oct 15, 1981 05:01:00 PM
Loaded from MAINT(193)
R14218DS: ./ R 00239000 $ 239000 100 XEDIT 10/13/81 10:18:52
R14218DS: BNZ ALLOC CONTINUE IF NOT ZERO @VA14218 239000
R14218DS: TM 8(R1),CONDX CONDITIONAL GETMAIN ? @VA14218 239100
R14218DS: BZ ABEND8ZZ NO, ABEND X'804' @VA14218 239200
R14218DS: MVI EGPR15+3,QUATRE SET RETURN CODE 4 @VA14218 239300
R14218DS: BR R14 AND RETURN TO CALLER @VA14218 239400
R14218DS: ALLOC EQU * CONTINUE @VA14218 239500
R14218DS: ./ R 00256000 $ 256000 100 XEDIT 10/13/81 10:18:52
R14218DS: BNZ NOTZERO IF MAX LENGTH NOT 0 GO ON @VA14218 256000
R14218DS: CR R3,R0 ARE MIN AND MAX EQUAL TO 0 ? @VA14218 256100
R14218DS: BNE ABEND8ZZ NO, ABEND X'804' @VA14218 256200
R14218DS: L R7,=X'00020000' ADDRESS IS PARTITION START @VA14218 256300
R14218DS: B SETUSER ...AND PREPARE TO RETURN @VA14218 256400
R14218DS: NOTZERO EQU * @VA14218 256500
R14218DS: ./ R 00309000 $ 309000 100 XEDIT 10/13/81 10:18:52
R14218DS: NOBLOCKV EQU * @VA14218 309000
R14218DS: LTR R0,R0 @VA14218 309100
R14218DS: BNZ MINNOT0 IF NO BLOCK AND MIN LENGTH @VA14218 309200
R14218DS: L R7,=X'00020000' ADDRESS PARTITION START @VA14218 309300
R14218DS: LA R3,0 ...AND 0 LENGTH @VA14218 309400
R14218DS: B SETUSER ...AND PREPARE TO RETURN @VA14218 309500
R14218DS: MINNOT0 EQU * @VA14218 309600
R14218DS: TM OSSFLAGS,OSSMNU UNCONDITIONAL REQUEST ? @VA14218 309700
BEGIN APPLY >>> ./ R 00239000 $ 239000 100 XEDIT 10/13/81 10:18:52
END APPLY >>> ./ R 00239000 $ 239000 100 XEDIT 10/13/81 10:18:52
BEGIN APPLY >>> ./ R 00256000 $ 256000 100 XEDIT 10/13/81 10:18:52
END APPLY >>> ./ R 00256000 $ 256000 100 XEDIT 10/13/81 10:18:52
BEGIN APPLY >>> ./ R 00309000 $ 309000 100 XEDIT 10/13/81 10:18:52
END APPLY >>> ./ R 00309000 $ 309000 100 XEDIT 10/13/81 10:18:52
Update Succeeded
Update Execution Time 16 milliseconds.