Re: More Questions on UDF

Michael,

The link between UDF and your procedure is qualified (external name
'AJDMODS/CONVERT(GetDate)'), but the link between your procedure and
program X0028 is not. So program X0028 has to be in the library list,
otherwise it can not be found. To qualify the call, you could create a
prototype for X0028 with EXTPGM('library/X0028') and call it with CALLP.

Joep Beckeringh






"Ala, Michael A" <michael.ala@xxxxxx>
Sent by:
rpg400-l-bounces+j.beckeringh=pantheon-automatisering.nl@xxxxxxxxxxxx
09-05-2007 15:03
Please respond to RPG programming on the AS400 / iSeries

To: <rpg400-l@xxxxxxxxxxxx>
cc:
Fax to:
Subject: More Questions on UDF


Below is my Server Program, Function Creation, and test with results

any suggestions?

Function
*-------------------------------------------*
C* Execute JDE Server for Date Conversion *
*-------------------------------------------*
PGetDate B EXPORT
D GetDate PI 8S 0
D FromDate 6A
D ToDate 8A
D FromFormat 7A
D ToFormat 7A
D DateSep 7A
D ErrorFlag 1A
D Century 2A
D RetDate S 8S 0 Inz

C*
C CALL 'X0028 '
C* ----- ----------
C PARM FromDate
C PARM ToDate
C PARM FromFormat
C PARM ToFormat
C PARM DateSep
C PARM ErrorFlag
C PARM Century
C* -----
C MOVE Fromdate RetDate
C MOVEL Century RetDate
C RETURN RetDate
P GetDate E



Created via STRSQL

create function AJDMODS/CVTDATE (CHAR (6), CHAR (8), CHAR (7),
CHAR (7),CHAR (7),CHAR (1),CHAR (2))
returns DEC (8,0)
language rpgle
deterministic
no sql
returns null on null input
allow parallel
simple call
external name 'AJDMODS/CONVERT(GetDate)'

select SDDOCO,
CVTDATE(DIGITS(SDTRDJ),' ','*JUL', '*YMD', '*NONE', ' ', ' ')
from ajdprddta/f4211

Error Received CVTDATE in *LIBL type *N not found.