How to define PCB for paired segments

ashok_uddaraju · New User Joined: 21 Feb 2007 Posts: 72 Location: US

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.

Rohit Umarjikar · Posted: Wed Jun 15, 2016 1:04 am

I would contact DBA first.
When you Gogle 'virtually paired logical relationships' then pick first two links and understand how the logical pointers works.

ashok_uddaraju · New User Joined: 21 Feb 2007 Posts: 72 Location: US

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 ?

ashok_uddaraju · New User Joined: 21 Feb 2007 Posts: 72 Location: US

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

Nic Clouston · Posted: Thu Jun 16, 2016 1:57 pm

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?