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) +
/********************************************************************/
/* |
| */ |
/* 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. | */ | |
/* |
|
|
| */ |
/* | override the | */ | ||
/* | CHGSD defaults. |
|
| */ |
/********************************************************************/
QSVCDRCTR/CHGSD RPTPRBAUTO(*YES) RPLFTR(*REPLACE) +
Page 17 of 19