IBM Mainframe Forum

by **GUI1504** » Wed Dec 01, 2010 5:10 pm

Hello guys, i need a COBOL/DB2 compiler JCL, so i search on the web and i've got these one, but i dont understand the points and what to put into them...

Select all

//DB2COMP (XXX,XXX),'COMPILE JCL',
// CLASS=A,MSGCLASS=A,NOTIFY=&SYSUID
//********************************************************************
//* COMPILATION, LINK EDIT AND THE BIND STEP FOR A COBOL DB2 PROGRAM *
//* WILL BE DONE BY SUBMITTING THIS JOB. *
//* THE DB2 REGIONS AND CORRESPONDING PARAMETERS NEEDS TO BE CHANGED *
//* WITH RESPECT TO THE PROGRAM *
//********************************************************************
//* PRECOMPILE DB2 PROGRAM *
//*-------------- LOCATION OF DBRM LIBRARY -------------------------*
//********************************************************************
//PC EXEC PGM=DSNHPC,
// PARM='HOST(COB2),APOST,SOURCE',
// REGION=4096K
//DBRMLIB DD DISP=SHR,
// DSN=DEV.SURESH.DBRM(DB2PROG) <------------------------ (1)
//STEPLIB DD DISP=SHR,
// DSN=SYSX.DB2.XXX.XXXXX
//********************************************************************
//*SYSIN -----------INPUT COBOL DB2 PROGRAM LOCATION-----------------*
//********************************************************************
//SYSIN DD DISP=SHR,
// DSN=DEV.SURESH.SRC(DB2PROG) <---------------------- (2)
//SYSCIN DD DISP=(MOD,PASS),
// DSN=&&TEMP,
// SPACE=(800,(500,500)),
// UNIT=SYSDA
//********************************************************************
//* DCLGEN MEMBER LOCATION *
//*SYSLIB-----------------INPUT SOURCE LIBRARY FOR SQL---------------*
//********************************************************************
//SYSLIB DD DISP=SHR,
// DSN=DEV.SURESH.DCL <---------------------- (3)
// DD DISP=SHR,
// DSN=DEV.SURESH.CPY
//SYSPRINT DD SYSOUT=T
//SYSTERM DD SYSOUT=T
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//*
//********************************************************************
//* COMPILATION *
//********************************************************************
//*
//COB EXEC PGM=IGYCRCTL,
// COND=(4,LT,PC),
// PARM=('SIZE(4000K),BUFSIZE(32760),LIST,LIB,MAP,OBJECT',
// 'DATA(31),XREF,RENT'),
// REGION=4M
//STEPLIB DD DISP=SHR,
// DSN=XXXX.XXXXXX
//SYSIN DD DISP=(OLD,DELETE),
// DSN=&&TEMP
//SYSLIN DD DISP=(MOD,PASS),
// DSN=&&LOADTMP,
// SPACE=(800,(500,500)),
// UNIT=SYSDA
//********************************************************************
//*--------------SOURCE LIBRARIES FOR COBOL DB2 CODE (COPY LIBRARIES)*
//********************************************************************
//SYSLIB DD DISP=SHR,
// DSN=DEV.SURESH.DCL <----------------- (4)
// DD DSN=DEV.SURESH.CPY,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT2 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT3 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT4 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT5 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT6 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//SYSUT7 DD SPACE=(800,(500,500),,,ROUND),
// UNIT=SYSDA
//*
//*
//********************************************************************
//* LINK EDIT *
//********************************************************************
//*
//LKED EXEC PGM=IEWL,
// COND=((4,LT,COB),(4,LT,PC)),
// PARM='XREF'
//SYSLIB DD DISP=SHR,
// DSN=SXXX.SXXXXXXX
// DD DISP=SHR,
// DSN=XXXX.DB2.XXX.XXXXLOAD
// DD DISP=SHR,
// DSN=SYS1.VSCLLIB
//SYSLIN DD DISP=(OLD,DELETE),
// DSN=&&LOADTMP
//* DD DDNAME=SYSIN
//********************************************************************
//*----------------LOCATION OF LOAD LIBRARY--------------------------*

