IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

JCL to precompile COPYBOOKS


IBM Mainframe Forums -> CICS
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Wed Feb 13, 2008 11:25 am
Reply with quote

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
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6966
Location: porcelain throne

PostPosted: Wed Feb 13, 2008 12:57 pm
Reply with quote

start by reading the error message
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Wed Feb 13, 2008 1:40 pm
Reply with quote

Are you using Enterprise COBOL compiler? or Do you have a CICS translate step before compiler?
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Wed Feb 13, 2008 2:07 pm
Reply with quote

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


We have a CICS translate step before compilation....
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2358
Location: Israel

PostPosted: Wed Feb 13, 2008 2:34 pm
Reply with quote

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

O.
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Wed Feb 13, 2008 4:00 pm
Reply with quote

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. icon_smile.gif
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10872
Location: italy

PostPosted: Wed Feb 13, 2008 4:07 pm
Reply with quote

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
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Thu Feb 14, 2008 10:46 am
Reply with quote

agkshirsagar wrote:
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. icon_smile.gif


That is the exact problem that I am facing. I have to ask weather we have that enterprise COBOL compiler. If yes iu guess the problem will be solved. Thanks a lot guys! will keep u updated.
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Thu Feb 14, 2008 12:12 pm
Reply with quote

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


Hey guys,

Yes, we are using Enterprise COBOL compiler. We have a CICS translate step before Compiler... How to sort this issue then?

Can i get a JCL to precompile the Copybooks?
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Thu Feb 14, 2008 3:53 pm
Reply with quote

See this link
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Thu Feb 14, 2008 5:27 pm
Reply with quote

If some body could help me provide a jcl for compiling copybooks (precompiling). I searched a lot, but in vain. icon_sad.gif
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2501
Location: Atlanta, Georgia, USA

PostPosted: Thu Feb 14, 2008 6:20 pm
Reply with quote

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
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Thu Feb 14, 2008 7:24 pm
Reply with quote

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

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.
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Fri Feb 15, 2008 9:40 am
Reply with quote

agkshirsagar wrote:
anirudh1985 wrote:
If some body could help me provide a jcl for compiling copybooks (precompiling). I searched a lot, but in vain. icon_sad.gif

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.


Hey thanks a lot! will try that out and let u know. icon_biggrin.gif
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Fri Feb 15, 2008 2:42 pm
Reply with quote

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
//*
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Fri Feb 15, 2008 4:52 pm
Reply with quote

Quote:
Hey thanks a lot! will try that out and let u know.

From your last post, It looks like you haven't tried anything.
Back to top
View user's profile Send private message
anirudh1985
Currently Banned

New User


Joined: 22 Aug 2007
Posts: 66
Location: bangalore

PostPosted: Wed Feb 20, 2008 9:31 am
Reply with quote

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! icon_biggrin.gif
Back to top
View user's profile Send private message
agkshirsagar

Active Member


Joined: 27 Feb 2007
Posts: 691
Location: Earth

PostPosted: Wed Feb 20, 2008 1:28 pm
Reply with quote

Good to know that you were able to solve your problem. Thanks for getting back to us.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CICS

 


Similar Topics
Topic Forum Replies
No new posts JCL for pl1 db2 precompile, compile a... JCL & VSAM 4
This topic is locked: you cannot edit posts or make replies. Invoke REXX thru JCL to expand the co... CLIST & REXX 2
No new posts how to use RDZ for converting cobol c... CICS 1
This topic is locked: you cannot edit posts or make replies. Selecting two copybooks of different ... COBOL Programming 8
No new posts REXX-Undo Expanded copybooks statemen... TSO/ISPF 12
Search our Forums:

Back to Top