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

Here's the DDS for TESTFILE that I created:

A          R TESTREC                                   

A            DATE01          L         TEXT('MDY DATE')
A                                      DATFMT(*MDY)    

A            DATE02          L         TEXT('DMY DATE')
A                                      DATFMT(*DMY)    

A            DATE03          L         TEXT('YMD DATE')
A                                      DATFMT(*YMD)    

A            DATE04          L         TEXT('USA DATE')
A                                      DATFMT(*USA)    

A            DATE05          L         TEXT('ISO DATE')
A                                      DATFMT(*ISO)    

A            DATE06          L         TEXT('JUL DATE')
A                                      DATFMT(*JUL)    

A            DATE07          L         TEXT('EUR DATE')
A                                      DATFMT(*EUR)    

I wrote a single record to it via an RPG program with today's date in every
field.  A view utility shows this:

Expanding Record ...  
                      
DATE01     02/05/07   
DATE02     05/02/07   
DATE03     07/02/05   
DATE04     02/05/2007 
DATE05     2007-02-05 
DATE06     07/036     
DATE07     05.02.2007 

It's the same date in every field, but each is 'presented' in the format
defined in the database.  The CVTDAT will, I think, need to know the format
of the input date, as would RPG.  If the input date in you're getting  is
not a true date field and could be in, for example, any of the above
formats, and that format is unknown to you, I don't know how you would
handle that.  02/05/07 is a valid date in 3 different formats, each yielding
a different date.