208. 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.

208.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMPCOPY3.m Mon Nov 5 16:39:35 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMPCOPY3.m Mon Nov 5 17:51:02 2018 UTC

208.2 Comparison summary

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

208.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

208.4 Active regular expressions

No regular expressions were active.

208.5 Comparison detail

  1   CHMPCOPY3  ; HAC/RVS  - COPY TEM P FILE TO  FS3BIG for  Elizabeth (BETSYE)Re nder
  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 OPY3",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 \BETSYE\", CHFILE,".T XT" 
  16   COPY ;COPY  TO VMS
  17    ;S CHPAR= "HACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG .CPDNURSES .BETSYE]"_ CHFILE_".T XT"    ;DEV012893 -08 YJK Ma r 2014
  18    ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]BETSYEC OPY.TMP "_ CHPAR)                                        ;DEV0128 93-08 YJK  Mar 2014
  19    ;S X=$ZF( -1,"PURGE  HAC_HFS$:[ TMP]BETSYE COPY.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                             ;D EV012893-0 8 YJK Mar  2014
  25    S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]BETSYECO PY.TMP "_F ILE)                  ;DEV012893 -08 YJK Ma r 2014
  26    S FOLDER= "/FS3BIG/C PDNURSES/B ETSYE"                                   ;D EV012893-0 8 YJK Mar  2014 
  27    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FOLDER," PUT")     ;DEV012893 -08 YJK Ma r 2014
  28    W !,"File  Copied" 
  29    Q