Re: CEEDATE...

["Kathleen Kostuck" <kkostuck@xxxxxxxxxx>]

Kevin,

The following code worked for me...(I'm typing this, so spacing is not
actual, also, PLEASE NOTE, code is taken from News400 article October 1996
'In Search of a Good-looking Date' by Doug Pence and Ron Hawkins.  The
complete article is available on the web site www.as400.com and explains
this API in more detail)

D specs

D OutPicture      s               32
D DateOut         s                32
D LilianDate       s                 9B 0

* Converts lilian date to character date

CALLB(D)    'CEEDATE'
PARM                                  LilianDate
PARM                                  OutPicture
PARM                                  DateOut
EVAL          InpError = *Blanks


There are quite a few date pictures available to define what the output
date should look like, such as YYMMDD, MMDDYY, MM/DD/YY, and Mmmmmmmmmz ZD,
YYYY (December 1, 1996).  See the OS/400 System API Reference for more.

HTH,
Kathleen Kostuck
___________________
pager (414) 402-0820       fax (414) 495-4986
kkostuck@execpc.com
AS400 Solutions
Secretary - Wisconsin Midrange Computer Professionals Association   
___________________
----------
> From: Kevin M. Kirbey <kkirbey@cris.com>
> To: Midrange-L@midrange.com
> Subject: CEEDATE...
> Date: Friday, October 02, 1998 9:29 PM
> 
> Is it possible to call this API from ILERPG ??? If so, could anyone show
> the parm declaration ???  I am having diffculty and keep receiving the
> CEE0502 error code.
> 
> Thanks in advance
> Kevin M. Kirbey
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to MIDRANGE-L@midrange.com.
> | To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
> | To unsubscribe from this list send email to
MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator:
david@midrange.com
> +---
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---