DCL &SYSTEM *CHAR LEN(8)

RTVNETA SYSNAME(&SYSTEM)

STRSBS SBSD(QMQM/QMQM)
STRMQM
STRMQMLSR
STRMQMCSVR

IF COND(&SYSTEM = 'OAFEWS') THEN(DO)
STRMQMTRM INITQNAME(OAFEWS.INITIATION.QUEUE) +
MQMNAME(&SYSTEM)
ENDDO

STROMA
STROMAMC

Das ganze gibts einmal in Produktion und das zweite mal am Testsystem, deswegen die Abfrage auf Systemnamen. MQMNAME = Systmname