I need to create an IF statment, but I'm not sure where to put it in the report. My report is a typical webfocus report where I am using HTML to call reports in htmtable format.

 -HTMLFORM BEGIN
<TABLE CELLPADDING="5" CELLSPACING="5" BORDER="0">
<TR>
<TD WIDTH='75%' ALIGN="CENTER"><H3><FONT FACE=ARIAL>Financial Aid Recipient Persistence <BR> Students with &UNMET_NEED_LOW_GT - &UNMET_NEED_HIGH_LT
Dollars of Unmet Need in &ACAD_YEAR1 - &ACAD_YEAR2 </TD>
</TR>
</TABLE>
 

Problem: Our parameter for Caucasian is 'WH'. Instead of it saying "WH" in my html section, I need it to say Caucasian. So that it reads in my report

"Caucasian Students with &UNMET_NEED_LOW_GT - &UNMET_NEED_HIGH_LT Dollars of Unmet Need in &ACAD_YEAR1 - &ACAD_YEAR2"

So I can just create a parameter for this using an IF statement, but where to I put the IF statement, and is it using the Dialouge Manager or a SET command?

Brian,

Something like this (assuming the race is stored in an amper variable called &RACE):

 
-SET &RACE_CODE = DECODE &RACE (
- 'CAUCASIAN' 'WH'
- 'BLACK'     'BL'
- ELSE 'UN'
-);

Then insert !IBI.AMP.RACE_CODE; inside your HTML.

Regards,
Sean

Hi Brian

if I understood do like this in your FEX, it's well explain in the APPLICATION Help file.
Parameters in HTML are :
!IBI.AMP.parameter_name; OR !IBI.GLB.parameter_name;
HOLD HOLD FILE IN HTML :
!IBI.FIL.hold_file_name;


-SET &WH='Caucasian' ;

-HTMLFORM BEGIN

Financial Aid Recipient Persistence !IBI.AMP.WH; Students with !IBI.AMP.UNMET_NEED_LOW_GT; - !IBI.AMP.UNMET_NEED_HIGH_LT; Dollars of Unmet Need in &ACAD_YEAR1 - &ACAD_YEAR2

Hope it help

I can't get the decode to work. I've tried different scenarios and I always get my ELSE statment of UKNOWN returned.

I'll post the relavent code (the entire report is way too long to post). Also, I haven't had any trouble in the past with calling a parameter in the HTML section by just using ¶meter. But I have changed the calling method for these 2 paramters in particular to follow your instructions:

  
-SET &E_DESC = DECODE ÐNICITY_CODE (
- 'CAUCASIAN' 'WH'
- 'AFRICAN AMERICAN' 'BL'
- 'ASIAN' 'AS'
- 'NATIVE AMERICAN' 'NA'
- 'HISPANIC' 'HP'
- 'OTHER' 'OT'
- ELSE 'UNKNOWN'
-);

-SET &G_DESC = DECODE &GENDER_CODE (
- 'MALE' 'M'
- 'FEMALE' 'F'
- ELSE 'UNKNOWN'
-);

-***************************INITIAL STUDENT POPULATION*****************************
JOIN RPRAWRD_PIDM IN RPRAWRD TO MULTIPLE RORENRL_PIDM IN RORENRL AS J0
JOIN RORENRL_PIDM IN RPRAWRD TO MULTIPLE SGBSTDN_PIDM IN SGBSTDN AS J1
JOIN SGBSTDN_PIDM IN RPRAWRD TO MULTIPLE RNVAND1_PIDM IN RNVAND1 AS J2
JOIN RNVAND1_PIDM IN RPRAWRD TO SPBPERS_PIDM IN SPBPERS AS J3
JOIN SPBPERS_ETHN_CODE IN RPRAWRD TO STVETHN_CODE IN STVETHN AS J4

