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

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 

-----Original Message-----
From: midrange-l-bounces@xxxxxxxxxxxx
[mailto:midrange-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth Martin
Sent: Monday, February 5, 2007 12:44 PM
To: Midrange Systems Technical Discussion
Subject: Using CL, how do I get the month from a data date field?

I have a date type field in the first record of a data file.

I want to get the month from it, in CL.

Here's what I tried and I can not make work:

CVTDAT     DATE(&FCMDTE) TOVAR(&FCMDTE) TOFMT(*ISO)
IF         COND(%SUBSTRING(&FCMDTE 4 2) = '04') THEN(DO)

The CVTDAT fails because the CL believes the date field is *MDY (RTVJOBA

of DATFMT = *MDY).

I believe I am making this way to complicated.