• Abstract / Synopsis of DMSGLB
• Latest Source of DMSGLB
• Fixes Applied : 1
• Latest Source Date : Tuesday, December 12, 1978
• Last Fix ID : [R13906DS]

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

1. R13906DS 627 UV06120 DMSGLB GLOBAL DOESN'T TEST RETURN CODE FROM RDBUF.

Date Friday Jan 15, 1982 04:28:00 PM
Loaded from MAINT(193)

       R13906DS: ./ I 00140900          $ 00140910 10
       R13906DS:          BZ    RECORDOK       NO ERROR, SKIP TESTING RC.       @VA13906 01961500
       R13906DS:          CH    R15,=H'01'     IS IT FILE NOT FOUND?            @VA13906 01963000
       R13906DS:          BNE   CHKRC08        NO, SEE IF IT RC=08.             @VA13906 01964500
       R13906DS:          OI    SWT,DOSOS      YES, THEN IT MUST BE DOS/OS DISK.@VA13906 01966000
       R13906DS:          B     RECORDOK       SKIP TEST FOR RC=08.             @VA13906
       R13906DS: CHKRC08  EQU   *                                               @VA13906
       R13906DS:          CH    R15,=H'08'     IS THE RECORD TOO BIG FOR BUFFER?@VA13906
       R13906DS:          BNE   ERR104S        NO, MUST BE A VALID ERROR.       @VA13906
       R13906DS: RECORDOK EQU   *                                               @VA13906 01967500
       R13906DS: ./ I 00141300          $ 00141310 10
       R13906DS:          TM    SWT,DOSOS      IS THIS A DOS/OS DISK?           @VA13906 02001000
       R13906DS:          BO    CHKCALL        YES, DON'T CHECK FOR 'LIB'.      @VA13906 02002000
       R13906DS:          CLC   BUFFER(3),=CL3'LIB' CHECK FOR VALID CMS LIBRARY.@VA13906 02003000
       R13906DS:          BE    CHKCALL        OK, SEE WHO IS CALLING.          @VA13906 02004000
       R13906DS:          CLC   BUFFER+3(3),=CL3'LIB' CHECK FOR VALID CMS LIB.  @VA13906 02005000
       R13906DS:          BNE   ERR056E        GIVE INVALID FORMAT MESSAGE.     @VA13906 02006000
       R13906DS: CHKCALL  EQU   *                                               @VA13906 02007000
       R13906DS: ./ I 00170000          $ 00170100 100
       R13906DS: ERR056E  EQU   *                                               @VA13906 02581000
       R13906DS:          LA    R2,8(,R13)     POINT TO FILENAME.               @VA13906 02582000
       R13906DS:          DMSERR TEXT=('FILE ''....................'' ',        @VA13906X02583000
       R13906DS:                'CONTAINS INVALID RECORD FORMATS'),NUM=56,      @VA13906X02584000
       R13906DS:                LET=E,SUB=(CHAR8A,(R2))                         @VA13906 02585000
       R13906DS:          LA    R7,32          SET ERROR CODE FOR CMS.          @VA13906 02586000
       R13906DS:          B     MMVC1          PROCESS NEXT NAME.               @VA13906 02587000
       R13906DS: ./ I 00174000          $ 00174100 100
       R13906DS: ERR104S  EQU   *                                               @VA13906 02621000
       R13906DS:          LA    R2,8(,R13)     POINT TO FILENAME.               @VA13906 02622000
       R13906DS:          LR    R7,R15         GET ERROR CODE FOR MESSAGE.      @VA13906 02623000
       R13906DS:          DMSERR TEXT=('ERROR ''..'' READING FILE ',            @VA13906X02624000
       R13906DS:                '''................'' FROM DISK'),MF=(E,MSG),   @VA13906X02625000
       R13906DS:                NUM=104,LET=S,SUB=(DEC,(R7),CHAR8A,(R2))        @VA13906 02626000
       R13906DS:          LA    R7,100         SET ERROR CODE FOR CMS.          @VA13906 02627000
       R13906DS:          B     MMVC1          PROCESS NEXT NAME.               @VA13906 02628000
       R13906DS: ./ I 00179000          $ 00179300 300
       R13906DS: MSG      EQU   *                                               @VA13906 02673000
       R13906DS:          DMSERR MF=L,MAXSUBS=2 MSG AREA FOR RDBUF ERRORS.      @VA13906 02676000
       R13906DS: ./ I 00188850          $ 00188885 10
       R13906DS: DOSOS    EQU   X'01'          DOS/OS DISK INDICATOR.           @VA13906 03025000
 BEGIN APPLY >>> ./ I 00140900          $ 00140910 10
   END APPLY >>> ./ I 00140900          $ 00140910 10
 BEGIN APPLY >>> ./ I 00141300          $ 00141310 10
   END APPLY >>> ./ I 00141300          $ 00141310 10
 BEGIN APPLY >>> ./ I 00170000          $ 00170100 100
   END APPLY >>> ./ I 00170000          $ 00170100 100
 BEGIN APPLY >>> ./ I 00174000          $ 00174100 100
   END APPLY >>> ./ I 00174000          $ 00174100 100
 BEGIN APPLY >>> ./ I 00179000          $ 00179300 300
   END APPLY >>> ./ I 00179000          $ 00179300 300
 BEGIN APPLY >>> ./ I 00188850          $ 00188885 10
   END APPLY >>> ./ I 00188850          $ 00188885 10
Update Succeeded
Update Execution Time 16 milliseconds.