Re: More Questions on UDF

[Vernon Hamberg <vhamberg@xxxxxxxxxxx>]

AJDMODS is probably not in your library list. You can't use *SYS 
naming and qualify the function - you can qualify it with a dot in 
*SQL naming. There is more to this that I don't remember - like 
changing your default path.

HTH
Vern

At 08:03 AM 5/9/2007, you wrote:

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