Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Steps in COBOL-CICS-DB2 Program

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> Mainframe Interview Questions
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    Post subject: Steps in COBOL-CICS-DB2 Program
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    Post subject:
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    Post subject: Re: Steps in COBOL-CICS-DB2 Program
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    Post subject:
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    Post subject:
Reply with quote

Just check the sample Compile JCL from http://ibmmainframes.com/jcls.php
Back to top
View user's profile Send private message
jkbytes

Active User


Joined: 19 Feb 2005
Posts: 141
Location: South Africa

PostPosted: Wed May 25, 2005 11:04 am    Post subject: Re: Steps in COBOL-CICS-DB2 Program
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    Post subject:
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: 141
Location: South Africa

PostPosted: Thu May 26, 2005 10:05 am    Post subject: Re: Steps in COBOL-CICS-DB2 Program - Attention Moderator.
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    Post subject: Re: Steps in COBOL-CICS-DB2 Program
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: 141
Location: South Africa

PostPosted: Thu May 26, 2005 1:08 pm    Post subject: Re: Steps in COBOL-CICS-DB2 Program
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    IBMMAINFRAMES.com Support Forums -> Mainframe Interview Questions All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts XML Parse for COBOL 5.2 Bhanu Praveen COBOL Programming 1 Sat Jul 08, 2017 8:58 pm
No new posts Writing a file using online program grvtomar PL/I & Assembler 3 Fri Jun 30, 2017 1:06 pm
No new posts How to Clear all TSQs during CICS sta... Hooman24 CICS 10 Mon Jun 26, 2017 9:46 pm
No new posts pre-compiler for program in an HFS Pedro DB2 0 Fri Jun 23, 2017 11:13 pm
No new posts CICS Transaction attach count of supp... lind sh CICS 1 Wed Jun 21, 2017 1:33 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us