Re: Using CL, how do I get the month from a data date field?

[Booth Martin <booth@xxxxxxxxxxxx>]

Does CHGVAR always change a date field to *ISO, regardless of job & 
system attributes?

(And you are of course right about it being column 5.  *duh*  thanks.)

Lapeyre, Francis wrote:
> If that's a date field, move it to an 8-character field first. Plus, in
> *ISO format with no separators, the month starts in position 5.
>
> Dcl &FCMDTE_C *Char 8
> Chgvar &FCMDTE_C &FCMDT
>
> CVTDAT DATE(&FCMDTE_C) TOVAR(&FCMDTE_C) FROMFMT(*ISO)  + 
> TOFMT(*ISO) TOSEP(*NONE)         
> IF         COND(%SUBSTRING(&FCMDTE 5 2) = '05') THEN(DO)
>
>
> Francis Lapeyre
> IS Dept. Programmer/Analyst
> Stewart Enterprises, Inc.
> E-mail: flapeyre@xxxxxxxx