Hallo,

anbei ein kleines CL, welches diese Aufgabe erledigt.

PGM

DCL VAR(&SERVER) TYPE(*CHAR) LEN(5) VALUE('WAS_1')

DCL VAR(&CMDBASE) TYPE(*CHAR) +
VALUE('/QIBM/ProdData/WebASE/ASE5/bin/Start+
Server -instance ')

DCL VAR(&CMD) TYPE(*CHAR) LEN(200)

CHGVAR VAR(&CMD) VALUE(&CMDBASE *CAT &SERVER *CAT ' +
' *CAT &SERVER)

STRSBS SBSD(QASE5/QASE5)
MONMSG MSGID(CPF0000)

DLYJOB DLY(30)
MONMSG MSGID(CPF0000)

QSH CMD(&CMD)
MONMSG MSGID(CPF0000)

STRTCPSVR SERVER(*HTTP) HTTPSVR(WAS_1)
MONMSG MSGID(CPF0000)

ENDPGM

So funktioniert das bei mir, wobei sowohl der HTTP-Server als auch der Application Server WAS_1 heissen.

Schöne Grüße

Thomas