|
View previous topic :: View next topic
|
| Author |
Message |
shivakumar .b
Warnings : 1
New User
Joined: 11 May 2005
Posts: 18
Location: bangalore
|
|
|
|
HI EVERBODY,
THIS IS SHIVAKUMAR.
ANYBODY PLZ TELL ME WHAT R ALL THE STEPS INVOLVED IN THE PROCEDURE CICSDB2 FOR COBOL-CICS-DB2 APPLICATION PROGRAMS. I WANT TO KNOW WHAT R ALL THE DDNAMES WE CAN OVERWRITE IN THAT PROCEDURE?
THANKS IN ADVANCE
REGARDS,
B.SHIVAKUMAR |
|
| Back to top |
|
 |
priya
Moderator
Joined: 24 Jul 2003
Posts: 568
Location: Bangalore
|
|
|
|
| Code: |
1. Precompile
2. Translate
3. Compile
4. Translate
5. Linkedit |
|
|
| Back to top |
|
|
shivakumar .b
Warnings : 1
New User
Joined: 11 May 2005
Posts: 18
Location: bangalore
|
|
|
|
Hi,
Thanks for u r reply priya. but i want more information.
Is it possible for u to get me the whole procedure so that i can know the steps and dd names present in that procedure.
And i want to know what is that second "Translate" step will do?
thanks in advance.
regards,
B.shivakumar |
|
| Back to top |
|
|
kanak
Moderator
Joined: 12 Mar 2005
Posts: 252
Location: India
|
|
|
|
| translate step performs the translation of DB2 and CICS command to equivalent cobol command, so that it can be understand by the cobol compiler. |
|
| Back to top |
|
|
priya
Moderator
Joined: 24 Jul 2003
Posts: 568
Location: Bangalore
|
|
| Back to top |
|
|
jkbytes
Active User
Joined: 19 Feb 2005
Posts: 139
Location: South Africa
|
|
|
|
Hi,
I guess this sample JCL may help you in understanding indepth regarding the Steps involved in COBOL - cicis - DB2 program.
| Code: |
//MTPLB21A JOB ,,NOTIFY=&SYSUID,CLASS=A,MSGLEVEL=(1,1),MSGCLASS=H
//DD1 SET SRCLIB=MTPLB21.CICS.JAIKUM --> SOURCE LIBRARY
//DD2 SET DBRMLIB=MTPLB21.DB2.DBRM --> DBRM LIBRARY
//DD3 SET MEM=LAB24DB2 --> MEMBER NAME
//DD4 SET DCLLIB=MTPLB21.DB2.DCLGEN --> DCLGEN LIBRARY
//DD5 SET COPYLIB=MTPLB21.CICS.COPYLIB --> SYMBOLIC MAP
//DD6 SET LOADLIB=MTPLTRG.CICS.LOADLIB ** DO NOT CHANGE **
//DD7 SET BMSLIB=MTPLB21.CICS.COPYLIB --> SYMBOLIC MAP
//DD8 SET WSPC=500
//DD9 SET REG=4096K
//DDA SET LNKPARM='XREF'
//DDB SET WORK=MTBLR1
//*
//*
//* 1. PRECOMPILER
//PRECOMP EXEC PGM=DSNHPC,
// PARM='HOST(COBOL),APOST,SOURCE,LEVEL(GLM)',
// REGION=4096K
//STEPLIB DD DISP=SHR,DSN=DSN710.SDSNLOAD
//DBRMLIB DD DISP=SHR,DSN=&DBRMLIB(&MEM)
//SYSCIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA,
// SPACE=(800,(&WSPC,&WSPC))
//SYSLIB DD DSN=&DCLLIB,DISP=SHR
// DD DSN=©LIB,DISP=SHR
//SYSTERM DD SYSOUT=*
//SYSDUMP DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&SRCLIB(&MEM),DISP=SHR
//SYSUT1 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA,
// VOL=SER=&WORK
//SYSUT2 DD SPACE=(800,(&WSPC,&WSPC),,,ROUND),UNIT=SYSDA,
// VOL=SER=&WORK
//*
//* 2. CICS TRANSALATION
//*
//TRANSL EXEC PGM=DFHECP1$,REGION=®,PARM='COBOL2',
// COND=(5,LT)
//STEPLIB DD DSN=CICSTS22.CICS.SDFHLOAD,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&DSNHOUT,DISP=(MOD,PASS),UNIT=SYSDA
//SYSPUNCH DD DSN=&&SYSCIN,
// DISP=(,PASS),UNIT=SYSDA,
// DCB=BLKSIZE=400,
// SPACE=(400,(400,100))
//*
//* 3. COMPILATION
//*
//COBOL EXEC PGM=IGYCRCTL,REGION=®,
// PARM='NODYNAM,LIB,OBJECT,RENT,RES,APOST',COND=(5,LT)
//STEPLIB DD DSN=IGY310.SIGYCOMP,DISP=SHR
//SYSLIB DD DSN=CICSTS22.CICS.SDFHCOB,DISP=SHR
// DD DSN=©LIB,DISP=SHR
// DD DSN=&BMSLIB,DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSIN DD DSN=&&SYSCIN,DISP=(OLD,DELETE)
//SYSLIN DD DSN=&&LOADSET,DISP=(MOD,PASS),
// UNIT=SYSDA,SPACE=(80,(250,100))
//SYSUT1 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT2 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT3 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT4 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT5 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT6 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//SYSUT7 DD UNIT=SYSDA,SPACE=(460,(350,100)),VOL=SER=&WORK
//*
//* 4. LINK EDIT
//*
//LKED EXEC PGM=IEWL,REGION=®,COND=(5,LT,COBOL),
// PARM=&LNKPARM
//SYSLIB DD DSN=CICSTS22.CICS.SDFHLOAD,DISP=SHR
// DD DSN=CICSTS22.CICS.SDFHCOB,DISP=SHR
// DD DSN=CEE.SCEELKED,DISP=SHR
// DD DSN=CEE.SCEERUN,DISP=SHR
// DD DSN=TESTDB2.SDSNLOAD,DISP=SHR
//DB2LOAD DD DSN=TESTDB2.SDSNLOAD,DISP=SHR
//SYSLMOD DD DSN=&LOADLIB(&MEM),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,DCB=BLKSIZE=1024,VOL=SER=&WORK,
// SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSN=CICSTS22.CICS.SDFHCOB(DFHEILIC),DISP=SHR
// DD DSN=&&LOADSET,DISP=(OLD,DELETE)
//SYSIN DD DUMMY
//* |
Thanks & Regards,
JKBYTES |
|
| Back to top |
|
|
sudheer648
New User
Joined: 23 May 2005
Posts: 97
Location: Chennai
|
|
|
|
Hi Shiva,
Precompile: Draws all SQL Statements and put them into DBRM
Translate: Would Translate those SQL Statements into equivalent COBOL/Language Specific CALL Statements.
Compile and linkedit you know to check the syntax and genrate the load module(Executable).
Cheers,
Sudheer |
|
| Back to top |
|
|
jkbytes
Active User
Joined: 19 Feb 2005
Posts: 139
Location: South Africa
|
|
|
|
Shiva Wrote,
| Quote: |
Precompile: Draws all SQL Statements and put them into DBRM
Translate: Would Translate those SQL Statements into equivalent COBOL/Language Specific CALL Statements.
Compile and linkedit you know to check the syntax and genrate the load module(Executable). |
I'd like to bring the following reply to the moderators point of view, since these sort of misleading answers may guide young professionals in a wrong way.
I want your honest reply for the same.
1)Precompile: removes the sql command blocks from the source code, compile them to form a object code as a DBRM, and the sql block will be replaced by a cobol call statement with the ncessary parameters.
2)Translation: this will remove the cics command blocks from block the modified source program and replace it with a call statement.
3)Compilation: our normal cobol compilation as you know to produce the object module..
4)Link-editing: Combining all the object moduled generated from the compilation to a single load module.
Thanks & Regards,
JKBYTES. |
|
| Back to top |
|
|
sudheer648
New User
Joined: 23 May 2005
Posts: 97
Location: Chennai
|
|
|
|
Hello JkBytes,
Actually my intention was to tell that equivalent call statements are replaced with these commands.But unfortunately do some type mistake i typed sql there. |
|
| Back to top |
|
|
jkbytes
Active User
Joined: 19 Feb 2005
Posts: 139
Location: South Africa
|
|
|
|
Hi sudheer,
I'm really sorry, i thought you have understood the concept as what you have mentioned.
Whatever it is it always feels nice if you help someone.
Thanks & Regards,
JKBYTES |
|
| Back to top |
|
|
|
|
  |
All times are GMT + 6 Hours |
|
