• Abstract / Synopsis of DMSSMN
• Latest Source of DMSSMN
• Fixes Applied : 4
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R14218DS]

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

1. R10305DS 611 UNABLE TO SATISFY DMSFREE REQUEST DURING GOFORT COMPILATION
2. R11172DS 614 UV01197 DMSSMN SHOULD RET 0 IN R15 AFTER SUCCESSFUL GETMAIN
3. R12358DS 618 UV03316 ABEND90A WHEN FREEMAIN ISSUED FOR AREA WITH ZERO LENGTH
4. R14218DS 624 UV05509 GETMAIN EC LENGTH=0 ABENDS CODE=804

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.

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.

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.

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.