SBMJOB und Parameterübergabe

[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

[camouflage]

@Dieter
Hast mich gleich nachdenklich gemacht, da diese Problematik nicht mehr so present ist. War wohl nur ein netter Versuch von mîr.

Offensichtlich bleiben wirklich nur Commands als sauberste Lösung übrig, wenn die Parameterstruktur zu komplex ist.

Mehr diesem Thema unter diesem Link:

Get the SBMJOB Command's CMD Parameter to Cooperate

[Fuerchau]

Das Problem ist doch der eingebettete Call im SBMJOB.
Also müssen die Daten in der benötigten Länge übergeben werden.
Allerdings kann man tatsächlich beliebige Daten übergeben da der Empfänger da nicht bekannt ist.
Wenn ich also 201 Bytes mit dem "!" am Ende übergebe und der Empfänger nur 200 Bytes definiert, kommt er an das "!" gar nicht dran und es muss nicht entfernt werden.
Aber wie Dieter schon sagt, sauber ist das nicht.