ibm:vm370-lib:cms:dmssop.assemble_hst
Table of Contents
DMSSOP History
References
- Fixes Applied : 22
- Latest Source Date : Tuesday, December 12, 1978
- 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.
ibm/vm370-lib/cms/dmssop.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator