Figure 1. IGYTPADD Sample JCL The job card and some of the JCL in IGYTPADD need to be modified to meet your site's requirements.

Note that the IGYTPADD job's userid must be authorized to APPC before running the job. The modifications you need to make are:

  1. The transaction name (line 9) in IGYTPADD must match the transaction name in IGYFINIT. If the transaction name in IGYTPADD is changed, it must also be changed in IGYFINIT (not recommended).
  2. The transaction class (line 15) should be defined as a class that has enough initiators to allow one for each user who will be using the Remote E/C/D feature of VisualAge for COBOL. The site's APPC administrator (probably the system programmer) needs to provide the transaction class to use (line 15 uses the default class).
  3. Update the job card (line 17) as needed for things like output classes, etc.
  4. The timeout value (line 19) can be adjusted to be any positive, whole number of minutes. By default the transaction (IGYFSERV) is set to timeout after 60 minutes of inactivity.

    If you attempt something on the workstation which uses this facility after it has timed out, there will be a delay of a few seconds while the server transaction is restarted.

  5. SYSPROC (line 20) should be allocated to the SIGYCLST data set, which is where IGYFINIT and IGYFSERV reside.
  6. SYSTSPRT (line 23) is normally discarded. However, if there are problems, it can be diverted to a data set (line 22) for analysis.


 1 //IGYFTPAD JOB (XX,YY),CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1)
 2 //*
 3 //TPADD    EXEC PGM=ATBSDFMU
 4 //SYSPRINT DD SYSOUT=*
 5 //SYSSDLIB DD DSN=SYS1.APPCTP,DISP=SHR
 6 //SYSSDOUT DD SYSOUT=*
 7 //SYSIN    DD DATA,DLM='QT'
 8      TPADD
 9        TPNAME(IGYFSERV)
10        ACTIVE(YES)
11        TPSCHED_DELIMITER(DLM1)
12        KEEP_MESSAGE_LOG(ERROR)
13        MESSAGE_DATA_SET(&SYSUID.IGYFSERV.&TPDATE.&TPTIME.LOG)
14        DATASET_STATUS(MOD)
15        CLASS(DEFAULT)
16        JCL_DELIMITER(DLM2)
17 //IGYFSERV  JOB
18 //*
19 //IKJACCNT  EXEC PGM=IKJEFT01,DYNAMNBR=50,PARM='%IGYFSERV TIMEOUT=60'
20 //SYSPROC   DD DSN=IGYV2R10.SIGYCLST,DISP=SHR
21 //SYSPRINT  DD SYSOUT=*
22 //* SYSTSPRT  DD DSN=&SYSUID..IGYFSERV.OUTPUT,DISP=SHR
23 //SYSTSPRT  DD SYSOUT=*
24 //SYSTSIN   DD DUMMY
25 DLM2
26 DLM1
27 QT