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
 

 

Need step by step process of DBD Creation

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
devadoz
Warnings : 1

New User


Joined: 02 Feb 2007
Posts: 9
Location: London

PostPosted: Fri Feb 23, 2007 10:48 pm    Post subject: Need step by step process of DBD Creation
Reply with quote

Hi,

I recently got some more responsibilities to take care IMS admin area also. I have good knowledge on DB2. I request can anyone help me to create one small database for on IMS. I would like to know step by step process. I have searched all the manuals and I understood all the basic concepts about all objects in the IMS. I would like to create one database in test region I my shop here, but I couldn't.

Thanks in advance.
Back to top
View user's profile Send private message

Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 26, 2007 3:46 pm    Post subject:
Reply with quote

In my opinion one can't be held responsible without proper training or local coaching. You should tell your superior you're to be send to an education course. May be the sticky I placed last week in this forum is an idea.

We can try and make a start but I will be on a course myself next week. Besides that there's sometimes work to be done; let's just see how far we get. Did you also explore this manual and follow the links in it to other manuals? And what do you mean with........
Quote:
I would like to create one database in test region I my shop here, but I couldn't.
icon_question.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 26, 2007 5:50 pm    Post subject:
Reply with quote

Here's the DBD-source and DBDGEN for one of our databases. There are two sources since the databases uses an index.

First the replication database:

Code:
*   DATABASE TBV PVS REPLICATOR          CREATED 25-09-2002  ROB JACOBS         
*                                                                               
*                                          PRODUKT DATA BASE                   
         DBD                                                           X       +
               ACCESS=HIDAM,                                           X       +
               NAME=DBNLREP                                                    +
         DATASET                                                       X       +
               DD1=DBNLREP,                                            X       +
               SIZE=4096,                                              X       
               DEVICE=3390                                                     +
*                                            ROOT                               
         SEGM                                                          X       +
               PARENT=0,                                               X       +
               POINTER=TB,                                             X       +
               BYTES=50,                                               X       +
               NAME=REPROOT                                                    +
*                                            INDEX                             
         LCHILD                                                        X       
               POINTER=INDX,                                           X       
               NAME=(DBREPIX,DBNLREPI)                                         
*                                                                               
         FIELD                                                         X       +
               START=1,                                                X       +
               BYTES=50,                                               X       +
               TYPE=X,                                                 X       +
               NAME=(ROOTKEY,SEQ,U)                                            +
*                                            PREMIE/RENTE GEGEVENS             
         SEGM                                                          X       
               PARENT=((REPROOT,DBLE)),                                X       
               POINTER=TWINBWD,                                        X       
               BYTES=250,                                              X       
               RULES=(,LAST),                                          X       
               NAME=REPSGMNT                                                   
*                                                                               
         DBDGEN                                                                +
         FINISH                                                                +
         END                                                                   +


Followed by the index:

Code:
*                                        REPLICATOR INDEX DATA BASE             
         DBD                                                           X       +
               ACCESS=INDEX,                                           X       +
               NAME=DBNLREPI                                                   +
         DATASET                                                       X       +
               DD1=DBNLREPI,                                           X       +
               DEVICE=3375                                                     +
         SEGM                                                          X       +
               PARENT=0,                                               X       +
               BYTES=50,                                               X       +
               NAME=DBREPIX                                                    +
*                                                                               
         LCHILD                                                        X       +
               POINTER=SNGL,                                           X       +
               INDEX=ROOTKEY,                                          X       +
               NAME=(REPROOT,DBNLREP)                                          +
         FIELD                                                         X       +
               START=1,                                                X       +
               BYTES=50,                                               X       +
               TYPE=X,                                                 X       +
               NAME=(REPINDEX,SEQ,U)                                           +
*                                                                               
         DBDGEN                                                                +
         FINISH                                                                +
         END                                                                   +


And finally the JCL to generate the DBD for DBNLREP. The one for the index is similar except for the membername.

Code:
//C      EXEC  PGM=IEV90,PARM='OBJECT,NODECK'                                   
//SYSLIB   DD DSN=SYS.IMS.MACLIB,DISP=SHR                                       
//SYSLIN   DD DISP=(,PASS),                                                     
//            SPACE=(80,(100,100),RLSE),                                       
//            DCB=(BLKSIZE=400,RECFM=FB,LRECL=80),                             
//            UNIT=SYSDA                                                       
//SYSPRINT DD SYSOUT=X,                                                         
//            SPACE=(121,(300,300),RLSE,,ROUND),                               
//            DCB=BLKSIZE=1089                                                 
//SYSUT1   DD DISP=(,DELETE),                                                   
//            SPACE=(1700,(100,50)),                                           
//            UNIT=SYSDA                                                       
//SYSUT2   DD DISP=(,DELETE),                                                   
//            SPACE=(1700,(100,50)),                                           
//            UNIT=SYSDA                                                       
//SYSUT3   DD SPACE=(1700,(100,50)),                                           
//            UNIT=(SYSDA,SEP=(SYSLIB,SYSUT1,SYSUT2))                           
//*                                                                             
//SYSIN    DD DSN=NTSYS.IMSVS.DBDSRC(DBNLREP),DISP=SHR <---- the lib containing the DBD source         
//L    EXEC  PGM=DFSILNK0,PARM='XREF,LIST',COND=(0,LT,C)                       
//SYSLIN   DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)                                 
//SYSPRINT DD SYSOUT=X,                                                         
//            SPACE=(121,(90,90),RLSE),                                         
//            DCB=BLKSIZE=1089                                                 
//SYSLMOD  DD DSN=NTSYS.IMSVS.DBDLIB(DBNLREP),DISP=SHR <---- the lib the DBD is stored in         
//SYSUT1   DD DISP=(,DELETE),                                                   
//            SPACE=(1024,(100,10),RLSE),                                       
//            UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN))                                 
//*                                                                             
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 26, 2007 7:14 pm    Post subject:
Reply with quote

