How to Obtain Date Formats

Format dd mmm yy (where mmm is the month in character format):

The original JCL:

//PDPA0001 JOB  (......),BILL,CLASS=A
//* %%GLOBAL  CHARMON
//STEP02   EXEC PDPRT3
//SYSIN    DD   *
%%ODAY %%MONTH_IN_CHAR_%%OMONTH %%OYEAR

The CHARMON member (in the Control-M Global library) contains:

*
* MONTHS IN CHAR FORMAT
*
%%MONTH_IN_CHAR_01=JAN
%%MONTH_IN_CHAR_02=FEB
%%MONTH_IN_CHAR_03=MAR
.
.

%%MONTH_IN_CHAR_12=DEC

The symbols substitution by stages:

%%ODAY %%MONTH_IN_CHAR_%%OMONTH 00
%%ODAY %%MONTH_IN_CHAR_06 00
%%ODAY JUN 00

24 JUN 00

The submitted member:

//PDPA0001  JOB  (......),BILL,CLASS=A
//* %%GLOBAL  CHARMON
//STEP02   EXEC PDPRT3
//SYSIN    DD   *
24 JUN 00