IBM AS/400e

IBM Electronic Service Agent for iSeries and AS/400e
Simplified Activation User Guide – Release V5R1 - Revision 6.0
Page 16 of 19
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 AS-IS */
/* 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') +
TELNBR('000-555-1234') MAILADDR('3605 +