RUNRMTCMD die ...

[BenderD]

Hallo Andreas,

ich denke mal, dass dein Trick mit dem &HK nicht funktioniert, da bleiben Dir letztlich keine Hochkommas übrig (kann man sich mit Debug ansehen).
Wenn ich das recht erinnere, musst Du 4 Hochkommas hinmachen, damit zuletzt noch eins über ist: ersetze mall &HK jeweils mit 4 Hochkommas in Gänsefüßchen.

Dieter

Hallo,
ich bastel mir in einem CL diesen Befehl für einen RUNRMTCMD zusammen - Aufruf Programm mit Paramter- , interaktiv aufgerufen funtkioniert er, nur im CL kriege ich immer den Fehler im Befehl SBMJOB

Anfang der Zeichenfolge 'SBMJOB CMD' kein gültiger Befehlsname.
Im Befehl ist ein Fehler aufgetreten.

Wer weiß warum ?

Befehl :

'SBMJOB CMD(CALL PGM(ACTSYSPGM/INSTPGMCL3) PARM(''
NGTEST1234''))'

CL-SRC für den Befehl :

PGM PARM(&INSTLIB &SECURE)
DCL VAR(&INSTLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&SECURE) TYPE(*CHAR) LEN(01)
DCL VAR(&CMD) TYPE(*CHAR) LEN(65)
DCL VAR(&CMD1) TYPE(*CHAR) LEN(47) VALUE('SBMJOB + CMD(CALL PGM(ACTSYSPGM/INSTPGMCL3) PARM')
DCL VAR(&HK) TYPE(*CHAR) LEN(1) VALUE(X'7D')
DCL VAR(&KLAMMER) TYPE(*CHAR) LEN(1) VALUE(')')
CLRMSGQ MSGQ(.....)
CHGVAR VAR(&CMD) VALUE(&HK *CAT &CMD1 *CAT &HK *CAT &HK *CAT &INSTLIB *CAT &HK *CAT &HK *CAT +
&KLAMMER *CAT &KLAMMER *CAT &HK)
RUNRMTCMD CMD(&CMD) RMTLOCNAME(AS400.AS400) +
RMTUSER(USER) RMTPWD(pwd)

Andreas