Parameters passed for Translator Step for PL1-CICS-DB2

abhilash g s · New User Joined: 27 Apr 2007 Posts: 37 Location: bangalore

Hi All,

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

Cheers,
Abhilash G S

Robert Sample · Posted: Tue Sep 30, 2008 5:08 pm

Different sites set parameters differently. You really need to talk to your systems support personnel to find out what is used at your site.

abhilash g s · New User Joined: 27 Apr 2007 Posts: 37 Location: bangalore

Hi,

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

Cheers,
Abhilash G S

Robert Sample · Posted: Tue Sep 30, 2008 5:34 pm

Site requirements, management preferences, use of specialized functions, personal preferences -- any or all of the above.

abhilash g s · New User Joined: 27 Apr 2007 Posts: 37 Location: bangalore

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

Robert Sample · Posted: Tue Sep 30, 2008 6:00 pm

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.

abhilash g s · New User Joined: 27 Apr 2007 Posts: 37 Location: bangalore

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

Robert Sample · Posted: Tue Sep 30, 2008 6:32 pm

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.

Bill O'Boyle · Posted: Tue Sep 30, 2008 9:04 pm

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

abhilash g s · New User Joined: 27 Apr 2007 Posts: 37 Location: bangalore

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]