Note that the IGYTPADD job's userid must be authorized to APPC before running the job. The modifications you need to make are:
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.
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 |