Leider bräuchte ich bezüglich dem Thema nochmal Hilfe..
Ich habe mich an dem einfachen Beispielcode aus dem Redbook orientiert.
Beim Umwandeln sagt er mir jedoch das nicht bestimmt werden kann wie das pgm enden soll.
Umgewandelt wird als rpgle
Code:
ctl-opt dftactgrp(*no) ;
dcl-pr Afunction packed(10:0);
packed1 packed (5:0);
packed2 packed (5:0);
end-pr;
dcl-Proc Afunction;
dcl-pi Afunction packed(10 : 0);
AnInputParm1 packed (5 : 0);
AnInputParm2 packed(5 : 0);
end-pi;

Dcl-s AReturnValue packed(10 : 0);
AReturnValue = AnInputParm1 + AnInputParm2;
Dsply AReturnValue;
Return AReturnValue;
end-proc ;

Danke schonmal

Max