Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to create the object(DBD, DD, Segments) on IMS Subsystem

 
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: Mon Feb 05, 2007 6:41 pm    Post subject: How to create the object(DBD, DD, Segments) on IMS Subsystem
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 05, 2007 7:36 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 05, 2007 7:41 pm    Post subject:
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 05, 2007 8:39 pm    Post subject:
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    Post subject: Re: IMS Control Jobs
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: 1105
Location: The Netherlands at Hole 19

PostPosted: Mon Feb 05, 2007 8:58 pm    Post subject:
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    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 How to create issuer certificate? :'( vasanthz All Other Mainframe Topics 1 Sat Nov 18, 2017 5:14 am
No new posts Create procedure issues -628 when add... chandraBE DB2 1 Mon Sep 18, 2017 12:16 pm
No new posts How do I create a mainframe monitorin... anjali.bisht All Other Mainframe Topics 4 Fri Sep 01, 2017 2:20 pm
This topic is locked: you cannot edit posts or make replies. rexx to create a tso command Bharath Vikraman CLIST & REXX 1 Tue Aug 08, 2017 3:32 pm
This topic is locked: you cannot edit posts or make replies. rexx code to create a ps file Bharath Vikraman CLIST & REXX 4 Mon Aug 07, 2017 10:30 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us