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

206.1 Files compared

# 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

206.2 Comparison summary

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

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

206.4 Active regular expressions

No regular expressions were active.

206.5 Comparison detail

  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