Return ILE RPG

[Squall]

Hab noch ein kleines Problem. Und zwar bekomme ich die Fehlermeldung:

*RNF3751 30 a 002200 Externe Prozedur im Prototyp für Hauptprozedur nicht mit aktuellem externem Namen identisch.

Code:
...

DAUFNEHM          PR                                    
D PARM1                          8A                     
D PARM2                         20A                     
D PARM3                         20A   OPTIONS(*VARSIZE) 
D PARM4                          3A                     
D PARM5                        255A                     
D PARM6                        255A                     
D PARM7                        255A                     
D PARM8                        255A                     
D PARM9                        255A                     
D PARM10                       255A                 
D PARM11                 3A    

DAUFNEHM          PI      
-> FEHLER                              
D FILD1                          8A                     
D FILD2                         20A                     
D FILD3                         20A   OPTIONS(*VARSIZE) 
D FILD4                          3A                     
D FILD5                        255A                     
D FILD6                        255A                     
D FILD7                        255A                     
D FILD8                        255A                     
D FILD9                        255A                     
D FILD10                       255A                 
D FILD11                 3A 

Was mache ich falsch?

[BenderD]

du musst den Programmnamen im Prototyp deklarieren EXTPGM(Name) im Schlüsselwortbereich.

Hab noch ein kleines Problem. Und zwar bekomme ich die Fehlermeldung:

*RNF3751 30 a 002200 Externe Prozedur im Prototyp für Hauptprozedur nicht mit aktuellem externem Namen identisch.

Code:
...

DAUFNEHM          PR                                    
D PARM1                          8A                     
D PARM2                         20A                     
D PARM3                         20A   OPTIONS(*VARSIZE) 
D PARM4                          3A                     
D PARM5                        255A                     
D PARM6                        255A                     
D PARM7                        255A                     
D PARM8                        255A                     
D PARM9                        255A                     
D PARM10                       255A                 
D PARM11                 3A    

DAUFNEHM          PI      
-> FEHLER                              
D FILD1                          8A                     
D FILD2                         20A                     
D FILD3                         20A   OPTIONS(*VARSIZE) 
D FILD4                          3A                     
D FILD5                        255A                     
D FILD6                        255A                     
D FILD7                        255A                     
D FILD8                        255A                     
D FILD9                        255A                     
D FILD10                       255A                 
D FILD11                 3A 

Was mache ich falsch?

[Squall]

du musst den Programmnamen im Prototyp deklarieren EXTPGM(Name) im Schlüsselwortbereich.

Also den Programmnamen meines VARPG das den CALL auf dieses ILE RPG Programm macht?

Dann bekomme ich bei PI diesen Fehler:
"Prototyp mit nicht definiertem aufgerufenem Programm oder Variable."

Tut mir Leid hatte mit ILERPG nicht viel am Hut bisher.

