IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Steps in COBOL-CICS-DB2 Program
IBM Mainframe Forums -> Mainframe Interview Questions
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
shivakumar .b
Warnings : 1
New User


Joined: 11 May 2005
Posts: 18
Location: bangalore
PostPosted: Mon May 23, 2005 10:46 am
 Reply with quote
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
View user's profile Send private message
priya

Moderator


Joined: 24 Jul 2003
Posts: 568
Location: Bangalore
PostPosted: Mon May 23, 2005 10:10 pm
 Reply with quote
Code:
1. Precompile
2. Translate
3. Compile
4. Translate
5. Linkedit
Back to top
View user's profile Send private message
shivakumar .b
Warnings : 1
New User


Joined: 11 May 2005
Posts: 18
Location: bangalore
PostPosted: Tue May 24, 2005 1:03 pm
 Reply with quote
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
View user's profile Send private message
kanak

Moderator


Joined: 12 Mar 2005
Posts: 252
Location: India
PostPosted: Tue May 24, 2005 3:16 pm
 Reply with quote
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
View user's profile Send private message
priya

Moderator


Joined: 24 Jul 2003
Posts: 568
Location: Bangalore
PostPosted: Tue May 24, 2005 9:14 pm
 Reply with quote
Just check the sample Compile JCL from ibmmainframes.com/jcls.php
Back to top
View user's profile Send private message
jkbytes

Active User


Joined: 19 Feb 2005
Posts: 139
Location: South Africa
PostPosted: Wed May 25, 2005 11:04 am
 Reply with quote
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
View user's profile Send private message
sudheer648

New User


Joined: 23 May 2005
Posts: 97
Location: Chennai
PostPosted: Wed May 25, 2005 4:18 pm
 Reply with quote
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
View user's profile Send private message
jkbytes

Active User


Joined: 19 Feb 2005
Posts: 139
Location: South Africa
PostPosted: Thu May 26, 2005 10:05 am
 Reply with quote
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
View user's profile Send private message
sudheer648

New User


Joined: 23 May 2005
Posts: 97
Location: Chennai
PostPosted: Thu May 26, 2005 12:38 pm
 Reply with quote
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
View user's profile Send private message
jkbytes

Active User


Joined: 19 Feb 2005
Posts: 139
Location: South Africa
PostPosted: Thu May 26, 2005 1:08 pm
 Reply with quote
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
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> Mainframe Interview Questions

 

Similar Topics
Topic Forum Replies
No new posts Replace each space in cobol string wi... COBOL Programming 3
No new posts Using API Gateway from CICS program CICS 0
No new posts COBOL -Linkage Section-Case Sensitive COBOL Programming 1
No new posts COBOL ZOS Web Enablement Toolkit HTTP... COBOL Programming 0
No new posts Calling DFSORT from Cobol, using OUTF... DFSORT/ICETOOL 5
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us