TABLE FILE RPRAWRD
BY RPRAWRD_PIDM AS 'STUDENT_PIDM'
WHERE RPRAWRD_AIDY_CODE EQ '&AID_YEAR.(FIND ROBINST_AIDY_CODE IN ROBINST).AID_YEAR.';
WHERE RORENRL_TERM_CODE EQ '&TERM_CODE_A';
WHERE RORENRL_FINAID_ADJ_HR GE 1;
WHERE RPRAWRD_PAID_AMT GT 0;
WHERE RPRAWRD_AWST_CODE EQ 'ACPT';
WHERE SGBSTDN_STYP_CODE EQ 'N';
WHERE SGBSTDN_TERM_CODE_ADMIT EQ '&TERM_CODE_A';
WHERE SGBSTDN_LEVL_CODE EQ 'UG';
WHERE RNVAND1_AIDY_CODE EQ '&AID_YEAR';
WHERE RNVAND1_UNMET_NEED GT '&UNMET_NEED_LOW_GT';
WHERE RNVAND1_UNMET_NEED LT '&UNMET_NEED_HIGH_LT';
WHERE SPBPERS_SEX EQ &GENDER_CODE.(OR(<MALE,M>,<FEMALE,F>,<UNKNOWN,N>)).GENDER_CODE.;
WHERE SPBPERS_ETHN_CODE EQ ÐNICITY_CODE.(OR(<CAUCASIAN,WH>,<AFRICAN_AMERICAN,BL>,<ASIAN,AS>,<HISPANIC,HP>,<NATIVE_AMERICAN,NA>,<OTHER,OT>)).ETHNICITY_CODE.;
ON TABLE NOTOTAL
ON TABLE HOLD AS STUDENT_POP
END

-***************************INITIAL STUDENT POPULATION END*****************************

-HTMLFORM BEGIN
<TABLE CELLPADDING="5" CELLSPACING="5" BORDER="0">
<TR>
<TD WIDTH='75%' ALIGN="CENTER"><H3><FONT FACE=ARIAL>Financial Aid Recipient Persistence <BR> !IBI.AMP.G_DESC; !IBI.AMP.E_DESC; Students with &UNMET_NEED_LOW_GT - &UNMET_NEED_HIGH_LT
Dollars of Unmet Need in &ACAD_YEAR1 - &ACAD_YEAR2 </TD>
</TR>
</TABLE>

Brian,

quote:

WHERE SPBPERS_ETHN_CODE EQ ÐNICITY_CODE.(OR(<CAUCASIAN,WH>,<AFRICAN_AMERICAN,BL>,<ASIAN,AS>,<HISPANIC,HP>,<NATIVE_AMERICAN,NA>,<OTHER,OT>)).ETHNICITY_CODE.;

-SET &E_DESC = DECODE ÐNICITY_CODE (
- 'CAUCASIAN' 'WH'
- 'AFRICAN AMERICAN' 'BL'
- 'ASIAN' 'AS'
- 'NATIVE AMERICAN' 'NA'
- 'HISPANIC' 'HP'
- 'OTHER' 'OT'
- ELSE 'UNKNOWN'
-);

Reverse your DECODE. The value of ÐNICITY_CODE is after the comma; Before the comma is the user selection...

The same applies for &G_DESC...

Tom

This message has been edited. Last edited by: Tom Flynn,

I tried that again (as I thought about that before), and that doesnt' fix it. I still get UKNOWN returned for the values.

Brian,

In your DECODE, do

-SET &E_DESC = DECODE ÐNICITY_CODE.EVAL (
- 'CAUCASIAN' 'WH'
- 'AFRICAN AMERICAN' 'BL'
- 'ASIAN' 'AS'
- 'NATIVE AMERICAN' 'NA'
- 'HISPANIC' 'HP'
- 'OTHER' 'OT'
- ELSE 'UNKNOWN'
-);

-SET &G_DESC = DECODE &GENDER_CODE.EVAL (
- 'MALE' 'M'
- 'FEMALE' 'F'
- ELSE 'UNKNOWN'
-);

Use .EVAL

