|
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.
As an Amazon Associate we earn from qualifying purchases.
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.