Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Parameters passed for Translator Step for PL1-CICS-DB2

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> PL/I & Assembler
View previous topic :: :: View next topic  
Author Message
abhilash g s

New User


Joined: 27 Apr 2007
Posts: 37
Location: bangalore

PostPosted: Tue Sep 30, 2008 3:30 pm    Post subject: Parameters passed for Translator Step for PL1-CICS-DB2
Reply with quote

Hi All,

What are the Parameters passed for Translator Step for PL1-CICS-DB2 Program.?
Thank you in Advance.

Cheers,
Abhilash G S
Back to top
View user's profile Send private message

Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8166
Location: East Dubuque, Illinois, USA

PostPosted: Tue Sep 30, 2008 5:08 pm    Post subject:
Reply with quote

Different sites set parameters differently. You really need to talk to your systems support personnel to find out what is used at your site.
Back to top
View user's profile Send private message
abhilash g s

New User


Joined: 27 Apr 2007
Posts: 37
Location: bangalore

PostPosted: Tue Sep 30, 2008 5:25 pm    Post subject: Reply to: Parameters passed for Translator Step for PL1-CICS
Reply with quote

Hi,

Thanks a Lot for your Prompt reply.
Can u tell me on what basis its decided?

Cheers,
Abhilash G S
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8166
Location: East Dubuque, Illinois, USA

PostPosted: Tue Sep 30, 2008 5:34 pm    Post subject:
Reply with quote

Site requirements, management preferences, use of specialized functions, personal preferences -- any or all of the above.
Back to top
View user's profile Send private message
abhilash g s

New User


Joined: 27 Apr 2007
Posts: 37
Location: bangalore

PostPosted: Tue Sep 30, 2008 5:52 pm    Post subject: Reply to: Parameters passed for Translator Step for PL1-CICS
Reply with quote

hi,
this is the PROC i am using is this fine?
//PLIDB2C PROC INLIB='ADMS.BASE.SOURCE',
// SRCLIB='ADMS.BASE.DCLGEN',
// COPYLIB='ADMS.BASE.COPYLIB',
// DBRMLIB='ADMS.BASE.DBRMLIB',
// RPLLIB='ADMS.CICSA1.LOAD',
// MEM=,
// DB2VER=DSN810,WKSPC=500,
//* LNGPRFX='IGY',SYSLBLK=3200,
// LIBPRFX='CEE', <<LANGUAGE ENVIRONMENT>>
// INDEX2='CICSTS31.CICS',SPC=10,
// OUTC=*,REG=4096K,SUFFIX=1$
//*
//*
//* - DB2 PRECOMPILE (PC),
//* - CICS TRANSLATION STEP,
//* - IBM COBOL COMPILE (COB),
//* - REBLOCK CICS STUB,
//* - PRELINK (PLKED),
//* - AND LINK EDIT (LKED) A DB2 SQL PROGRAM.
//*
//********************************************************************
//* DB2 PRECOMPILE OF THE IBM COBOL PROGRAM *
//********************************************************************
//PC EXEC PGM=DSNHPC,PARM='HOST(PLI),SOURCE,TWOPASS',REGION=4096K
//DBRMLIB DD DSN=&DBRMLIB(&MEM),DISP=SHR <== DB2 ACESS
//STEPLIB DD DISP=SHR,DSN=SYS1.&DB2VER..SDSNEXIT
// DD DISP=SHR,DSN=&DB2VER..SDSNLOAD
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS), <==
// UNIT=SYSDA,SPACE=(800,(&WKSPC,&WKSPC))
//SYSLIB DD DSN=&SRCLIB,DISP=SHR <== DCLGEN
// DD DSN=&COPYLIB,DISP=SHR <== COPYLIB
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(&WKSPC,&WKSPC),,,ROUND),UNIT=SYSDA
//SYSIN DD DSN=&INLIB(&MEM),DISP=SHR
//*
//********************************************************************
//* PASS THE OUTPUT OF PRECOMPILE TO CICS TRANSLATOR *
//********************************************************************
//TRN EXEC PGM=DFHEPP&SUFFIX,REGION=&REG,COND=(4,LT,PC),
// PARM='SOURCE,OPTIONS,CICS'
//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=&&DSNHOUT,DISP=OLD
//********************************************************************
//* COMPILE THE NEW MODIFIED SOURCE FROM THE TRANSLATE STEP *
//********************************************************************
//PLI EXEC PGM=IBMZPLI,REGION=0M,
// PARM='COMPILE,INCLUDE,LIST,SOURCE,MACRO',
// COND=(4,LT,TRN)
//STEPLIB DD DSN=IBMZ.SIBMZCMP,DISP=SHR
//SYSLIB DD DSN=&COPYLIB,DISP=SHR
// DD DSN=&INDEX2..SDFHMAC,DISP=SHR
// DD DSN=&INDEX2..SDFHSAMP,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSTERM DD SYSOUT=*
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(TRK,(&SPC,&SPC))
//SYSIN DD DSN=&&DSNHOUT,DISP=(OLD,DELETE)
//SYSUT1 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT6 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//SYSUT7 DD SPACE=(800,(&SPC,&SPC),,,ROUND),UNIT=SYSDA
//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,PLI)
//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,PLI),REGION=1024K,
// PARM='LIST,XREF,LET,MAP,RENT,RMODE=ANY,AMODE=31'
//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
//SYSUT1 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
//*

