IBM PTF SF67624, iSeries, V5R1 manual Page 17 of

IBM Electronic Service Agent for iSeries and AS/400e

Simplified Activation User Guide – Release V5R1 - Revision 6.0

Highway 52 N' ROCHESTER USA 55901) +

LNGVER(2924) MEDPTF(*AUTOMATIC)

/********************************************************************/

/*	*/
/* Configure the ECS and Service Agent connections.	*/
/*	*/

/********************************************************************/

CRTSRVCFG CNNTYPE(*PTP) SERVICE(*SRVAGT) + REFSRVCFG(*ANY) CNTRYID(US) STATE(MN) + TELNBR1('9,397-0005') + TELNBR2('9,397-0005') RSRCNAME(CMN03) + MODEM('IBM 7852-400')

/********************************************************************/

/*		*/
/* Retrieve the days of the	week that can be used for CHGSD.	*/
/*		*/
/* Choose the day that best	fits the activity for my system.	*/
/* Use the &DAYS variable.	The first one is the first choice,	*/
/* second one is the second	choice, and so on.	*/
/*		*/

/********************************************************************/ QSVCDRCTR/RTVAUTODAY DAY1(&DAY1) DAY2(&DAY2) DAY3(&DAY3)

DAYLOOP:
IF	(&DAY1 *EQ (%SUBSTRING(&DAYS &DAYPTR 4)))
DO
CHGVAR	VAR(&DAY) VALUE(&DAY1)
GOTO ENDDAYLOOP
ENDDO
IF	(&DAY2 *EQ (%SUBSTRING(&DAYS &DAYPTR 4)))
DO
CHGVAR	VAR(&DAY) VALUE(&DAY2)
GOTO ENDDAYLOOP
ENDDO
IF	(&DAY3 *EQ (%SUBSTRING(&DAYS &DAYPTR 4)))
DO
CHGVAR	VAR(&DAY) VALUE(&DAY3)
GOTO ENDDAYLOOP
ENDDO
CHGVAR	VAR(&DAYPTR) VALUE(&DAYPTR+4)

GOTO DAYLOOP

ENDDAYLOOP:

/********************************************************************/

/*		*/
/*	Configure Service Agent hardware problem reporting using the	*/

/* day of the week that was		determined above and	the desired time.	*/
/*				*/
/* -- NOTE: Use this command only if you want to			override the	*/
/*	CHGSD defaults.			*/

/********************************************************************/

QSVCDRCTR/CHGSD RPTPRBAUTO(*YES) RPLFTR(*REPLACE) +

Page 17 of 19