66. EPMO Open Source Coordination Office Redaction File Detail Report

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

66.1 Files compared

# Location File Last Modified
1 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLCR79S.m Mon Nov 5 16:43:03 2018 UTC
2 CPEE_Build9_Sprint27.zip\HAC_CPE_CH CHLCR79S.m Mon Nov 5 17:41:46 2018 UTC

66.2 Comparison summary

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

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

66.4 Active regular expressions

No regular expressions were active.

66.5 Comparison detail

  1   CHLCR79S ; AHJ/DEN;MI LLIMAN SPO NSORS TO F S3BIG
  2    ;V1.0
  3    ;001 OLD  ROUTINE NA ME WAS ZAL CR79S
  4    ;DEF01655 4 JSE 8/10 /15 - Conv erting fro m DECNET t o FTP.
  5    ;
  6    ;INPUT =  ^CHMZHOLD( "MILLIMANS PON"  FROM  ZALCR79Y
  7    ;OUTPUT =  FS3BIG SP ONSOR FILE
  8    S U="^"
  9   A1 ;
  10    ;S FIO="H ACFS3"" DNS     decnet HAC dec741!"": :D:[FS3BIG ]MILLIMAN_ SPONSOR_FI LE.TXT"
  11    ;O FIO C  FIO:"D"
  12    ;O FIO:"N WS"
  13    ;DEF01655 4 JSE 8/3/ 15 - Conve rting from  DECNET to  FTP.
  14    S FIO="HA C_HFS$:[DS MMANAG]MIL LIMAN_SPON SOR_FILE.T XT"
  15    X "D $SYS TEM.Proces s.SetZEOF( 1)"
  16    N POP
  17    S POP=0
  18    S POP=$$O PENFIWR^CH TFLIB9(.FI O,"FSIO")  Q:'POP
  19    ;
  20    S NAME=0
  21    S (CNT,DF N)=0
  22   A2 ;
  23    S DFN=$O( ^CHMZHOLD( "MILLIMANS PON",DFN))  G:DFN=""  END
  24    ;S BFN=0
  25   A3 ;
  26    ;S BFN=$O (^CHMZHOLD ("MILLIMAN CLAIMS",DF N,BFN)) G: 'BFN A2
  27    ;S CI=0
  28   A4 ;
  29    ;S CI=$O( ^CHMZHOLD( "MILLIMANC LAIMS",DFN ,BFN,CI))  G:'CI A3
  30    S DATA=^C HMZHOLD("M ILLIMANSPO N",DFN)
  31    U FIO W ! ,DATA    
  32    S CNT=CNT +1
  33    G A2
  34   END ;
  35    ;
  36    ;C FIO
  37    D CLOSEF^ CHTFLIB9(F IO,"FSIO")
  38    X "D $SYS TEM.Proces s.SetZEOF( 0)"
  39    D FTPFILE ^CHTFLIB9( FIO," DNS     fs3. DNS             ","/FS3BIG ","PUT")
  40    U 0 
  41    W !!,"TOT AL COUNT   =  ",CNT
  42    Q