[CLOSED] DATETRAN to (tr) format

September 14, 2015, 01:06 PM

Why does this not work for Month > tr, where it works for the 'Day' formatting? I must be overlooking something?

Works:

-SET &CVTDAT     = IF &PERIOD EQ 'M' THEN EDIT(&DATE,'$$$$99') ELSE '';
-SET &DATTIT     = IF &PERIOD EQ 'D' THEN DATETRAN(DATECVT(&DATE, 'I8YYMD', 'DMYY'), '(DMYY)', '(/)', 'EN', 10, 'A10')
-             ELSE IF &PERIOD EQ 'M' THEN DATETRAN(&CVTDAT, '(M)', '(tr)', 'EN', 10, 'A10')

Does not work:

-SET &DATTIT     = IF &PERIOD EQ 'D' THEN DATETRAN(DATECVT(&DATE, 'I8YYMD', 'DMYY'), '(DMYY)', '(/)', 'EN', 10, 'A10')
-             ELSE IF &PERIOD EQ 'M' THEN DATETRAN(DATECVT(&DATE, 'I6YM', '(M)'), '(tr)', '(/)', 'EN', 10, 'A10')

(FOC36355) INVALID TYPE OF ARGUMENT #1 FOR USER FUNCTION DATETRAN

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

September 14, 2015, 02:07 PM

MartinY

Don't understand how you can say that:

quote:

-SET &CVTDAT = IF &PERIOD EQ 'M' THEN EDIT(&DATE,'$$$$99') ELSE '';
-SET &DATTIT = IF &PERIOD EQ 'D' THEN DATETRAN(DATECVT(&DATE, 'I8YYMD', 'DMYY'), '(DMYY)', '(/)', 'EN', 10, 'A10')
- ELSE IF &PERIOD EQ 'M' THEN DATETRAN(&CVTDAT, '(M)', '(tr)', 'EN', 10, 'A10')

is working because there are few errors that doesn't make it work.

But this does :

-SET &PERIOD = 'D';
-SET &CVTDAT     = EDIT(&YYMD,'$$$$99');
-SET &DATTIT     = IF &PERIOD EQ 'D' THEN DATETRAN(DATECVT(&YYMD, 'I8YYMD', 'DMYY'), '(DMYY)', '(/)', 'EN', 10, 'A10')
-             ELSE IF &PERIOD EQ 'M' THEN DATETRAN(&CVTDAT, '(M)', '(tr)', 'EN', 10, 'A10'); 

-TYPE &|DATE: &DATE
-TYPE &|YYMD: &YYMD
-TYPE &|CVTDAT: &CVTDAT
-TYPE &|DATTIT: &DATTIT

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

September 14, 2015, 04:38 PM

SWES

Yes Martin I know this is working, but what I'm trying to accomplish here is that I don't have to do the separate SET for EDIT, but 'all in one' function just like the day is just one line.

September 15, 2015, 04:34 AM

Alan B

quote:
Does not work:
-SET &DATTIT = IF &PERIOD EQ 'D' THEN DATETRAN(DATECVT(&DATE, 'I8YYMD', 'DMYY'), '(DMYY)', '(/)', 'EN', 10, 'A10')
- ELSE IF &PERIOD EQ 'M' THEN DATETRAN(DATECVT(&DATE, 'I6YM', '(M)'), '(tr)', '(/)', 'EN', 10, 'A10')

It always helps to check the valid arguments for functions and check your own code. 'I6YM' is not a valid input date format and '(tr)' is not a valid input argument for DATETRAN. Use the correct formats and arguments and it works fine.