Table of Contents

DMSCPY History

References

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

  1. R09042DS 601 DMSCPY FAILS TO COPY CORRECTLY OLDDATES WITH MODE 3 FILES
  2. R09043DS 601 DMSCPY LOOPS COPYING FROM A R/O WITH MODE 3 FILES
  3. R09572DS 602 DMSCPY SHOULD GIVE MSG 'DISK NOT ACCESSED'
  4. R09493DS 602 DMSCPY GIVES UNNECESSARY MSG WITH FRLABEL OPTION IF LABEL NOT FOUND
  5. R09884DS 605 MSDMSCPY901T WITH TOLABEL IF LABEL IS FIRST LINE IN FILE
  6. R09465DS 606 DMSCPY INCORRECTLY INITIALIZES OUTPUT BUFFER AFTER WRBUF
  7. R11777DS 616 UV02065 REMOVE CODE FOR UNSUPPORTED COPY OPTIONS (DEBUG & GARBLE)
  8. R12493DS 618 UV03313 ERROR 030 APPENDS FN AND FT IN OUTPUT MESSAGE.
  9. R13261DS 620 UV04070 ABEND WHEN COPY NON-PACKED FILE WITH UNPACK OPTION.
  10. R13698DS 624 UV05328 DMSCPY COPY WITH APPEND CREATES INVALID OUTPUT.
  11. 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.