207. EPMO Open Source Coordination Office Redaction File Detail Report

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.

207.1 Files compared

# 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

207.2 Comparison summary

Description Between
Files 1 and 2
Text Blocks Lines
Unchanged 4 54
Changed 3 6
Inserted 0 0
Removed 0 0

207.3 Comparison options

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

207.4 Active regular expressions

No regular expressions were active.

207.5 Comparison detail

  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