//SYSLMOD DD DISP=SHR,
// DSN=DEV.SURESH.LOADLIB(DB2PROG) <------------ (5)
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSUT1 DD SPACE=(1024,(50,50)),
// UNIT=SYSDA
//*
//********************************************************************
//* BIND - BIND THE DB2 PACKAGE *
//********************************************************************
//BIND EXEC PGM=IKJEFT01,
// COND=(4,LT),
// REGION=4096K
//STEPLIB DD DISP=SHR,
// DSN=XXX4.DB2.XXXX.XXXXLOAD
//DBRMLIB DD DISP=SHR,
// DSN=DEV.SURESH.DBRM(DB2PROG) <--------------- (6)
//SYSPRINT DD SYSOUT=*
//SYSTSPRT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSTSIN DD *
DSN SYSTEM (DEVDB )
BIND MEMBER (DB2PROG) -
PACKAGE (PACKG11) -
LIBRARY ('DEV.SURESH.DBRM') - <---------------- (7)
ACTION (REP) -
ISOLATION (CS) -
VALIDATE (BIND)-
RELEASE (COMMIT) -
OWNER (SURESH) -
QUALIFIER (DEVQUALI)
END
/*
**************************** Bottom of Data ****************************

Select all

(1) - When we precompiled, precompiler will create the DBRM, it will
be placed in the pds specified here.

(2) - Location of COBOL-DB2 program

(3) - Needs to speficiy DCLGEN member locations

(4) - Needs to specify DCLGEN and COPYBOOK locations here

(5) - Load module location, load module will be created here. this
location needs to be given in run jcl.

(5) & (6) - specify the location of DBRM, ( same location used in step1 ).

I'm new at DB2 world and need some help, btw I have a Database, Table Space and a Table created.

by **Robert Sample** » Wed Dec 01, 2010 5:39 pm

Your first problem is that you are not following your site standards for DB2 compiles. You should contact your site support group and find out how to compile the program using your site's standard procedures. Using JCL you found on the web to do this may well cause you serious problems.

by **GUI1504** » Wed Dec 01, 2010 5:50 pm

Robert Sample wrote:Your first problem is that you are not following your site standards for DB2 compiles. You should contact your site support group and find out how to compile the program using your site's standard procedures. Using JCL you found on the web to do this may well cause you serious problems.

I'm on a training, a 'non-oficial' program, but will be. I receive this task justo to improve my skills in COBOL/DB2. And, with my program already coded, I need a compiler

by **Akatsukami** » Wed Dec 01, 2010 6:42 pm

So, go to your site support group (unless, as seems to be distressingly common these days, you are the site support group) and get the procedures (submit JCL, run a script, choose an ISPF option, etc.) to perform a COBOL/DB2 compile, link-edit, and package bind.

What Mr. Sample hints at I will make explicit: if you are found using JCL downloaded from the Internet, whose true purpose you do not know and apparently cannot understand, there is a strong possibility that you will be fired and blacklisted, your career over before it begins.

by **GUI1504** » Wed Dec 01, 2010 6:48 pm

But i don't have any restriction by now. After I will, I'm a Test Mainframe, nothing oficial

by **Akatsukami** » Wed Dec 01, 2010 10:25 pm

And if I were evil enough to tell you to do something that proved destructive, what would your defense be? "Oh, I am only a student, it is not my fault that I took a tip from an anonymous poster on an Internet help forum and destroyed the production system in consequence"?

We don't seem to have a "disgusted" smilie, so assume that I have appended one or more.

by **prino** » Wed Dec 01, 2010 10:37 pm

The guy is using the Fan DeZhi system, which does not have a site-support group. I'm not sure why he doesn't post in a more appropriate forum (i.e. the Dezhi Systems support site), although I guess because he is one of many people sharing one userid...

by **NicC** » Wed Dec 01, 2010 11:45 pm

Well, if he is on dezzi he can look at the forum there for info regarding his requirements and if he is a good, intelligent and thoughtful guy he would be able to find some id that has what he wants - mine does not!

IBM Mainframe Forum

DB2/COBOL Compiler JCL

DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL

Re: DB2/COBOL Compiler JCL