Re: SQL - *SRVPGM not found

[fkany@xxxxxxxxxxxxxxxxxx]

Rob,

That was it.  It works now.  Before I left yesterday afternoon, I tried
CRTBNDRPG using option 14 and I got an error on the compile.  Here's the
error:
===============================================================
 *RNF1514  A procedure cannot be exported when the external name is the
 same as the main procedure.
===============================================================

I guess the SQL statement doesn't need the *PGM object to exist.  Only the
*SRVPGM and *MODULE objects.

Frank





rob@xxxxxxxxx@midrange.com on 04/14/2005 05:10:56 PM

Please respond to Midrange Systems Technical Discussion
       <midrange-l@xxxxxxxxxxxx>

Sent by:    midrange-l-bounces+fkany=averittexpress.com@xxxxxxxxxxxx


To:    Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>
cc:

Subject:    Re: SQL - *SRVPGM not found


The name of your subprocedure is FR47LATEP
D FR47LATEP       PR             1  0

But you are trying to call a subprocedure FR47LATE.
external name 'AVRTWRK/FR47LATE(FR47LATE)'


Rob Berendt
--
Group Dekko Services, LLC
Dept 01.073
PO Box 2000
Dock 108
6928N 400E
Kendallville, IN 46755
http://www.dekko.com





fkany@xxxxxxxxxxxxxxxxxx
Sent by: midrange-l-bounces@xxxxxxxxxxxx
04/14/2005 03:16 PM
Please respond to
Midrange Systems Technical Discussion <midrange-l@xxxxxxxxxxxx>


To
MIDRANGE-L@xxxxxxxxxxxx
cc

Subject
SQL - *SRVPGM not found







Can anyone see why I'm having the problem below?  This worked yesterday.
I'm doing something wrong or out of step that I did correctly yesterday.

I keep getting an error in STRSQL when I try to use a UDF in my SQL
statement:
===================================================================
"FR47LATE in AVRTWRK type *SRVPGM not found."

Here are the steps I've taken:
=========================
1) CRTRPGMOD MODULE(AVRTWRK/FR47LATE) SRCFILE(AVRTWRK/QRPGLESRC)

2) CRTSRVPGM SRVPGM(AVRTWRK/FR47LATE) EXPORT(*ALL)

3)
CREATE FUNCTION AVRTWRK/FR47LATE (DEC (3,0), DEC (7,0), DEC
(8,0),DEC (8,0), DEC (8,0), CHAR (7), DEC (3,0), CHAR (7), CHAR
(20), CHAR (2), CHAR (6))
RETURNS DEC (1,0)
language rpgle
deterministic
no sql
returns null on null input
no exterNal action
allow parallel simple call
external name 'AVRTWRK/FR47LATE(FR47LATE)'

4)
DECLARE GLOBAL TEMPORARY TABLE FR47P457A AS
(SELECT FR47LATE(FHOT, FHPRO, FHPUDT, FHDADT, FHDDAT,
FHSCD, FHDT, FHCCD, FHCCT, FHCST, FHCZIP) AS LATE,
FHOT, FHPRO, FHDT, FHDDAT, FHDTIM, FHDADT, FHPUDT,
FHSCD, FHCCD, FHCCT, FHCZIP
FROM FRL00144
WHERE FHDDAT >= 20040501 AND FHDDAT <= 20040531
AND FHOT = 004 AND FHDT = 003)
WITH DATA

Here is the error I get after I press enter for the DECLARE statement:
=========================================================
FR47LATE in AVRTWRK type *SRVPGM not found.

My library list has AVRTWRK at the top.  WRKOBJ FR47LATE returns the
following:
======================================================================
FR47LATE          *SRVPGM     AVRTWRK           RPGLE
FR47LATE          *MODULE     AVRTWRK           RPGLE             Return 1
if FB is Late


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.


--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.