Also, DECODE probably won't work because of the (OR; that's a MULTI-SELECT. Need to use Dialogue Manager to figure out the choices...
So, if I choose Caucasian AND Asian, the value equals 'WH' OR 'AS'

DECODE will always be unknown....


Tom

Brian, here is a LIVE example:

-PROMPT &TRNTYP1.(OR(<ALL,FOC_NONE>,<Permanent Adopted,O010>,<Temporary Adopted,O011>,<Permanent Adjustments,O020>,<Temporary Adjustments,O021>)).Perm/Temp Budget.
-PROMPT &TRNTYP2.(OR(<ALL,FOC_NONE>,<Revisions,1>,<Flexibilities,2>,<Transfers,3>)).Select Budget Type.
-*******************************************************************************
-IF (&TRNTYP1 EQ FOC_NONE AND &TRNTYP2 EQ FOC_NONE) GOTO DO_OUTPUT;
-*********************************************************************************
-* All Single/Multiple TRNTYP1's AND Single/Multiple TRNTYP2's
-*********************************************************************************
-SET &BAD_SEL = &QT | 'XXXX' | &QT | ',' | &QT | 'XXX' | &QT ;
-SET &P_ADP_REV = &QT | 'BD01' | &QT | ',' | &QT | 'BD1' | &QT ;
-SET &P_ADJ_REV = &QT | 'BD02' | &QT | ',' | &QT | 'BD2' | &QT ;
-SET &P_ADJ_FLX = &QT | 'BFP' | &QT ;
-SET &P_ADJ_TRF = &QT | 'P01' | &QT | ',' |
- &QT | 'P02' | &QT | ',' |
- &QT | 'P03' | &QT | ',' |
- &QT | 'P22' | &QT | ',' |
- &QT | 'P23' | &QT | ',' |
- &QT | 'P24' | &QT | ',' |
- &QT | 'P25' | &QT | ',' |
- &QT | 'P26' | &QT | ',' |
- &QT | 'P27' | &QT | ',' |
- &QT | 'P51' | &QT | ',' |
- &QT | 'P52' | &QT | ',' |
- &QT | 'P60' | &QT | ',' |
- &QT | 'P70' | &QT | ',' |
- &QT | 'P80' | &QT ;
-SET &T_ADP_REV = &QT | 'BD03' | &QT | ',' | &QT | 'BD3' | &QT ;
-SET &T_ADJ_REV = &QT | 'BD04' | &QT | ',' | &QT | 'BD4' | &QT ;
-SET &T_ADJ_FLX = &QT | 'BFT' | &QT ;
-SET &T_ADJ_TRF = &QT | 'BT1' | &QT | ',' |
- &QT | 'BS1' | &QT | ',' |
- &QT | 'BS2' | &QT | ',' |
- &QT | 'T01' | &QT | ',' |
- &QT | 'T02' | &QT | ',' |
- &QT | 'T03' | &QT | ',' |
- &QT | 'T22' | &QT | ',' |
- &QT | 'T23' | &QT | ',' |
- &QT | 'T24' | &QT | ',' |
- &QT | 'T25' | &QT | ',' |
- &QT | 'T26' | &QT | ',' |
- &QT | 'T27' | &QT | ',' |
- &QT | 'T51' | &QT | ',' |
- &QT | 'T52' | &QT | ',' |
- &QT | 'T60' | &QT | ',' |
- &QT | 'T70' | &QT | ',' |
- &QT | 'T80' | &QT ;
-SET &XTYPE1 = IF &TRNTYP1 CONTAINS 'O010' THEN &QT | 'Y' | &QT ELSE &QT | 'N' | &QT;
-SET &XTYPE2 = IF &TRNTYP1 CONTAINS 'O020' THEN &QT | 'Y' | &QT ELSE &QT | 'N' | &QT;
-SET &XTYPE3 = IF &TRNTYP1 CONTAINS 'O011' THEN &QT | 'Y' | &QT ELSE &QT | 'N' | &QT;
-SET &XTYPE4 = IF &TRNTYP1 CONTAINS 'O021' THEN &QT | 'Y' | &QT ELSE &QT | 'N' | &QT;
-**************************************************************************
-* Permanent Adopted
-**************************************************************************
-SET &RULE_200 = ' ';
-SET &RULE_210 = ' ';
-SET &RULE_10 = IF &XTYPE1.EVAL EQ 'N' THEN ' ' ELSE
- IF (&XTYPE1.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ FOC_NONE) THEN &P_ADP_REV ELSE
- IF (&XTYPE1.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '1') THEN &P_ADP_REV ELSE &BAD_SEL;
-**************************************************************************
-* Permanent Adjustments
-**************************************************************************
-SET &P_ADJ_ALL = IF &XTYPE2.EVAL EQ 'N' THEN ' ' ELSE
- IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ FOC_NONE)
- THEN &P_ADJ_REV | ',' | &P_ADJ_FLX | ',' | &P_ADJ_TRF
- ELSE ' ';
-**************************************************************************
-IF &XTYPE2.EVAL EQ 'Y' AND &MULTI_TYP2.EVAL EQ 'Y' GOTO MULTI_O020;
-**************************************************************************
-SET &P_ADJ_1 = IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '1') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &P_ADJ_REV
- ELSE ' ';
-SET &P_ADJ_2 = IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '2') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &P_ADJ_FLX
- ELSE ' ';
-SET &P_ADJ_3 = IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '3') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &P_ADJ_TRF
- ELSE ' ';
-SET &RULE_20 = &P_ADJ_ALL || &P_ADJ_1 || &P_ADJ_2 || &P_ADJ_3;
-***************************
-GOTO NEXT_O011
-***************************
-MULTI_O020
-SET &RULE_20 = IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '1') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &P_ADJ_FLX | ',' | &P_ADJ_TRF
- ELSE
- IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '2') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &P_ADJ_REV | ',' | &P_ADJ_TRF
- ELSE
- IF (&XTYPE2.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '3') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &P_ADJ_REV | ',' | &P_ADJ_FLX
- ELSE &P_ADJ_REV | ',' | &P_ADJ_FLX | ',' | &P_ADJ_TRF;
-***************************
-NEXT_O011
-***************************
-**************************************************************************
-* Temporary Adopted
-**************************************************************************
-SET &RULE_11 = IF &XTYPE3.EVAL EQ 'N' THEN ' ' ELSE
- IF (&XTYPE3.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ FOC_NONE) THEN &T_ADP_REV ELSE
- IF (&XTYPE3.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '1') THEN &T_ADP_REV ELSE &BAD_SEL;
-**************************************************************************
-* Temporary Adjustments
-**************************************************************************
-SET &T_ADJ_ALL = IF &XTYPE4.EVAL EQ 'N' THEN ' '
- ELSE
- IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ FOC_NONE)
- THEN &T_ADJ_REV | ',' | &T_ADJ_FLX | ',' | &T_ADJ_TRF
- ELSE ' ';
-**************************************************************************
-IF (&XTYPE4.EVAL EQ 'Y') AND (&MULTI_TYP2.EVAL EQ 'Y') GOTO MULTI_O021;
-**************************************************************************
-SET &T_ADJ_1 = IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '1') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &T_ADJ_REV
- ELSE ' ';
-SET &T_ADJ_2 = IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '2') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &T_ADJ_FLX
- ELSE ' ';
-SET &T_ADJ_3 = IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2.EVAL EQ '3') AND (&MULTI_TYP2.EVAL EQ 'N')
- THEN &T_ADJ_TRF
- ELSE ' ';
-SET &RULE_21 = &T_ADJ_ALL || &T_ADJ_1 || &T_ADJ_2 || &T_ADJ_3;
-***************************
-GOTO FINAL_SET
-***************************
-MULTI_O021
-SET &RULE_21 = IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '1') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &T_ADJ_FLX | ',' | &T_ADJ_TRF
- ELSE
- IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '2') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &T_ADJ_REV | ',' | &T_ADJ_TRF
- ELSE
- IF (&XTYPE4.EVAL EQ 'Y') AND (&TRNTYP2 OMITS '3') AND (&MULTI_TYP2.EVAL EQ 'Y')
- THEN &T_ADJ_REV | ',' | &T_ADJ_FLX
- ELSE &T_ADJ_REV | ',' | &T_ADJ_FLX | ',' | &T_ADJ_TRF;
-***************************
-FINAL_SET
-***************************
-SET &RULE_10X = IF &RULE_10 EQ ' ' THEN ' ' ELSE
- IF &RULE_20 NE ' ' THEN &RULE_10 | ',' ELSE
- IF &RULE_11 NE ' ' THEN &RULE_10 | ',' ELSE
- IF &RULE_21 NE ' ' THEN &RULE_10 | ',' ELSE &RULE_10;
-SET &RULE_20X = IF &RULE_20 EQ ' ' THEN ' ' ELSE
- IF &RULE_11 NE ' ' THEN &RULE_20 | ',' ELSE
- IF &RULE_21 NE ' ' THEN &RULE_20 | ',' ELSE &RULE_20;
-SET &RULE_11X = IF &RULE_11 EQ ' ' THEN ' ' ELSE
- IF &RULE_21 NE ' ' THEN &RULE_11 | ',' ELSE &RULE_11;
-SET &RULE_21X = IF &RULE_21 EQ ' ' THEN ' ' ELSE &RULE_21 ;
-**********************************************************
-SET &RULE_CLASS = '(' || &RULE_10X || &RULE_20X || &RULE_11X || &RULE_21X || ')';
-**********************************************************

