EXTPGM-Parameterliste

[dschroeder]

Template bedeutet, dass die Struktur nur eine "leere" Vorlage ist. Für eine Template-Struktur werden nur 16 Bytes Speicher belegt. Du brauchst die Struktur ja nicht wirklich für den Prototyp. Du benötigt an der Stelle ja nur die Strukturdefinition (ohne Daten). Deshalb habe ich da Template hingeschrieben. Das geht natürlich auch ohne "Template". Dann musst du aber einen andere Namen für die Struktur verwenden (du kannst dich bei likeds ja schließlich nicht auf dich selbst beziehen).

Dein Problem mit der Fehlermeldung ist das "DS". Da die Struktur nicht selbständig ist, sondern nur ein Parameter des Prototyps, darf da kein DS stehen:
D CheckCode PR EXTPGM(' CHKCD01R')
d
d CHK03R likeds(CHK03R_Templ)
d RtnCode 1a

Gruß,
Dieter

[tarkusch]

Hallo Dieter,

das hätte ich schon mal weggelassen, aber da kommt die Fehlermeldung

*RNF7030 30 1780 103000 Der Name oder die Bezugszahl/der Anzeiger CHK03R ist nicht
definiert.

In dem Template wären ja schon Deklarationen für PACD3 und PASL3 angegeben. Wieso kommt dann aber die Fehlermeldung:
======> aa
*RNF0655 30 2 Der mit dem Schlüsselwort TEMPLATE definierte Eintrag kann in
diesem Kontext nicht verwendet werden.

[dschroeder]

Du musst natürlich auch noch eine richtige Struktur (ohne Template) deklarieren. Du willst die Felder ja schließlich nutzen.

Folgender Code funktioniert bei mir:
D CHK03R_Templ DS 50 Template
D PASL3 1 2 0
D PACD3 3 5
D PABZ3 6 30
D PAKB3 31 35
*
D CheckCode PR EXTPGM('CHKCD01R')
d CHK03R likeds(CHK03R_Templ)
d RtnCode 1a
*
d CHK03R DS likeds(CHK03R_Templ)
d RtnCode S 1a

/FREE
CHK03R.PACD3 = 'TEST';
CHK03R.PASL3 = *ZEROS;
Callp(e) CheckCode(CHK03R:RtnCode);
IF RtnCode = '0';
// Error in ...
EndIf;
*inlr = *on;
/END-FREE

[camouflage]

Hi

Guckst Du hier:
http://www.scottklement.com/presenta...Prototypes.pdf

[tarkusch]

danke schön an euch, spezial thanks to Dieter.