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

How to define PCB for paired segments


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

New User


Joined: 21 Feb 2007
Posts: 72
Location: US

PostPosted: Tue Jun 14, 2016 11:40 pm
Reply with quote

I am trying to define PCB for the below virtually paired segments

SEGM NAME=P999NUP,PTR=PAIRED,
PARENT=P999NCH,
SOURCE=((P999NDN,D,DB0999))
FIELD NAME=(PNUPKEY,SEQ,U),BYTES=6,START=1,TYPE=C
SEGM NAME=P999NDN,BYTES=6,PTR=(TB,LT,LP),
PARENT=((P999NCH),(P999NCH,P,DB999)),
RULES=(VVV)
FIELD NAME=(PNDNKEY,SEQ,U),BYTES=6,START=1,TYPE=C

can you please help me on how to put the parent/child relationship in PCB ?

i know how it works for regular segments.
Back to top
View user's profile Send private message
Rohit Umarjikar

Global Moderator


Joined: 21 Sep 2010
Posts: 3049
Location: NYC,USA

PostPosted: Wed Jun 15, 2016 1:04 am
Reply with quote

I would contact DBA first.
When you Gogle 'virtually paired logical relationships' then pick first two links and understand how the logical pointers works.
Back to top
View user's profile Send private message
ashok_uddaraju

New User


Joined: 21 Feb 2007
Posts: 72
Location: US

PostPosted: Wed Jun 15, 2016 2:16 am
Reply with quote

000002 PCB TYPE=DB,DBDNAME=DB0999,KEYLEN=12,PROCOPT=AP
000003 SENSEG NAME=P999NCH,PARENT=0,PROCOPT=GOP
000004 SENSEG NAME=P999CCD,PARENT=P999NCH
000005 SENSEG NAME=P999BFD,PARENT=P999NCH
000006 SENSEG NAME=P999NDN,PARENT=P999NCH
000007 SENSEG NAME=P999CPS,PARENT=P999NCH
000008 *
000009 *
000010 PSBGEN PSBNAME=DB0999U,LANG=COBOL,CMPAT=YES
000011 END

does Paired virtual segments are also defined the same way ?
Back to top
View user's profile Send private message
ashok_uddaraju

New User


Joined: 21 Feb 2007
Posts: 72
Location: US

PostPosted: Thu Jun 16, 2016 12:29 am
Reply with quote

This how the DBD is defined

SEGM NAME=P999NUP,PTR=PAIRED,
PARENT=P999NCH,
SOURCE=((P999NDN,D,DB0999))
FIELD NAME=(PNUPKEY,SEQ,U),BYTES=6,START=1,TYPE=C
SEGM NAME=P999NDN,BYTES=6,PTR=(TB,LT,LP),
PARENT=((P999NCH),(P999NCH,P,DB0999)),
RULES=(VVV)
FIELD NAME=(PNDNKEY,SEQ,U),BYTES=6,START=1,TYPE=C
Back to top
View user's profile Send private message
Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 2455
Location: Hampshire, UK

PostPosted: Thu Jun 16, 2016 1:57 pm
Reply with quote

Use the code tags! That is 3 posts by you in one thread without once using the code tags. You have been here long enough to know that they should be used and how to use them.

And, have you been to your DBA yet?
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 DTL - how to define key with stacked ... TSO/ISPF 3
No new posts Define default volume for DSN storage... JCL & VSAM 8
No new posts define 1 DCB parms for multiple outpu... JCL & VSAM 9
This topic is locked: you cannot edit posts or make replies. REXX to find /* Define and write the ... CLIST & REXX 5
No new posts How to define transaction that trigge... CICS 3
Search our Forums:

Back to Top