SBMJOB und Parameterübergabe

[svit]

Hallo *all,

über ILERPG wird eine CL mit empfangsparameter Externe DS aufgerufen. Das CL macht SBMJOB ..call (..) parm(externeDS) die Lerstellen der Ext.DS werden mit HEX 00000000000000 gefült

WARUM?

Vielen dank.

[Fuerchau]

Das Problem ist doch der Call:

call mypgm parm(&Myvar)

in diesem Fall werden die Blanks am Ende aus dem CALL entfernt und somit zu wenig Daten übergeben.

Tatsächlich macht das System ja daraus:

CALL MYPGM PARM(Inhalt)

Um Leerzeichen zu erhalten müsstest du im Programm die PARM's mit Hochkomma (incl. der Verdopplung bei eingebetteten HK's) übergeben.

[svit]

was heißt in '

Bsp.:
eine Variable der ext.Ds ist 200 Stellen Alp. ich fülle nur
Eval Var1 = 'test'
im anderen Programm möchte ich auch test empfangen und nicht 'test'
oder sehe ich falsch

[BenderD]

... dann schaue man sich mal die Bedienerhilfe von Karl (call) an, Zur Kontrolle der Parameter Typen gibt es extra commands (CRTCMD ist dein Freund)


D*B

[svit]

was ist wenn ich im RPG auf HEX'00' prüfen und durch ' ' ersetze?

[svit]

erste versuch .
ich setze am Ende der Variable ein Zeichen zum Bsp. '|' dann werden die *blanks nicht durch Hex ersetzt.
jetzt muss ich nur im end Programm das '|' Zeichen wieder entfernen.

Hat jemand besseren Vorschlag?

Bitte.

[BenderD]

... Antworten lesen!!!
immer noch der command

[svit]

und
ich habe keine lösung in der Bedienerhilfe gefunden.
was soll ich mit CRTCMD (ich will keinneues Command erstellen)

[BenderD]

und
ich habe keine lösung in der Bedienerhilfe gefunden.
was soll ich mit CRTCMD (ich will keinneues Command erstellen)

call eintippen F4 und dann auf PARM F1 liefert die Ursache des Problems.

Einen command für den Aufruf des Programmes zu erstellen ist die einzig saubere Lösung, die Dinger sind extra dafür gemacht worden und was meinst Du, warum der Parameter beim SBMJOB CMD heißt!!!

Wenn Du aber Huddel haben willst, dann frag doch einfach nicht...

Bisschen weniger Huddel ist, wenn man RQSDTA statt CMD verwendet.

D*B

[Robi]

wenn die Var > 30 (oder 32 ??) Zeichen definiert ist, müssen auch diese 30 Zeichen übergeben werden

wenn var < 30 stellig, call pgm parm('abc')
Wenn var > 30 stellig, call pgm Parm('abc ... .....')

Hex 00 ist nicht immer der 'aufgefüllte' Inhalt
Das ist alles mögliche, was im Speicher steht !!

Lösung:

dclf &var *char 200
chgvar &var 'abc'
call pgm parm(&var)

Robi

[camouflage]

Lösung:
dclf &var *char 200
chgvar &var 'abc'
call pgm parm(&var)

Hi Robi,
Du meinst wohl eher:
dcl &var *char 200


Persönlich würde ich dem noch einen value(' ') anfügen.


Wenn die Felder sauber definiert (Länge) und auch initialisiert sind, braucht es nicht solche Klimmzüge.


Allerdings frage ich mich ob svit dieses Programm zu Testzwecken auf der Commandlinie direkt aufruft - und wenn da der Parameter zu kurz ist, ist dieser Effekt anschaulich nachzuvollziehen.

[BenderD]

Wenn die Felder sauber definiert (Länge) und auch initialisiert sind, braucht es nicht solche Klimmzüge.


Allerdings frage ich mich ob svit dieses Programm zu Testzwecken auf der Commandlinie direkt aufruft - und wenn da der Parameter zu kurz ist, ist dieser Effekt anschaulich nachzuvollziehen.

... genau das ist der Fall von denkste!
Ursache des Problems ist, dass die AS400 immer einen Call by reference macht, sprich: Adressen übergibt und keine Werte. Beim interaktiven Aufruf werden Literale übergeben, die keine auswertbare Adresse haben, beim SBMJOB stimmen die Adressräume vom Aufrufer und dem Aufgerufenen Job nicht überein - in beiden Fällen wird deshalb zur Laufzeit ein Übergabebereich erstellt, mit genau den Eigenschaften, wie beim command call beschrieben. Mit einem eigenen Command cann man das toppen, da dort jeder einzelne Parameter beschrieben wird.

D*B