205. EPMO Open Source Coordination Office Redaction File Detail Report

Produced by Araxis Merge on 11/9/2018 12:34:06 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.

205.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMPCOPY.m Mon Nov 5 16:43:41 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHMPCOPY.m Mon Nov 5 17:51:01 2018 UTC

205.2 Comparison summary

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

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

205.4 Active regular expressions

No regular expressions were active.

205.5 Comparison detail

  1   CHMPCOPY ;  CVA/HBG -  COPY TEMP  FILE TO B IGDISK
  2    ;VER 1.0
  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-8 char acter file  name (do  not includ e the '.TX T') EXIT//  "
  7    R CHFILE: 30
  8    Q:CHFILE= ""
  9    G:CHFILE' ?1.8AN A
  10    S ZTRTN=" COPY^CHMPC OPY",ZTDES C="COPY TE XT FILE TO  PC DISK"
  11    S ZTSAVE( "CHFILE")= "",ZTIO=""  D ^%ZTLOA D
  12    W !!,"You r file wil l now be c opied to F S3BIG: "
  13    W "\\ DNS     FS3\FS3BIG \",CHFILE, ".TXT" Q
  14   COPY ;S CH COM="HAC_H FS$:[DSMMA NAG]DHCPCO PY.COM"    ;DEV012893 -08 YJK Ma r 2014  NO T USED
  15    ;S CHVAL= "/NOLOG/QU EUE=SYS$BA TCH"           ;DEV01 2893-08 YJ K Mar 2014   NOT USED
  16    N FOLDER, FILE
  17    S CHPAR=C HFILE_".TX T"
  18    S FOLDER= "",DIR=""
  19    S IOF="#, *27,*91,*5 0,*74,*27, *91,*72"
  20    X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1)
  21    S FILE="H AC_HFS$:[S CR.TEMP_FI LES]"_CHPA R                          ;DEV0 12893-08 Y JK Mar 201 4
  22    I UCI'="H AC" S FILE ="HAC_HFS$ :[DSMMANAG .CHAMPVA]" _CHPAR                         ; DEV012893- 08 YJK Mar  2014 
  23    S X=$ZF(- 1,"COPY HA C_HFS$:[TM P]TEMP.TMP  "_FILE)                     ;DE V012893-08  YJK Mar 2 014
  24    ;S X=$ZF( -1,"SUBMIT  CHCOM,CHV AL,CHPAR")
  25    ;S X=$ZF( -1,"SUBMIT  HAC_HFS$: [DSMMANAG] DHCPCOPY.C OM /NOLOG/ QUEUE=SCRA TCH$/PARAM ="_CHPAR)    ;SKD
  26    ;S CHPAR= "HACFS3"" DNS     COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R)     ;SKD                       ;DEV012893 -08 YJK Ma r 2014 
  27    ;S X=$ZF( -1,"COPY H AC_HFS$:[T MP]TEMP.TM P "_CHPAR)                                                   ;DEV 012893-08  YJK Mar 20 14 
  28    ;S X=$ZF( -1,"DELE H AC_HFS$:[T MP]TEMP.TM P;*")                                                        ;DEV 012893-08  YJK Mar 20 14 
  29    S FOLDER= "/FS3BIG"                                                                                   ;DEV01 2893-08 YJ K Mar 2014  
  30    D FTPFILE ^CHTFLIB9( FILE," DNS     fs3. DNS             ",FOLDER," PUT")                                 ;DEV012893 -08 YJK Ma r 2014 
  31    Q
  32