RE: CEEDATE... -- MIDRANGE-L

 Regarding CCEDATE, has anyone gotten this to work in ILE Cobol?

 ______________________________________________________________________
 ___
 Howard Weatherly

 hweatherly@dlis.dla.mil
 howard.weatherly@ctg.com
 hweath@ibm.net

 X4324

  <<Re: CEEDATE...>>

 Message-ID: <3616C1A9.4527949@drme.com>
 From: Dave Murvin <davem@drme.com>
 Reply-To: MIDRANGE-L@midrange.com
 To: MIDRANGE-L@midrange.com
 Subject: Re: CEEDATE...
 Date: Sat, 3 Oct 1998 20:30:33 -0400
 X-Mailer: Internet Mail Service (5.5.1960.3)
 Kevin,

 I have used it in a procedure.    I think you may be missing the (D)
 operational extender on the CALLB.  I don't have access to my AS/400
 from this machine at this time, so the code samples are hand typed.

 D ToCharDate         PR                   255
 D  LilianDate                                      10I 0  Value
 D  DatPicIn                                      255       Value
 D  FBCode                                        12

 P ToCharDate           B

 D ToCharDate         PR                   255
 D  LilianDate                                      10I 0  Value
 D  DatPicIn                                      255       Value
 D  FBCode                                        12

 D CharDate                S                   255
 D Lilian                       S
 Like(LilianDate)
 D DatPicture               S
 Like(DatPicIn)

 C                                  CallB (D)    'CEEDATE'
 C                                  Parm           LilianDate
 Lilian
 C                                  Parm           DatPicIn
 DatPicture
 C
 Parm                                     CharDate
 C
 Parm                                     FBCode

 C                                  Return         CharDate

 P ToCharDate             E

 You will need similar code if you are using the CEEDAYS to convert to
 Lilian dates.  Hope this helps.

 Dave Murvin
 davem@drme.com


 Kevin M. Kirbey wrote:

 > 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.
 >



 +---
 | 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
 +---

 ------ Message Header Follows ------
 Received: from manus.com by ccmail.manus.com
   (PostalUnion/SMTP(tm) v2.1.9c for Windows NT(tm))
   id AA-1998Oct14.092933.1973.62497; Wed, 14 Oct 1998 09:29:33 -0700
 Received: from Kitten.mcs.com ([192.160.127.90]) by gateway.manus.com with
 ESMTP
 id <30114>; Wed, 14 Oct 1998 02:22:59 -0700
 Received: from uucphost.mcs.net (Uucp1.mcs.net [192.160.127.93]) by
 Kitten.mcs.com (8.8.7/8.8.2) with ESMTP id LAA19250; Wed, 14 Oct 1998 11:22:43
 -0500 (CDT)
 Received: (from uucp@localhost)
  by uucphost.mcs.net (8.8.8/8.8.8) id LAA25054;
  Wed, 14 Oct 1998 11:22:42 -0500 (CDT)
 Received: (from majordom@localhost)
  by midrange.com (8.9.1/8.9.1) id LAA04383
  for midrange-l-outgoing; Wed, 14 Oct 1998 11:01:11 -0500
 Received: (from uucp@localhost)
  by midrange.com (8.9.1/8.9.1) with UUCP id KAA04150
  for MIDRANGE-L@midrange.com; Wed, 14 Oct 1998 10:59:54 -0500
 Received: from dlscex1.dlsc.dla.mil (dlscex1.dlsc.dla.mil [131.87.19.240])
  by uucphost.mcs.net (8.8.8/8.8.8) with ESMTP id KAA22275
  for <MIDRANGE-L@midrange.com>; Wed, 14 Oct 1998 10:55:37 -0500 (CDT)
 Received: by dlscex1.dlsc.dla.mil with Internet Mail Service (5.5.1960.3)
  id <4CP8JCBA>; Wed, 14 Oct 1998 11:53:03 -0400
 Message-ID: <1B4380F7B99DD111A9FF00062985023202C55D@dlscex1.dlsc.dla.mil>
 From: "Weatherly, Howard" <hweatherly@dlsc.dla.mil>
 To: "'MIDRANGE-L@midrange.com'" <MIDRANGE-L@midrange.com>
 Subject: RE: CEEDATE...
 Date: Wed, 14 Oct 1998 08:53:02 -0700
 MIME-Version: 1.0
 X-Mailer: Internet Mail Service (5.5.1960.3)
 Content-Type: multipart/mixed; boundary="---- =_NextPart_000_01BDF78A.B96AEA82"
 Sender: owner-midrange-l@midrange.com
 Precedence: bulk
 Reply-To: MIDRANGE-L@midrange.com
 X-List-Name: Midrange Systems Mailing List (MIDRANGE-L@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
+---