And a very simple database without index used to store output for reports:

Code:
*          DATA SET DBNLOUTP   AT LEVEL 004 AS OF 02/26/86             
*          DATA SET DBNLOUTP   AT LEVEL 008 AS OF 06/07/84             
*                                                                       
*        OUTPUT-DATENBANK - VARIABLE SEGMENTE     /  HOLLAND           
*                                                                       
         DBD   NAME=DBNLOUTP,ACCESS=(HISAM,VSAM)                       
*                                                                       
         DATASET DD1=NLOUTP,OVFLW=NLOUTO,DEVICE=3380                   
*                                                                       
*        ROOTSEGMENT                                                   
*                                                                       
         SEGM  NAME=QSNLOR,PARENT=0,BYTES=20                           
         FIELD NAME=(QNLOKEY,SEQ,U),BYTES=4,START=1,TYPE=X             
         FIELD NAME=QNLOKEY1,BYTES=1,START=1,TYPE=X                     
         FIELD NAME=QNLOKEY2,BYTES=3,START=2,TYPE=X                     
*                                                                       
*        DATENSEGMENT                                                   
*                                                                       
         SEGM  NAME=QSNLOD,PARENT=QSNLOR,BYTES=(2006,86)               
         FIELD NAME=(QNLOSKEY,SEQ,U),BYTES=4,START=3,TYPE=X             
*                                                                       
         DBDGEN                                                         
         FINISH                                                         
         END                                                           
Back to top
View user's profile Send private message
dmithunibm

New User


Joined: 23 May 2007
Posts: 18
Location: Bangalore

PostPosted: Wed May 23, 2007 5:05 pm    Post subject:
Reply with quote

Can you please explain the DBLE parameter in DBD Source Code?
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Sat May 26, 2007 3:16 am    Post subject:
Reply with quote

Follow the first link in my signature, search for DBLE and enjoy learning icon_wink.gif
Back to top
View user's profile Send private message
dick scherrer

Site Director


Joined: 23 Nov 2006
Posts: 19270
Location: Inside the Matrix

PostPosted: Sat May 26, 2007 4:35 am    Post subject:
Reply with quote

Hi George,

Would this course you'll be on next week be "Golf"?

Maybe followed by a 19th hole? icon_smile.gif
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


Joined: 07 Nov 2005
Posts: 1105
Location: The Netherlands at Hole 19

PostPosted: Sat May 26, 2007 10:58 pm    Post subject:
Reply with quote

dick scherrer wrote:
Hi George,

Would this course you'll be on next week be "Golf"?

Maybe followed by a 19th hole? icon_smile.gif


Hi Dick,

No golfcourse and no 19th hole icon_cry.gif The februar course I was reffering to was the course where one learns how to deal with retirement. Now I'm retired and there are some things neglected in the passed (golf is amongst them but without priority) that have priority to even with 'daily life'. Yet busy moderating IMS and still enjoy it. Devzee is a great help when I'm not in the position to answer questions.
Back to top
View user's profile Send private message
Devzee

Active Member


Joined: 20 Jan 2007
Posts: 684
Location: Hollywood

PostPosted: Sun May 27, 2007 6:40 am    Post subject:
Reply with quote

Quote:
Devzee is a great help when I'm not in the position to answer questions.


icon_cool.gif
Thanks George
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 -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Restart=Step not working ALAK SAHA JCL & VSAM 6 Fri Jun 30, 2017 6:28 pm
No new posts REXX - Dynamic file Creation d_sarlie CLIST & REXX 7 Tue Jun 27, 2017 7:30 pm
No new posts Dynamic output file creation in cobol... smileheal COBOL Programming 7 Thu Jun 15, 2017 10:53 pm
No new posts Validate date and numeric fields and ... Rick Silvers DFSORT/ICETOOL 6 Thu May 11, 2017 6:51 pm
No new posts Issue with NDM process to transmit ES... chetanambi All Other Mainframe Topics 6 Wed May 03, 2017 10:52 am


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