Produced by Araxis Merge on 11/9/2018 12:34:03 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 | CHMLCPT.m | Mon Nov 5 16:42:42 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMLCPT.m | Mon Nov 5 17:50:04 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 196 |
Changed | 1 | 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 | CHMLCPT ;M CR/DEN;CPT TAPE READ IN;01/21/ 99 8:56 A M | |
2 | ;V1.0 | |
3 | ;MTN01993 0 &DEV0165 54 DPT COD E UPDATE, REPLACE DE CNET CHANG E EOF | |
4 | ; NSD I18 491550FY18 DPT add cpt 0011M. omit envi ronment ch eck | |
5 | W @IOF,!, "CHAMPVA C ENTER - RE AD IN CPT TAPE" | |
6 | A0 ;W !!," Are you re ading from the <T>ap e or <F>il e? " D SBR S | |
7 | ;Q:$D(DUO UT) Q:$D( DFOUT) I $D(DQOUT) D G A0 | |
8 | ;.W !!,"E nter a <T> if readin g from the Tape, or" | |
9 | ;.W !,"En ter an <F> if readin g from a F ile." | |
10 | ;Q:Y="" S Y=$E(Y) I "TFtf"'[ Y W *7," ? ?" G A0 | |
11 | ;S:Y="t" Y="T" S:Y= "f" Y="F" S CHSRCE=Y | |
12 | S CHSRCE= "F" ; <- --- TO ONL Y READ IN A FILE | |
13 | A01 I CHSR CE="F" D F 1 Q:Y="^" G A0:$D(D FOUT),A0:$ D(DUOUT),A 01:$D(DQOU T),A0:'$D( FILE) | |
14 | W !!,"REA DING IN CP T-4 DATA.. ......",! | |
15 | S I=0 | |
16 | ;I CHSRCE ="T" D Q: '$T | |
17 | ;.O "TAPE 1$":(FORMA T="AUF5":R ECORDSIZE= 80:BLOCKSI ZE=80):10 | |
18 | ;.I '$T U 0 W *7,*7 ,!!,"Tape drive not available! Exiting.. ." Q | |
19 | ;.U "TAPE 1$" W *5 | |
20 | ;I CHSRCE ="F" O IO: "R":5 S $Z E="",$ZT=" MORE^CHMLC PT" | |
21 | ;I CHSRCE '="F" Q | |
22 | ; | |
23 | ||
24 | A1 S I=I+1 | |
25 | ;I CHSRCE ="T" U "TA PE1$" R X G MORE:($Z A\1024#2)! ($ZA\16384 #2) | |
26 | I CHSRCE= "F" U FILE R X | |
27 | ||
28 | ;I CHSRCE ="F" U IO R X | |
29 | G:$$STAT US^%ZISH M ORE ;DEV01 6554 DPT | |
30 | I $L(X)'< 1 S:'$D(^C HMZHOLD("C PT",I)) ^C HMZHOLD("C PT",I)=X | |
31 | S ^CHMZHO LD("CPT",0 )=I | |
32 | G A1 | |
33 | MORE ;I CH SRCE="T" C "TAPE1$": DISMOUNT | |
34 | I CHSRCE= "F" C FIL E ;DEV0165 54 DPT | |
35 | I CHSRCE= "F" D CLOS EF^CHTFLIB 9(FILE,"FI LE") ;DEV0 16554 DPT | |
36 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ;DEV01 6554 DPT | |
37 | W !,"Done ..." | |
38 | ;U 0 W *7 ,*7,*7,!!, "Tape Is F inished!" | |
39 | END Q | |
40 | F1 ;CHECK FILENAME I N FS1BIG.C PT4UPDT -- MODIFIED BY DTP AUG -01 | |
41 | ;SET ENVI RONMENT | |
42 | ;S AYGSYS =XQVOL | |
43 | ;S AYGSYS =$S(AYGSYS ="ROU":"LI VE",AYGSYS ="XOU":"TR AIN",AYGSY S="TOU":"T EST",AYGSY S="DOU":"D EV") | |
44 | ;S ENVIR= AYGSYS | |
45 | ;S DIR("B ")=ENVIR | |
46 | ;S DIR(0) ="SO^1:LIV E;2:TRAIN; 3:TEST;4:D EV" | |
47 | ;S DIR("L ",1)="Sele ct one of the follow ing enviro nments" | |
48 | ;S DIR("L ",2)="" | |
49 | ;S DIR("L ",3)=" 1 LIVE" | |
50 | ;S DIR("L ",4)=" 2 TRAIN" | |
51 | ;S DIR("L ",5)=" 3 TEST" | |
52 | ;S DIR("L ",6)=" 4 DEV" | |
53 | ;S DIR("L ",7)="" | |
54 | ;S DIR("L ")=" ^ QUIT" | |
55 | ;D ^DIR K DIR | |
56 | ;Q:$D(DUO UT) | |
57 | ;Q:Y="" | |
58 | ;Q:Y="^"! (Y="") | |
59 | ;S ENVIR= Y(0) | |
60 | S $ZE="", $ZT="END" | |
61 | ;SET CPT FILE NAME | |
62 | S DIR(0)= "F^3:50" | |
63 | S DIR("A" )="Enter C PT file na me (SHORTU .txt)" D ^ DIR K DIR | |
64 | Q:$D(DUOU T) | |
65 | Q:Y="^"!( Y="") | |
66 | S CNAME=Y K DIR | |
67 | N FOLDER, CNTR | |
68 | S IOF="# ,*27,*91,* 50,*74,*27 ,*91,*72" | |
69 | ;S FILE=C NAME,FOLDE R="" ;DEV0 16554 DPT | |
70 | ;SET ENVI R | |
71 | ;X ^%ZOSF ("UCI") S UCI=$P(Y," ,",1) ;DEV 016554 DPT | |
72 | ;S FOLDER ="HAC_HFS$ :[SCR.TEMP _FILES]" ; DEV016554 DPT | |
73 | ;I UCI'=" HAC" S FOL DER="HAC_H FS$:[DSMMA NAG.CHAMPV A]" ;DEV01 6554 DPT | |
74 | ;S FILE=F OLDER_FILE | |
75 | ;S CHUCI= $S(UCI="DE V":"DEV",U CI="TST":" TEST",UCI= "SLA":"LIV E",UCI="HA C":"LIVE") ;DEV01289 3 DPT | |
76 | ;S FLDR=" /FS3BIG/CO DEUPDT/CPT 4UPDT/"_CH UCI ;DEV0 12893 DPT | |
77 | ;S IO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG .CODEUPDT. CPT4UPDT." _ENVIR_"]" _CNAME ; NAME OF CPT FILE | |
78 | ;D FTPFILE ^CHTFLIB9( FILE," DNS fs3. DNS ",FLDR,"GE T") ;DEV016554 DPT | |
79 | ;S POP=0 ,CNTR=0 ;D EV016554 D PT | |
80 | ;F S CN TR=CNTR+1 Q:(CNTR>5) !POP D ;D EV016554 D PT | |
81 | ; . X "D $SYSTEM.P rocess.Set ZEOF(1)" ; DEV016554 DPT | |
82 | ;. S POP =$$OPENFIR D^CHTFLIB9 (.FILE,"FI LE") ;DEV0 16554 DPT | |
83 | ;.Q ;DEV 016554 DPT | |
84 | ;I 'POP G MORE ;DE V016554 DP T | |
85 | S FILE="H AC_HFS$:[D SMMANAG.CH AMPVA]"_CN AME ; NSD I18491550F Y18 DPT | |
86 | O FILE:" R":5 | |
87 | S (EFFDAT E,TERMDATE )="" ;JE H 10/8/07 ENC000118 - ADDED EF FDATE AND TERMDATE | |
88 | S DIR(0)= "D" S DIR( "A")="Ente r Effectiv e Date" D ^DIR K DIR | |
89 | Q:$D(DIRU T)!($D(DUO UT)) | |
90 | S EFFDATE =Y ; EFFECTIVE DATE | |
91 | S DIR(0)= "DO" S DIR ("A")="Ent er Termina tion Date of Previou s year" D ^DIR K DIR | |
92 | Q:$D(DIRU T)!($D(DUO UT)) | |
93 | S TERMDAT E=Y ;TERMINATI ON DATE | |
94 | Q | |
95 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
96 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
97 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
98 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
99 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
100 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.