IBM Electronic Service Agent for iSeries and AS/400e
Simplified Activation User Guide – Release V5R1 - Revision 6.0
Appendix B. Sample CL Program for Batch Activation
/********************************************************************/
/* | */ |
/* A sample program that illustrates how to activate | */ |
/* Electronic Service Agent. | */ |
/* | */ |
/********************************************************************/
/* |
|
| */ |
/* THIS CODE IS | PROVIDED AS A SAMPLE AND IS NOT INTENDED | */ | |
/* TO BE SUPPORTED | BY IBM. THIS IS SUPPLIED ON AN | */ | |
/* BASIS AND IT | IS | THE END USER'S RESPONSIBILITY TO ENSURE | */ |
/* THE ACCURACY | OF | THE PROGRAM IN THEIR ENVIRONMENT. | */ |
/* |
|
| */ |
/********************************************************************/
/* |
| */ |
/* Before using a program, the International License Agreement for | */ | |
/* Services Programs must be accepted. To accept the license | */ | |
/* agreement, do one of the following: | */ | |
/* 1. On a command line, enter GO SERVICE. Choose 'Display Service | */ | |
/* | Agent license agreement. Read the agreement and press F6 to | */ |
/* | accept. | */ |
/* 2. On a command line, enter QSVCDRCTR/ACPTSALIC. Read the | */ | |
/* | agreement and press F6 to accept. | */ |
/* |
| */ |
/* See the Electronic Service Agent User Guide for other | */ | |
/* requirements, such as authorities and system values. | */ | |
/* |
| */ |
/********************************************************************/
PGM
/********************************************************************/
/* |
| */ |
/* The following variables are | used to retrieve the possible | */ |
/* days to be used as input to | the QSVCDRCTR/CHGSD AUTOPTF and | */ |
/* AUTOTEST parameters. |
| */ |
/* |
| */ |
/********************************************************************/
DCL | VAR(&DAY1) TYPE(*CHAR) LEN(4) | |
DCL | VAR(&DAY2) TYPE(*CHAR) LEN(4) | |
DCL | VAR(&DAY3) | TYPE(*CHAR) LEN(4) |
DCL | VAR(&DAY) | TYPE(*CHAR) LEN(4) |
DCL | VAR(&DAYS) TYPE(*CHAR) LEN(28) + | |
| VALUE('*WED*THU*FRI*SAT*SUN*MON*TUE') | |
DCL | VAR(&DAYPTR) TYPE(*DEC) LEN(1 0) VALUE(1) | |
/********************************************************************/
/* | */ |
/* Change the contact information. | */ |
/* | */ |
/********************************************************************/ ADDCNTINF CMPNY(IBM) CONTACT('J Smith') +
Page 16 of 19