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.
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
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.
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
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.
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
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
Joined: 07 Nov 2005 Posts: 1104 Location: The Netherlands at Hole 19
dick scherrer wrote:
Hi George,
Would this course you'll be on next week be "Golf"?
Maybe followed by a 19th hole?
Hi Dick,
No golfcourse and no 19th hole 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.