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

How to create the object(DBD, DD, Segments) on IMS Subsystem


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
devadoz
Warnings : 1

New User


Joined: 02 Feb 2007
Posts: 9
Location: London

PostPosted: Mon Feb 05, 2007 6:41 pm
Reply with quote

Hi,

I am New to this group recently joined. I am also new for IMS Administration. I have good knowledge on DB2/ZOS. I know there are control jobs like MSTR, IRLM, DBM1, DIST and SPAS For DB2 sub system on z/OS. Like that i would like to know for IMS. I understood that only two jobs will be running on z/OS if IMS sub system is active on Mainframe box. The jobs are, one is IMS Control region job and another one is IRLM.

Can anyone please explain me if anything i missed out for IMS Control jobs?

Please explain, how to create the objects(DBD, DD, Segments) on IMS Subsystem?

Thanks in advance.

Alan
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


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

PostPosted: Mon Feb 05, 2007 7:36 pm
Reply with quote

This is a sample of a DBD; definition of a database and the segments in it.

Code:
         DBD   NAME=DBZABNL,ACCESS=(HIDAM,VSAM)                         
         DATASET DD1=TNLDBZAB,DEVICE=3350,SIZE=18432,SCAN=3             
         SPACE                                                         
** NAMENSSCHLUESSEL (SEGMENT 02)                                       
         SEGM  NAME=QSNAMSCH,PARENT=0,BYTES=14,POINTER=TB,             X
               FREQ=560000                                             
         LCHILD NAME=(IXNAME,IXNLZAB),PTR=INDX                         
         FIELD NAME=(Q02SCHL,SEQ),BYTES=14,START=1,TYPE=X               
         SPACE                                                         
** NAMENS- UND ADRESS-SEGMENT (SEGMENT 03)                             
         SEGM  NAME=QSADRESS,PARENT=QSNAMSCH,BYTES=74,FREQ=1      X     
         FIELD NAME=(Q03SCHL,SEQ,M),BYTES=69,START=1,TYPE=X             
         FIELD NAME=Q03DATA,BYTES=74,START=1,TYPE=X                     
         SPACE                                                         
** ADRESSZUSATZ (SEGMENT 04)                                           
         SEGM  NAME=QSADRZUS,PARENT=QSADRESS,BYTES=136,FREQ=0           
         FIELD NAME=Q04DATA,BYTES=136,START=1,TYPE=X                   
         SPACE                                                         
** NAMENSKUERZUNG (SEGMENT 48)                                         
         SEGM  NAME=QSNAMKRZ,PARENT=QSADRESS,BYTES=32,FREQ=0           
         FIELD NAME=Q48DATA,BYTES=32,START=1,TYPE=X                     
         SPACE                                                         
** PERSONENDATEN                                                       
         SEGM  NAME=QSZABPER,PARENT=QSADRESS,BYTES=374                 
         SPACE                                                     
** NAMENSKUERZUNG (SEGMENT 48)                                     
         SEGM  NAME=QSNAMKRZ,PARENT=QSADRESS,BYTES=32,FREQ=0       
         FIELD NAME=Q48DATA,BYTES=32,START=1,TYPE=X                 
         SPACE                                                     
** PERSONENDATEN                                                   
         SEGM  NAME=QSZABPER,PARENT=QSADRESS,BYTES=374             
         FIELD NAME=(QZABKEY,SEQ,M),BYTES=3,START=1,TYPE=X         
         SPACE                                                     
** LC-SEGMENT (SEGMENTART,POLIZZENNUMMER=ID)                       
         SEGM  NAME=QSADRPOL,PARENT=QSADRESS,BYTES=7               
         FIELD NAME=(QIDSAPOL,SEQ),BYTES=6,START=1,TYPE=X           
         FIELD NAME=QIDSEGMA,BYTES=1,START=1,TYPE=X                 
         FIELD NAME=QIDPOLNR,BYTES=5,START=2,TYPE=X                 
         FIELD NAME=QIDFC,BYTES=1,START=7,TYPE=X                   
         DBDGEN                                                     
         FINISH                                                     
         END                                                       
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


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

PostPosted: Mon Feb 05, 2007 7:41 pm
Reply with quote

This a sample of a PSB: what the program is allowed to access and how. In this case the database from the DBD just posted and another one.


Code:
         PCB   TYPE=DB,NAME=DBZABNL,POS=SINGLE,PROCOPT=GP,KEYLEN=100
         SENSEG NAME=QSNAMSCH,PARENT=0                               
         SENSEG NAME=QSADRESS,PARENT=QSNAMSCH                       
         SENSEG NAME=QSADRZUS,PARENT=QSADRESS                       
         SENSEG NAME=QSNAMKRZ,PARENT=QSADRESS                       
         SENSEG NAME=QSZABPER,PARENT=QSADRESS                       
         SENSEG NAME=QSADRPOL,PARENT=QSADRESS                       
         SPACE 2                                                     
         PCB   TYPE=DB,NAME=DBNLVER,POS=SINGLE,PROCOPT=G,KEYLEN=40   
         SENSEG NAME=QSALVERT,PARENT=0                               
         SENSEG NAME=QSFCADR,PARENT=QSALVERT                         
         SENSEG NAME=QSADRZUS,PARENT=QSFCADR                         
         SENSEG NAME=QSNAMKRZ,PARENT=QSFCADR                         
         SENSEG NAME=QSPRSCHP,PARENT=QSALVERT                       
         SENSEG NAME=QSPRSCHS,PARENT=QSALVERT                       
         SENSEG NAME=QSVERTR1,PARENT=QSALVERT                       
         SENSEG NAME=QSVERTR2,PARENT=QSVERTR1                       
         SENSEG NAME=QSBUNDEL,PARENT=QSALVERT                       
         SENSEG NAME=QSINKSSO,PARENT=QSALVERT                       
         SENSEG NAME=QSINKDT,PARENT=QSINKSSO                         
        PSBGEN LANG=PL/I,PSBNAME=TPNSVER                     
        END                                                   
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


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

PostPosted: Mon Feb 05, 2007 8:39 pm
Reply with quote

But Alan, if you are completely new at IMS my advise is to first read some manuals in order to comprehend this phantastic system icon_wink.gif
Back to top
View user's profile Send private message
devadoz
Warnings : 1

New User


Joined: 02 Feb 2007
Posts: 9
Location: London

PostPosted: Mon Feb 05, 2007 8:53 pm
Reply with quote

Thanks a lot for your input. I will read some basic documents as you mentioned.

Thanks again.

- Alan
Back to top
View user's profile Send private message
Bitneuker

CICS Moderator


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

PostPosted: Mon Feb 05, 2007 8:58 pm
Reply with quote

Alan,

May be this is a start.
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 -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts How to create a list of SAR jobs with... CA Products 3
No new posts create rexx edit Macro that edits the... CLIST & REXX 3
No new posts COBOL - create and write to output fi... COBOL Programming 0
No new posts Best way to create an automated line ... TSO/ISPF 3
No new posts FD Section to Create FB or Vb File Dy... COBOL Programming 1
Search our Forums:

Back to Top