Thank you.

Cheers,
Abhilash G S
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8166
Location: East Dubuque, Illinois, USA

PostPosted: Tue Sep 30, 2008 6:00 pm    Post subject:
Reply with quote

It's fine by me, especially since I don't have DB2 at my site. Whether or not it is acceptable for your site depends upon your site standards. You cannot tell from this forum whether or not your JCL meets your site standards -- only your site support personnel can tell you that.
Back to top
View user's profile Send private message
abhilash g s

New User


Joined: 27 Apr 2007
Posts: 37
Location: bangalore

PostPosted: Tue Sep 30, 2008 6:05 pm    Post subject: Reply to: Parameters passed for Translator Step for PL1-CICS
Reply with quote

hi,

bcos i am getting this error after submitting the job
IBM1866I S 65.0 The EXEC statement is not supported.
IBM1866I S 71.0 The EXEC statement is not supported.
IBM1866I S 74.0 The EXEC statement is not supported.
IBM1866I S 141.0 The EXEC statement is not supported.
IBM1866I S 144.0 The EXEC statement is not supported.

Cheers,
Abhilash G S
Back to top
View user's profile Send private message
Robert Sample

Global Moderator


Joined: 06 Jun 2008
Posts: 8166
Location: East Dubuque, Illinois, USA

PostPosted: Tue Sep 30, 2008 6:32 pm    Post subject:
Reply with quote

These are PL/I error messages that have no relationship to the provided PROC; you started by asking about translator parameters and all of a sudden you've got error messages to decipher.

I suspect the precompile step is failing and not translating the EXEC statements correctly, but since you didn't post anything except the error messages all I can do is guess.
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


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

PostPosted: Tue Sep 30, 2008 9:04 pm    Post subject: Re: Parameters passed for Translator Step for PL1-CICS-DB2
Reply with quote

CICS-PL/I statements require a semi-colon to inform the translator that this is the end of the EXEC CICS command.

CICS/COBOL uses END-EXEC and CICS/ASSEMBLER doesn't have a continuation character is position 72.

Verify you have these semi-colons.

Regards,

Bill
Back to top
View user's profile Send private message
abhilash g s

New User


Joined: 27 Apr 2007
Posts: 37
Location: bangalore

PostPosted: Wed Oct 01, 2008 8:49 am    Post subject: Reply to: Parameters passed for Translator Step for PL1-CICS
Reply with quote

hi,

As u told, the END-EXEC statements are replaced by ;.
and when we run the job, the step PC and TRAN are executed with Maxcc=0.

Cheers,
Abhilash G S[/b]
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 -> PL/I & Assembler All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Identifying Interfaces in CICS/mainframe Ashishpanpaliya CICS 5 Fri Oct 13, 2017 3:21 pm
No new posts Accessing CICS tran with map from JCL... navdeepaggarwal CICS 5 Tue Oct 03, 2017 6:15 pm
No new posts Execute JCL step based on the content... sprikitik JCL & VSAM 2 Tue Oct 03, 2017 10:03 am
This topic is locked: you cannot edit posts or make replies. PS file data should be passed as symb... d_sarlie JCL & VSAM 15 Tue Oct 03, 2017 5:18 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us