Hallo zusammen,

kann mir jemand sagen was in der nachfolgenden Prototypenbeschreibung nicht stimmt, denn er bringt mir RNF7030 für die Felder die in der Prototypenbeschreibung angegeben sind.

dcl-pr SndPssrMsg extpgm('PUT91C');
P91MsgId char(7);
P91Sts char(5);
P91WPID char(10);
end-pr;
dcl-pr Put251R extpgm('PUT251R');
*n char(10000) const;
*n char(1) const;
*n char(1) const;
*n char(25) const;
*n char(25) const;
*n char(10000) const;
P251NewString char(10000);
P251AryErrPos packed(5:0) dim(10000);
P251NoOfErrPos packed(5:0);
end-pr;


Viele Grüße Harald