Re: UDF: Results in MCH3601

This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
Evidently I am not the first to report this to IBM:
http://www-912.ibm.com/n_dir/nas4apar.NSF/c79815e083182fec862564c00079d117/12b21066b5b9f26686256b99003ddae0?OpenDocument&Highlight=2,SE05159
apar=SE05159

So I applied the test ptf and got that problem fixed.

Now I run into a CPD439D-4 when I try to add the check constraint - back
to the drawing board!

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin




rob@dekko.com
Sent by: rpg400-l-admin@midrange.com
04/29/2002 11:41 AM
Please respond to rpg400-l


        To:     rpg400-l@midrange.com
        cc:
        Fax to:
        Subject:        UDF:  Results in MCH3601


This is a multipart message in MIME format.
--
[ Picked text/plain from multipart/alternative ]
I have an SQL UDF which is giving me a MCH3601 on the return statement.  I
brought this up on the list last week thinking that SQL had a problem with
RPG's indicator variable.  So I changed the indicator variable to a simple
1A and it still abends.

Subprocedure:
      /eject
     P*--------------------------------------
     P* Procedure name: VALIDTPNBR
     P* Purpose:        Validates Trading partner number
     P* Returns:        '1'=Yes the tp number is valid, '0'=No it is not
     P* Parameter:      tpttype => Trading partner type
     P* Parameter:      tpnbr => Trading partner number
     P*--------------------------------------
     P VALIDTPNBR      B                   EXPORT
     D VALIDTPNBR      PI             1a
     D tpttype                             LIKE(tpnbr.tpttype) CONST
     D tpnbr                               LIKE(tpnbr.tpnbr) CONST

     D* Local fields
     D rValidTpNbr     S              1a
     D wTpName         s            100a

      /free
       wTpName=RtvTpData(tpttype:tpnbr:'TPTPNAME');
       Select;
       When wTpName=*loval or wTpName=*blanks or wTpName='*NONE';
        rValidTpNbr=*off;
       Other;
        rValidTpNbr=*on;
       EndSl;
       return rValidTpNbr;
      /end-free
     P VALIDTPNBR      E

create function WEB/VALIDTPNBR (CHAR (8), CHAR (10))
returns CHAR (1)
simple call
language rpgle
deterministic
reads sql data
returns null on null input
no external action
allow parallel
external name 'WEB/WEBSRV(VALIDTPNBR)'

select FLD1, FLD2,
       VALIDTPNBR(FLD1,FLD2)
from ROB/ALEXEI

Breakpoint at return statement:
RVALIDTPNBR = '1'

Rob Berendt
--
"They that can give up essential liberty to obtain a little temporary
safety deserve neither liberty nor safety."
Benjamin Franklin
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.