"Schrott" in CL-Parameter

[Peter Kosel]

Hallo zusammen,

kurz vor dem Fest noch eine komische Sache.
Ich habe 1 RPG-PGM und 2 CL-PGMs. mit folgenden Parametern :

CL-PGM1
PGM PARM(&PARTNER &PFAD &FILE)
DCL VAR(&PARTNER) TYPE(*CHAR) LEN(10)
DCL VAR(&PFAD) TYPE(*CHAR) LEN(250)
DCL VAR(&FILE) TYPE(*CHAR) LEN(128)
SBMJOB CMD(CALL PGM(EDIPMPRCV2) PARM(&PARTNER &PFAD +
&FILE)) JOB(&JOBNAME) JOBQ(QPGMR)

CL-PGM2
PGM PARM(&PARTNER &PFAD &FILE)
DCL VAR(&PARTNER) TYPE(*CHAR) LEN(10)
DCL VAR(&PFAD) TYPE(*CHAR) LEN(250)
DCL VAR(&FILE) TYPE(*CHAR) LEN(128)


Wenn ich mir nun den Inhalt der Variablen Pfad und File ansehe,
so finde ich dort ausser dem erwarteten Inhalt auch noch jede menge "Schrott". In Variable Partner passiert das nicht, auch nicht, wenn nicht die gesamte Feldlänge benötigt wird.
Verkürze ich in CL-PGM2 die Länge der Variablen auf 32 Byte ist ebenfalls alles OK.

Ich rufe aus dem RPG das CL-PGM1 auf, das ist noch OK. Dann der SBMJOB und in den Variablen des PGM2 steht Datenmüll :-((

Hat jemand dazu eine Erklärung für mich ?

Vorab schon einmal vielen Dank

Peter

[Fuerchau]

Der SBMJOB ist hier das Problem !!

Da dem Kommando CALL keine Paramter per Adresse sondern nur per Wert mitgegeben werden können schlägt hier eine gemeine Falle zu:

Zeichenketten werden in ihrer Länge, jedoch mit max. 32 Stellen übergeben, d.h. Leerzeichen am Ende werden abgeschnitten, Zahlen immer als 15.5 !

Lösung:

Setze den CALL per CHGVAR und *CAT zusammen, so dass die Original-Längen erhalten bleiben !

chgvar mycall ('CALL PGM(EDIPMPRCV2) PARM(''' *cat &PARM *CAT ''' ''' *CAT &PFAD *CAT ''' ''' *CAT &FILE *CAT ''')')

Sieht etwas kompliziert aus, aber die Hochkomma sind wichtig, damit die Leerzeichen erhalten bleiben.

Alternativ und einfacher wäre da die Benutzung der LDA:

PGM1:
chgvar %sst(*lda 1 10) &partner
chgvar %sst(*lda 11 250) &pfad
chgvar %sst(*lda 261 128) &file

PGM2:
chgvar &partner %sst(*lda 1 10)
:

Die LDA wird beim SBMJOB immer mitkopiert, so dass man dort Daten übergeben kann (max. 1KB).

Sollte diese belegt sein, kann man sich diese ja vorher retten und hinterher wiederherstellen.

[Peter Kosel]

Hallo Fürchau,

also erst einmal schönen Dank für die schnelle Hilfe.
Die Idee mit der LDS scheint mir da sehr Sinnvoll.
Ich werde das sofort mal ausprobieren und anschliessend ggf Vollzug melden.

Gruß

Peter

[Peter Kosel]

Hallo Fürchau,

hier noch die versprochene Vollzugsmeldung.

"klappt prima" Das mit der übergebenen LDA war mir nicht bekannt, man lernt halt nie aus ....

Gruß und ggf schon schöne Feiertage...

Peter