Why doesn't this work below?

DEFINE FILE AA
MATCHIND/A1=IF GIFTAMT GE 500 AND GIFT_CODE EQ 'MG' THEN 'Y' ELSE 'N';
END

-SET &MATCHIND2 = MATCHIND;
-IF &MATCHIND2 EQ 'N' THEN GOTO LETTER ELSE GOTO MATCHLETTER;
-LETTER
...
...
...
-MATCHLETTER

My goto only going to one goto, its not switching up.

This message has been edited. Last edited by: Kerry,

quote:

-SET &MATCHIND2 = MATCHIND;
-IF &MATCHIND2 EQ 'N' THEN GOTO LETTER ELSE GOTO MATCHLETTER;
-LETTER

Have you tried
-IF MATCHIND EQ 'N' THEN GOT LETTER ELSE GOTO MATCHLETTER;
-LETTER

Of course if -LETTER is immediatly after the -IF then would it be better to
-IF MATCHIND EQ 'Y' THEN GOTO MATCHLETTER;

I'm not a DM expert though someone else may have a better answer.

Yeah I tried that first which led me to doing a SET first....

MATCHLETTER - 11 chars
sometimes we have to use 10 char or less to get it to work.

Otherwise, your code looks fine....except for this declaration
MATCHIND/A1
and you reference MATCHIND2 in your code.

Hi,
You can't -SET a DM var to a field in a table. You'll need to do something like this:
TABLE FILE AA
PRINT MATCHIND
ON TABLE HOLD AS HOLDM FORMAT ALPHA
END
-RUN
-READ HOLDM &MATCHIND2.A1
-IF &MATCHIND2 etc.....

Tracie,
DM is one of the most powerful features of FOCUS but you have to think "stereo" when you use it. Remember, when you run a focexec there are always 2 passes. During the first pass, FOCUS will look at all the lines of the focexec. Those the DO NOT START WITH A '-' sign are sent to the stack. Those who do are executed immediately.
So, in your example, when FOCUS reaches

-SET &MATCHIND2 = MATCHIND;

the contents of &MATCHIND2 will be the string MATCHIND. If you want it to have the contents of the field MATCHIND then you have to do something like what codermonkey suggests.

Sorry just getting back to this. My supervisor told me I didn't have to do the match letter so I never had to implement this code. Sorry

Thanks though!

I am back to this question 2 years later!!! trying to do a GOTO using a field in the database...I tried the last suggestion but am getting the following error:
(FOC339) DIALOGUE MANAGER -READ FAILED: CHECK FILEDEF OR ALLOCATION FOR: -READ
LETTER &GOTO_IND.A6

Tracie,

Using codermonkeys example the very importand things are 1. HOLD format alpha and 2. the -RUN after the table request.

Without the -RUN the DM is executed before the TABLE creates the output file so issuing the required FILEDEF

Tracie,

Show us your code (enclosed in the CODE] /CODE]) tags. Then we could help you.

Bonjour,
Funny of how I feel so down and out versus so many virtuosos etc ... And how I feel very surprised by, sometimes, such a lack of Focus Culture. DM was a very tiny part of the Product. It plays it part before Focus, so that AmperSand variables are replaced by their values.
So you don't have to rewrite your Fex when you change, let's say, a Where Condition value of test.
The Father of DM, was probably brilliant with Tso Dialog Manager, or perhaps, REXX. So he pushed the idea much further than its original goal. So you get in front of 2 interpreters, which I often call a square interpreter. Because both of them play a part of the game, but not in the same Space-Time : they don't know each other (or so little).
My explanation of DM is a boss filling the basket (stack) of the employee Focus. -RUN is when the Boss whistles for his Employee to Run, take the Stack and do the Job. THEY DON'T LEAVE ON SAME PLANET.
With DS, and -MRNOEDIT the planets, the Space -times, tend to be a little numerous. So it can be hard to understand who is doing what, and when.
On a single Focus, the ECHO facility makes you touch with your eyes and guts, what's going on.
With what was called, Cooperative Treatments between different Focus installed on different platforms, -REMOTE BEGIN and -REMOTE END made you understand which Process was Working On.

But in this time of "Magical Mystery Tours" it turns difficult to find a coherent trace of all that occurs (including the technicians of communication who so well know what a trace is : their culture is based on telephon communication : they show you all that gets onto the line - bouerck !!!!)

