Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

JCL to precompile COPYBOOKS

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
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    Post subject: JCL to precompile COPYBOOKS
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    Post subject:
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: 685
Location: Earth

PostPosted: Wed Feb 13, 2008 1:40 pm    Post subject:
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    Post subject:
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: 2360
Location: Israel

PostPosted: Wed Feb 13, 2008 2:34 pm    Post subject:
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: 685
Location: Earth

PostPosted: Wed Feb 13, 2008 4:00 pm    Post subject:
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

Global Moderator


Joined: 14 Mar 2007
Posts: 10202
Location: italy

PostPosted: Wed Feb 13, 2008 4:07 pm    Post subject: Reply to: JCL to precompile COPYBOOKS
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    Post subject:
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    Post subject:
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: 685
Location: Earth

PostPosted: Thu Feb 14, 2008 3:53 pm    Post subject:
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    Post subject:
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: 2502
Location: Atlanta, Georgia, USA

PostPosted: Thu Feb 14, 2008 6:20 pm    Post subject: JCL to precompile COPYBOOKS
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: 685
Location: Earth

PostPosted: Thu Feb 14, 2008 7:24 pm    Post subject:
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    Post subject:
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    Post subject: Reply to: JCL to precompile COPYBOOKS
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: 685
Location: Earth

PostPosted: Fri Feb 15, 2008 4:52 pm    Post subject:
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    Post subject:
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: 685
Location: Earth

PostPosted: Wed Feb 20, 2008 1:28 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts REXX-Undo Expanded copybooks statemen... ezhavendhan TSO/ISPF 12 Mon Aug 19, 2013 7:52 pm
No new posts Expand COBOL copybooks and DCLGEN Mike 1304 COBOL Programming 17 Sun May 26, 2013 10:54 pm
No new posts Pre-compile: Assembler - DB2 precompi... dick scherrer JCL & VSAM 2 Mon Aug 27, 2012 2:04 pm
No new posts Using the 2 copybooks under one file ... Robert Sample COBOL Programming 8 Sat Jul 30, 2011 12:12 pm
No new posts DB2 precompile error when using CTE's... Satya Poola DB2 2 Thu Dec 30, 2010 11:31 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us