Den CALL kann man nicht direkt umsetzen. Du musst einen Prototype definieren kannst das dann mit call ct0001cl(puser:chk:xqpgmr) aufrufen.


Die Entry Plist solltest du so umsetzen, dass die Variablen direkt deklariert werden,

z.B.:

Code:
dcl-pi *n;
  pwort char(...);
  pkz packed(5:2);
end-pi
Ich kenne natürlich nicht deine konkreten Defitionen! Du kannst die Parameter in der dcl-pi-Anweisung auch mit like definieren, wenn du eine passende Referenzvariable hast.

Dieter