I need to generate the start and end dates form the system dates. The reason is to use Report Caster to generate reports at the beginning of the month.
The query
TABLE FILE RFIFLTREC
PRINT FR_OOS_DUR
FR_CLOSE_DATE
FR_CLRCAT
FR_DIGITAL
WHERE FR_CLOSE_DATE GE '&SELFROM' AND FR_CLOSE_DATE LT '&SELTO'
END

The close date is A8( i.e. 20060501) format in the master file.
The requirement is to look at the system date on the 5th of the month i.e 20060605 and get the system to generate 20060501 as start date and 20060531 as the end date

Any ideas

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

Hi Adolf,

Quick off the top of the head suggestion would be to use the DATEMOV function, something like -

-SET &BegDate = DATEMOV(&YYMD, 'BOM', 'A8YYMD');
-SET &EndDate = DATEMOV(&YYMD, 'EOM', 'A8YYMD');

T

I think that the datemov function only works with smart dates. If you always want the first and last calendar days of the previous month based on the current system date, this will probably work for you.

The following code:

-SET &BEGCURR = EDIT(&YYMD,'99999901');
-SET &ENDDATE = AYMD( &BEGCURR, -1 , 'I8YYMD');
-SET &BEGDATE = EDIT( &ENDDATE,'99999901');
-TYPE &BEGDATE &ENDDATE

Yields this result.

20060501 20060531

This works too.
DEFINE FILE CAR
TODAY/MDYY = '&DATEMDYY';
BEG_CUR_MO/MDYY=DATEMOV(TODAY,'BOM');
END_CUR_MO/MDYY=DATEMOV(TODAY,'EOM');
BEG_PRIOR_MO/MDYY=DATEADD(BEG_CUR_MO,'M',-1);
END_PRIOR_MO/MDYY=DATEMOV(BEG_PRIOR_MO, 'EOM');
END
TABLE FILE CAR
PRINT CAR NOPRINT
TODAY
BEG_CUR_MO
END_CUR_MO
BEG_PRIOR_MO
END_PRIOR_MO
END