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

Wayne,

How would that help, if the program doesn't know the format of the 
incoming date?  Don't you still need to know the format of the incoming 
date field?

Nick



Nick Radich
Sr. Programmer/Analyst
EPC Molding, Inc.
Direct  (320) 679-6683
Toll free  (800) 388-2155  ext. 6683
Fax  (320) 679-4516
nick_radich@xxxxxxxxxxxxxx



Wayne McAlpine <wayne.mcalpine@xxxxxxxxxxxxxxxxx> 
Sent by: midrange-l-bounces@xxxxxxxxxxxx
02/05/07 04:27 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
midrange-l@xxxxxxxxxxxx
cc

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






Booth, I think you need to pass the date field to an RPG procedure that 
can use the BIF to extract the month and return it to your CL.  Either 
that or use the CEE api's to get it.

Booth Martin wrote:

That looks to me like the essence of my problem, Jeff.  I can not define 

the output of the date to a single format.  Various installations use 
various standards for their dates.  I can not arbitrarily stick a 
definition they do not want into their DDS.  I can not specify DATFMT in 

the file.

Man, now I know why I haven't used CL in years.



Jeff Crosby wrote:

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.