How to create a second options table?
Article ID: 26836
Updated On:
Products
Issue/Introduction
Release 11.x now allows for a second options table. How may a second option file be created for release 6.4?
Environment
Easytrieve Plus Report Generator, release 6.4
Resolution
The following job will create a second options table EZTPOPT for release 6.4.
It can be found in the SAMPJCL member name CA$AIJS3.
//EZTPIJ3 JOB (acct info),'CUSTOMIZE OPTIONS',
// CLASS=x,MSGCLASS=x,MSGLEVEL=(1,1)
//**************************************************************
//*
//* Install Execution Options Table into a NON-SMPE Library
//*
//* GenLevel -
//* change UPDTIDD to NO
//*
//*
//**************************************************************
//EZTPOPT PROC TGTHLQ='high.level.qualifier.target.libs',
// DFTUNIT='default.disk.unit',
// LOADLIB='your.user.library'
//*
//**************************************************************
//*
//* STEP: ASM
//* - ASSEMBLE EZTP OPTIONS TABLE
//*
//*
//**************************************************************
//ASM EXEC PGM=ASMA90,
// PARM='DECK,LIST'
//SYSLIB DD DSN=&TGTHLQ..CAIMAC,
// DISP=SHR
//SYSUT1 DD DSN=&&SYSUT1,UNIT=&DFTUNIT,
// SPACE=(CYL,(10,5))
//SYSLIN DD DSN=&&LOADSET,UNIT=&DFTUNIT,
// DISP=(MOD,PASS),DCB=BLKSIZE=3120,
// SPACE=(TRK,(10,5))
//SYSPUNCH DD DSN=&&PUNCH(EZTPOPT), DO NOT MODIFY MEMBER NAME
// UNIT=&DFTUNIT,DCB=BLKSIZE=3120,
// SPACE=(TRK,(10,5,2)),DISP=(NEW,PASS)
//SYSPRINT DD SYSOUT=*,DCB=(BLKSIZE=3509),
// UNIT=(,SEP=(SYSUT1,SYSPUNCH))
//*******************************************************************
//*
//* Link module EZTPOPT into a NON-SMP/E Library
//*
//* EXPECTED RETURN CODE: 0
//*
//*******************************************************************
//LKED EXEC PGM=IEWL,COND=(0,NE),
// PARM='LET,NORENT,NOREUS,NOREFR,LIST,MAP,NCAL,AMODE=24,RMODE=24'
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=&&PUNCH(EZTPOPT),DISP=(OLD,PASS)
//SYSLMOD DD DSN=&LOADLIB(EZTPOPT),
// DISP=SHR
//*
//*******************************************************************
//*
// PEND
//*
//************************************************************
//*
//* EXECUTE PROC
//*
//************************************************************
//*
//* Modify any Option by Overtyping the Current Value
//*
//************************************************************
//*
//EZTPOPT EXEC EZTPOPT
//ASM.SYSIN DD *
OPTTBL ABEXIT=SNAP, X
ACROSS=4, X
ALTSEQ=(NO,EZTPAQTT), X
BLOCK0=N, X
BUFNO=2, X
CALCDUP=NO, X
CLIST=NOCLIST, X
CMSVFM=A1, X
COMPNME='COMPUTER ASSOCIATES INTL. -FIELD INSTALLATION',X
COMPSTR=4K, X
DATE=MMDDYY, X
DATEADJ=0, X
DEVICE=DISK, X
DISK=3380, X
DLISQL=NO, X
DLIV=YES, X
DMAP=NODMAP, X
DOWN=6, X
DTLCTL=FIRST, X
ENVIRON=NONE, X
EXITSTR=8K, X
FLDCHK=FLDCHK, X
FLOW=NOFLOW, X
FLOWSIZ=100, X
IDDEXIT=NO, X
IDMSNAM=, X
LABLSIZ=30, X
LINESIZ=132, X
LIST=(PARM,FILE), X
LONGDTE=NO, X
MAC#LIB=1, X
MACDDN=PANDD, X
MACDEV=DISK, X
MACRO=(PAN,PANMODI), X
MACSYS#=0, X
MONEY=$, X
NEWPAGE=NO, X
NUMERIC=(COMMA,PERIOD), X
NUMWORK=3, X
PAGESIZ=(58,0), X
PAGEWRD=PAGE, X
PLACE=, X
PMAP=NOPMAP, X
PRESIZE=512, X
PREPNME=EASYPLUS, X
REWIND=YES, X
SCANCOL=(1,72), X
SEPDATE=/, X
SEPTIME=., X
SINXIT=, X
SKIP=0, X
SORTMSG=DEFAULT, X
SORTMSR=PRINTER, X
SORTNAM=SORT, X
SORTOPT=(NOTP,VIRTUAL,NODIAG,NOERASE), X
SORTPRT=SYSOUT, X
SORTRLS=0K, X
SORTSIZ=MAX, X
SORTWK#=(255,255,255,255,255,255,255,255), X
SORTWRK=SYSDA, X
SPACE=3, X
SPREAD=NO, X
SPRTXIT=, X
SQLBIND=, X
SQLSNTX=FULL, X
SSID=, X
STATE=STATE, X
STORMAX=, X
SUMCTL=HIAR, X
SUMSPAC=3, X
SYSTEM=OS, X
TALYSIZ=2, X
TBLMAX=256, X
TITLSKP=3, X
UPDTDLI=NO, X
UPDTIDD=NO, X
UPDTIDM=NO, X
UPDTVS=NO, X
USERMSK=, X
VERFILE=HIGHEST, X
VERPGM=HIGHEST, X
VERREC=HIGHEST, X
VERSCHM=HIGHEST, X
VFMDEV=DISK, X
VFMSPAC=64K, X
WKDSNPF=EZT, X
XREF=NOXREF
END
//************************************************************
The second option table has to be non-SMPE.
Feedback