And there is the palm tree that I just can't climb
Cordially and Focusely (and hoping that 1 or 2 guys get a better knowledge of DM. But who has the time and patience to listen to an old museum guide, lost in his Middle Ages ?
By the way, does anyone know about some kind of New Focus Viagra ??? So I could take more of these (Old Focus Guy little helper - Rolling Stones)

O, come on, it's not THAT bad...
Most of the old focus code (including DM) still works in the newer releases, so your knowledge is still valid.
Go on, keep doing your museum guided tours, we'll all be learning from them.

Keep it up! (no viagra , but it's the best I can do...)

-SET &ECHO = ALL;
SEVERAL JOINS
DEFINE FILE AA_GIFT_DETAIL
GOTO_IND/A3=IF SPRIDEN_FIRST_NAME EQ MISSING THEN 'ORG' ELSE 'IND';
MORE DEFINES
TABLE FILE AA_GIFT_DETAIL
SUM….
COMPUTE….
BY…
BY…
BY….
BY GOTO_IND
WHERE…
WHERE….
WHERE….
ON TABLE HOLD AS LETTER FORMAT ALPHA
END
DEFINE FILE LETTER
…..
END
-RUN
-READ LETTER &GOTO_IND.A1;
-IF &GOTO_IND EQ 'IND' THEN GOTO IND ELSE GOTO ORG;
-ORG
……
-GOTO DONE
-IND
……
-GOTO DONE
-DONE
END

quote:

-READ LETTER &GOTO_IND.A1;

should be

-READ LETTER &GOTO_IND.A1.

quote:

-READ LETTER &GOTO_IND.A1;
-IF &GOTO_IND EQ 'IND' THEN GOTO IND ELSE GOTO ORG;

Even with the punctuation corrected, after you read into &GOTO_IND as an A1 it's unlikely to contain 'IND'

quote:

-READ LETTER &GOTO_IND.A1;
-IF &GOTO_IND EQ 'IND' THEN GOTO IND ELSE GOTO ORG;

Change this into:

-READ LETTER &GOTO_IND.3.
-GOTO &GOTO_IND

Hope this helps ...

Bonjour,
I'm not a good Debugger, but I'm surprised not to see -REPEAT before -RUN.
And also, to see a DEFINE FILE LETTER before -READ. (DM does not Understand Defines)
Since DM and Focus are not on the Same Planet, -READ must READ in AmperSand Variables all that is necessary for his processing of the Data created by Focus.
Cordially and Focusely
PS ; WebFocus makes this difference of Worlds between Focus and DM a little transparent.
The idea being that when the user has an action on a line, automatically, WebFocus knows the hitted line and can 'read' the Fields of this Line and make them kind of AmperSand variables to build the Environment to the Process triggered by the User's Action.
Here, you seem to be under Focus alone, so you must do the Inter-World necessary Job by yourself. Being some kind of a Web-Tracie if it may help you to feel where your problem lies

Tracie,

This is your code between the tags:

  
-SET &ECHO = ALL;
SEVERAL JOINS
DEFINE FILE AA_GIFT_DETAIL
GOTO_IND/A3=IF SPRIDEN_FIRST_NAME EQ MISSING THEN 'ORG' ELSE 'IND';
MORE DEFINES
TABLE FILE AA_GIFT_DETAIL
SUM….
COMPUTE….
BY…
BY…
BY….
BY GOTO_IND
WHERE…
WHERE….
WHERE….
ON TABLE HOLD AS LETTER FORMAT ALPHA
END
DEFINE FILE LETTER
…..
END
-RUN
-READ LETTER &GOTO_IND.A1;
-IF &GOTO_IND EQ 'IND' THEN GOTO IND ELSE GOTO ORG;
-ORG
……
-GOTO DONE
-IND
……
-GOTO DONE
-DONE
END

According to your code, in the LETTER hold file you have many fields and maybe also many records. When you issue the DM -READ command, you are going to have to skip the 3 (or more) BY fields that preceed BY GOTO_IND. Something like this, maybe:

  
-READ LETTER &DUM.Ann &GOTO_IND.A3

Questions:
What do you want to accomplish if the LETTER file has more than 1 record?
What happens in the code after -ORG and -IND?

None of the above worked...I am trying to produce different verbiage for an organization letter versus an individual's letter. But its the same report.

Since you are doing a letter, which tends to be done in some sort of heading anyway, could you use two different subheads with a WHEN clause dependent of the value of GOTO_IND?

DEFINE FILE CAR
CONTINENT/A10=IF COUNTRY EQ 'JAPAN' THEN 'ASIA' ELSE 'EUROPE';
END
TABLE FILE CAR
BY COUNTRY NOPRINT
ON COUNTRY SUBHEAD
"This is the body for country <COUNTRY in continent <CONTINENT"
WHEN CONTINENT EQ 'ASIA'
ON COUNTRY SUBHEAD
"This is the body for country <COUNTRY in continent <CONTINENT"
WHEN CONTINENT NE 'ASIA'
END

So how can I manipulate the style sheet, because I have to wrap the text differently for each letter?

I'm a bit confused... What I see is that you want to display one of two "REPORTs" based on the value of "MATCHIND", right?

If so, remember that the DM commands are executed before the "DEFINE FILE" and will not "see" the value of GIFTAMT or GIFTCODE as they are database values within your AA file.

I would suggest a LOOP, one for each value of MATCHIND. I'll try it out in the CAR FILE if that's what you want.

Actually the 2 different reports may be in the same result file. They are separated by ID (page break). The report may produce an ORG letter, which has the org name in the body, or it may produce an IND letter that has a different sentence for individuals.

My supervisor hates separate reports, thus the need for one report....one day she wants me to combine all my reports into one so the users can just hit one button and my code deciphers which report to run based on who the letter/receipt goes too. That will be the day!

I suggest you post code that we can run - it will be easier to help you.

-SET &ECHO = ALL;
JOIN
AA_GIFT_DETAIL.AA_GIFT_DETAIL.GIFT_ENTRY_USER IN AA_GIFT_DETAIL TO MULTIPLE
V_NCAT_AG_CASHIER.V_NCAT_AG_CASHIER.AGBCSHR_USER IN V_NCAT_AG_CASHIER AS J0
END
JOIN
AA_GIFT_DETAIL.AA_GIFT_DETAIL.ID IN AA_GIFT_DETAIL TO UNIQUE
SPRIDEN.SPRIDEN.SPRIDEN_ID IN SPRIDEN AS J1
END
JOIN
SPRIDEN.SPRIDEN.SPRIDEN_PIDM IN AA_GIFT_DETAIL TO MULTIPLE
SPRADDR.SPRADDR.SPRADDR_PIDM IN SPRADDR AS J2
END
JOIN SPRADDR.SPRADDR.SPRADDR_PIDM IN AA_GIFT_DETAIL TO
APBCONS.APBCONS.APBCONS_PIDM IN APBCONS AS J7
END
JOIN
LEFT_OUTER SPRIDEN.SPRIDEN.SPRIDEN_ID IN AA_GIFT_DETAIL TO UNIQUE
AA_CONSTITUENT_IDENTIFICATION.AA_CONSTITUENT_IDENTIFICATION.ID_NUMBER
IN AA_CONSTITUENT_IDENTIFICATION AS J3
END
JOIN
LEFT_OUTER AA_GIFT_DETAIL.AA_GIFT_DETAIL.PIDM_KEY IN AA_GIFT_DETAIL TO MULTIPLE
AOBORGN_PIDM IN AOBORGN AS J4
END
JOIN
LEFT_OUTER AA_GIFT_DETAIL.AA_GIFT_DETAIL.PIDM_KEY IN AA_GIFT_DETAIL TO UNIQUE
AGRGAUX_PIDM IN AGRGAUX AS J5
END
JOIN
AA_GIFT_DETAIL.AA_GIFT_DETAIL.DESIGNATION_KEY IN AA_GIFT_DETAIL TO UNIQUE
ADBDESG.ADBDESG.ADBDESG_DESG IN ADBDESG AS J6
END
JOIN
AA_CONSTITUENT_IDENTIFICATION.AA_CONSTITUENT_IDENTIFICATION.SPOUSE_ID IN
AA_GIFT_DETAIL TO UNIQUE
AA_CONSTITUENT_IDENTIFICATION.AA_CONSTITUENT_IDENTIFICATION.ID_NUMBER
IN AA_CONSTITUENT_IDENTIFICATION AS J9
END
DEFINE FILE AA_GIFT_DETAIL
GOTO_IND/A3=IF SPRIDEN_FIRST_NAME EQ MISSING THEN 'ORG' ELSE 'IND';
LETTERCODE/A4=
IF PGVE_CODE EQ 'UNIV' THEN 'UNIV'
ELSE IF PGVE_CODE EQ 'ALUM' THEN 'UNIV'
ELSE IF PGVE_CODE IS MISSING OR PGVE_CODE EQ 'TPPT' AND ADBDESG_DGRP_CODE NE 'VICT' THEN 'FOUN'
ELSE IF ADBDESG_DGRP_CODE EQ 'VICT' AND DESIGNATION_NAME LIKE '%Victory%' THEN 'FOUN'
ELSE ' ';
CNT/I5=1;
PREF/A22=IF NAME_PREFIX NE ' ' THEN NAME_PREFIX ELSE '';
CONT_PREF/A22=IF AOBORGN_PREFIX_CONTACT NE ' ' THEN AOBORGN_PREFIX_CONTACT||'. ' ELSE ' ';
MID_INIT/A3=IF MIDDLE_INITIAL EQ MISSING THEN '' ELSE MIDDLE_INITIAL||'. ';
CONT_MID_INIT/A3=IF AOBORGN_MI_CONTACT EQ MISSING THEN '' ELSE AOBORGN_MI_CONTACT||'. ';
SPMID/A2=IF J9MIDDLE_INITIAL EQ MISSING THEN ' ' ELSE J9MIDDLE_INITIAL||('.');
SPLT_AMT/D20.2=GIFT_CREDIT_AMT * 2;
JT_FLAG/A1=IF SPLT_AMT EQ GIFT_AMT THEN 'Y' ELSE 'N';
SUFF/A25=IF NAME_SUFFIX EQ 'Jr' OR NAME_SUFFIX EQ 'Sr' OR NAME_PREFIX EQ 'III' OR NAME_PREFIX EQ 'IV' THEN NAME_SUFFIX ELSE ' ';
SUFF2/A28=IF SUFF EQ 'Jr' OR 'Sr' THEN ','||(' '|SUFF)||'.' ELSE SUFF;
SPOUSEPREF/A39=IF J9NAME_PREFIX EQ 'Hon' THEN 'Honorable' ELSE J9NAME_PREFIX||'.';
SPOUSESUFF/A25=IF SPOUSE_NAME_SUFFIX EQ 'Jr' OR SPOUSE_NAME_SUFFIX EQ 'Sr' OR SPOUSE_NAME_SUFFIX EQ 'III' OR SPOUSE_NAME_SUFFIX EQ 'IV' THEN SPOUSE_NAME_SUFFIX ELSE ' ';
SPOUSESUFF2/A28=IF SPOUSESUFF EQ 'Jr' OR 'Sr' THEN ','||(' '|SPOUSESUFF)||'.' ELSE SPOUSESUFF;
SPOUSE/A200=SPOUSE_NAME_PREFIX||('. '|SPOUSE_FIRST_NAME)||(' '|SPMID)||(' '|SPOUSE_LAST_NAME)||SPOUSESUFF2;
JTPREF/A150=
IF NAME_PREFIX EQ 'Hon' AND J9NAME_PREFIX EQ 'Hon' THEN 'Honorables'||(' '|LAST_NAME)
ELSE IF NAME_PREFIX EQ J9NAME_PREFIX THEN PREF || 's'||('. '|LAST_NAME)
ELSE IF GENDER EQ 'M' THEN PREF||'.'||(' and '|SPOUSEPREF)||(' '|LAST_NAME)
ELSE SPOUSEPREF||(' and '|PREF)||'.'||(' '|LAST_NAME);
NAME/A140=
(NAME_PREFIX) ||
(' ' |FIRST_NAME) ||
(' ' |MIDDLE_NAME) ||
(' ' |LAST_NAME)||
(' ' |NAME_SUFFIX);
IND_ENTIRE_NAME/A190=
IF FIRST_NAME NE MISSING THEN PREF||('. ' |SPRIDEN_FIRST_NAME)||(' ' |MID_INIT)||('' |SPRIDEN_LAST_NAME)||SUFF2
ELSE ' ';
DESG/A2=EDIT(DESIGNATION_KEY, '$9$$$$');
GIFT_TOT/D7.2CSM=GIFT_AMT;
GDATE/YYMD=HDATE(GIFT_DATE, 'YYMD');
GDATE2/MDYY=HDATE(GIFT_DATE, 'MDYY');
USER_START_DATE/MDYY=HDATE(AGBCSHR_START_DATE, 'MDYY');
USER_END_DATE/MDYY=HDATE(AGBCSHR_END_DATE, 'MDYY');
V1/A190=SPRADDR_STREET_LINE1;
V2/A190=
IF V1 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN SPRADDR_STREET_LINE1
ELSE IF V1 CONTAINS 'Dr ' THEN STRREP(90, V1, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V1 CONTAINS 'Rd' THEN STRREP(90, V1, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V1 CONTAINS 'Ter ' THEN STRREP(90, V1, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V1 CONTAINS 'Cir ' THEN STRREP(90, V1, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V1 CONTAINS 'Ave' THEN STRREP(90, V1, 3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V1 CONTAINS 'Blvd' THEN STRREP(90, V1, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V1 CONTAINS 'Ln' THEN STRREP(90, V1, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V1 CONTAINS 'Pkwy' THEN STRREP(90, V1, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V1 CONTAINS 'Trl' THEN STRREP(90, V1, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V1 CONTAINS 'Apt' THEN STRREP(90, V1, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V1 CONTAINS 'Ct' THEN STRREP(90, V1, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V1 CONTAINS 'St ' THEN STRREP(90, V1, 2, 'St', 6, 'Street', 90, 'A190')
ELSE SPRADDR_STREET_LINE1;
V3/A190=SPRADDR_STREET_LINE2;
V4/A190=
IF V3 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN SPRADDR_STREET_LINE2
ELSE IF V3 CONTAINS 'Dr ' THEN STRREP(90, V3, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V3 CONTAINS 'Rd' THEN STRREP(90, V3, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V3 CONTAINS 'Ter ' THEN STRREP(90, V3, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V3 CONTAINS 'Cir ' THEN STRREP(90, V3, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V3 CONTAINS 'Ave' THEN STRREP(90, V3,3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V3 CONTAINS 'Blvd' THEN STRREP(90, V3, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V3 CONTAINS 'Ln' THEN STRREP(90, V3, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V3 CONTAINS 'Pkwy' THEN STRREP(90, V3, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V3 CONTAINS 'Trl' THEN STRREP(90, V3, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V3 CONTAINS 'Apt' THEN STRREP(90, V3, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V3 CONTAINS 'Ct' THEN STRREP(90, V3, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V3 CONTAINS 'St ' THEN STRREP(90, V3, 2, 'St', 6, 'Street', 90, 'A190')
ELSE SPRADDR_STREET_LINE2;
V5/A190=SPRADDR_STREET_LINE3;
V6/A190=
IF V5 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN SPRADDR_STREET_LINE3
ELSE IF V5 CONTAINS 'Dr ' THEN STRREP(90, V5, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V5 CONTAINS 'Rd' THEN STRREP(90, V5, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V5 CONTAINS 'Ter ' THEN STRREP(90, V5, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V5 CONTAINS 'Cir ' THEN STRREP(90, V5, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V5 CONTAINS 'Ave' THEN STRREP(90, V5, 3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V5 CONTAINS 'Blvd' THEN STRREP(90, V5, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V5 CONTAINS 'Ln' THEN STRREP(90, V5, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V5 CONTAINS 'Pkwy' THEN STRREP(90, V5, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V5 CONTAINS 'Trl' THEN STRREP(90, V5, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V5 CONTAINS 'Apt' THEN STRREP(90, V5, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V5 CONTAINS 'Ct' THEN STRREP(90, V5, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V5 CONTAINS 'St ' THEN STRREP(90, V5, 2, 'St', 6, 'Street', 90, 'A190')
ELSE SPRADDR_STREET_LINE3;
V7/A190=PREF_STREET_LINE1;
V8/A190=
IF V7 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN PREF_STREET_LINE1
ELSE IF V7 CONTAINS 'Dr ' THEN STRREP(90, V7, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V7 CONTAINS 'Rd' THEN STRREP(90, V7, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V7 CONTAINS 'Ter ' THEN STRREP(90, V7, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V7 CONTAINS 'Cir ' THEN STRREP(90, V7, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V7 CONTAINS 'Ave' THEN STRREP(90, V7, 3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V7 CONTAINS 'Blvd' THEN STRREP(90, V7, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V7 CONTAINS 'Ln' THEN STRREP(90, V7, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V7 CONTAINS 'Pkwy' THEN STRREP(90, V7, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V7 CONTAINS 'Trl' THEN STRREP(90, V7, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V7 CONTAINS 'Apt' THEN STRREP(90, V7, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V7 CONTAINS 'Ct' THEN STRREP(90, V7, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V7 CONTAINS 'St ' THEN STRREP(90, V7, 2, 'St', 6, 'Street', 90, 'A190')
ELSE PREF_STREET_LINE1;
V9/A190=PREF_STREET_LINE2;
V10/A190=
IF V9 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN PREF_STREET_LINE2
ELSE IF V9 CONTAINS 'Dr ' THEN STRREP(90, V9, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V9 CONTAINS 'Rd' THEN STRREP(90, V9, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V9 CONTAINS 'Ter ' THEN STRREP(90, V9, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V9 CONTAINS 'Cir ' THEN STRREP(90, V9, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V9 CONTAINS 'Ave' THEN STRREP(90, V9, 3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V9 CONTAINS 'Blvd' THEN STRREP(90, V9, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V9 CONTAINS 'Ln' THEN STRREP(90, V9, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V9 CONTAINS 'Pkwy' THEN STRREP(90, V9, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V9 CONTAINS 'Trl' THEN STRREP(90, V9, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V9 CONTAINS 'Apt' THEN STRREP(90, V9, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V9 CONTAINS 'Ct' THEN STRREP(90, V9, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V9 CONTAINS 'St ' THEN STRREP(90, V9, 2, 'St', 6, 'Street', 90, 'A190')
ELSE PREF_STREET_LINE2;
V11/A190=PREF_STREET_LINE3;
V12/A190=
IF V11 CONTAINS 'Way' OR 'Drop' OR 'State' OR 'Drive' OR 'Road' OR 'Street' OR 'Terrace' OR 'Lane' OR 'Boulevard' OR 'Avenue' OR 'Circle' OR 'Parkway' OR 'Apartment' OR 'Trail' OR 'Court'
THEN PREF_STREET_LINE3
ELSE IF V11 CONTAINS 'Dr ' THEN STRREP(90, V11, 2, 'Dr', 5, 'Drive', 90, 'A190')
ELSE IF V11 CONTAINS 'Rd' THEN STRREP(90, V11, 2, 'Rd', 4, 'Road', 90, 'A190')
ELSE IF V11 CONTAINS 'Ter ' THEN STRREP(90, V11, 3, 'Ter', 7, 'Terrace', 90, 'A190')
ELSE IF V11 CONTAINS 'Cir ' THEN STRREP(90, V11, 3, 'Cir', 6, 'Circle', 90, 'A190')
ELSE IF V11 CONTAINS 'Ave' THEN STRREP(90, V11, 3, 'Ave', 6, 'Avenue', 90, 'A190')
ELSE IF V11 CONTAINS 'Blvd' THEN STRREP(90, V11, 4, 'Blvd', 9, 'Boulevard', 90, 'A190')
ELSE IF V11 CONTAINS 'Ln' THEN STRREP(90, V11, 2, 'Ln', 4, 'Lane', 90, 'A190')
ELSE IF V11 CONTAINS 'Pkwy' THEN STRREP(90, V11, 4, 'Pkwy', 7, 'Parkway', 90, 'A190')
ELSE IF V11 CONTAINS 'Trl' THEN STRREP(90, V11, 3, 'Trl', 5, 'Trail', 90, 'A190')
ELSE IF V11 CONTAINS 'Apt' THEN STRREP(90, V11, 3, 'Apt', 9, 'Apartment', 90, 'A190')
ELSE IF V11 CONTAINS 'Ct' THEN STRREP(90, V11, 2, 'Ct', 5, 'Court', 90, 'A190')
ELSE IF V11 CONTAINS 'St ' THEN STRREP(90, V11, 2, 'St', 6, 'Street', 90, 'A190')
ELSE PREF_STREET_LINE3;
ADDRESS/A200=IF SPRIDEN_FIRST_NAME NE ' ' THEN V8 ELSE V2;
ADDRESS1/A200=IF SPRIDEN_FIRST_NAME NE ' ' THEN V10 ELSE V4;
ADDRESS2/A200=IF SPRIDEN_FIRST_NAME NE ' ' THEN V12 ELSE V6;
ADDRESS3/A200=
IF SPRIDEN_FIRST_NAME NE ' ' THEN PREF_CITY||(', '|PREF_STAT_CODE)||(' '|PREF_ZIP)
ELSE SPRADDR_CITY||(', '|SPRADDR_STAT_CODE)||(' '|SPRADDR_ZIP);
TOTALADDRESS2/A290=IF ADDRESS1 EQ ' ' THEN ADDRESS3 ELSE ADDRESS1;
TOTALADDRESS3/A290=IF TOTALADDRESS2 NE ADDRESS3 THEN (IF ADDRESS2 EQ ' ' THEN ADDRESS3 ELSE ADDRESS2) ELSE ' ';
TOTALADDRESS4/A290=IF TOTALADDRESS3 EQ ADDRESS3 THEN ' ' ELSE IF TOTALADDRESS3 EQ ' ' THEN ' ' ELSE ADDRESS3;
SESS_NUM/A7=EDIT(AGBCSHR_SESSION_NUMBER, '$$$9999');
AMPER/A2='&'||'T';
DEAR_INDNAME/A190=
IF SPRIDEN_FIRST_NAME NE MISSING AND JT_FLAG EQ 'N' THEN PREF||('. '|LAST_NAME)
ELSE IF JT_FLAG EQ 'Y' THEN JTPREF ELSE ' ';
END
TABLE FILE AA_GIFT_DETAIL
SUM
COMPUTE CNTR/I5 = IF SPRIDEN_ID EQ LAST SPRIDEN_ID THEN CNTR + 1 ELSE 1;
'SPRIDEN_FIRST_NAME'
'SPRIDEN_LAST_NAME'
'IND_ENTIRE_NAME'
'ADDRESS'
ADDRESS1
ADDRESS2
ADDRESS3
'TOTALADDRESS2'
TOTALADDRESS3
TOTALADDRESS4
'GIFT_TOT'
'V_NCAT_AG_CASHIER.V_NCAT_AG_CASHIER.SESS_NUM'
AMPER
'CONT_MID_INIT'
'AOBORGN.AOBORGN.AOBORGN_FIRST_NAME_CONTACT'
'AOBORGN.AOBORGN.AOBORGN_LAST_NAME_CONTACT'
'AOBORGN.AOBORGN.AOBORGN_SUFFIX_CONTACT'
'AOBORGN.AOBORGN.AOBORGN_TITLE_CONTACT'
'CONT_PREF'
'PREF'
CNT
'LAST_NAME'
'DESG'
DEAR_INDNAME
JT_FLAG
SPOUSE
BY 'GDATE2'
BY 'GIFT_NO_KEY'
BY 'DESIGNATION_NAME'
BY 'GIFT_DESC'
BY 'SPRIDEN_ID'
BY GOTO_IND
WHERE ( GIFT_AMT GT 0 );
WHERE GIFT_CODE EQ 'CK' OR 'CS' OR 'MG' OR 'MO' OR 'WT' OR 'CC' OR 'SE' OR 'ET';
WHERE ( GIFT_ENTRY_DATE GE AGBCSHR_START_DATE ) AND ( GIFT_ENTRY_DATE LE AGBCSHR_END_DATE );
WHERE ( GIFT_ENTRY_USER EQ '&GIFT_ENTRY_USER' );
WHERE ( AGBCSHR_SESSION_NUMBER EQ &AGBCSHR_SESSION_NUMBER);
WHERE LETTERCODE EQ 'FOUN';
WHERE SPRIDEN_CHANGE_IND EQ MISSING;
WHERE SPRADDR_ATYP_CODE EQ APBCONS_ATYP_CODE_PREF OR SPRADDR_ATYP_CODE IN ('MA','HO','E1','W2', 'AP');
WHERE SPRADDR_TO_DATE EQ MISSING AND SPRADDR_STATUS_IND EQ MISSING;
WHERE CAMPAIGN_KEY NE 'EVENT';
ON TABLE NOTOTAL
ON TABLE HOLD AS LETTER FORMAT ALPHA
END
DEFINE FILE LETTER
JACQ/A35='Ms. Jacqueline C. McMillan, COO';
NATA/A45='Ms. Shirlye Grandy, Director of Accounting';
ID_NUM/A30=DESG||SPRIDEN_ID||('-'|SESS_NUM);
TMP_DESIGNATION_NAME/A62 = IF SPRIDEN_ID EQ LAST SPRIDEN_ID
THEN ', ' | DESIGNATION_NAME ELSE DESIGNATION_NAME;
DESGS/A1548 = IF SPRIDEN_ID EQ LAST SPRIDEN_ID
THEN SUBSTR(1548, DESGS, 1, 1486, 1486, 'A1486') || TMP_DESIGNATION_NAME
ELSE TMP_DESIGNATION_NAME;
TITLE/A90=IF AOBORGN_TITLE_CONTACT NE MISSING THEN (', '|AOBORGN_TITLE_CONTACT) ELSE ' ';
DEAR_ORGNAME/A100=IF AOBORGN_LAST_NAME_CONTACT NE ' ' AND SPRIDEN_FIRST_NAME EQ ' ' THEN CONT_PREF||(' '|AOBORGN_LAST_NAME_CONTACT) ELSE 'Sir or Madam';
ORG_CONTACT_NAME/A190=IF AOBORGN_FIRST_NAME_CONTACT EQ ' ' THEN ' '
ELSE CONT_PREF||(''|AOBORGN_FIRST_NAME_CONTACT)||(' '|CONT_MID_INIT)||(''|AOBORGN_LAST_NAME_CONTACT)||(' '|AOBORGN_SUFFIX_CONTACT)||(TITLE);
ORG_NAME/A200=IF SPRIDEN_FIRST_NAME EQ MISSING THEN SPRIDEN_LAST_NAME ELSE IF JT_FLAG EQ 'Y' THEN SPOUSE ELSE IND_ENTIRE_NAME;
DEAR_NAME/A192=IF DEAR_INDNAME EQ ' ' THEN DEAR_ORGNAME||':' ELSE DEAR_INDNAME||':';
NAME1/A190=IF IND_ENTIRE_NAME EQ ' ' THEN ORG_CONTACT_NAME ELSE IND_ENTIRE_NAME;
LETTER1/A3000='in support of the'||(' '|DESGS)||('. '| 'The Foundation and its staff are committed to supporting the University''s programs and to making a difference in the lives of current and future students who attend North Carolina A'||AMPER||' State University.');
TODAY_DT/A20 = DATETRAN(DATECVT(&YYMD, 'I8YYMD', 'DMYY'), '(MDYY)', '(trD)', 'EN', 20, 'A20');
LINE8/A300=IF TOTALADDRESS4 NE ' ' THEN TOTALADDRESS4 ELSE IF TOTALADDRESS3 NE ' ' THEN TOTALADDRESS3 ELSE TOTALADDRESS2;
LINE7/A300=IF LINE8 EQ TOTALADDRESS4 THEN TOTALADDRESS3 ELSE IF LINE8 EQ TOTALADDRESS3 THEN TOTALADDRESS2 ELSE ADDRESS;
LINE6/A300=IF LINE7 EQ TOTALADDRESS3 THEN TOTALADDRESS2 ELSE IF LINE7 EQ TOTALADDRESS2 THEN ADDRESS ELSE IF LINE7 EQ ADDRESS THEN ORG_NAME;
LINE5/A300=IF LINE6 EQ TOTALADDRESS2 THEN ADDRESS ELSE IF LINE6 EQ ADDRESS THEN ORG_NAME ELSE IF (LINE6 EQ ORG_NAME AND ORG_NAME NE NAME1) THEN NAME1 ELSE ' ';
LINE4/A300=IF LINE5 EQ ADDRESS THEN ORG_NAME ELSE IF (LINE5 EQ ORG_NAME AND ORG_NAME NE NAME1) THEN NAME1 ELSE ' ';
LINE3/A300=(IF LINE4 EQ ORG_NAME AND ORG_NAME NE NAME1) THEN NAME1 ELSE IF LINE4 EQ ' ' THEN ' ' ELSE ' ';
LINE2/A300=IF LINE5 EQ ' ' AND LINE6 NE ' ' THEN TODAY_DT ELSE ' ';
LINE1/A300=IF LINE4 EQ ' ' AND LINE5 NE ' ' THEN TODAY_DT ELSE ' ';
LINE0/A300=IF LINE3 EQ ' ' AND LINE4 NE ' ' THEN TODAY_DT ELSE ' ';
LINE/A300=IF LINE3 NE ' ' THEN TODAY_DT ELSE ' ';
END
-RUN
-READ LETTER &GOTO_IND.A3
-IF &GOTO_IND EQ 'IND' THEN GOTO IND ELSE GOTO ORG;
-*-IF &SPRIDEN_FIRST_NAME NE MISSING THEN GOTO IND;
-*-IF &SPRIDEN_FIRST_NAME EQ MISSING THEN GOTO ORG;
-ORG
TABLE FILE LETTER
SUM
GIFT_TOT NOPRINT
BY SPRIDEN_ID NOPRINT
ON SPRIDEN_ID PAGE-BREAK
HEADING
" "
" "
" "
"""""""""" "
"Dear " "
"On behalf of the Board of Directors of the North Carolina A"Foundation, Inc., I thank you for your generous contribution from"
""" "
"Your continued support is critical to our efforts on behalf of the University."
"Thank you for choosing the University Foundation as a way to share your"
"resources. "
" "
" "
" "
"Sincerely,"
" "
" "
" "
"Mark Kiel"
"Executive Director"
" "
"cc: " " "
" "
" "
" "
"" "
"In accordance with IRS requirements, no goods or services were provided in return "
"for this contribution unless stated otherwise above."
WHERE TOTAL GIFT_TOT GE 250;
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
LEFTMARGIN=1.930556,
RIGHTMARGIN=0.500000,
TOPMARGIN=0.888889,
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=11,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=DATA,
COLUMN=N1,
SIZE=11,
STYLE=NORMAL,
$
TYPE=DATA,
COLUMN=N6,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N7,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N8,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N9,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N10,
FONT='TIMES NEW ROMAN',
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N1,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N6,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N7,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N8,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N9,
SIZE=12,
$
TYPE=HEADING,
LINE=18,
OBJECT=FIELD,
ITEM=1,
WRAP=12.00,
$
TYPE=HEADING,
LINE=19,
OBJECT=FIELD,
ITEM=1,
WRAP=6.00,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=17,
OBJECT=FIELD,
ITEM=1,
WRAP=6,
$
TYPE=FOOTING,
SIZE=12,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
SIZE=9,
STYLE=ITALIC,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
SIZE=10,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BY=1,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
TYPE=REPORT,
COLUMN=N8,
WRAP=1.555556,
$
ENDSTYLE
-GOTO DONE
-IND
TABLE FILE LETTER
SUM
GIFT_TOT NOPRINT
BY SPRIDEN_ID NOPRINT
ON SPRIDEN_ID PAGE-BREAK
HEADING
" "
" "
" "
"""""""""" "
"Dear " "
"On behalf of the Board of Directors of the North Carolina A"Foundation, Inc., I thank you for your generous contribution of "" "
"Your continued support is critical to our efforts on behalf of the University."
"Thank you for choosing the University Foundation as a way to share your"
"resources. "
" "
" "
" "
"Sincerely,"
" "
" "
" "
"Mark Kiel"
"Executive Director"
" "
"cc: " " "
" "
" "
" "
"" "
"In accordance with IRS requirements, no goods or services were provided in return "
"for this contribution unless stated otherwise above."
WHERE TOTAL GIFT_TOT GE 250;
ON TABLE SET PAGE-NUM OFF
ON TABLE NOTOTAL
ON TABLE PCHOLD FORMAT PDF
ON TABLE SET STYLE *
UNITS=IN,
LEFTMARGIN=1.930556,
RIGHTMARGIN=0.500000,
TOPMARGIN=0.888889,
BOTTOMMARGIN=0.000000,
SQUEEZE=ON,
ORIENTATION=PORTRAIT,
$
TYPE=REPORT,
GRID=OFF,
FONT='TIMES NEW ROMAN',
SIZE=11,
COLOR='BLACK',
BACKCOLOR='NONE',
STYLE=NORMAL,
RIGHTGAP=0.125000,
TOPGAP=0.013889,
BOTTOMGAP=0.027778,
$
TYPE=DATA,
COLUMN=N1,
SIZE=11,
STYLE=NORMAL,
$
TYPE=DATA,
COLUMN=N6,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N7,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N8,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N9,
FONT='TIMES NEW ROMAN',
SIZE=12,
$
TYPE=DATA,
COLUMN=N10,
FONT='TIMES NEW ROMAN',
$
TYPE=TITLE,
STYLE=BOLD,
$
TYPE=TITLE,
COLUMN=N1,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N6,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N7,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N8,
SIZE=12,
$
TYPE=TITLE,
COLUMN=N9,
SIZE=12,
$
TYPE=TABHEADING,
SIZE=12,
STYLE=BOLD,
$
TYPE=TABFOOTING,
SIZE=12,
STYLE=BOLD,
$
TYPE=HEADING,
LINE=18,
OBJECT=FIELD,
ITEM=1,
WRAP=6,
$
TYPE=FOOTING,
SIZE=12,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=1,
SIZE=9,
STYLE=ITALIC,
$
TYPE=FOOTING,
LINE=2,
OBJECT=TEXT,
ITEM=2,
SIZE=10,
STYLE=ITALIC,
$
TYPE=SUBHEAD,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBFOOT,
SIZE=10,
STYLE=BOLD,
$
TYPE=SUBTOTAL,
BY=1,
STYLE=BOLD,
$
TYPE=ACROSSVALUE,
SIZE=9,
$
TYPE=ACROSSTITLE,
STYLE=BOLD,
$
TYPE=GRANDTOTAL,
BACKCOLOR=RGB(210 210 210),
STYLE=BOLD,
$
TYPE=REPORT,
COLUMN=N8,
WRAP=1.555556,
$
ENDSTYLE
-GOTO DONE
-DONE
END

tbj
Prod WF 8.1.05,Test WF 8.1.05, WINDOWS 7 Platform, Oracle 12
Excel, PDF, Alpha

The letter part has fields that are not showing for some reason....

Always use

[code]

and

[/code]

tags at the beginning and end of the code.

I did suggest posting code that we can run, something using the CAR file perhaps, or is this too complicated to reproduce using a file we can run?

Tracie,

Try this code, using the CAR FILE, to see if it represents your desire.

DEFINE FILE CAR
MATCHIND/A1=IF MPG GT 21 THEN 'Y' ELSE 'N';
END
TABLE FILE CAR
PRINT MATCHIND
BY MODEL
ON TABLE HOLD AS TEMPFILE FORMAT FOCUS INDEX MODEL
END
-RUN
JOIN MODEL IN CAR TO MODEL IN TEMPFILE AS J1
DEFINE FILE CAR
BODYTEXT/A64 = IF TEMPFILE.MATCHIND EQ 'Y'
THEN 'This is Body Text for model with Greater Then 21 MGP.'
ELSE 'This is Body Text for model with Less Then 21 MGP.' ;
END
TABLE FILE CAR
PRINT COUNTRY CAR MPG MATCHIND
BODYTEXT
BY MODEL
BY MPG
END

oh my bad Francis....

I think the key is I have 2 different style sheets for each letter....