PDA

View Full Version : EXTPGM-Parameterliste


Seiten : 1 [2]
tarkusch
25-01-13, 09:55
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
25-01-13, 10:05
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
25-01-13, 10:10
Hi

Guckst Du hier:
http://www.scottklement.com/presentations/Parameters%20And%20Prototypes.pdf
tarkusch
25-01-13, 11:10
danke schön an euch, spezial thanks to Dieter.