Produced by Araxis Merge on 11/9/2018 12:34:06 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMPCOPY.m | Mon Nov 5 16:43:41 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMPCOPY.m | Mon Nov 5 17:51:01 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 58 |
Changed | 3 | 6 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMPCOPY ; CVA/HBG - COPY TEMP FILE TO B IGDISK | |
2 | ;VER 1.0 | |
3 | ;FWP - - - Cache Up dates - - - 3/15/20 05 | |
4 | ;DEV01289 3-08 YJK M ar 2014 | |
5 | W @IOF,!! ,?24,"COPY YOUR QUEU ED FILE TO FS3BIG" | |
6 | A W !!,"En ter the ne w 1-8 char acter file name (do not includ e the '.TX T') EXIT// " | |
7 | R CHFILE: 30 | |
8 | Q:CHFILE= "" | |
9 | G:CHFILE' ?1.8AN A | |
10 | S ZTRTN=" COPY^CHMPC OPY",ZTDES C="COPY TE XT FILE TO PC DISK" | |
11 | S ZTSAVE( "CHFILE")= "",ZTIO="" D ^%ZTLOA D | |
12 | W !!,"You r file wil l now be c opied to F S3BIG: " | |
13 | W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" Q | |
14 | COPY ;S CH COM="HAC_H FS$:[DSMMA NAG]DHCPCO PY.COM" ;DEV012893 -08 YJK Ma r 2014 NO T USED | |
15 | ;S CHVAL= "/NOLOG/QU EUE=SYS$BA TCH" ;DEV01 2893-08 YJ K Mar 2014 NOT USED | |
16 | N FOLDER, FILE | |
17 | S CHPAR=C HFILE_".TX T" | |
18 | S FOLDER= "",DIR="" | |
19 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
20 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
21 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_CHPA R ;DEV0 12893-08 Y JK Mar 201 4 | |
22 | I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _CHPAR ; DEV012893- 08 YJK Mar 2014 | |
23 | S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP "_FILE) ;DE V012893-08 YJK Mar 2 014 | |
24 | ;S X=$ZF( -1,"SUBMIT CHCOM,CHV AL,CHPAR") | |
25 | ;S X=$ZF( -1,"SUBMIT HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR) ;SKD | |
26 | ;S CHPAR= "HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R) ;SKD ;DEV012893 -08 YJK Ma r 2014 | |
27 | ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]TEMP.TM P "_CHPAR) ;DEV 012893-08 YJK Mar 20 14 | |
28 | ;S X=$ZF( -1,"DELE H AC_HFS$:[T MP]TEMP.TM P;*") ;DEV 012893-08 YJK Mar 20 14 | |
29 | S FOLDER= "/FS3BIG" ;DEV01 2893-08 YJ K Mar 2014 | |
30 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FOLDER," PUT") ;DEV012893 -08 YJK Ma r 2014 | |
31 | Q | |
32 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.