JCL to precompile COPYBOOKS

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Hi all,

I have a set of Online COBOL-CICS programs which have around 97 copybooks.. These copybooks have EXEC statements which are not getting translated as the copybooks are getting compiled only after translation... It is giving the follwing error:

IGYPS0228-S An "EXEC CICS" statement was found, but the "CICS"
compiler option was not in effect. The statement was discarded.
Can anybody tell me how to go abt this?

Regards,
Ani

dbzTHEdinosauer · Posted: Wed Feb 13, 2008 12:57 pm

start by reading the error message

agkshirsagar · Posted: Wed Feb 13, 2008 1:40 pm

Are you using Enterprise COBOL compiler? or Do you have a CICS translate step before compiler?

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

ofer71 · Posted: Wed Feb 13, 2008 2:34 pm

Try the new integrated precompiler/translator/compiler...

O.

agkshirsagar · Posted: Wed Feb 13, 2008 4:00 pm

CICS translator can not resolve EXEC CICS statement present in copybooks as COPY statements are processed by compiler and it is step after the Translator, may be this is your problem.

Try to follow ofer's sugestion if you have enterprise cobol compiler in your shop otherwise manually copy all the copybooks in the source.

If your shop uses Panvalet for source management , use ++INCLUDE instead of COPY.
Do let know which of these ways work for you.

enrico-sorichetti · Posted: Wed Feb 13, 2008 4:07 pm

or check the isrlemx utility from ispf

http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/ispusr03/2.5.4?ACTION=MATCHES&REQUEST=isrlemx&TYPE=FUZZY&SHELF=ISPBKM08.bks&DT=19990728142027&CASE=&searchTopic=TOPIC&searchText=TEXT&searchIndex=INDEX&rank=RANK&ScrollTOP=FIRSTHIT#FIRSTHIT

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

agkshirsagar · Posted: Thu Feb 14, 2008 3:53 pm

See this link

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

If some body could help me provide a jcl for compiling copybooks (precompiling). I searched a lot, but in vain.

Bill O'Boyle · Posted: Thu Feb 14, 2008 6:20 pm

By chance, is this for VisionPlus/PaySys?

If so, they should be able to assist you.

The reason I ask is because they began using pre-translated (not compiled) copybooks in the late 1980's as the norm and store these translated copybooks in a separate copylib, which is then used in the SYSLIB concatenation step of a compile/assembly.

Regards,

Bill

agkshirsagar · Posted: Thu Feb 14, 2008 7:24 pm

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

The following is the entire proc that we have. Can any one suggest me as to where i make the changes.

