|
|
|
|
|
//PDPA0001 JOB (......),BILL,CLASS=A |
//* %%LIBSYM CTM.LIB.SYMBOLS %%MEMSYM LBUSMON |
//STEP02 EXEC PDPRT3 |
//SYSIN DD * |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_%%OMONTH.%%OYEAR |
// |
The LBUSMON member in the CTM.LIB.SYMBOLS library contains:
* |
* LAST BUSINESS DATE IN THE PREVIOUS MONTH |
* |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_0101=001231 |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_0201=010131 |
. |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_0601=010531 |
. |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_1201=011130 |
. |
. |
Variable substitution by stages (during June 2001):
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_%%OMONTH.01 |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_06.01 |
%%LAST_BUSINESS_DATE_IN_PREV_MONTH_OF_0601 |
010531 |
Note: An alternate method, which avoids the need to use the MEMSYM member, requires the use of the %%$WCALC function with the standard working day calendar. For details, see %%$WCALC.
Parent Topic |