Quite often, there are multiple teams of application programmers developing and testing their programs in the same CICS region. This can possibly lead to space problems with the CA InterTest for CICS (InterTest) symbolic file (PROTSYM) if there is only one file in use for everyone. Another disadvantage to the single PROTSYM file is that if something should happen to the file itself, multiple teams will be affected.
To avoid these potential problems and to separate the different symbolic files by function or group, one possibility to consider may be defining and using multiple PROTSYM files. As an example, you might have one symbolic file for test, development, and production in addition to a general PROTSYM file. You might want to use 4 files corresponding to their use such as PROTSYM (the default name), PROTTST, PROTDEV, and PROTPRD.
There are three requirements in order to define and use these files:
1. Define a unique FCT entry to CICS for each file: PROTSYM, PROTTST, PROTDEV, and PROTPRD. Bear in mind that the name cannot exceed 7 characters.
2. Add the DD NAME for each file to your CICS startup JCL
//PROTSYM DD
//PROTTST DD
//PROTDEV DD
//PROTPRD DD
3. Define the files to InterTest using the IN25OPTS keyword SYMFL.
The functionality of the job is twofold. It defines the files to InterTest and it
also establishes the search order that InterTest will use to find a program.
In this example, PROTSYM first, then PROTTST, etc.
//OPTSASM JOB
//ASM EXEC PGM=ASMA90,REGION=1024K,
// PARM='DECK,LIST,XREF(SHORT),ALIGN'
//SYSLIB DD DISP=SHR,DSN=CICS.SDFHMAC
// DD DISP=SHR,DSN=INTRTST.CABAMAC
// DD DISP=SHR,DSN=SYS.MACLIB
// DD DISP=SHR,DSN=SYS.AMODGEN
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSPUNCH DD DSN=&&OBJECT,DISP=(NEW,PASS),
// UNIT=SYSDA,SPACE=(TRK,(1,1)),
// DCB=BLKSIZE=3200
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
IN25OPTS TYPE=CSECT, X <col 72
SYMFL=(PROTSYM,PROTTST,PROTDEV,PROTPRD)
IN25OPTS TYPE=FINAL
END
/*
//LKED EXEC PGM=IEWL,REGION=2M,
// PARM='LIST,MAP,XREF,AMODE(31),NORENT,REUS'
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD DD DISP=SHR,DSN=INTRTST.CABALOAD(IN25OPTS)
//SYSLIN DD DISP=(OLD,DELETE),DSN=&&OBJECT
/*
The IN25OPTS macro and the keyword definitions can be found in the CA InterTest for CICS Installation Guide and/or the the CA Symdump for CICS Installation Guide. If both products are installed in the same CICS region, the Options and files need only be defined once and shared between them.