ibm:vm370-lib:cms:dmscpy.assemble_hst
Table of Contents
DMSCPY History
References
- Fixes Applied : 11
- Latest Source Date : Tuesday, December 12, 1978
- Last Fix ID : [R13560DS]
Update History
CMS File Input : DMSCPY ASSEMBLE
Date : 12/12/1978 8:23:00 AM
VM Context : MAINT(393)
File Name : DMSCPY.ASSEMBLE.Z1.txt
Modified : 1/16/2021 7:31:30 AM
Created : 1/16/2021 7:31:30 AM
Update Order
- R09042DS 601 DMSCPY FAILS TO COPY CORRECTLY OLDDATES WITH MODE 3 FILES
- R09043DS 601 DMSCPY LOOPS COPYING FROM A R/O WITH MODE 3 FILES
- R09572DS 602 DMSCPY SHOULD GIVE MSG 'DISK NOT ACCESSED'
- R09493DS 602 DMSCPY GIVES UNNECESSARY MSG WITH FRLABEL OPTION IF LABEL NOT FOUND
- R09884DS 605 MSDMSCPY901T WITH TOLABEL IF LABEL IS FIRST LINE IN FILE
- R09465DS 606 DMSCPY INCORRECTLY INITIALIZES OUTPUT BUFFER AFTER WRBUF
- R11777DS 616 UV02065 REMOVE CODE FOR UNSUPPORTED COPY OPTIONS (DEBUG & GARBLE)
- R12493DS 618 UV03313 ERROR 030 APPENDS FN AND FT IN OUTPUT MESSAGE.
- R13261DS 620 UV04070 ABEND WHEN COPY NON-PACKED FILE WITH UNPACK OPTION.
- R13698DS 624 UV05328 DMSCPY COPY WITH APPEND CREATES INVALID OUTPUT.
- R13560DS 627 UV06046 TRUNC AND RECFM ARE INCORRECTLY CALLED CONFLICTING OPTIONS
R09042DS
Date Friday Jan 26, 1979 01:04:00 AM
Loaded from MAINT(193)
R09042DS: ./ I 3358000 $ 3358100 100
R09042DS: TM OPF2,OP2MULT IN CASE OF MULT.OUTPUT FILS @VA09042
R09042DS: BO MULTFILE GET THE DATE FOR EACH ONE @VA09042
R09042DS: CLC FFSTD(4),=XL4'0' IF WE HAVE THE DATE ALREADY @VA09042
R09042DS: BNE NODATE DO NOT OVERLAY IT @VA09042
R09042DS: MULTFILE EQU * @VA09042
R09042DS: ./ R 3488000 3489000 $
R09042DS: TM FMO+1,X'F3' FILE MODE OF 3? @VA09042
R09042DS: BNO SDAT NO,DON'T USE SAVE AREA @VA09042
BEGIN APPLY >>> ./ I 3358000 $ 3358100 100
END APPLY >>> ./ I 3358000 $ 3358100 100
BEGIN APPLY >>> ./ R 3488000 3489000 $
END APPLY >>> ./ R 3488000 3489000 $
Update Succeeded
Update Execution Time 23 milliseconds.
R09043DS
Date Friday Jan 26, 1979 01:04:00 AM
Loaded from MAINT(193)
R09043DS: ./ I 3362375 $ 3362385 10
R09043DS: TM ADTFLG1,ADTFRW IS IT R/W DISK? @VA09043
R09043DS: BNO GOFINI IF IT IS NOT GOFINI @VA09043
BEGIN APPLY >>> ./ I 3362375 $ 3362385 10
END APPLY >>> ./ I 3362375 $ 3362385 10
Update Succeeded
Update Execution Time 31 milliseconds.
R09572DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09572DS: ./ I 2070000 $ 2070250 250
R09572DS: * HOWEVER IF THE RETURN CODE FROM STATE IS 36 ( DISK NOT @VA09572
R09572DS: * ACCESSED) WE WILL PUT OUT THE APPROPRIATE MESSAGE AND EXIT. @VA09572
R09572DS: SPACE
R09572DS: ./ I 2072000 $ 2072350 350
R09572DS: CH R15,=H'36' WAS DISK NOT ACCESSED? @VA09572
R09572DS: BE ERROR36 GIVE MSG @VA09572
R09572DS: ./ I 3723000 $ 3723150 150
R09572DS: ERROR36 EQU * @VA09572
R09572DS: LA R5,24(R1) POINT TO MODE LETTER @VA09572
R09572DS: DMSERR TEXT='DISK ''..'' NOT ACCESSED',NUM=69, X
R09572DS: LET=E,SUB=(CHARA,((R5),1)),TYPCALL=SVC @VA09572
R09572DS: MVI RC,36 GIVE RETCODE @VA09572
R09572DS: B EXIT @VA09572
BEGIN APPLY >>> ./ I 2070000 $ 2070250 250
END APPLY >>> ./ I 2070000 $ 2070250 250
BEGIN APPLY >>> ./ I 2072000 $ 2072350 350
END APPLY >>> ./ I 2072000 $ 2072350 350
BEGIN APPLY >>> ./ I 3723000 $ 3723150 150
END APPLY >>> ./ I 3723000 $ 3723150 150
Update Succeeded
Update Execution Time 31 milliseconds.
R09493DS
Date Friday Apr 20, 1979 04:19:00 AM
Loaded from MAINT(193)
R09493DS: ./ I 3446000 $ 3446015 15
R09493DS: CLI RC,X'00' DO WE HAVE A RET.CODE ALREADY? @VA09493
R09493DS: BH NOSECMSG IF YES DON'T GIVE HIM 2ND MSG.. @VA09493
R09493DS: ./ I 3446500 $ 3446750
R09493DS: NOSECMSG EQU * @VA09493
BEGIN APPLY >>> ./ I 3446000 $ 3446015 15
END APPLY >>> ./ I 3446000 $ 3446015 15
BEGIN APPLY >>> ./ I 3446500 $ 3446750
END APPLY >>> ./ I 3446500 $ 3446750
Update Succeeded
Update Execution Time 23 milliseconds.
R09884DS
Date Thursday Oct 11, 1979 09:06:00 AM
Loaded from MAINT(193)
R09884DS: ./ I 3456200 $ 3456230 30
R09884DS: CLC WRITEM,OFREC OUTPUT ITEM NUMBER CHANGE @VA09884
R09884DS: BE ERNRO ERROR - NO FILE @VA09884
BEGIN APPLY >>> ./ I 3456200 $ 3456230 30
END APPLY >>> ./ I 3456200 $ 3456230 30
Update Succeeded
Update Execution Time 31 milliseconds.
R09465DS
Date Tuesday Nov 06, 1979 10:29:00 AM
Loaded from MAINT(193)
R09465DS: ./ R 2682100 $ 2682000
R09465DS: BZ *+8 SKIP IF IT ISN'T @VA09465
BEGIN APPLY >>> ./ R 2682100 $ 2682000
END APPLY >>> ./ R 2682100 $ 2682000
Update Succeeded
Update Execution Time 23 milliseconds.
R11777DS
Date Tuesday Oct 07, 1980 09:04:00 AM
Loaded from MAINT(193)
R11777DS: ./ R 470000 $ 470000
R11777DS: * X'04' NOT USED @VA11777
R11777DS: ./ R 480000 $ 480000
R11777DS: * X'08' NOT USED @VA11777
R11777DS: ./ D 520000 524000
R11777DS: ./ D 1057000 1061000
R11777DS: ./ D 1170000 1192000
R11777DS: ./ R 1348000 $ 1348000
R11777DS: * IF PACK OR UNPACK OPTION WAS SPECIFIED, THEN WE DO NOT ALLOW @VA11777
R11777DS: ./ R 1352000 $ 1352000
R11777DS: TM OPF2,OP2PACK+OP2UNPA ANY OF THESE IN EFFECT?@VA11777
R11777DS: ./ D 1375000
R11777DS: ./ D 1382000
R11777DS: ./ R 1394000 $ 1394000
R11777DS: (TRUNC,LRECL,RECFM,SPECS,OVLY,APPEND, @VA11777*
R11777DS: ./ R 1396000 $ 1396000
R11777DS: (TRUNC,LRECL,RECFM,SPECS,OVLY,APPEND, @VA11777*
R11777DS: ./ R 1398000 $ 1398000
R11777DS: (PACK,TRUNC,LRECL,RECFM,SPECS,OVLY,APPEND, @VA11777*
R11777DS: ./ R 1399000 $ 1399000
R11777DS: EBCDIC,TRANS,UPCASE,LOWCASE), @VA11777*
R11777DS: ./ R 1400000 $ 1400000
R11777DS: (UNPACK,TRUNC,LRECL,RECFM,SPECS,OVLY,APPEND, @VA11777*
R11777DS: ./ R 1401000 $ 1401000
R11777DS: PACK,EBCDIC,TRANS,UPCASE,LOWCASE), @VA11777*
R11777DS: ./ R 1403000 $ 1403000
R11777DS: (FROM,PACK,UNPACK), @VA11777*
R11777DS: ./ R 1404000 $ 1404000
R11777DS: (FRLABEL,FROM,PACK,UNPACK), @VA11777*
R11777DS: ./ R 1405000 $ 1405000
R11777DS: (FOR,PACK,UNPACK), @VA11777*
R11777DS: ./ R 1406000 $ 1406000
R11777DS: (TOLABEL,FOR,PACK,UNPACK), @VA11777*
R11777DS: ./ D 1706000 1709000
R11777DS: ./ D 1763000 1764000
R11777DS: ./ D 1880000 1881000
R11777DS: ./ D 2213000 2223000
R11777DS: ./ D 2931000 2953000
R11777DS: ./ D 3652000 3656000
BEGIN APPLY >>> ./ R 470000 $ 470000
END APPLY >>> ./ R 470000 $ 470000
BEGIN APPLY >>> ./ R 480000 $ 480000
END APPLY >>> ./ R 480000 $ 480000
BEGIN APPLY >>> ./ D 520000 524000
END APPLY >>> ./ D 520000 524000
BEGIN APPLY >>> ./ D 1057000 1061000
END APPLY >>> ./ D 1057000 1061000
BEGIN APPLY >>> ./ D 1170000 1192000
END APPLY >>> ./ D 1170000 1192000
BEGIN APPLY >>> ./ R 1348000 $ 1348000
END APPLY >>> ./ R 1348000 $ 1348000
BEGIN APPLY >>> ./ R 1352000 $ 1352000
END APPLY >>> ./ R 1352000 $ 1352000
BEGIN APPLY >>> ./ D 1375000
END APPLY >>> ./ D 1375000
BEGIN APPLY >>> ./ D 1382000
END APPLY >>> ./ D 1382000
BEGIN APPLY >>> ./ R 1394000 $ 1394000
END APPLY >>> ./ R 1394000 $ 1394000
BEGIN APPLY >>> ./ R 1396000 $ 1396000
END APPLY >>> ./ R 1396000 $ 1396000
BEGIN APPLY >>> ./ R 1398000 $ 1398000
END APPLY >>> ./ R 1398000 $ 1398000
BEGIN APPLY >>> ./ R 1399000 $ 1399000
END APPLY >>> ./ R 1399000 $ 1399000
BEGIN APPLY >>> ./ R 1400000 $ 1400000
END APPLY >>> ./ R 1400000 $ 1400000
BEGIN APPLY >>> ./ R 1401000 $ 1401000
END APPLY >>> ./ R 1401000 $ 1401000
BEGIN APPLY >>> ./ R 1403000 $ 1403000
END APPLY >>> ./ R 1403000 $ 1403000
BEGIN APPLY >>> ./ R 1404000 $ 1404000
END APPLY >>> ./ R 1404000 $ 1404000
BEGIN APPLY >>> ./ R 1405000 $ 1405000
END APPLY >>> ./ R 1405000 $ 1405000
BEGIN APPLY >>> ./ R 1406000 $ 1406000
END APPLY >>> ./ R 1406000 $ 1406000
BEGIN APPLY >>> ./ D 1706000 1709000
END APPLY >>> ./ D 1706000 1709000
BEGIN APPLY >>> ./ D 1763000 1764000
END APPLY >>> ./ D 1763000 1764000
BEGIN APPLY >>> ./ D 1880000 1881000
END APPLY >>> ./ D 1880000 1881000
BEGIN APPLY >>> ./ D 2213000 2223000
END APPLY >>> ./ D 2213000 2223000
BEGIN APPLY >>> ./ D 2931000 2953000
END APPLY >>> ./ D 2931000 2953000
BEGIN APPLY >>> ./ D 3652000 3656000
END APPLY >>> ./ D 3652000 3656000
Update Succeeded
Update Execution Time 211 milliseconds.
R12493DS
Date Thursday Jan 15, 1981 01:14:00 AM
Loaded from MAINT(193)
R12493DS: ./ R 03718000 03719000 $ 03718000 1000
R12493DS: DMSERR NUM=30,LET=E,SUB=(CHAR8A,(XR)), @VA12493*
R12493DS: TEXT='FILE ''....................'' ALREADY ACTIVE'
BEGIN APPLY >>> ./ R 03718000 03719000 $ 03718000 1000
END APPLY >>> ./ R 03718000 03719000 $ 03718000 1000
Update Succeeded
Update Execution Time 23 milliseconds.
R13261DS
Date Friday Apr 10, 1981 04:10:00 AM
Loaded from MAINT(193)
R13261DS: ./ I 02519000 $ 02519150 150
R13261DS: CLI PACKRECF,C'F' SEE IF HEADER IS FOR F FILE @VA13261
R13261DS: BE RECFMOK RECFM IS VALID, CONTINUE UNPACK @VA13261
R13261DS: CLI PACKRECF,C'V' SEE IF HEADER IS FOR V FILE @VA13261
R13261DS: BNE ERILP NOT PACKED FORMAT IF NOT F OR V @VA13261
R13261DS: RECFMOK EQU * @VA13261
BEGIN APPLY >>> ./ I 02519000 $ 02519150 150
END APPLY >>> ./ I 02519000 $ 02519150 150
Update Succeeded
Update Execution Time 23 milliseconds.
R13698DS
Date Wednesday Sep 16, 1981 09:14:00 AM
Loaded from MAINT(193)
R13698DS: ./ I 03410000 $ 03410300 300
R13698DS: CLI RC,28 CHECK IF RC=28 FILE ALREADY ACTIVE @VA13698
R13698DS: BE ERRACT YES, FILE ACTIVE GO CLOSE AND END @VA13698
R13698DS: ./ I 03413000 $ 03413300 300
R13698DS: ERRACT EQU * ERROR, FILE ALREADY ACTIVE @VA13698
R13698DS: PHASE CL GO TO CLOSING PHASE FOR OUTPUT @VA13698
BEGIN APPLY >>> ./ I 03410000 $ 03410300 300
END APPLY >>> ./ I 03410000 $ 03410300 300
BEGIN APPLY >>> ./ I 03413000 $ 03413300 300
END APPLY >>> ./ I 03413000 $ 03413300 300
Update Succeeded
Update Execution Time 31 milliseconds.
R13560DS
Date Friday Jan 15, 1982 04:28:00 PM
Loaded from MAINT(193)
R13560DS: ./ D 1394000 1397000 BEGIN APPLY >>> ./ D 1394000 1397000 END APPLY >>> ./ D 1394000 1397000 Update Succeeded Update Execution Time 23 milliseconds.
ibm/vm370-lib/cms/dmscpy.assemble_hst.txt · Last modified: 2023/08/06 13:35 by Site Administrator