MQ-Series

[JonnyBrazil]

Hallo,
hat jemand von euch Erfahrung mit MQ auf AS/400 ?
Wir haben (fast) immer das Problem dass nach dem beenden von MQ der restart nicht mehr funktioniert. Dann nützt nur noch ein "coldstart" was fast einer Neuinstallation entspricht.

[RobertMack]

Hallo,

hier wären ein paar zusätzliche Informationen wünschenswert:

- wie und wie regelmäßig wird der Manager beendet?
- wie wird er wieder gestartet?
- gibt es Zeiten, in denen das andere Ende offline ist?
- laufen Fehlermeldungen im Log auf (WRKLNK '/QIBM/UserData/mqm/qmgrs/DEINMGRNAME' .../errors)
- gibt es Einträge in der Dead-Letter-Queue?
- sind Queues getriggert?

Gruß,
Robert

[JonnyBrazil]

Hallo,

hier wären ein paar zusätzliche Informationen wünschenswert:

- wie und wie regelmäßig wird der Manager beendet
- wie wird er wieder gestartet?
- gibt es Zeiten, in denen das andere Ende offline ist?
- laufen Fehlermeldungen im Log auf (WRKLNK '/QIBM/UserData/mqm/qmgrs/DEINMGRNAME' .../errors)
- gibt es Einträge in der Dead-Letter-Queue?
- sind Queues getriggert?

Gruß,
Robert

- Nur bei pwrdwnsys, also so gut wie nie.
Beendigungsbefehle:
ENDMQM MQNAME(*ALL) OPTION(*CNTRLD) ENDCCTJOB(*YES) TIMEOUT(15)
ENDSBS QMQM
- Immer beim Systemstart
- Gegenseite ist (so gut wie) immer verfügbar
- Es gibt keine Fehlermeldunfgen
- keine DLQ vorhande
- Ja, ein Trigger ist drauf

[RobertMack]

Keine Meldungen ?! (WRKMQM Auswahl 23)

1) Falls STRMQM/STRSBS QMQM aus QSTRUP erfolgt:

Sind STRTCP & Co schon alle durch?
Ggf. DLYJOB einbauen oder mit SBMJOB SCDTIME() absetzen.

2) STRMQM selbst:

Steht der Parameter RDEFSYS auf *YES?
("starts, redefines and then stops the queue manager")

Gruß,
Robert

[JonnyBrazil]

Keine Meldungen ?! (WRKMQM Auswahl 23)

1) Falls STRMQM/STRSBS QMQM aus QSTRUP erfolgt:

Sind STRTCP & Co schon alle durch?
Ggf. DLYJOB einbauen oder mit SBMJOB SCDTIME() absetzen.

Könnte sein dass IP noch nicht fertig ist? Hmmm kann sein.

2) STRMQM selbst:

Steht der Parameter RDEFSYS auf *YES?
("starts, redefines and then stops the queue manager")

Gruß,
Robert

Steht auf *NO da mit default gestartet wird.

[JonnyBrazil]

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

[RobertMack]

STRMQM
bei einem Kunden läuft hier noch STRMQMMQSC
STRMQMLSR
hier vermisse ich STRMQMCHLI
STRMQMCSVR