Eingangsparameter im Free Code

[harkne]

Hallo zusammen,

Ich mache total free und gebe die Eingangsparameter im Programm wie folgt an

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

Bei der Kompilierung sagt er mir aber dass genau die Variablen nicht definiert sind.

Ich habe dcl-pi am Anfang stehen nach ctl-opt

Ich habe keinen dcl-pr. Ich weiß nicht ob ich den brauche denn es ist eigentlich ein ganz einfaches "RPG" und ich denke ich muss den *entry plist einfach mit dem dcl-pi ersetzen.

Was könnte falsch sein?

Viele Grüße Harald

[Fuerchau]

dcl-pi, Procedure Interface, stehen am Anfang des prozeduralen Teils im Hauptprogramm und ersetzen die *entry-Definition. Die Variablen sind da dann auch definiert.
Wenn auf dcl-pi weitere Definitionen folgen, ist das ein Reihenfolgefehler.
*entry ist ja auch eine C-Anweisung und kann daher nicht im Bereich der D-Definitionen stehen.

Anders sieht es aus, wenn du eine Main-Procedure im ctl-opt angibst, und dann per dcl-proc die Main definierst.
Nach dcl-proc erfolgt dann immer zuerst die dcl-pi für die Prozedur, gefolgt von nachfolgenden Definitionen.

[camouflage]

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.)

[Fuerchau]

Wie war das noch mal mit dem Wald und den Bäumen?
Klar "Parm" ist ein Parameter-Entry und ist in Free nicht erlaubt:-).