Produced by Araxis Merge on 11/9/2018 12:34:07 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 | CHMPCOPY1.m | Mon Nov 5 16:45:00 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMPCOPY1.m | Mon Nov 5 17:51:01 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 52 |
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 | CHMPCOPY1 ; HAC/RVS - COPY TEM P FILE TO FS3BIG | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
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-10 cha racter fil e name " | |
7 | W !,"(Do not includ e the '.TX T') EXIT// " | |
8 | R CHFILE: 30 | |
9 | Q:CHFILE= "" | |
10 | G:CHFILE' ?1.10AN A | |
11 | S ZTRTN=" COPY^CHMPC OPY1",ZTDE SC="COPY T EXT FILE T O PC DISK" | |
12 | S ZTSAVE( "CHFILE")= "",ZTIO="" D ^%ZTLOA D | |
13 | W !!,"You r file is now be cop ied to FS3 BIG: " | |
14 | W !,"Plea se be Pati ent" | |
15 | W !,"\\ DNS FS3\FS3BIG \CPDNURSES \TAMMY",CH FILE,".TXT " | |
16 | COPY ;COPY TO VMS | |
17 | ;S CHPAR= "HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG .CPDNURSES .TAMMY]"_C HFILE_".TX T" ;DEV012893 -08 YJK Ma r 2014 | |
18 | ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]TAMMYCO PY.TMP "_C HPAR) ;DEV0128 93-08 YJK Mar 2014 | |
19 | ;S X=$ZF( -1,"PURGE HAC_HFS$:[ TMP]TAMMYC OPY.TMP") ;DEV0128 93-08 YJK Mar 2014 | |
20 | N FOLDER, FILE | |
21 | S CHPAR=C HFILE_".TX T" | |
22 | S FOLDER= "",DIR="" | |
23 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
24 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_CHPA R ;DEV 012893-08 YJK Mar 20 14 | |
25 | S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TAMMYCOP Y.TMP "_FI LE) ;D EV012893-0 8 YJK Mar 2014 | |
26 | S FOLDER= "/FS3BIG/C PDNURSES/T AMMY" ;DEV 012893-08 YJK Mar 20 14 | |
27 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FOLDER," PUT") ;DEV 012893-08 YJK Mar 20 14 | |
28 | W !,"File Copied" | |
29 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.