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

CMS File Input : DMSLBM ASSEMBLE
Date : 12/12/1978 8:29:00 AM
VM Context : MAINT(393)
File Name : DMSLBM.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:31 AM
Created : 1/16/2021 7:31:31 AM

1. R08993DS 601 DMSLBM DOESN'T HANDLE MACLIB DIRECTORIES BIGGER THAN 8000 BYTES
2. R12809DS 620 UV04126 ERROR WHEN COMPRESS EMPTY MACLIB TWO TIMES.
3. R13802DS 623 UV04998 NO MSDMSLBM013W FOR MACLIB DEL OF NONEXISTENT XXX.
4. HRC015DS H40 Replace hardcoded constants in STATEFST with symbolic offsets

Date Tuesday Dec 19, 1978 12:19:00 PM
Loaded from MAINT(193)

       R08993DS: ./ I 967000 $
       R08993DS:          SR    RG9,RG9              INITIALIZE REG 9           @VA08993
       R08993DS: ./ R 968000 $
       R08993DS:          ICM   RG9,3,BUFFER+10      GET LENGTH OF MACRO DICT.  @VA08993
 BEGIN APPLY >>> ./ I 967000 $
   END APPLY >>> ./ I 967000 $
 BEGIN APPLY >>> ./ R 968000 $
   END APPLY >>> ./ R 968000 $
Update Succeeded
Update Execution Time 16 milliseconds.

Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)

       R12809DS: ./ I 00053000          $ 00053500 500
       R12809DS: *           LIBRARY IS ERASED IF LAST MEMBER IS DELETED        @VA12809
       R12809DS: ./ R 00186000          $ 00186000 500
       R12809DS: *        REMAIN IN THE LIBRARY FILE UNTIL COMPACTED. THE       @VA12809
       R12809DS: *        LIBRARY IS ERASED IF THE LAST MEMBER IS DELETED.      @VA12809
       R12809DS: ./ I 00716000          $ 00716010 10
       R12809DS:          TM    FLAG,NOMEMBER HAVE WE FOUND A MEMBER YET?       @VA12809
       R12809DS:          BNO   SRCHOVER       YES, DON'T SEARCH ANY FURTHER    @VA12809
       R12809DS:          CR    RG7,RG9        ARE WE AT END OF DICTIONARY?     @VA12809
       R12809DS:          BNL   ERASELIB       YES, NO MEMBERS LEFT, DELETE LIB @VA12809
       R12809DS: SEEKMEMB EQU   *                                               @VA12809
       R12809DS:          CLC   0(8,RG7),=8X'00' IS THIS A NULL ENTRY?          @VA12809
       R12809DS:          BE    SKPRESET       YES, GO SET UP FOR THE NEXT ONE  @VA12809
       R12809DS:          NI    FLAG,255-NOMEMBER NO, LIBRARY IS NOT EMPTY      @VA12809
       R12809DS:          B     SRCHOVER       MEMBER FOUND, SEARCH OVER        @VA12809
       R12809DS: SKPRESET EQU   *                                               @VA12809
       R12809DS:          BXLE  RG7,RG8,SEEKMEMB GO TRY THE NEXT ONE            @VA12809
       R12809DS: ERASELIB EQU   *                                               @VA12809
       R12809DS:          LA    R1,OUT         POINT TO OUTPUT FILE             @VA12809
       R12809DS:          MVC   0(8,R1),=CL8'ERASE' SET UP TO ERASE LIBRARY     @VA12809
       R12809DS:          SVC   202            AND DO IT                        @VA12809
       R12809DS:          DC    AL4(*+4)                                        @VA12809
       R12809DS:          B     ERR213W        GO TELL USER LIBRARY ERASED      @VA12809
       R12809DS: SRCHOVER EQU   *                                               @VA12809
       R12809DS: ./ I 00998000          $ 00998500 500
       R12809DS:          OI    FLAG,NOMEMBER IN CASE WE DELETE LAST MEMBER     @VA12809
       R12809DS: ./ I 01005000          $ 01005200 200
       R12809DS:          CLC   0(8,RG7),=8X'00' NO, THEN IS THIS A NULL ENTRY? @VA12809
       R12809DS:          BE    CONTSEEK       YES, KEEP LOOKING                @VA12809
       R12809DS:          NI    FLAG,255-NOMEMBER NO, SHOW LIB IS NOT EMPTY     @VA12809
       R12809DS: CONTSEEK EQU   *                                               @VA12809
       R12809DS: ./ R 01039000          $ 01039000 500
       R12809DS:          DMSERR TEXT='LIBRARY ''........'' MACLIB NOT CREATED, OR ERASEX
       R12809DS:                D IF NO MEMBERS LEFT',                          @VA12809X
       R12809DS: ./ I 01275800          $ 01275830 30
       R12809DS: FLAG     DC    X'00'          FLAG BYTE                        @VA12809
       R12809DS: NOMEMBER EQU   X'08'          NO MEMBERS LEFT IN LIBRARY       @VA12809
 BEGIN APPLY >>> ./ I 00053000          $ 00053500 500
   END APPLY >>> ./ I 00053000          $ 00053500 500
 BEGIN APPLY >>> ./ R 00186000          $ 00186000 500
   END APPLY >>> ./ R 00186000          $ 00186000 500
 BEGIN APPLY >>> ./ I 00716000          $ 00716010 10
   END APPLY >>> ./ I 00716000          $ 00716010 10
 BEGIN APPLY >>> ./ I 00998000          $ 00998500 500
   END APPLY >>> ./ I 00998000          $ 00998500 500
 BEGIN APPLY >>> ./ I 01005000          $ 01005200 200
   END APPLY >>> ./ I 01005000          $ 01005200 200
 BEGIN APPLY >>> ./ R 01039000          $ 01039000 500
   END APPLY >>> ./ R 01039000          $ 01039000 500
 BEGIN APPLY >>> ./ I 01275800          $ 01275830 30
   END APPLY >>> ./ I 01275800          $ 01275830 30
