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.
# | 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 |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 80 |
Changed | 2 | 4 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
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 |
No regular expressions were active.
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 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.