DMSSOP History
References
-
-
Fixes Applied : 22
-
Last Fix ID : [R14488DS]
Update History
CMS File Input : DMSSOP ASSEMBLE
Date : 12/12/1978 8:34:00 AM
VM Context : MAINT(393)
File Name : DMSSOP.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:32 AM
Created : 1/16/2021 7:31:32 AM
Update Order
R08930DS 601 FORTRAN READ/WRITE TO TAPE DOES NOT WRITE TAPE MARK
R09421DS 602 TAPE MARK IS NOT WRITTEN TO SMALL FILE WITH MACRF OF PM
R08866DS 602 CPEREP MERGE = YES ABENDS 0C4
R09291DS 602 PDS DIRECTORY NOT FRET AFTER DMSSOP036E OPEN ERROR CODE 8
R09567DS 602 DMSSOP CAUSES AN INCORRECT RECORD COUNT AFTER SUBSET WAS ACTIVE
R10414DS 609 INVALID FMODE '*4' AFTER MOVEFILE FROM
OS FILE
R10680DS 610 WHEN KEYLEN=0 IN DCB FCBRECFM NOT MERGED INTO DCB DMSSOP
R10560DS 610 ERROR MESSAGE ON OPEN FOR QSAM GET/LOCATE WITH SPANNED RECORDS
R09484DS 610 DOESN'T SAVE ACTUAL MODE OF FILE WHEN FILEMODE = '*'
R09654DS 610 MSGDMSSOP036E FOR FT06F001 OPEN WHEN LRECL EXCEEDS 129
R10276DS 611 UV00541 FORTRAN ENDFILE STATEMENT ALTERS FST RECORD
R10705DS 612 UV00712 DMSSOP STORAGE LEFT FOR PDSMOVE MEMBER NOT FOUND
R11273DS 613 UV01378 DMSSOP DOES NOT WTM ON TAPE OPEN/CLOSE BUT NO WRITE
R11433DS 614 UV01503 OPEN ERROR ON TAPE RECFM VS LRECL LARGER THAN BLOCK
R10775DS 614 UV01556 DCB SAVE AREA INCORRECTLY SAVED AND FREED BY DMSSOP
R11278DS 615 UV01720 STORAGE NOT FREED AFTER MULTIPLE FI FOR
OS PDS D.S.
R12049DS 621 UV03387 DMSSVT120S OUTPUT ERROR IF FILE ON EXTENSION DISK
R13742DS 623 UV04806 GOODOPEN FLG TURNED ON TO ALLOW CLOSE FOR EXCP
R13031DS 623 UV05202 MSDMSFRE161T RC=6 USING
OS CONCATENATED MACLIBS
R13863DS 625 UV05247 DMSSOP PREVENT LOSING FILE MODE INFO AFTER STATE
R14182DS 625 UV05386 DMSFRE161T RC=6 WHEN
OS PDS FILEDEF IS CLEARED
R14488DS 626 UV05802 MSDMSSOP036E RC=11 IF FILE ON READ-ONLY EXTENSION DISK
R08930DS
Date Tuesday Jan 30, 1979 01:12:00 AM
Loaded from MAINT(193)
R08930DS: ./ R 1364000 $ 1364000
R08930DS: TM DEBOPATB,OPNOUT DATASET OPENED AS OUTPUT? @VA08930
BEGIN APPLY >>> ./ R 1364000 $ 1364000
END APPLY >>> ./ R 1364000 $ 1364000
Update Succeeded
Update Execution Time 23 milliseconds.
R09421DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09421DS: ./ I 1320000 $ 1320500 500
R09421DS: OI DCBOFLGS,PREVIOUS LAST I/O WAS WRITE @VA09421
BEGIN APPLY >>> ./ I 1320000 $ 1320500 500
END APPLY >>> ./ I 1320000 $ 1320500 500
Update Succeeded
Update Execution Time 16 milliseconds.
R08866DS
Date Monday May 07, 1979 11:58:00 AM
Loaded from MAINT(193)
R08866DS: ./ R 554000 $ 554100 100
R08866DS: CKMACRF EQU * @VA08866
R08866DS: TM DCBMACRF,DCBMRECP EXCP DCB @VA08866
R08866DS: BO OP1 YES @VA08866
R08866DS: TM DCBMACRF,QS IS THIS QSAM ? @VA08866
R08866DS: ./ I 672000 $ 672100 100
R08866DS: TM DCBMACRF,DCBMRECP EXCP DCB @VA08866
R08866DS: BO TSECT YES @VA08866
R08866DS: ./ I 742000 $ 742100 100
R08866DS: TM DCBMACRF,DCBMRECP EXCP DCB @VA08866
R08866DS: BO OPENED YES @VA08866
R08866DS: ./ I 1467000 $ 1467100 100
R08866DS: TM DCBMACR,DCBMRECP EXCP DCB @VA08866
R08866DS: BO CLOSED YES @VA08866
R08866DS: ./ I 1569000 $ 1569100 100
R08866DS: DCBMRECP EQU X'80' EXCP DCB @VA08866
BEGIN APPLY >>> ./ R 554000 $ 554100 100
END APPLY >>> ./ R 554000 $ 554100 100
BEGIN APPLY >>> ./ I 672000 $ 672100 100
END APPLY >>> ./ I 672000 $ 672100 100
BEGIN APPLY >>> ./ I 742000 $ 742100 100
END APPLY >>> ./ I 742000 $ 742100 100
BEGIN APPLY >>> ./ I 1467000 $ 1467100 100
END APPLY >>> ./ I 1467000 $ 1467100 100
BEGIN APPLY >>> ./ I 1569000 $ 1569100 100
END APPLY >>> ./ I 1569000 $ 1569100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R09291DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09291DS: ./ R 01037000 01039000 $ 1037000 200
R09291DS: BZ BUFFPOOL YES, GET BUFFERS @VA09291
R09291DS: L R0,FCBPDS GET PDS ADDRESS @VA09291
R09291DS: LTR R0,R0 IS IT ZERO @VA09291
R09291DS: BZ BADFIND YES, DO NOT FRET @VA09291
R09291DS: SR R0,R0 CLEAR REG @VA09291
R09291DS: BCTR R0,R0 FRET PDS DIRECTORY CORE @VA09291
R09291DS: SVC 203 IN DMSSVT @VA09291
R09291DS: DC H'-3' SVC 203 ENTRY @VA09291
R09291DS: BADFIND EQU * @VA09291
R09291DS: LA R15,8 SET OPEN ERROR @VA09291
R09291DS: B BADDCB ISSUE ERROR MESSAGE @VA09291
BEGIN APPLY >>> ./ R 01037000 01039000 $ 1037000 200
END APPLY >>> ./ R 01037000 01039000 $ 1037000 200
Update Succeeded
Update Execution Time 23 milliseconds.
R09567DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09567DS: ./ I 1419000 $ 1419350 350
R09567DS: LTR R15,R15 IF AFT WAS JUST CREATED @VA09567
R09567DS: BZ SKIPITEM SKIP UPDATING THE ITEM COUNT @VA09567
R09567DS: ./ I 1423000 $ 1423500
R09567DS: SKIPITEM EQU * @VA09567
BEGIN APPLY >>> ./ I 1419000 $ 1419350 350
END APPLY >>> ./ I 1419000 $ 1419350 350
BEGIN APPLY >>> ./ I 1423000 $ 1423500
END APPLY >>> ./ I 1423000 $ 1423500
Update Succeeded
Update Execution Time 16 milliseconds.
R10414DS
Date Tuesday Jan 22, 1980 04:41:00 PM
Loaded from MAINT(193)
R10414DS: ./ I 1459000 $ 1459100 100
R10414DS: * IF FILEMODE WAS CHANGED TO '*4' CHANGE IT BACK TO '* '
R10414DS: CLI FCBDSMD,C'*' FILEMODE = '*'? @VA10414
R10414DS: BNE CL2A NO,NEVER MIND @VA10414
R10414DS: CLI FCBDSMD+1,C' ' FILEMODE = '* '? @VA10414
R10414DS: BE CL2A YES,ALL OK @VA10414
R10414DS: MVI FCBDSMD+1,C' ' BLANK OUT MODE NUMBER @VA10414
R10414DS: CL2A EQU * @VA10414
BEGIN APPLY >>> ./ I 1459000 $ 1459100 100
END APPLY >>> ./ I 1459000 $ 1459100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R10680DS
Date Wednesday Feb 27, 1980 02:04:00 AM
Loaded from MAINT(193)
R10680DS: ./ R 00715000 $ 00715000
R10680DS: TRECFM TM DCBRECFM,X'FE' WAS RECFM SPECIFIED? @VA10680
R10680DS: ./ R 00720000 $ 00720000
R10680DS: OC DCBRECFM(1),FCBRECFM USE FCB ENTRY @VA10680
R10680DS: ./ R 01480000 $ 01480000
R10680DS: NI DCBRECFM,X'01' RESET RECFM FLAGS @VA10680
BEGIN APPLY >>> ./ R 00715000 $ 00715000
END APPLY >>> ./ R 00715000 $ 00715000
BEGIN APPLY >>> ./ R 00720000 $ 00720000
END APPLY >>> ./ R 00720000 $ 00720000
BEGIN APPLY >>> ./ R 01480000 $ 01480000
END APPLY >>> ./ R 01480000 $ 01480000
Update Succeeded
Update Execution Time 16 milliseconds.
R10560DS
Date Thursday Mar 13, 1980 03:05:00 AM
Loaded from MAINT(193)
R10560DS: ./ R 65000 66000 $ 64800 700
R10560DS: * 7. RECFM IS VARIABLE SPANNED AND EITHER FILEMODE IS NOT
R10560DS: * 4 OR ACCESS METHOD IS NOT BSAM OR IS NOT QSAM WITH
R10560DS: * GET LOCATE MODE.
R10560DS: ./ R 943000 $ 943200 200
R10560DS: BNO CKFILMOD NO, CHECK FILEMODE @VA10560
R10560DS: CLI DCBMACRF,X'48' GET/LOCATE VBS? @VA10560
R10560DS: BNE BADDCB NO, MACRF NOT SUPPORTED @VA10560
R10560DS: CKFILMOD EQU * @VA10560
BEGIN APPLY >>> ./ R 65000 66000 $ 64800 700
END APPLY >>> ./ R 65000 66000 $ 64800 700
BEGIN APPLY >>> ./ R 943000 $ 943200 200
END APPLY >>> ./ R 943000 $ 943200 200
Update Succeeded
Update Execution Time 31 milliseconds.
R09484DS
Date Thursday Mar 13, 1980 03:05:00 AM
Loaded from MAINT(193)
R09484DS: ./ R 802000 $ 802000
R09484DS: BE CKFSTM MODE IS * @VA09484
R09484DS: ./ I 804000 $ 804100 100
R09484DS: CKFSTM EQU * CHECK MODE IN FST @VA09484
R09484DS: NI JFCBIND2,255-M4FLAG RESET MODE 4 FLAG FIRST @VA09484
R09484DS: CLI 25(14),C'4' MODE IN FST = 4? @VA09484
R09484DS: BNE GETREG1 NO, CONTINUE @VA09484
R09484DS: OI JFCBIND2,M4FLAG YES,SET M4FLAG IN FCB @VA09484
R09484DS: B GETREG1 GO TO EXITLIST @VA09484
R09484DS: ./ I 01459700 $ 1459800
R09484DS: NI JFCBIND2,255-M4FLAG TURN OFF MODE 4 FLAG @VA09484
R09484DS: ./ I 1583000 $ 1583100
R09484DS: M4FLAG EQU X'01' FM IN FCB=*, MODE IS 4 @VA09484
BEGIN APPLY >>> ./ R 802000 $ 802000
END APPLY >>> ./ R 802000 $ 802000
BEGIN APPLY >>> ./ I 804000 $ 804100 100
END APPLY >>> ./ I 804000 $ 804100 100
BEGIN APPLY >>> ./ I 01459700 $ 1459800
END APPLY >>> ./ I 01459700 $ 1459800
BEGIN APPLY >>> ./ I 1583000 $ 1583100
END APPLY >>> ./ I 1583000 $ 1583100
Update Succeeded
Update Execution Time 16 milliseconds.
R09654DS
Date Thursday Mar 13, 1980 03:06:00 AM
Loaded from MAINT(193)
R09654DS: ./ R 977000 $ 976400 400
R09654DS: RECLOW EQU * @VA09654
R09654DS: TM DCBRECFM,VAR LENGTH VARIABLE? @VA09654
R09654DS: BNO SETSIZE NO, FIXED-LENGTH RECORDS @VA09654
R09654DS: LA R11,4(R11) ADD 4 TO LRECL @VA09654
BEGIN APPLY >>> ./ R 977000 $ 976400 400
END APPLY >>> ./ R 977000 $ 976400 400
Update Succeeded
Update Execution Time 23 milliseconds.
R10276DS
Date Wednesday Apr 09, 1980 03:26:00 AM
Loaded from MAINT(193)
R10276DS: ./ I 1409000 $ 1409100 100
R10276DS: TM DCBDSORG,X'40' CHECK FILE ORGANIZATION @VA10276
R10276DS: BZ GETAFT NOT SEQUENTIAL @VA10276
R10276DS: TM DCBCIND2,X'80' UPDATE PROCESSING? @VA10276
R10276DS: BO GETAFT YES, BYPASS READ TEST @VA10276
R10276DS: TM DEBOPATB,X'04' USING OUTPUT OR OUTIN METHOD? @VA10276
R10276DS: BO GETAFT YES, BYPASS READ TEST @VA10276
R10276DS: TM IOBFLG,IOBIN WAS READ IN PROCESS? @VA10276
R10276DS: BO DOFINIS YES, FILE STATUS UNCHANGED @VA10276
R10276DS: GETAFT EQU * @VA10276
BEGIN APPLY >>> ./ I 1409000 $ 1409100 100
END APPLY >>> ./ I 1409000 $ 1409100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R10705DS
Date Wednesday May 07, 1980 04:11:00 AM
Loaded from MAINT(193)
R10705DS: ./ R 1222000 1224000 $ 1221500 500
R10705DS: L R13,CURRSAVE RESTORE ADDRESS OF SAVEAREA @VA10705
R10705DS: MVC FCBOP(8),=CL8'FINIS' SET TO FINIS FILE @VA10705
R10705DS: LA R1,FCBOP @VA10705
R10705DS: SVC 202 @VA10705
R10705DS: DC AL4(*+4) @VA10705
BEGIN APPLY >>> ./ R 1222000 1224000 $ 1221500 500
END APPLY >>> ./ R 1222000 1224000 $ 1221500 500
Update Succeeded
Update Execution Time 16 milliseconds.
R11273DS
Date Friday Jun 06, 1980 06:06:00 AM
Loaded from MAINT(193)
R11273DS: ./ I 1367150 $ 1367175 25
R11273DS: * MAY BE VAR OR UND OUTPUT DATA SET AND NO WRITE DONE
R11273DS: TM DEBOPATB,DEBOUTPT D.S. OPENED FOR OUTPUT @VA11273
R11273DS: BO TAPEWTM YES, WRITE TAPE MARK @VA11273
R11273DS: ./ I 1562000 $ 1562100 100
R11273DS: DEBOUTPT EQU X'0F' TEST FOR OUTPUT ONLY OPTION @VA11273
BEGIN APPLY >>> ./ I 1367150 $ 1367175 25
END APPLY >>> ./ I 1367150 $ 1367175 25
BEGIN APPLY >>> ./ I 1562000 $ 1562100 100
END APPLY >>> ./ I 1562000 $ 1562100 100
Update Succeeded
Update Execution Time 23 milliseconds.
R11433DS
Date Friday Jun 27, 1980 06:12:00 AM
Loaded from MAINT(193)
R11433DS: ./ D 938000 939000
R11433DS: ./ I 943800 $ 943850 50
R11433DS: CLI FCBDEV,FCBTAP IS IT TAPE DEVICE @VA11433
R11433DS: BE SETSIZE YES, BYPASS SETTING FILEMOD @VA11433
BEGIN APPLY >>> ./ D 938000 939000
END APPLY >>> ./ D 938000 939000
BEGIN APPLY >>> ./ I 943800 $ 943850 50
END APPLY >>> ./ I 943800 $ 943850 50
Update Succeeded
Update Execution Time 16 milliseconds.
R10775DS
Date Friday Jun 27, 1980 06:20:00 AM
Loaded from MAINT(193)
R10775DS: ./ I 1057000 $ 1057100 100
R10775DS: L R9,DCBSAV SAVE CURRENT DCB SAVE AREA @VA10775
R10775DS: ./ I 1069000 $ 1069100 100
R10775DS: ST R9,DCBSAV RESTORE CURR DCB SAVE AREA @VA10775
BEGIN APPLY >>> ./ I 1057000 $ 1057100 100
END APPLY >>> ./ I 1057000 $ 1057100 100
BEGIN APPLY >>> ./ I 1069000 $ 1069100 100
END APPLY >>> ./ I 1069000 $ 1069100 100
Update Succeeded
Update Execution Time 16 milliseconds.
R11278DS
Date Thursday Jul 31, 1980 07:21:00 AM
Loaded from MAINT(193)
R11278DS: ./ D 671000
R11278DS: ./ D 1461000
BEGIN APPLY >>> ./ D 671000
END APPLY >>> ./ D 671000
BEGIN APPLY >>> ./ D 1461000
END APPLY >>> ./ D 1461000
Update Succeeded
Update Execution Time 23 milliseconds.
R12049DS
Date Wednesday Jun 10, 1981 04:22:00 AM
Loaded from MAINT(193)
R12049DS: ./ I 00074400 $ 74410 10 04/21/81 09:20:33
R12049DS: * 11. I/O OPTION 'UPDATE' IS INVALID FOR A FILE @VA12049 00074410
R12049DS: * FOUND ON A READ-ONLY EXTENSION. OUTPUT FILE @VA12049 00074420
R12049DS: * WITH DISP=MOD OR DSORG=PO MEANS UPDATE, SO @VA12049 00074430
R12049DS: * IT MAY NOT EXIST ON READ-ONLY EXTENSION. @VA12049 00074440
R12049DS: * @VA12049 00074450
R12049DS: ./ R 00507000 00510000 $ 507000 100 04/21/81 09:20:33
R12049DS: LA R11,COMOPEN CONTINUE OPEN @VA12049 00507000
R12049DS: B IOSETUP AFTER SETUP @VA12049
R12049DS: * 01240000
R12049DS: * TEMPARARILY CLOSE A DCB - SVC 23. 01241000
R12049DS: * 01242000
R12049DS: DMSSOP23 DS 0H 01243000
R12049DS: USING *,R12 01244000
R12049DS: LA R9,C'T' OSIOTYPE = "T" 01245000
R12049DS: LA R11,COMCLOSE 01246000
R12049DS: B IOSETUP 01247000
R12049DS: SPACE 3 01249000
R12049DS: * 01250000
R12049DS: * CLOSE A DCB - SVC 20. 01251000
R12049DS: * 01252000
R12049DS: DMSSOP20 DS 0H SVC 20. 01253000
R12049DS: USING *,R12 01254000
R12049DS: LA R9,C'C' OSIOTYPE = "C" 01255000
R12049DS: LA R11,COMCLOSE CONTINUE CLOSE @VA12049 01256000
R12049DS: * @VA12049 00507200
R12049DS: * COMMON ENTRANCE INITIALIZATION ROUTINE @VA12049 00507400
R12049DS: * @VA12049 00507600
R12049DS: IOSETUP DS 0H @VA12049 00507800
R12049DS: L R13,CURRSAVE POINT TO SYSTEM SAVE ARE@VA12049 00508000
R12049DS: BALR R12,0 @VA12049 00508200
R12049DS: USING *,R12 @VA12049 00508400
R12049DS: L R3,AOPSECT V(I/O SECTION) @VA12049 00508600
R12049DS: STC R9,OSIOTYPE SET TYPE INDICATOR @VA12049 00508800
R12049DS: L R12,AIOMAN GET COMMON ADDRESSABILITY @VA12049 00509000
R12049DS: LA R10,4095(R12) SECOND BASE REG SET UP @VA12049 00509200
R12049DS: LA R10,1(R10) AT FIRST BASE REG PLUS 1K @VA12049 00509400
R12049DS: ST R1,EGPR0 SAVE SVC PLIST POINTER @VA12049 00509600
R12049DS: BR R11 RETURN TO CORRECT ROUTINE @VA12049 00509800
R12049DS: AIOMAN DC A(DMSSOP) ADCON TO DMSSOP ENTRY @VA12049 00510000
R12049DS: * @VA12049 00510200
R12049DS: ./ R 00515000 00515500 $ 515000 1000 04/21/81 09:20:33
R12049DS: USING DMSSOP,R12,R10 @VA12049 00515000
R12049DS: ./ R 00773500 $ 773500 500 04/21/81 09:20:33
R12049DS: BO UPDATE YES, CHECK FOR UPDATE @VA12049 00773500
R12049DS: ./ I 00843000 $ 843070 70 04/21/81 09:20:33
R12049DS: UPDATE EQU * CHECK FOR UPDATE @VA12049 00843070
R12049DS: USING FSTD,R14 FST ADDRESSABILITY @VA12049 00843140
R12049DS: TM JFCBIND2,X'80' DISP=MOD ? @VA12049 00843210
R12049DS: BO UPDTERR YES , UPDATE ERROR @VA12049 00843280
R12049DS: TM DCBDSORG,PO PARTITIONED DATASET ? @VA12049 00843350
R12049DS: BO UPDTERR YES, UPDATE ERROR @VA12049 00843420
R12049DS: TM BINZERO(R8),OPNOUT OUTPUT OR OUTIN ? @VA12049 00843490
R12049DS: BO CHKASTRK YES, NO ERROR @VA12049 00843560
R12049DS: DROP R14 DROP FST ADDRESSABILITY @VA12049 00843630
R12049DS: UPDTERR EQU * UPDATE ERROR @VA12049 00843700
R12049DS: LA R15,11 OPEN ERROR CODE 11 @VA12049 00843770
R12049DS: B BADDCB OPEN FAILS @VA12049 00843840
R12049DS: ./ D 01240000 01258000 04/21/81 09:20:33
R12049DS: ./ D 01533000 01545000 04/21/81 09:20:33
R12049DS: ./ D 01556000 04/21/81 09:20:33
BEGIN APPLY >>> ./ I 00074400 $ 74410 10 04/21/81 09:20:33
END APPLY >>> ./ I 00074400 $ 74410 10 04/21/81 09:20:33
BEGIN APPLY >>> ./ R 00507000 00510000 $ 507000 100 04/21/81 09:20:33
END APPLY >>> ./ R 00507000 00510000 $ 507000 100 04/21/81 09:20:33
BEGIN APPLY >>> ./ R 00515000 00515500 $ 515000 1000 04/21/81 09:20:33
END APPLY >>> ./ R 00515000 00515500 $ 515000 1000 04/21/81 09:20:33
BEGIN APPLY >>> ./ R 00773500 $ 773500 500 04/21/81 09:20:33
END APPLY >>> ./ R 00773500 $ 773500 500 04/21/81 09:20:33
BEGIN APPLY >>> ./ I 00843000 $ 843070 70 04/21/81 09:20:33
END APPLY >>> ./ I 00843000 $ 843070 70 04/21/81 09:20:33
BEGIN APPLY >>> ./ D 01240000 01258000 04/21/81 09:20:33
END APPLY >>> ./ D 01240000 01258000 04/21/81 09:20:33
BEGIN APPLY >>> ./ D 01533000 01545000 04/21/81 09:20:33
END APPLY >>> ./ D 01533000 01545000 04/21/81 09:20:33
BEGIN APPLY >>> ./ D 01556000 04/21/81 09:20:33
END APPLY >>> ./ D 01556000 04/21/81 09:20:33
Update Succeeded
Update Execution Time 31 milliseconds.
R13742DS
Date Tuesday Sep 08, 1981 08:10:00 AM
Loaded from MAINT(193)
R13742DS: ./ R 01467200 $ 01467200
R13742DS: BO CLOSEXCP YES @VA13742
R13742DS: ./ I 01523000 $ 01523500 500
R13742DS: CLOSEXCP NI DCBOFLGS,255-GOODOPEN SIGNAL: DCB CLOSED @VA13742
BEGIN APPLY >>> ./ R 01467200 $ 01467200
END APPLY >>> ./ R 01467200 $ 01467200
BEGIN APPLY >>> ./ I 01523000 $ 01523500 500
END APPLY >>> ./ I 01523000 $ 01523500 500
Update Succeeded
Update Execution Time 16 milliseconds.
R13031DS
Date Tuesday Sep 08, 1981 08:19:00 AM
Loaded from MAINT(193)
R13031DS: ./ R 1440000 $ 1439080 80 08/12/81 09:09:49
R13031DS: DOFINIS EQU * @VA13031
R13031DS: TM MACDIRC,X'80' IS HIGH ORDER BIT ON @VA13031
R13031DS: * INDICATING OSFST PTR THERE ? @VA13031
R13031DS: BZ DOFINIS1 NO, GO AHEAD AND DO FINIS @VA13031
R13031DS: TM FCBNEXT,FCBCATML IS IT CONCATENATED ??? @VA13031
R13031DS: BZ DOFINIS1 NO, GO AHEAD AND DO FINIS @VA13031
R13031DS: TM FCBNEXT,FCBDOSL DOSLIB ? @VA13031
R13031DS: BNZ DOFINIS1 IF SO, GO AHEAD AND DO FINIS @VA13031
R13031DS: L R1,FCBFIRST GET FIRST FCB @VA13031
R13031DS: FCBLOOP EQU * @VA13031
R13031DS: LA R1,0(,R1) CLEAR HIGH BYTE @VA13031
R13031DS: LTR R1,R1 IS IT ZERO ?? @VA13031
R13031DS: BZ DOFINIS1 YES, NOTHING LEFT TO CHECK @VA13031
R13031DS: CLC FCBDD-FCBSECT(8,R1),FCBDD COMPARE DD NAME OF FCB@VA13031
R13031DS: * WE'RE CLOSING WITH THE @VA13031
R13031DS: * ONE WE'RE POINTING TO @VA13031
R13031DS: BE FOUNDIT THEY'RE EQUAL..GOT IT @VA13031
R13031DS: L R1,FCBNEXT-FCBSECT(R1) GET NEXT FCB IN CHAIN @VA13031
R13031DS: B FCBLOOP CHECK NEXT FCB @VA13031
R13031DS: FOUNDIT EQU * @VA13031
R13031DS: MVC FCBOSFST,MACDIRC RESET OSFST POINTER @VA13031
R13031DS: DOFINIS1 EQU * @VA13031
R13031DS: L R13,CURRSAVE RESTORE ADDR OF SAVE AREA @VA13031
BEGIN APPLY >>> ./ R 1440000 $ 1439080 80 08/12/81 09:09:49
END APPLY >>> ./ R 1440000 $ 1439080 80 08/12/81 09:09:49
Update Succeeded
Update Execution Time 23 milliseconds.
R13863DS
Date Tuesday Oct 06, 1981 10:34:00 AM
Loaded from MAINT(193)
R13863DS: ./ R 00772800 $ 772800 60 09/15/81 11:46:51
R13863DS: USING FSTD,R14 FST ADDRESSABILITY
R13863DS: TM FCBINIT,FCBDOSL+FCBCATML CONCATENATED LIBS ?? @VA13863
R13863DS: BNZ YESLIB YES DON'T MESS WITH FILE MODE @VA13863
R13863DS: MVC FCBDSMD(2),FSTFMODE WE FOUND IT SO SAVE IT @VA13863
R13863DS: YESLIB EQU * @VA13863
R13863DS: ./ D 00776500 09/15/81 11:46:51
BEGIN APPLY >>> ./ R 00772800 $ 772800 60 09/15/81 11:46:51
END APPLY >>> ./ R 00772800 $ 772800 60 09/15/81 11:46:51
BEGIN APPLY >>> ./ D 00776500 09/15/81 11:46:51
END APPLY >>> ./ D 00776500 09/15/81 11:46:51
Update Succeeded
Update Execution Time 16 milliseconds.
R14182DS
Date Thursday Oct 15, 1981 05:02:00 PM
Loaded from MAINT(193)
R14182DS: ./ R 01292000 $ 1292000 40 XEDIT 09/23/81 08:35:14
R14182DS: CKFORPDS EQU * CHECK FOR PDS @VA14182
R14182DS: LA R15,BINZERO SET REG 15 TO ZERO @VA14182
R14182DS: TM MACDIRC,X'80' IS HIGH ORDER BIT ON @VA14182
R14182DS: BZ FOUNDIT NO, CLEAR OSFST POINTER @VA14182
R14182DS: ICM R15,7,MACDIRC+1 YES, PUT IT IN REG 15 @VA14182
R14182DS: TM FCBNEXT,FCBCATML IS IT CONCATENATED ??? @VA14182
R14182DS: BZ FREEPDS NO, GO AHEAD AND FREE @VA14182
R14182DS: TM FCBNEXT,FCBDOSL DOSLIB ?? @VA14182
R14182DS: BNZ FREEPDS IF SO, GO AHEAD AND FREE @VA14182
R14182DS: L R1,FCBFIRST GET FIRST FCB @VA14182
R14182DS: FCBLOOP EQU * @VA14182
R14182DS: LA R1,0(,R1) CLEAR HIGH BYTE @VA14182
R14182DS: LTR R1,R1 IS IT ZERO ?? @VA14182
R14182DS: BZ FREEPDS YES, NOTHING LEFT TO CHECK @VA14182
R14182DS: CLC FCBDD-FCBSECT(8,R1),FCBDD COMPARE DD NAME OF FCB@VA14182
R14182DS: * WE'RE CLOSING WITH THE @VA14182
R14182DS: * ONE WE'RE POINTING TO @VA14182
R14182DS: BE FOUNDIT THEY'RE EQUAL..GOT IT @VA14182
R14182DS: L R1,FCBNEXT-FCBSECT(R1) GET NEXT FCB IN CHAIN @VA14182
R14182DS: B FCBLOOP CHECK NEXT FCB @VA14182
R14182DS: FOUNDIT EQU * @VA14182
R14182DS: STCM R15,7,FCBOSFST+1 RESET OSFST POINTER @VA14182
R14182DS: SPACE 1 @VA14182
R14182DS: FREEPDS EQU * @VA14182
R14182DS: L R0,FCBPDS GET PDS ADDR
R14182DS: ./ D 01439160 01440760 XEDIT 09/23/81 08:35:14
BEGIN APPLY >>> ./ R 01292000 $ 1292000 40 XEDIT 09/23/81 08:35:14
END APPLY >>> ./ R 01292000 $ 1292000 40 XEDIT 09/23/81 08:35:14
BEGIN APPLY >>> ./ D 01439160 01440760 XEDIT 09/23/81 08:35:14
END APPLY >>> ./ D 01439160 01440760 XEDIT 09/23/81 08:35:14
Update Succeeded
Update Execution Time 23 milliseconds.
R14488DS
Date Monday Dec 21, 1981 08:47:00 AM
Loaded from MAINT(193)
R14488DS: ./ R 00773100 $ 773100 400 XEDIT 11/20/81 07:48:58
R14488DS: TM FSTFLAGS,FSTXWDSK AN EXTENSION OF R/W DISK @VA14488 00773100
R14488DS: ./ D 00775000 XEDIT 11/20/81 07:48:58
R14488DS: ./ D 00843350 00843420 XEDIT 11/20/81 07:48:58
R14488DS: ./ I 00843560 $ 843580 20 XEDIT 11/20/81 07:48:58
R14488DS: TM DCBDSORG,PO PARTITIONED DATASET ? @VA14488 00843500
R14488DS: BNO CHKASTRK NO, CONTINUE OPEN @VA14488 00843600
BEGIN APPLY >>> ./ R 00773100 $ 773100 400 XEDIT 11/20/81 07:48:58
END APPLY >>> ./ R 00773100 $ 773100 400 XEDIT 11/20/81 07:48:58
BEGIN APPLY >>> ./ D 00775000 XEDIT 11/20/81 07:48:58
VMFApply WARNING - Error 0x8004001A Source Update2/Parse Description Non Numeric at 3
Output Written to 'C:\Users\sjzop\AppData\Local\Temp\dmssop.assemble.maint(393).latest.txt'
>>>>> VMFApply COMPLETE - Execution Time 523 milliseconds.