Update Succeeded
Update Execution Time 31 milliseconds.

Date Wednesday Aug 05, 1981 07:24:00 AM
Loaded from MAINT(193)

       R13802DS: ./ R 01004000 01005000 $ 01004000 500
       R13802DS: SEEKLP   EQU   *                                               @VA13802
       R13802DS: ./ I 01005800          $ 01005900 50
       R13802DS:          CLC   0(8,RG7),0(PLIST)   IS THIS THE ONE             @VA13802
       R13802DS:          BCR   8,SUBR         BR ON YES                        @VA13802
 BEGIN APPLY >>> ./ R 01004000 01005000 $ 01004000 500
   END APPLY >>> ./ R 01004000 01005000 $ 01004000 500
 BEGIN APPLY >>> ./ I 01005800          $ 01005900 50
   END APPLY >>> ./ I 01005800          $ 01005900 50
Update Succeeded
Update Execution Time 16 milliseconds.

Date Sunday Mar 11, 2018 06:54:00 PM
Loaded from MAINT(093)

       HRC015DS: ./ R 00931000          $ 00931100 100
       HRC015DS:          L     TEMP,FVSFSTAD-STATEFST(TEMP) Get ADT for file   HRC015DS
       HRC015DS: ./ I 01350000          $ 01350100 100
       HRC015DS:          FVS                                                   HRC015DS
 BEGIN APPLY >>> ./ R 00931000          $ 00931100 100
   END APPLY >>> ./ R 00931000          $ 00931100 100
 BEGIN APPLY >>> ./ I 01350000          $ 01350100 100
   END APPLY >>> ./ I 01350000          $ 01350100 100
Update Succeeded
Update Execution Time 23 milliseconds.