RUNRMTCMD

[Antonio]

Hallo zusammen,

wir haben zwei AS/400 im TR. Ich will von Maschine A ein Programm auf Maschine B starten. Das Aufrufen des Programms funktioniert ohne Probleme. Ich will aber ein Programm aufrufen mit Parameterübergabe...und das geht nicht.
Wer hat einen Rat ??

[Bodo Roggenkamp]

Hallo Antonio,

hier ein kleines Beispiel:

DCL VAR(&CMD) TYPE(*CHAR) LEN(120)
DCL VAR(&P1) TYPE(*CHAR) LEN(10) VALUE('P1')
DCL VAR(&P2) TYPE(*CHAR) LEN(10) VALUE('P2')

CHGVAR VAR(&CMD) VALUE('CALL PGM(LIB/PGM) +
PARM(' *TCAT &P1 *BCAT &P2 *TCAT ')')

RUNRMTCMD CMD(&CMD) RMTLOCNAME(SYS2.SYS2) +
RMTUSER(USR2) RMTPWD(PWD2)

(klappt in dieser Form nur, wenn &P1 und P2 keine Leerzeichen enthalten).

Gruss
Bodo

[Fuerchau]

Man braucht es nicht ganz so kompliziert machen.
Wenn man in SEU den Befehl RUNRMTCMD mit F4 promptet, kann man auf dem Schlüsselwort CMD nach eingabe von CALL wiederum die F4-Taste drücken, so dass man den Befehl mit allen Parametern vervollständigen kann.

Ergebnis z.B.:
RUNRMTCMD CMD(CALL LIB/PGM PARM(&P1 &P2)) ...