//COB2CICS PROC INLIB='ADMS.BASE.SOURCE',
// COPYLIB='ADMS.MLOGIC.COPYBOOK',
// RPLLIB='ADMS.CICSA1.LOAD',
// MEM=,
// DB2VER=DSN810,
// LNGPRFX='IGY',SYSLBLK=3200,
// LIBPRFX='CEE', <<LANGUAGE ENVIRONMENT>>
// INDEX2='CICSTS31.CICS',
// OUTC=*,REG=4096K,SUFFIX=1$
//*
//*
//* - CICS TRANSLATION STEP,
//* - IBM COBOL COMPILE (COB),
//* - REBLOCK CICS STUB,
//* - AND LINK EDIT (LKED)
//*
//********************************************************************
//* CICS TRANSLATOR *
//********************************************************************
//TRN EXEC PGM=DFHECP&SUFFIX,REGION=&REG,
// PARM='COBOL3,LANGLVL(2),NODEBUG,SOURCE,SP,NOOPT'
//STEPLIB DD DSN=&INDEX2..SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=&OUTC
//SYSPUNCH DD DSN=&&SYSCIN,DISP=(,PASS),
// UNIT=SYSDA,DCB=BLKSIZE=400,
// SPACE=(400,(400,400))
//SYSIN DD DSN=&INLIB(&MEM),DISP=SHR
//*
//********************************************************************
//* COMPILE THE NEW MODIFIED SOURCE FROM THE TRANSLATE STEP *
//********************************************************************
//COB EXEC PGM=IGYCRCTL,REGION=2048K,
// PARM='NODYNAM,LIB,OBJECT,LIST,APOST,MAP,XREF,NOSEQUENCE',
// COND=(4,LT,TRN)
//STEPLIB DD DSNAME=&LNGPRFX..SIGYCOMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIB DD DSN=&COPYLIB,DISP=SHR <== COPY LIB
// DD DSN=&INDEX2..SDFHCOB,DISP=SHR
// DD DSN=&INDEX2..SDFHMAC,DISP=SHR
//SYSLIN DD DSNAME=&&LOADSET,UNIT=SYSDA,
// DISP=(MOD,PASS),SPACE=(CYL,(1,1)),
// DCB=(BLKSIZE=&SYSLBLK)
//SYSUT1 DD SPACE=(TRK,(5,2))
//SYSUT2 DD SPACE=(TRK,(5,2))
//SYSUT3 DD SPACE=(TRK,(5,2))
//SYSUT4 DD SPACE=(TRK,(5,2))
//SYSUT5 DD SPACE=(TRK,(5,2))
//SYSUT6 DD SPACE=(TRK,(5,2))
//SYSUT7 DD SPACE=(TRK,(5,2))
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//*
//********************************************************************
//* MAKE SURE THE SYSTEM CICS STUB IS BLOCKSIZE WE CAN USE *
//********************************************************************
//CPY4LNK EXEC PGM=IEBGENER,COND=(7,LT,COB)
//SYSUT1 DD DSN=&INDEX2..SDFHCOB(DFHEILIC),DISP=SHR
//SYSUT2 DD UNIT=SYSDA,DSN=&&EI1STUB,DISP=(,PASS),
// DCB=(LRECL=80,BLKSIZE=400,RECFM=FB),SPACE=(400,(20,20))
//SYSPRINT DD SYSOUT=*
//SYSIN DD DUMMY
//*
//********************************************************************
//* LINKEDIT OUTPUT FROM CPY4LNK & SYSIN OVERRIDE *
//********************************************************************
//LKED EXEC PGM=IEWL,COND=(8,LT,COB),REGION=1024K
//SYSLIB DD DSNAME=&INDEX2..SDFHLOAD,DISP=SHR
// DD DSNAME=&LIBPRFX..SCEERUN,DISP=SHR
// DD DSNAME=&LIBPRFX..SCEELKED,DISP=SHR
// DD DSNAME=&LIBPRFX..SCEECICS,DISP=SHR
// DD DSNAME=&DB2VER..SDSNLOAD,DISP=SHR
//*
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&EI1STUB,DISP=(OLD,DELETE)
// DD DSN=&&LOADSET,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//*YSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
//SYSLMOD DD DSNAME=&RPLLIB(&MEM),DISP=SHR
//*
//*<= LKED.SYSIN SHOULD OVERLOAD DSNCLI & PGMNAME
//SYSIN DD DUMMY
//*
// PEND <= END OF DB2CICSC PROC
//*

agkshirsagar · Posted: Fri Feb 15, 2008 4:52 pm

anirudh1985 · New User Joined: 22 Aug 2007 Posts: 66 Location: bangalore

Modify your existing JCL. Remove the translate step. Add the CICS compiler option to the Compiler step. I have given the link in my last post which tells more about integrated translator/compiler. Nobody will give you ready made JCL, you have to do it yourself as this whole process should take 5 mins.[/quote]

Hey,
I followed the same methodology as said by you. I modified the existing JCL and precompiled the copybooks. They are working fine now. Thanks a lot!

agkshirsagar · Posted: Wed Feb 20, 2008 1:28 pm

Good to know that you were able to solve your problem. Thanks for getting back to us.