Can somebody please help me with some dates calc.

I am using the following to calculate the 1st date of this month and the current date.

-SET &START_DATE = EDIT(&DATEYYMD,'99999999') || '01';
-SET &END_DATE = &DATEYYMD;

I need to calculate the 1st date of last month and the last date of last month.

These have to be variables as I use them with conditional 'if' statements.

thanks
vijaya

FOCUS and WebFOCUS have a number of powerful date functions. They can be examined in the Technical Documentation Library that is accessible from the upper right of this screen.
Check EOM and BOM.
HTH

End of month, use the DATEMOV function:

-SET &EOMDATE =
- DATECVT((DATEMOV((DATECVT(&SYSTEM_DATE,'I8YYMD','YYMD')),'EOM')),'YYMD','I8YYMD');

The DATECVT function is required in Dialog Manager to convert the text date into a date format.

End of last month, use the AYM command to subtract one from the current month, then use the DATEMOV function:

-SET &WS_YYMM = EDIT(&SYSTEM_DATE,'999999');
-SET &WS_YYMM1 = AYM(&WS_YYMM, -1, 'I6');
-SET &WS_YYMMDD1 = &WS_YYMM1 || '01';
-SET &EFFDATE =
- DATECVT((DATEMOV((DATECVT(&WS_YYMMDD1,'I8YYMD','YYMD')),'EOM')),'YYMD','I8YYMD');
-END_ME_DATE

I hope this helps.

Thank you. I had tweak it a little. But this worked. Thanks once again.

This is a variation of the intial request.

I find working with functions fairly easy when using them with fields, but tend to have difficulties when using them with amper variables.

How would you change &START_DATE's value from I8YYMD to MtrDYY?

For example 20070122 should be traslated to January 22, 2007.

Thanks,

John

Almost, very easily:

-SET &START = 20070122;
-SET &NEWSTART = CHGDAT('YYMD','MDYYX',&START,'A17');

Gives JANUARY 22 2007

Nice.

-SET &START=20070122;
-SET &YY = EDIT(&START,'9999');
-SET &M = EDIT(&START,'$$$$99');
-SET &D = EDIT(&START,'$$$$$$99');

-SET &NEWM = DATETRAN (&M, '(M)', '(tr)', 'EN', 40, 'A40');

-SET &NEWDATE = &NEWM || (' '| &D | ', ' | &YY);
-TYPE &NEWDATE