Fichero de configuración (CICS y Listener)
| //**********************************************************//
| //* THE FOLLOWING JOB DEFINES AND THEN LOADS THE VSAM *//
| //* FILE USED FOR CICS/TCP CONFIGURATION. THE JOBSTREAM *//
| //* CONSISTS OF THE FOLLOWING STEPS. *//
| //* 1). DELETE A CONFIGURATION FILE IF ONE EXISTS *//
| //* 2). DEFINE THE CONFIGURATION FILE TO VSAM *//
| //* 3). ASSEMBLE THE INITIALIZATION PROGRAM *//
| //* 4). LINK THE INITIALIZATION PROGRAM *//
| //* 5). EXECUTE THE INITIALIZATION PROGRAM TO LOAD THE *//
| //* FILE *//
| //**********************************************************//
| //CONFIG JOB MSGLEVEL=(1,1)
| //*
| //* THIS STEP DELETES AN OLD COPY OF THE FILE
| //* IF ONE IS THERE.
| //*
| //DEL EXEC PGM=IDCAMS
| //SYSPRINT DD SYSOUT=*
| //SYSIN DD *
| DELETE -
| CICS.TCP.CONFIG -
| PURGE -
| ERASE
| //*
| //* THIS STEP DEFINES THE NEW FILE
| //*
| //DEFILE EXEC PGM=IDCAMS
| //SYSPRINT DD SYSOUT=*
| //SYSIN DD *
| DEFINE CLUSTER (NAME(CICS.TCP.CONFIG) VOLUMES(CICSVOL) -
| CYL(1 1) -
| IMBED -
| RECORDSIZE(150 150) FREESPACE(0 15) -
| INDEXED ) -
| DATA ( -
| NAME(CICS.TCP.CONFIG.DATA) -
| KEYS (16 0) ) -
| INDEX ( -
| NAME(CICS.TCP.CONFIG.INDEX) )
| /*
| //* THIS STEP ASSEMBLES THE INITIALIZATION PROGRAM
| //PRGDEF EXEC PGM=IEV90,PARM='OBJECT,TERM',REGION=1024K
| //SYSLIB DD DISP=SHR,DSNAME=SYS1.MACLIB
| // DD DISP=SHR,DSNAME=TCPV32.SEZACMAC
| //SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(5,1))
| //SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
| //SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(2,1))
| //SYSPUNCH DD DISP=SHR,DSNAME=NULLFILE
| //SYSLIN DD DSNAME=&&OBJSET,DISP=(MOD,PASS),UNIT=SYSDA,
| // SPACE=(400,(500,50)),
| // DCB=(RECFM=FB,BLKSIZE=400,LRECL=80)
| //SYSTERM DD SYSOUT=*
| //SYSPRINT DD SYSOUT=*
| //SYSIN DD *
| EZACICD TYPE=INITIAL, Initialize generation environment X
| PRGNAME=EZACICDF, Name of the generated program X
| FILNAME=EZACONFG DD name of the configuration file
| EZACICD TYPE=CICS, Generate configuration record X
| APPLID=BMCIDATR, APPLID of CICS X
| TCPADDR=TCPIPROC, Address space name for TCP/IP X
| NTASKS=25, Number of reusable MVS subtasks X
| DPRTY=00, Priority difference (CICS-Subtask) X
| CACHMIN=10, Minimum refresh time for CACHE X
| CACHMAX=20, Maximum refresh time for CACHE X
| CACHRES=5, Maximum number of active resolvers X
| ERRORTD=TCPI Name of TD queue for error messages
| EZACICD TYPE=LISTENER, Create Listener Record X
| APPLID=BMCIDATR, APPLID of CICS X
| TRANID=ZTBA, Use standard transaction ID X
| PORT=7777, Use port number 7777 X
| BACKLOG=20, Set backlog value to 20 X
| TIMEOUT=30, Set timeout value to 30 seconds X
| GTIMEOT=10, Set givesocket timetout to 10 seconds X
| TRANTRN=NO, Translate TRNID Yes|No X
| ACCTIME=60, Timeout Value for ACCEPT X
| NUMSOCK=100, Support 99 concurrent connections X
| MINMSGL=4, Minimum input message is 4 bytes
| EZACICD TYPE=FINAL
| /*
| //* THIS STEP LINKS THE INITIALIZATION PROGRAM
| //LINK EXEC PGM=IEWL,PARM='LIST,MAP,XREF',
| // REGION=512K,COND=(4,LT)
| //SYSPRINT DD SYSOUT=*
| //SYSUT1 DD SPACE=(CYL,(5,1)),DISP=(NEW,PASS),UNIT=SYSDA
| //SYSLMOD DD DSNAME=&&LOADSET(PGM1),DISP=(MOD,PASS),UNIT=SYSDA,
| // SPACE=(TRK,(1,1,1)),
| // DCB=(DSORG=PO,RECFM=U,BLKSIZE=32760)
| //SYSLIN DD DSNAME=&&OBJSET,DISP=(OLD,DELETE)
| //* THIS STEP EXECUTES THE INITIALIZATION PROGRAM
| //FILELOAD EXEC PGM=*.LINK.SYSLMOD,COND=(4,LT)
| //EZACONFG DD DSNAME=CICS.TCP.CONFIG,DISP=OLD