Produced by Araxis Merge on 11/9/2018 12:33:54 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 | CHMEDCF1.m | Mon Nov 5 16:39:05 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMEDCF1.m | Mon Nov 5 17:44:03 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 118 |
Changed | 1 | 8 |
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 | CHMEDCF1 ; HAC/RKN;DE ERS OUTGOI NG FTP TO DOD;11/01/ 99 10:30 AM | |
2 | ;;V1.0;;C PTS 15719 BY RKN | |
3 | ; | |
4 | S U="^" | |
5 | D NOW^%DT C | |
6 | S FMDATE= $E(%,1,7) | |
7 | K CHFTPTI M,CHFTPWT | |
8 | ; | |
9 | EEXFTP S C HFILE="DRO HAC.DAT " | |
10 | S CHFTPMS G=0 | |
11 | S X=$ZF(- 1,"SUBMIT HAC_HFS$:[ DSMMANAG]D EERS_MU_FT P_OUT.COM" ,"/NAME=DE ERS_MU_FTP _OUT_JOB/N OPRINTER/U SER=HACCAC HEMGR",CHF ILE,FMDATE ) ; SUBMIT FTP JOB I N LIVE | |
12 | ; | |
13 | FFTPCK S R RD="HAC_HF S$:[DSMMAN AG]DEERS_M U_FTP_OUT_ JOB.LOG" ;LIVE | |
14 | C RRD | |
15 | K CHFTPTI M,CHFTPWT S ZE="",QF LAG=0,CHFT PWT=$P(^CH MDIC(74100 2.17,1,2), "^",10) | |
16 | F CHFTPTI M=1:1:CHFT PWT H 60 O RRD:"R": 10 D Q:( QFLAG=1) | |
17 | .I '$T C RRD Q | |
18 | .F U RRD R RRDLINE D Q:(QF LAG=1)!($Z E["ENDOFFI LE") | |
19 | ..I (RRDL INE["250 T ransfer co mpleted") S CHFTPMSG =1,QFLAG=1 Q | |
20 | ..I (RRDL INE["Charg ed CPU tim e:") S QFL AG=1 Q | |
21 | ; | |
22 | FTPERR C R RD | |
23 | S CCHNB=2 | |
24 | S ZML(CCH NB)="" | |
25 | S ZML(CCH NB)="FILE: HAC_HFS$:[ DSMMANAG]" _"DEERS_OF ILE_"_FMDA TE_".DAT" | |
26 | S CCHNB=C CHNB+1 | |
27 | S ZML(CCH NB)="" | |
28 | S CCHNB=C CHNB+1 | |
29 | I (CHFTPM SG=0) D | |
30 | .S ZML(CC HNB)="FTP UNSUCCESSF UL..Mthly. .OUT..FTP DEERS_OFIL E_"_FMDATE _".DAT fil e" | |
31 | I (CHFTPM SG=1) D | |
32 | .S ZML(CC HNB)="FTP successful ..Mthly..O UT..FTP DE ERS_OFILE_ "_FMDATE_" .DAT file" | |
33 | S XMDUZ=. 5,XMY("G.D EERS")="" ;RKN/JULI A/TONY/TAM MY LIVE | |
34 | S XMTEXT= "ZML(" | |
35 | I (CHFTPM SG=1) D | |
36 | .S XMSUB= "SUCC MO OUT DEERS File"_FMD ATE | |
37 | I (CHFTPM SG=0) D | |
38 | .S XMSUB= "UNSUC MO OUT DEERS File"_FMDA TE | |
39 | D ^XMD | |
40 | D:CHFTPMS G=1 NOTIFY ;SEND EMAILS VI A MS-EXCHG | |
41 | ; | |
42 | END K CHFT PMSG,RRD,R RDLINE,CHF ILE,FMDATE ,CCHNB,QFL AG | |
43 | Q | |
44 | NOTIFY ;SE ND MS-EXCH ANGE EMAIL S FROM VIS TA | |
45 | ; | |
46 | D UCI^%ZI SV I $P(Y, ",",1)'="H AC" Q | |
47 | S XMDUZ=D UZ,XMY(107 22)="",XMY (13)="",XM Y(23249)=" ",XMY(5824 3)="" | |
48 | S XMY(" P I I ")="" | |
49 | S XMY(" P I
|
|
50 | S XMY("
|
|
51 | S XMY(" PII " )="" | |
52 | S XMY("je nnifer.ben ch.CTR@osd .pentagon. mil")="" | |
53 | S TEXT(1) ="Jennifer ," | |
54 | S TEXT(2) =" " | |
55 | S TEXT(3) ="The week ly file is available on your s ite for pr ocessing." | |
56 | S TEXT(4) ="Please l et us know via this message wh en you are finished. " | |
57 | S TEXT(5) =" " | |
58 | S TEXT(6) ="Thank Yo u" | |
59 | S XMTEXT= "TEXT(" | |
60 | S XMSUB=" Weekly Fil e" | |
61 | D ^XMD | |
62 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB | |
63 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.