./ ADD NAME=DEFCHAN
//DEFCHAN  JOB
//DEFmgr2  EXEC PGM=CSQUTIL,PARM='mgr2'
//STEPLIB  DD  DISP=SHR,DSN=hlq.SCSQLOAD
//         DD  DISP=SHR,DSN=hlq.SCSQANLE
//         DD  DISP=SHR,DSN=hlq.SCSQAUTH
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
COMMAND DDNAME(INPUT)
//INPUT    DD  *
 DEFINE CHANNEL('mgr2.TO.mgr1') +
        CHLTYPE(SDR) +
        DESCR('Channel for sending messages to mgr1') +
        TRPTYPE(TCP) +
        XMITQ('mgr1') +
        DISCINT(600) +
        CONNAME('hostname1(ListenerPort1)') +
        REPLACE
 DEFINE CHANNEL('mgr1.TO.mgr2') +
        CHLTYPE(RCVR) +
        DESCR('Channel for receiving messages from mgr2') +
        TRPTYPE(TCP) +
        REPLACE
 DEFINE QLOCAL('mgr1') +
        DESCR('Transmission queue for mgr1') +
        STGCLASS('REMOTE') +
        USAGE(XMITQ) +
        TRIGGER +
        TRIGTYPE(FIRST) +
        TRIGDPTH(1) +
        TRIGMPRI(0) +
        PROCESS('SEND.TO.mgr1') +
        INITQ('SYSTEM.CHANNEL.INITQ') +
        REPLACE
 DEFINE QLOCAL('yourreplyqueuename') +
        DESCR('For replies') +
        USAGE(NORMAL) +
        REPLACE
 DEFINE PROCESS('SEND.TO.mgr1') +
        DESCR('Process for sending messages to mgr1') +
        APPLTYPE(MVS) +
        APPLICID('CSQX START') +
        USERDATA('mgr2.TO.mgr1') REPLACE
 DEFINE QREMOTE('yourinputqueue') +
        DESCR('Queue for accessing INPUT QUEUE on mgr1') +
        PUT(ENABLED) +
        RQMNAME(mgr1) +
        RNAME('yourinputqueue') +
        XMITQ('mgr1') REPLACE
//DEFmgr1  EXEC PGM=CSQUTIL,PARM='mgr1'
//STEPLIB  DD  DISP=SHR,DSN=hlq.SCSQLOAD
//         DD  DISP=SHR,DSN=hlq.SCSQANLE
//         DD  DISP=SHR,DSN=hlq.SCSQAUTH
//SYSPRINT DD  SYSOUT=*
//SYSIN    DD  *
COMMAND DDNAME(INPUT)
//INPUT    DD  *
 DEFINE CHANNEL('mgr1.TO.mgr2') +
        CHLTYPE(SDR) +
        DESCR('Channel for sending messages to mgr2') +
        TRPTYPE(TCP) +
        XMITQ('mgr2') +
        DISCINT(600) +
        CONNAME('hostname2(ListnerPort2)') +
        REPLACE
 DEFINE CHANNEL('mgr2.TO.mgr1') +
        CHLTYPE(RCVR) +
        DESCR('Channel for receiving messages from mgr2') +
        TRPTYPE(TCP) +
        REPLACE
 DEFINE QLOCAL('yourinputqueue') +
        DESCR('For input to Local app') +
        USAGE(NORMAL) +
        REPLACE
 DEFINE QLOCAL('mgr2') +
        DESCR('Transmission queue for mgr2') +
        STGCLASS('REMOTE') +
        USAGE(XMITQ) +
        TRIGGER +
        TRIGTYPE(FIRST) +
        TRIGDPTH(1) +
        TRIGMPRI(0) +
        PROCESS('SEND.TO.mgr2') +
        INITQ('SYSTEM.CHANNEL.INITQ') +
        REPLACE
 DEFINE PROCESS('SEND.TO.mgr2') +
        DESCR('Process for sending messages to mgr2') +
        APPLTYPE(MVS) +
        APPLICID('CSQX START') +
        USERDATA('mgr1.TO.mgr2') REPLACE
 DEFINE QREMOTE('yourreplyqueuename') +
        DESCR('Queue for accessing yourreplyqueuename on mgr2') +
        PUT(ENABLED) +
        RNAME('yourreplyqueuename') +
        RQMNAME(mgr2) +
        XMITQ('mgr2') REPLACE
./ ADD NAME=ECHO
//ECHO      JOB
//RUNECHO  EXEC PGM=QECHO,PARM='mgr1,yourinputqueue'
//STEPLIB  DD   DISP=SHR,DSN=ABBYDALE.DEFCHAN.LOADLIB
//         DD   DISP=SHR,DSN=hlq.SCSQAUTH
//SYSPRINT DD   SYSOUT=*
./ ADD NAME=PUT
//PUT       JOB
//RUNPUT   EXEC PGM=QUEPUT,PARM='mgr2,yourinputqueue'
//STEPLIB  DD   DISP=SHR,DSN=ABBYDALE.DEFCHAN.LOADLIB
//         DD   DISP=SHR,DSN=hlq.SCSQAUTH
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
The Quick Brown Fox
Jumps Over The Lazy Dog
SHUT
./ ENDUP       "REVIEW" PDS MEMBER OFFLOAD AT 08:52 ON 21-01-01