By default, the EASYCOM Job is launched by the daemon program EASYCOMD running in the EASYCOM subsystem.
EASYCOMD searches for a program named EACTCP003 that allows to customize connection check. This program EACTCP003 can be in the library list or in the Easycom library.
So, it is possible to customize security by simply creating a EACTCP003 program.
EACTCP003 program interface (CL)
PGM
PARM(&TPPGM &TPLIB &USER &EAC_PARM1 + &EAC_PARM2
&RMT_ADR &JOBNAME)
DCL VAR(&TPPGM) TYPE(*CHAR) LEN(10)
DCL VAR(&TPLIB) TYPE(*CHAR) LEN(10)
DCL VAR(&USER) TYPE(*CHAR) LEN(10)
DCL VAR(&EAC_PARM1) TYPE(*CHAR) LEN(30)
DCL VAR(&EAC_PARM2) TYPE(*CHAR) LEN(30)
DCL VAR(&RMT_ADR) TYPE(*CHAR) LEN(50)
DCL VAR(&JOBNAME) TYPE(*CHAR) LEN(10)
Short description of each parameter
• TPPGM : Target Program Name
Name for the server program that will be launched. Default is Easycom.
• TPLIB : Library where TPPGM is
Location of the server program.
• USER : User Name
User Name for the new connecting client (can be used to allow only a set of users)
• EAC_PARM1 : Parm 1 to send to the TPPGM
Parameter to give if you make the SBMJOB yourself.
• EAC_PARM2 : Parm 2 to send to the TPPGM
Parameter to give if you make the SBMJOB yourself.
• RMT_ADR : TCP/IP adrress of the caller
TCP/IP Address of the caller (can be used to allow only a set of workstations)
• JOBNAME : Job Name for the SBMJOB
Name for the job that will be in the Easycom subsystem. Default is workstation name.
If this JOBNAME is changed to *NO, the EASYCOM job will not be started.
If this JOBNAME is changed to *YES, the EASYCOM job will be accepted, but not the EASYCOM job is supposed to be started by EACTCP003 program.
Example
EACTCP003 can check the authorization of the user and his TCP/IP address, and then it can do one of the following:
• Give authorization to run :
EACTCP003 leaves the variable &JOBNAME as it is, or change it to another job name, and then exit normally.
EASYCOMD will launch the target program with this new name.
• Denny the execution:
EACTCP003 changes the value of &JOBNAME to ‘*NO’, and then exit normally.
CHGVAR VAR(&JOBNAME) VALUE('*NO')
• Launch itself the target program:
EACTCP003 launches the target program by a SBMJOB and changes the value of &JOBNAME to ‘*YES’.
CHGVAR VAR(&JOBNAME) VALUE('*YES')
SBMJOB CMD ( CALL PGM(&TPLIB/&TPPGM)+
PARM (&EAC_PARM1&EAC_PARM2))
JOBD(&TPLIB/EACJOBD) +
USER(&USER) RTGDTA(*JOBD)