Filter
Top Products
Starting an AS/400 Adapter after an IPL
Two methods can be used to automatically start an AS/400 message adapter after
an IPL:
v Adding an autostart job to a job queue
v Modifying the AS/400 start-up program to call the STRTECADP command
Adding an Autostart Job to QSYSWRK
1. Create a CL program that invokes the STRTECADP command, for example:
a. Edit a source file member to add CL statements:
STRSEU QGPL/QCLSRC STRADPCL
b. Enter the following in the source file member. You can have a STRTECADP
command for each adapter you would like to start:
PGM
STRTECADP EVTADP(SYSOPR) +
CFGFILE(’/QSYS.LIB/QUSRSYS.LIB/CFG_MSG.FILE/MSGCFG.MBR’)
ENDPGM
Note: Ensure that TCP/IP service is started on the AS/400 system before
starting a message adapter.
c. Create the program using the previous source member:
CRTCLPGM PGM(QGPL/STRADPCL) SRCFILE(QGPL/QCLSRC)
2. Create a job description that calls the previous program and use QSYSNOMAX
as the Job Queue:
CRTJOBD JOBD(QGPL/STARTADP)
JOBQ(QSYSNOMAX)
TEXT(’Start TEC adapter after IPL.’)
RQSDTA(’CALL QGPL/STRADPCL’)
3. Add an auto-start job entry in QSYSWRK using the previous job description:
ADDAJE SBSD(QSYSWRK) JOB(TECAMSGQ) JOBD(QGPL/STARTADP)
This program runs at the start of QSYSWRK subsystem and ends quickly after
doing the STRTECADP command.
Changing the AS/400 Startup Program
The system value QSTRUPPGM (start-up program) contains the name of the
program to execute after IPL. This program can be modified to add the starting of
adapters.
1. Retrieve the code in the start-up program:
RTVCLSRC PGM(QSYS/program-name) SRCFILE(QGPL/QCLSRC)
SRCMBR(program-name)
2. Modify the source:
PGM
DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1)
DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20)
QSYS/STRSBS SBSD(QCMN)
STRTCP
MONMSG MSGID(CPF0000)
QSYS/STRSBS SBSD(QSERVER)
MONMSG MSGID(CPF0000)
STRTECADP EVTADP(SYSOPR)+
CFGFILE(’/QSYS.LIB/QUSRSYS.LIB/CFG_MSG.FILE/MSGCDS.MBR’)
MONMSG MSGID(CPF0000)
52 IBM Tivoli Enterprise Console: Adapters Guide