Hi All,
I am receiving a Date value from some external (maintain proc) in fex file. Value is received in &1 variable as 31122012. I am trying to convert it in alpha value 'dd-mon-yyyy'. e.g, for 31122012 will be '31-Dec-2012'. I am trying below code:

 
-SET &ECHO = ON;
-SET &ECHO = ALL;

TYPE &1;

--SET &EEF_DT = DATETRAN(&1.EVAL, '(DMYY)', '(-t)', 'EN', 11, 'A11');
-TYPE &EEF_DT;

But the above code is returning '-TYPE 05-Mar- ;'. I don’t understand this behaviour of webfocus. Is there something I am doing wrong? How can I handle this scenario to convert dates in Alpha value as mentined above. Please advice.

Thanks in Advance.

This message has been edited. Last edited by: <Kathryn Henning>,

Hi,
I got it working like below:

 
-SET EFF_DT1 = EDIT('&1.EVAL','99$$$$$$');
-SET EFF_DT2 = EDIT('&1.EVAL','$$99$$$$');
-SET EFF_DTM = IF '&EFF_DT2.EVAL' EQ '12' THEN 'Dec' ELSE IF '&EFF_DT2.EVAL' EQ '11' THEN 'Nov'  ELSE IF '&EFF_DT2.EVAL' EQ '10' THEN 'Oct'  ELSE IF '&EFF_DT2.EVAL' EQ '09' THEN 'Sep'  ELSE IF '&EFF_DT2.EVAL' EQ '08' THEN 'Aug'  ELSE IF '&EFF_DT2.EVAL' EQ '07' THEN 'Jul'  ELSE IF '&EFF_DT2.EVAL' EQ '06' THEN 'Jun'  ELSE IF '&EFF_DT2.EVAL' EQ '05' THEN 'May'  ELSE IF '&EFF_DT2.EVAL' EQ '04' THEN 'Apr'  ELSE IF '&EFF_DT2.EVAL' EQ '03' THEN 'Mar'  ELSE IF '&EFF_DT2.EVAL' EQ '02' THEN 'Feb'  ELSE IF '&EFF_DT2.EVAL' EQ '01' THEN 'Jan'; 
-SET EFF_DT3 = EDIT('&1.EVAL','$$$$9999');
-SET EFF_DT = '&EFF_DT1.EVAL' | '-' | '&EFF_DTM.EVAL' | '-' |'&EFF_DT3.EVAL';
 

Thanks.

First a few general remarks:

• you don't need to .EVAL variable substitutions and
• you don't need to quote them within blocks of Dialog Manager code either.
• For &ECHO, ALL overrides ON, so specifying both doesn't gain you anything.

For the "date", your problem is that you don't have a date value, but an integer value. Before you can apply DATETRAN to your value, you need to convert it to a date first:

-SET &1 = 31122012;

-TYPE &1;

-SET &EEF_DT = DATETRAN(DATECVT(&1, 'I8DMYY', 'DMYY'), '(DMYY)', '(-t)', 'EN', 11, 'A11');
-TYPE &EEF_DT;

DATETRAN requires an internal date format. You can use:

-SET &indate2 = DATETRAN(DATECVT(&1,'I8DMYY','DMYY'),'(DMYY)','(-t)','EN',11,'A11');
-TYPE &indate2