I'm having trouble with the first of these 2 GETTOK's.

I need to extract the month and year from &DATE_FOR_REPORT. &DATE_FOR_REPORT receives its value in the format of MMYYYY where MM can be 1 or 2 digits (it may or may not have a leading zero).

The GETTOK for &YEAR results in the agent crashing. The second GETTOK works fine. Any suggestions on what's causing the problem and how to fix it?

  
-SET &YEAR         = GETTOK (&DATE_FOR_REPORT.EVAL, 6, -1, '2', 4, &YEAR);
-SET &MONTH_NUMBER = GETTOK (&DATE_FOR_REPORT.EVAL, 6, -2, '2', 2, &MONTH_NUMBER);

-TYPE &YEAR
-TYPE &MONTH_NUMBER

Thank you,

John

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

John, I would suggest not using GETTOK, as there is no clear delimiter for the month and year.

The issue with GETTOK is that you are using the number 2 as a delimiter, this will give you problems with February and December.

My suggestion is using EDIT or SUBSTR. The length of the string will indicate whether there is a 1 or 2 digit month.

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

Why would you use GETTOK???
Use EDIT or SUBSTR...

  
-SET &DATE_FOR_REPORT = '12007';

-SET &YR1 = IF &DATE_FOR_REPORT.LENGTH EQ 6 THEN &DATE_FOR_REPORT ELSE '0' || &DATE_FOR_REPORT;

-SET &YEAR         = SUBSTR( 6, '&YR1.EVAL', 3, 6, 4, 'A4');
-SET &MONTH_NUMBER = SUBSTR( 6, '&YR1.EVAL', 1, 2, 2, 'A2');

-SET &YEAR1        = EDIT(&YR1.EVAL,'$$9999');
-SET &MO_NUMBER    = EDIT(&YR1.EVAL,'99');

-TYPE &YEAR
-TYPE &MONTH_NUMBER

-TYPE &YEAR1
-TYPE &MO_NUMBER

-EXIT

This works...

hth

EDIT: Waz beat me, old farts think alike!!

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

And, yet another way to skin this cat:

-* -SET the &DATE_FOR_REPORT to '12007' to see it work with 5 digits...
-SET &DATE_FOR_REPORT = '012007';
-SET &YR2 = IF &DATE_FOR_REPORT.LENGTH EQ 6 THEN EDIT(&DATE_FOR_REPORT,'99')  ELSE '0' || EDIT(&DATE_FOR_REPORT,'9');
-SET &MN2 = IF &DATE_FOR_REPORT.LENGTH EQ 6 THEN EDIT(&DATE_FOR_REPORT,'$$9999')  ELSE EDIT(&DATE_FOR_REPORT,'$9999');
-TYPE &YR2 &MN2

Just some more food for thought... Ain't DM Gr8!

quote:

The GETTOK for &YEAR results in the agent crashing. The second GETTOK works fine.

Just wondering - if the first one crashes, then the second one will never run ... (I suppose -* was used).

But the official syntax for dialog manager is not to have the field named as output parameter, but to specify the format. And that is probably the cause of your crash.
The suggestions to use substr are also valid, but your code should be ok when you change the format of the output field to be 'A4' and 'A2'.
Oh, you do not need the .EVAL's in this case. But you do need to give it the correct length.

-SET &YEAR         = GETTOK (&DATE_FOR_REPORT, &DATE_FOR_REPORT.LENGTH, -1, '2', 4, 'A4');
-SET &MONTH_NUMBER = GETTOK (&DATE_FOR_REPORT, &DATE_FOR_REPORT.LENGTH, -2, '2', 2, 'A2');

should do the trick.

So much effort for such a simple requirement -

-SET &MYDATE = '012007';
-SET &Year = DATECVT(&MYDATE, 'I6MYY', 'YY');
-SET &Mnth = DATECVT(&MYDATE, 'I6MYY', 'M');
-TYPE &Year &Mnth

or

-SET &MYDATE = '12007';
-SET &Year = DATECVT(&MYDATE, 'I6MYY', 'YY');
-SET &Mnth = DATECVT(&MYDATE, 'I6MYY', 'M');
-TYPE &Year &Mnth

T

I like, many ways to work! Is be simples!

Kofi

And I thought mine was simple... But, Tony, Yours Rocks. The DATECVT is, probably, the "best" solution in that it is as BASE FOCUS as I can see it - IMHO...