santhakumar
New User
Joined: 16 May 2005 Posts: 4 Location: chennai
|
|
|
|
Hi Kumar,
Here you go for the samples:
DBD:
DBD NAME=OTAIDI1T,ACCESS=(INDEX,VSAM)
DS1 DATASET DD1=OTAII1DT,DEVICE=3380,SIZE=2048
SEGM NAME=OTAIINDX,BYTES=4
FIELD NAME=(OTAIXKEY,SEQ,U),BYTES=4,START=1
LCHILD NAME=(OTAISROT,OTAIDM1T),INDEX=OTAIROTK
DBDGEN
FINISH
END
PSB:
PCB TYPE=DB,DBDNAME=DJAADM1P,PROCOPT=AP,KEYLEN=16
SENSEG NAME=DJAASROT,PARENT=0
PCB TYPE=DB,DBDNAME=DJAPDM1P,PROCOPT=AP,KEYLEN=19
SENSEG NAME=DJAPSROT,PARENT=0
SENSEG NAME=DJAPSCLM,PARENT=DJAPSROT
PSBGEN LANG=COBOL,PSBNAME=OTADPSBP
END
Please go through the IMS db book so that you can understand how a DBD as well as PSB is being generated.
Thanks ,
Santha Kumar |
|