The ARGENT Subsystem
A subsystem description object is supplied with the Argent Agent for iSeries. The subsystem is named ARGENT and resides in library ARGENT. This subsystem description object contains a job queue entry specifying a job queue named ARGENT. The default job description object is also named ARGENT and references job queue ARGENT.
When you first install and configure the Argent Agent for iSeries, Argent strongly recommends that you perform your initial deployment and testing using the ARGENT subsystem. It is suitable for use in most environments and is compatible with your existing system management policies.
Note: only advanced iSeries work management experts should change or modify the ARGENT subsystem description object.
The ARGENT subsystem contains an auto-start job entry which invokes the Argent Agent for iSeries. When you issue the
STRSBS ARGENT/ARGENT
command, the ARGENT subsystem is started, and the Argent Agent for iSeries is started automatically.
When you issue the
ENDSBS ARGENT
command or the PWRDWNSYS command, the subsystem will end in accordance with IBM’s design and documentation for these commands. If the Argent Agent for iSeries is active at the time the ENDSBS command or the PWRDWNSYS command is issued, the resulting termination of the agent is considered to be abnormal. The messages sent to the Argent Agent for iSeries message queue and the log file will reflect this.
Modifying The iSeries IPL Start Up Program
This section is intended for use by advanced iSeries system programming and administration experts only and should not be used without the involvement and agreement of the security officer and IT administrators for the system.
This section also assumes the availability of the IBM-provided source code editing tools and the Control Language (C/L) compiler.
IBM’s documentation for the iSeries shows how to modify the IPL start up program. Before beginning any activities described in this section, please reference the IBM documentation at:
http://publib.boulder.ibm.com/iseries/v5r1/ic2924/index.htm?info/rzal2/rzal2chgiplstartup.htm
Retrieving The C/L Source
You can use the
RTVCLSRC PGM(QSYS/QSTRUP) SRCFILE(QGPL/QCLSRC) SRCMBR(*PGM)
command to retrieve the source for the IPL start up program and edit the source using the
WRKMBRPDM FILE(QGPL/QCLSRC) MBR(QSTRUP)
command. The source member should appear similar to the following:
/********************************************************************/ /* */ /* 5722SS1 V5R3M0 040528 RTVCLSRC Output 01/09/06 14:49:03 */ /* */ /* Program name . . . . . . . . . . . . . . : QSTRUP PN*/ /* Library name . . . . . . . . . . . . . . : QSYS PL*/ /* Original source file . . . . . . . . . . : S000039122 SN*/ /* Library name . . . . . . . . . . . . . . : $BLDSS1 SL*/ /* Original source member . . . . . . . . . : S000039122 SM*/ /* Source file change */ /* date/time . . . . . . . . . . . . . . : 11/30/03 20:06:43 SC*/ /* Patch option . . . . . . . . . . . . . . : *NOPATCH PO*/ /* User profile . . . . . . . . . . . . . . : *USER UP*/ /* Text . . . : TX*/ /* Owner . . . . . . . . . . . . . . . . . : QSYS OW*/ /* Patch change ID . . . . . . . . . . . . : PC*/ /* Patch APAR ID . . . . . . . . . . . . . : PA*/ /* User mod flag . . . . . . . . . . . . . : *NO UM*/ /* ED*/ /********************************************************************/ PGM DCL VAR(&STRWTRS) TYPE(*CHAR) LEN(1) DCL VAR(&CTLSBSD) TYPE(*CHAR) LEN(20) DCL VAR(&CPYR) TYPE(*CHAR) LEN(90) VALUE('5722-SS1 (C) COPYRIGHT- IBM CORP 1980, 2000. LICENSED MATERIAL - PROGRAM PROPERTY OF IBM') QSYS/STRSBS SBSD(QSERVER) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QUSRWRK) MONMSG MSGID(CPF0000) QSYS/RLSJOBQ JOBQ(QGPL/QS36MRT) MONMSG MSGID(CPF0000) QSYS/RLSJOBQ JOBQ(QGPL/QS36EVOKE) MONMSG MSGID(CPF0000) QSYS/STRCLNUP MONMSG MSGID(CPF0000) QSYS/RTVSYSVAL SYSVAL(QCTLSBSD) RTNVAR(&CTLSBSD) IF COND((&CTLSBSD *NE 'QCTL QSYS ') *AND (&CTLSBSD *NE- 'QCTL QGPL ')) THEN(GOTO CMDLBL(DONE)) QSYS/STRSBS SBSD(QINTER) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QBATCH) MONMSG MSGID(CPF0000) QSYS/STRSBS SBSD(QCMN) MONMSG MSGID(CPF0000) DONE: QSYS/STRSBS SBSD(QSPL) MONMSG MSGID(CPF0000) QSYS/RTVSYSVAL SYSVAL(QSTRPRTWTR) RTNVAR(&STRWTRS) IF COND(&STRWTRS = '0') THEN(GOTO CMDLBL(NOWTRS)) CALL PGM(QSYS/QWCSWTRS) MONMSG MSGID(CPF0000) NOWTRS: RETURN CHGVAR VAR(&CPYR) VALUE(&CPYR) ENDPGM
To modify the system’s IPL start up program to automatically start the ARGENT subsystem, you will need to change and re-compile this program.
Modifying The C/L Source
The change that’s needed is simply to insert the following two lines in the program immediately after the NOWTRS: tag and before the RETURN statement:
QSYS/STRSBS SBSD(ARGENT/ARGENT)
MONMSG MSGID(CPF0000)
After successfully making the source code change, the relevant segment of the program should look like this
CALL PGM(QSYS/QWCSWTRS) MONMSG MSGID(CPF0000) NOWTRS: QSYS/STRSBS SBSD(ARGENT/ARGENT) MONMSG MSGID(CPF0000) RETURN CHGVAR VAR(&CPYR) VALUE(&CPYR)
Re-Compiling The IPL Start Up Program
After you end your edit session, you can compile the program with the following command:
CRTCLPGM QSYS/QSTRUP QGPL/QCLSRC
The next time the system is re-IPLE’ed, the ARGENT subsystem will be started, and the Argent Agent for iSeries will automatically start.