RPG Parameterübergabe von RPG an übergeordnetes CL

[AG1965_2]

Doch, das geht. Wenn's bei Dir nicht geht, hast Du irgendwas falsch gemacht.
Das Irgendwas anhand Deines Pseudo-Codes zu erraten, ist sinnlos.

[TheDevil]

Vielleicht mach es der keine Quellcode einfacher

PGM

DCL VAR(&FEHLER) TYPE(*CHAR) LEN(1)
CALL PGM(PGMXXX) PARM(FEHLER)
IF COND(&FEHLER *EQ 'X') THEN(GOTO CMDLBL(FEHLER))
GOTO ENDE99
FEHLER:
SNDBRKMSG MSG('Fehler ist aufgetreten') TOMSGQ(DSPXXXX)
ENDE99:
RCLRSC
ENDPGM

[Robi]

Parm(Fehler) ist falsch
Parm(&Fehler) ist richtig
Robi

[TheDevil]

Sorry .. das war jetzt nur schnell geschrieben... es geht uim die Sache ansich. Also wenn ich die Variable im CL defenieren (blank) dann das rpg laufen lasse ist die Frage ob danach ein durch das rpg neu ermittelter wert auch wieder im cl zur verfügung steht (hier dann z. b. das x)

[Robi]

Sorry, das war nur schnell geantwortet.
Die Sache an sich
Das geht seit es RPG / CL gibt

Ausnahme:
im RPG empfängst du

     *entry     plist
     f1           parm     f2                  f3

Dann wird geht nicht f3 zurück ans CL sondern f1

Robi

[TheDevil]

Danke für alle schnellen Antworten. Sorry für die Frage .. aber irgendwie waren hier im Norden einfach zu viele Bäume vor meinen Augen.

[dschroeder]

Sorry, das war nur schnell geantwortet.
Die Sache an sich
Das geht seit es RPG / CL gibt

Ausnahme:
im RPG empfängst du

     *entry     plist
     f1           parm     f2                  f3

Dann wird geht nicht f3 zurück ans CL sondern f1

Robi

Stimmt nicht ganz: f2 wird zurückgegeben!
Dieter

[Robi]

Stimmt natürlich
Fülltext 20 Zeichen

[Fuerchau]

Das Problem ist manchmal nur schwer zu finden, vor allem wenn das "&"-Zeichen an wichtiger Stelle fehlt.
In CLP werden Variablen immer mit "&" deklariert!
Der vollständige Name ist also grundsätzlich "&Name".

Bei allen Kommandos sind (bis auf wenige Ausnahmen) sowohl Variablen als auch Konstanten möglich.
Übergibst du also CALL ... PARM(FEHLER) statt PARM(&FEHLER) lehnt der Compiler das nicht ab (denn sie (die Programmierer) wissen was sie tun....).
Für die Konstante "FEHLER" wird nun intern eine Variable angelegt und an das Programm übergeben.
Wenn dieses dann den Wert verändert, kommt das rufende Programm halt nicht mehr dran.
Bei nächsten Aufruf (in einer Schleife) wird nun allerdings der veränderte Wert weitergegeben.

[TheDevil]

Moin Moin Herr Fuerschau, Robi.
@Fuerschau : Ja das war nur ein Tippfehler.
@Robi .... Wie soll ich das mit den 20 Zeichen verstehen .. sorry wenn ich nachfrage.
Gruß
Ralf

[Fuerchau]

Wenn eine Antwort im Forum kürzer als 20 Zeichen ist, kann man nicht antworten.
Daher wurde mit "Fülltext 20 Zeichen" nur die Antwort verlängert.

Also wenn das nur ein Tippfehler war, dann sollte es doch funktionieren.
Sonst würden sicher gefühlte Milliarden von Call's auf der ganzen Welt ziemlich in die Hose gehen.