wenn es eine einfache Parameterliste ist, warum nicht so?

dcl-pi *n;
PiJobName char(10);
PiJobUser char(10);
PiJobNo char(6);
PiSbs char(10);
PoJobName char(10);
PoJobUser char(10);
PoJobNo char(6);
end-pi;

Bevor Du mit den "C" Ops beginnst nach den übrigen Definitionen (Files, Fields, Arrays etc.)