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.