0001.00 /* ---------(A)----------- ----------(B)-----------
0002.00 /*
0003.00 /* MQMGR SDMQM VTMQM
0004.00 /* LCL SDLCL VTLCL
0005.00 /* RMT SDRMT VTRMT
0006.00 /* TMQ SDTMQ VTTMQ
0007.00 /*
0008.00 /* CHL.SD2VT (A) ---> (B) .. PORT 1414
0009.00 /* CHL.VT2SD (A) <--- (B) .. PORT 1415
0010.00 /*
0011.00 /*
0012.00 /* MONMSG CPF0000 */
0013.00
0014.00 PGM
0015.00
0016.00 /* (A) */
0017.00
0018.00 CRTMQM MQMNAME(SDMQM) TEXT(' サイトデザイン用 ') +
0019.00 DFTQMGR(*YES)
0020.00
0021.00 STRMQM SDMQM
0022.00
0023.00 CRTMQMQ QNAME(SDLCL) QTYPE(*LCL) MQMNAME(SDMQM)
0024.00
0025.00 CRTMQMQ QNAME(SDRMT) QTYPE(*RMT) MQMNAME(SDMQM) +
0026.00 RMTQNAME(VTLCL) RMTMQMNAME(VTMQM) +
0027.00 TMQNAME(SDTMQ)
0028.00
0029.00 CRTMQMQ QNAME(SDTMQ) QTYPE(*LCL) MQMNAME(SDMQM) +
0030.00 USAGE(*TMQ)
0031.00
0032.00 /* (B) */
0033.00
0034.00 CRTMQM MQMNAME(VTMQM) TEXT(' サイトデザイン用 ')
0035.00
0036.00 STRMQM VTMQM
0037.00
0038.00 CRTMQMQ QNAME(VTLCL) QTYPE(*LCL) MQMNAME(VTMQM)
0039.00
0040.00 CRTMQMQ QNAME(VTRMT) QTYPE(*RMT) MQMNAME(VTMQM) +
0041.00 RMTQNAME(SDLCL) RMTMQMNAME(SDMQM) +
0042.00 TMQNAME(VTTMQ)
0043.00
0044.00 CRTMQMQ QNAME(VTTMQ) QTYPE(*LCL) MQMNAME(VTMQM) +
0045.00 USAGE(*TMQ)
0046.00
0047.00 /* CHANNEL */
0048.00
0049.00 CRTMQMCHL CHLNAME(CHL.SD2VT) CHLTYPE(*SDR) +
0050.00 MQMNAME(SDMQM) +
0051.00 CONNAME('xxx.xx.40.2(1414)') TMQNAME(SDTMQ)
0052.00
0053.00 CRTMQMCHL CHLNAME(CHL.VT2SD) CHLTYPE(*RCVR) +
0054.00 MQMNAME(SDMQM)
0055.00
0056.00 CRTMQMCHL CHLNAME(CHL.VT2SD) CHLTYPE(*SDR) +
0057.00 MQMNAME(VTMQM) +
0058.00 CONNAME('xxx.xx.40.2(1415)') TMQNAME(VTTMQ)
0059.00
0060.00 CRTMQMCHL CHLNAME(CHL.SD2VT) CHLTYPE(*RCVR) +
0061.00 MQMNAME(VTMQM)
0062.00
0063.00 /* START SERVICE */
0064.00
0065.00 STRMQMLSR PORT(1415) MQMNAME(SDMQM)
0066.00 STRMQMLSR PORT(1414) MQMNAME(VTMQM)
0067.00
0068.00 STRMQMCHL CHLNAME(CHL.SD2VT) MQMNAME(SDMQM)
0069.00 STRMQMCHL CHLNAME(CHL.VT2SD) MQMNAME(SDMQM)
0070.00
0071.00 STRMQMCHL CHLNAME(CHL.SD2VT) MQMNAME(VTMQM)
0072.00 STRMQMCHL CHLNAME(CHL.VT2SD) MQMNAME(VTMQM)
0073.00
0074.00
0075.00 RETURN
0076.00 ENDPGM
|