EDIT: Habs gefunden hatte die " ' " vergessen. ;( Konnte das Programm via "14" erstellen.

[BenderD]

den Namen des aufgerufenen Programmes!

Also den Programmnamen meines VARPG das den CALL auf dieses ILE RPG Programm macht?

Dann bekomme ich bei PI diesen Fehler:
"Prototyp mit nicht definiertem aufgerufenem Programm oder Variable."

Tut mir Leid hatte mit ILERPG nicht viel am Hut bisher.

EDIT: Habs gefunden hatte die " ' " vergessen. ;( Konnte das Programm via "14" erstellen.

[Squall]

Ok danke.

So habe das Programm erstellt. Wollte es nun über "CALL" aus VARPG aufrufen.

Musst mir vorher noch einen Constante definieren da ich LINKAGE(*SERVER) angeben musste.

Dtestlangua       C                   const('testlangua') linkage(*server) 

Testlangua heißt das programm und Testlangua steht auch bei extpgm im Porgramm.

Habe mir in VARPG dann noch eine PLIST definiert um die werte zu übergeben und zurückbekommen.

Ich rufe dann das Programm mittels:

C                   call      testlangua    parml 

auf und bekomme aber diese Fehlermeldung:

0202 Der Aufruf an testlangua wurde fehlerhaft beendet.
Ursache . . . . : Ist der Name *N, handelte es sich bei dem Aufruf
um einen Bindeaufruf nach Prozedurzeiger.
Fehlerbeseitigung: Die Fehlerprotokolldatei FVDCERRS.LOG auf weitere
Informationen über die Fehlerursache prüfen.

Im Logfile steht:

Testsubf.EXE Fri Sep 8 13:12:19 2006 ** Error logging begins **
Testsubf.EXE Fri Sep 8 13:12:19 2006 MCH3401 Auflösung zu Objekt testlangua nicht möglich. Art und Subart X'0201', Berechtigung X'0000'.
Testsubf.EXE Fri Sep 8 13:12:29 2006 *** Error logging ends ***

Hat jm eine Idee was diesen Fehler verursacht hat?

Gruß Martin

[EDIT]
Hab das Problem mittlerweile gelöst.
[/EDIT]

[BenderD]

Wenn ich da nochmal hinsehe,

da steht was von Berechtigungsfehler, da solltest du das Programm mal mit ausreichender Public Berechtigung versehen

mfg

Dieter Bender

PS: wobei ich zu dem VARPG Kram nix sagen kann, was der da treibt

Ok danke.

So habe das Programm erstellt. Wollte es nun über "CALL" aus VARPG aufrufen.

Musst mir vorher noch einen Constante definieren da ich LINKAGE(*SERVER) angeben musste.

Dtestlangua       C                   const('testlangua') linkage(*server) 

Testlangua heißt das programm und Testlangua steht auch bei extpgm im Porgramm.

Habe mir in VARPG dann noch eine PLIST definiert um die werte zu übergeben und zurückbekommen.

Ich rufe dann das Programm mittels:

C                   call      testlangua    parml 

auf und bekomme aber diese Fehlermeldung:

0202 Der Aufruf an testlangua wurde fehlerhaft beendet.
Ursache . . . . : Ist der Name *N, handelte es sich bei dem Aufruf
um einen Bindeaufruf nach Prozedurzeiger.
Fehlerbeseitigung: Die Fehlerprotokolldatei FVDCERRS.LOG auf weitere
Informationen über die Fehlerursache prüfen.

Im Logfile steht:

Testsubf.EXE Fri Sep 8 13:12:19 2006 ** Error logging begins **
Testsubf.EXE Fri Sep 8 13:12:19 2006 MCH3401 Auflösung zu Objekt testlangua nicht möglich. Art und Subart X'0201', Berechtigung X'0000'.
Testsubf.EXE Fri Sep 8 13:12:29 2006 *** Error logging ends ***

Hat jm eine Idee was diesen Fehler verursacht hat?

Gruß Martin

[Squall]

Wenn ich da nochmal hinsehe,

da steht was von Berechtigungsfehler, da solltest du das Programm mal mit ausreichender Public Berechtigung versehen

mfg

Dieter Bender

PS: wobei ich zu dem VARPG Kram nix sagen kann, was der da treibt

Hm das kanns nicht sein...
Habe gerade via edtobjaut dem *PGM bei *PUBLIC ALL - Rechte gegeben. der Fehler ist der Gleiche und das Protokol sagt auch das gleiche.

[Fuerchau]

Da du beim CALL keine LIB angibst, muss die LIB, in der du das Programm erstellt hast, in der Bibliotheksliste sein.
Ansonsten wird das Programm halt nicht gefunden.

[Squall]

Da du beim CALL keine LIB angibst, muss die LIB, in der du das Programm erstellt hast, in der Bibliotheksliste sein.
Ansonsten wird das Programm halt nicht gefunden.

Das Programm liegt in meiner Curlib, diese ist auch in meiner Libl enthalten.

Wo müsste ich die Lib noch mit angeben? Bei const?

Dtestlangua       C                   const('testlangua')
     D                                     linkage(*server) 

Also jetzt 'lib/testlangua' ?

PS: Ist es möglich das 'xxxxxx/testlangua' zulange ist?

[DVE]

Schreibe Dtestlangua C const('testlangua')

TESTLANGUA in großbuchstaben und versuche es noch einmal.

Gruß
DVE

[DVE]

Nur zur Klarstellung die Konstante und nicht die Variable muss in Großbuchstaben geschrieben werden.

Gruß
DVE