RE: UDTF - Decimal data error

WHAT IS WRONG WITH THE DECIMAL PACKED FIELDS THAT THEY CANNOT BE
HANDLED BY THE USER DEFINED FUNCTION???oR IS SOMETHING ELSE CAUSING THE
PROBLEM. IF i TAKE OUT THE PACKED FIELDS ALL WORKS FINE.

when CALLTYPE = CALL_FETCH;

EXEC SQL FETCH next FROM Cmscm03CSR INTO
:c3;
eval C3IDSEQO = d3IDSEQ ;
eval C3BRNCDEO = d3BRNCDE ;
eval C3INCDATEO =%CHAR(d3INCDATE) ;
eval C3COLDATEO =%CHAR(d3COLDATE) ;
eval C3PRO1O = d3PRO1 ;
eval C3PRO2O = d3PRO2 ;
eval C3NAMEO = d3NAME ;
eval C3IDREGNUO = d3IDREGNUM ;
eval C3POLREFO = d3POLREF ;
eval C3EMPNOO = d3EMPNO ;

My money's on a mismatch between the columns named in the SELECT known as
Cmscm03CSR and the C3 data structure.

Please add OPTION(*SRCSTMT) to the header specs of the program (if not there
already) and recompile. Then, when the failure occurs, take a look at the
line number of the failure (found by pressing F9 when your detailed message
is displayed). Take a look at that line number in the RPG; this will help
you identify the troublesome field. Hopefully that will lead to your own
answer. If not, please post back with more detail and information gained in
this step.

Also, ensure that SQLCOD is zero at the failure point. Maybe some warning
message is being overlooked.

Dennis Lovelady
http://www.linkedin.com/in/dennislovelady
--
"They couldn't hit an elephant at this dist---"
-- last words of Union army commander John Sedwick as he addressed
his troops during a (US) Civil War battle