Instructions to set up E3COMSERV job:
1. Create Job Queue
CRTJOBQ JOBQ(QGPL/QCMN)
2. Create Job Description
CRTJOBD JOBD(QGPL/QCMN) JOBQ(QGPL/QCMN) RTGDTA(QCMDB)
3. Associate QCMN job queue with the subsystem
ADDJOBQE SBSD(QCMN) JOBQ(QGPL/QCMN) MAXACT(100)
4. Register the listen port in the server table
ADDSRVTBLE SERVICE('e3-comm-server') PORT(07100) PROTOCOL(TCP) TEXT('E3 Communication Server')
To view this job on the system:
1. Do WRKSRVTBLE to find "e3-comm-server" in list
2. Select option 5 to view how the job is set up
5. Pre-Start Job entry list - remove old version if necessary
RMVPJE SBSD(QCMN) PGM(E3SIGNON/E3QCSVR)
6. Add pre-start job to the QCMN subsystem
ADDPJE SBSD(QCMN) PGM(E3SIGNON/E3QCSVR) INLJOBS(1) THRESHOLD(1) JOB(E3COMSERV) JOBD(QCMN) CLS(QSYS/QBATCH) USER(E3SRV) ADLJOBS(0)
CLS(QSYS/QBATCH)
7. Add to startup procedure that is run after each IPL on AS/400
STRHOSTSVR SERVER(*SVRMAP)
(Starts job QZSOSMAPD in subsystem QSYSWRK, runs under QUSER id)
If STRHOSTSVR does not work, then
- Check to make sure that TCPIP is started up before QCMN is started
- If TCP is not started then QCMN will try to start E3COMSERV then immediately end
- To correct add STRTCP to the AS/400 startup procedure
Find name of the startup procedure
- DSPSYSVAL QSTRUPPGM
8. Confirm the Pre-start job entry E3QCSVR is active in QCMN.
- Enter DSPSBSD QCMN
- Select option 10 to view the pre-start job entries
- To start E3COMSERV
STRPJ SBS(QCMN) PGM(E3SIGNON/E3QCSVR)
