PDA

View Full Version : Probleme mit Prozedur


Brillisauer
21-01-09, 08:16
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
BenderD
21-01-09, 08:22
- der Empfehlung des Compiler folgens und DFTACTGRP(*NO) beim Compile verwenden (kann man auch in einer H Karte ablochen)
- einen ILE Kurs buchen (da ist noch mehr enthalten, was man besser machen könnte und sollte)

D*B


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
Brillisauer
21-01-09, 09:23
Vielen Dank Hr. Bender,
ich hatte das vorhin auch ausprobiert, allerdings die Aktivierungsgruppe auf *NEW gestellt.
Nach ein paar Versuchen hatte ich mein Ziel jedoch erreicht.
Mfg. Christian