IBM AS/400e

IBM Electronic Service Agent for iSeries and AS/400e
Simplified Activation User Guide – Release V5R1 - Revision 6.0
Page 17 of 19
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) +