Re: SQLRPGLE question -- RPG400-L

That was it, thanks.

Guy

Inactive hide details for "Jim Essinger" <dilbernator@xxxxxxxxx>"Jim
Essinger" <dilbernator@xxxxxxxxx>

"Jim Essinger" To: "RPG programming on the
<dilbernator@xxxxxxxxx> AS400 / iSeries"
Sent by: <rpg400-l@xxxxxxxxxxxx>
rpg400-l-bounces@xxxxxxxxxxxx cc:
Subject: Re: SQLRPGLE question
10/14/2008 03:22 PM
Please respond to RPG
programming on the AS400 /
iSeries

Did you create the function as described in the documentation? If you
did, then the function may be in the library iDate. Is that library
in your library list? I created the function in my QGPL library so
that it was available without having to change our library lists.

Jim

On Tue, Oct 14, 2008 at 12:24 PM, <GUY_HENZA@xxxxxxxxxxxxxx> wrote:
> This is the first time I'm trying to use a service program. I'm
getting;
> User-defined function IDATE cannot be invoked.
> XVIDAT in IDATE type *SRVPGM not found.
>
> Additional Message Information
>
> Message ID . . . . . . : CPF426A Severity . . . . . . . : 50
> Message type . . . . . : Escape
> Date sent . . . . . . : 10/13/08 Time sent . . . . . . : 15:08:11
>
> Message . . . . : User-defined function IDATE cannot be invoked.
> Cause . . . . . : External program or service program XVIDAT in
library
> IDATE associated with user-defined function IDATE in library GLHLIB
cannot
> be invoked for reason code 2. The reason codes and their meanings
follow:
> 2 -- Either the service program is not found or the program entry
point
> IDAT_PACKED does not exist.
>
> I think I followed the directions to the letter.
>
> what does "SQL7909 10 116 Position 3 Routine CONVERTTOIDATE was
created,
> but cannot be saved and restored." mean?
>
> (See attached file: CRTIDATE673259.txt)(See attached file:
> XVIDAT_M01669170.txt)(See attached file: XVIDAT_M02669170.txt)(See
> attached file: XVIDAT_SQL669170.txt)
>
> Here's my new select statement;
> SELECT a.dprfno, a.dcusno, b.inpinv, b.inninv, d.rpag,
> a.prefno, a.cusno, c.inpinv, c.inninv, e.rpag,
> sum(a.price*a.shdqy)
> FROM hdcinvpr a
> join sc308wa b on a.dinvno = b.inpinv
> and a.dcusno = b.incuno
> join f0311 d on d.rpdoc = b.inpinv
> and d.rpdctm = ' '
> and iDate(d.rpdgj,'*JDEJUL') = iDate(b.indate,'*YMD')
> join sc308wa c on a.invno = c.inpinv
> and a.cusno = c.incuno
> join f0311 e on e.rpdoc = c.inpinv
> and e.rpdctm = ' '
> and iDate(e.rpdgj,'*JDEJUL') = iDate(c.indate,'*YMD')
> where b.inacod in (select plant from sc005pr)
> and c.inacod in (select plant from sc005pr)
> group by a.prefno, a.CUSNO, b.inpinv, b.inninv, d.rpag,
> a.dprfno, a.dcusno, c.inpinv, c.inninv, e.rpag
> order by a.prefno, a.CUSNO, b.inpinv, b.inninv, d.rpag,
> a.dprfno, a.dcusno, c.inpinv, c.inninv, e.rpag
>
> Regards,
>
> Guy
>
> Inactive hide details for "sjl" <sjl_abc@xxxxxxxxxxx>"sjl"
> <sjl_abc@xxxxxxxxxxx>
>
> "sjl" <sjl_abc@xxxxxxxxxxx> To: rpg400-l@xxxxxxxxxxxx
> Sent by: cc:
> rpg400-l-bounces@xxxxxxxxxxxx Subject: Re: SQLRPGLE
question
>
> 10/06/2008 05:12 PM
> Please respond to RPG
> programming on the AS400 /
> iSeries
>
> Guy Henza wrote:
> I have a SQLRPGLE program that I need to add a JDE file to with a
JDE
> Julian date. How do I call a RPG III date conversion routine inside
a
> SQL
> JOIN statement? Is it possible?
>
> Guy -
> Check out Alan Campin's iDate UDF. It will probably give you what you
> need.
> It can be found at www.think400.dk/downloads.htm
>
> iDate is a SQL user defined function that converts an iSeries type of
date
> to a SQL date data type. iDate support JDE type dates.
>
> - sjl
>
-------------------------------------------------------------------------------
> The information contained in and transmitted with this e-mail may be
> privileged, proprietary, confidential and protected from disclosure.
No
> privilege is hereby intended to be waived. This e-mail is intended
only
> for the person to whom it is addressed. If you are not the intended
> recipient/addressee, any use of the e-mail and/or its contents,
including,
> but not limited to, dissemination, distribution or copying is strictly
> prohibited and may be unlawful, and you must not take any action in
> reliance on it. If you receive this e-mail in error, please
immediately
> notify the sender and delete the original message and any copies of it
> from your computer system. We deny any liability for damages resulting
> from the use of this e-mail by the unintended recipient, including the
> recipient in error.
>
> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.

-------------------------------------------------------------------------------
The information contained in and transmitted with this e-mail may be
privileged, proprietary, confidential and protected from disclosure. No
privilege is hereby intended to be waived. This e-mail is intended only
for the person to whom it is addressed. If you are not the intended
recipient/addressee, any use of the e-mail and/or its contents, including,
but not limited to, dissemination, distribution or copying is strictly
prohibited and may be unlawful, and you must not take any action in
reliance on it. If you receive this e-mail in error, please immediately
notify the sender and delete the original message and any copies of it
from your computer system. We deny any liability for damages resulting
from the use of this e-mail by the unintended recipient, including the
recipient in error.