Produced by Araxis Merge on 11/9/2018 12:33:59 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 | CHMKHB1.m | Mon Nov 5 16:43:57 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKHB1.m | Mon Nov 5 17:48:59 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 76 |
Changed | 1 | 2 |
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 | CHMKHB1 ;A HJ/CHAMPVA /CREATE FI LE BENES Z IP CODE/CO UNTS FROM CHMKHB | |
2 | ;V1.0 | |
3 | S U="^" | |
4 | ZSET S FIO ="HBZIP.TX T" | |
5 | O FIO C F IO:"D" | |
6 | O FIO:"NW V" | |
7 | S T=$C(9) | |
8 | BREAK | |
9 | S ZZPG=0, ZIPTTL=0 | |
10 | S ZZBZIP= 0 | |
11 | SORT S ZZB ZIP=$O(^CH MZHOLD("NA ME-ADD936" ,ZZBZIP)) G:ZZBZIP=" " END | |
12 | S CNT=0 | |
13 | SORT1 S CN T=$O(^CHMZ HOLD("NAME -ADD936",Z ZBZIP,CNT) ) G:CNT="" SORT | |
14 | S:$D(^CHM ZHOLD("NAM E-ADD936", ZZBZIP,CNT )) DATA=^C HMZHOLD("N AME-ADD936 ",ZZBZIP,C NT) | |
15 | I ZZBZIP< 600 G SORT 1 | |
16 | S T=$C(9) | |
17 | S ADDR1=$ P(DATA,U,1 ) | |
18 | S LAST=$P (ADDR1,"," ,1) | |
19 | S FIRST=$ P(ADDR1,", ",2) | |
20 | S ADDR1=F IRST_" "_L AST | |
21 | S ADDR2=$ P(DATA,U,2 ) | |
22 | S ADDR3=$ P(DATA,U,3 ) | |
23 | S ADDR4=$ P(DATA,U,4 ) | |
24 | S ADDR5=$ P(DATA,U,5 ) | |
25 | S TMPS=AD DR1_T_ADDR 2_T_ADDR3_ T_ADDR4_T_ ADDR5 | |
26 | S ZIPTTL= ZIPTTL+1 | |
27 | U FIO W ! ,TMPS | |
28 | G SORT1 | |
29 | END C FIO | |
30 | W !," TO TAL = ",ZI PTTL | |
31 | ; | |
32 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG]H BCOPY.COM" ) | |
33 | ;******** ***NEXT 3 LINES SHOW HBCOPY.CO M COMMANDS | |
34 | ;******** ***NOTE FI LE NAME ON SHARED DR IVE IS HBB ENE.TXT TO BURN CD | |
35 | ;$ FILE = "HAC_HFS$ :[DSMMANAG ]HBZIP.TXT ;1" | |
36 | ;$ NEWFIL E = "HACFS 3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]HBBENE.TX T" | |
37 | ;$ COPY ' FILE' 'NE WFILE' | |
38 | ;K ZZBZIP ,ZIPTTL,ZZ DATE,DFN,B FN,ZZPG,HD R,ZZADR | |
39 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.