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 | CHMPCOPY2.m | Mon Nov 5 16:38:52 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMPCOPY2.m | Mon Nov 5 17:51:02 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 54 |
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 | CHMPCOPY2 ; HAC/RVS - COPY TEM P FILE TO FS3BIG for Gail Case y | |
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 OPY2",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 \GAIL\",CH FILE,".TXT " | |
16 | COPY ;COPY TO VMS | |
17 | ;S CHPAR= "HACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG .CPDNURSES .GAIL]"_CH FILE_".TXT " ;DEV012893 -08 YJK Ma r 2014 | |
18 | ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]GAILCOP Y.TMP "_CH PAR) ;DEV012893 -08 YJK Ma r 2014 | |
19 | ;S X=$ZF( -1,"PURGE HAC_HFS$:[ TMP]GAILCO PY.TMP") ;DEV012893 -08 YJK Ma r 2014 | |
20 | ||
21 | N FOLDER, FILE | |
22 | S CHPAR=C HFILE_".TX T" | |
23 | S FOLDER= "",DIR="" | |
24 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
25 | S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_CHPA R ;DEV 012893-08 YJK Mar 20 14 | |
26 | S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]GAILCOPY .TMP "_FIL E) ;D EV012893-0 8 YJK Mar 2014 | |
27 | S FOLDER= "/FS3BIG/C PDNURSES/G AIL" ;DEV 012893-08 YJK Mar 20 14 | |
28 | D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FOLDER," PUT") ;DEV 012893-08 YJK Mar 20 14 | |
29 | W !,"File Copied" | |
30 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.