IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

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: 2508
Location: NY,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: 2432
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 All times are GMT + 6 Hours
Forum Index -> IMS DB/DC
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts How to define transaction that trigge... CICS 2
No new posts TWS PIF (EQQYCOM) Rexx - Occurrence S... IBM Tools 0
No new posts Modify the shareoptions of VSAM in De... CLIST & REXX 30
No new posts Rexx to create VSAM define statements CLIST & REXX 10
No new posts How do I define a DB2 plan for a web ... CICS 5

Back to Top