× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



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.



As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.