Hallo,
ich wollte heute in einem Programm einen Part der sich ständig wiederholt in eine Prozedur auslagern.
Ich bekomme mein Programm aber nicht erstellt.

d getZeile pr
D $$Betrag like(Pbetrag) Betrag der eingefügt
D $$Text like(Ptext) Textkonstante
D $$P1 like(Pp1) Position Betrag
D $$P2 like(Pp2) Position 0,xx Betrag
D $$TP1 like(Ptp1) Textposition
D Pbetrag S 9s 2
D Ptext S 40
D Pp1 S 2s 0
D Pp2 S 2s 0
D Ptp1 S 2s 0

c z-add 0,30 Pbetrag
c movel 'Laberhannes' Ptext
c z-add 44 Pp1
c z-add 49 Pp2
c z-add 14 Ptp1
/free
getZeile(Pbetrag:Ptext:Pp1:Pp2:Ptp1);
/end-free
c dump
c move *on *inlr


P GetZeile B
D GetZeile PI
D $$Betrag like(Pbetrag)
D $$Text like(Ptext)
D $$P1 like(Pp1)
D $$P2 like(Pp2)
D $$TP1 like(Ptp1)
..........
P E


Folgende Fehler bekomme ich nicht weg.

*RNF3788 30 1 Schlüsselwort EXTPGM muß angegeben werden, wenn
DFTACTGRP(*YES) im Befehl CRTBNDRPG angegeben wird.
*RNF7503 30 1 Ausdruck enthält einen Operanden, der nicht definiert ist.


Kann mir jemand helfen?

Gruß Christian