-********************************************
WHERE RULE_CLASS IN &RULE_CLASS;
-********************************************

USING THE .EVAL CAUSES THIS ERROR:

 0 ERROR AT OR NEAR LINE      2  IN PROCEDURE ADHOCRQ FOCEXEC *
 (FOC283) IMPROPER USE OF 'GOTO'
  

WHEN I GET RID OF THE .EVAL, IT JUST RETURNS TO SHOWING 'UKNOWN'.

Brian,

Your variable being decoded (ÐNICITY_CODE) has an odd character in it (and no ampersand). I replace it with the variable &RACE, as in the following, and the result is correct:

  
-SET &RACE = 'AFRICAN AMERICAN' ;

-SET &E_DESC = DECODE &RACE (
- 'CAUCASIAN' 'WH'
- 'AFRICAN AMERICAN' 'BL'
- 'ASIAN' 'AS'
- 'NATIVE AMERICAN' 'NA'
- 'HISPANIC' 'HP'
- 'OTHER' 'OT'
- ELSE 'UNKNOWN'
-);

-TYPE E_DESC: (&E_DESC)

I get E_DESC: (BL) as the output.

If I'm reading your code correctly, you've got your decode the wrong way around. The value you're trying to decode come first so your decode should read:

-SET &E_DESC = DECODE &RACE (
- 'WH' 'CAUCASIAN'
- 'BL' 'AFRICAN AMERICAN'
- 'AS' 'ASIAN'
- 'NA' 'NATIVE AMERICAN'
- 'HP' 'HISPANIC'
- 'OT' 'OTHER'
- ELSE 'UNKNOWN'
-);

At the moment its looking for a value of CAUCASIAN in &RACE to decode to WH, instead of decoding a value of WH to CAUCASIAN.

Regards

Tewy

I've tried the decode both ways. It doesn't work for me. And the odd character mentioned....well, it just showed up in the forum. It's not in my code.

Anyone else have a good guess?

On the decode issue, I am not a great dialog manager user, so forgive my question here. This appears to be a kill two birds with one stone situation. Brian is the issue one of what displays on the html selection or one of what displays on the report or is it both. You want the customer to select Caucasion or Hispanic and so on which pulls the WH or HP and so on and then displays the 'displayed parameter' in the report generated.

What tool are you using?