Re: SQL Function

[Mark Walter <MWalter@xxxxxxxxxxxxxxx>]

That's funny. My code looks almost the same. 



Mark Walter
Paragon Consulting Services, Inc.
IBM Certified System i Specialist
717-764-7909 Ext. 26
mwalter@xxxxxxxxxxxxxxx
www.paragon-csi.com



rob@xxxxxxxxx 
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
02/15/2008 01:39 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>


To
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
cc

Subject
Re: SQL Function






Are you seeing anything funny in the joblog?  Like
MCH1210 Receiver value too small to hold result.

     H Datfmt(*ISO)
     H NOMAIN
     D GETPRGDATE      PR            10I 0
     D  NumDays                      10i 0 const
     P GETPRGDATE      B                   EXPORT
     D GETPRGDATE      PI            10i 0
     D  NumDays                      10i 0 const
     D WorkDate        s               d
     D NumDate         s             10i 0
     D
      /free
       *inlr=*on;
       WorkDate=%date() + %days(NumDays);
       NumDate=%dec(WorkDate:*iso);
       return NumDate;
      /end-free
     P GETPRGDATE      E 

CREATE FUNCTION GETPRGDATE (INTEGER) 
  RETURNS int 
  EXTERNAL NAME 'ROB/GETPRGDATE(GETPRGDATE)'
  LANGUAGE RPGLE 
  NOT DETERMINISTIC 
  NO SQL 
  returns null on null input 
  no external action allow parallel 
  simple call 

Gives me the error when I run the insert.

Rob Berendt