IBM Mainframe Forum

[karthickrajamani]

Hi,

I need to create an IMS table with 2 child segments. I have the tables in relational form. Can anyone help me out with the DDL for the same? I am new to IMS and have no clue how to proceed. PFB the table structures.

Parent table
VEH

VIN VARCHAR (17)
MODEL_ID DECIMAL (2, 0)
VEH_MODEL_YR DECIMAL (4, 0)
ADD_TIMESTAMP TIMESTAMP
UPD_TIMESTAMP TIMESTAMP

Child Segment 1
MFG

VIN VARCHAR (17)
MFG_DATE DATE
MFG_PLANT_ID VARCHAR (01)
ADD_TIMESTAMP TIMESTAMP
UPD_TIMESTAMP TIMESTAMP

Child Segment 2
ACCESSORY

VIN VARCHAR (17)
ACC_CODE VARCHAR (02)
ACC_DESC VARCHAR (50)
ADD_TIMESTAMP TIMESTAMP
UPD_TIMESTAMP TIMESTAMP

Please let me know if anyone can help me with the same

Cheers,
Karthick

[dick scherrer]

Hello,

Suggest you talk with your dba - there are probably similar tables already defined in your system and you could use them as examples to create yours.

Did you look in the IMS Manual? Probably not, so here is the Table of Contents:
http://publibz.boulder.ibm.com/cgi-bin/ ... 1/CONTENTS?

If you find something that is not clear, post what you found and your question about. Someone should be able to help clarify.

People here will help but not actually do your work. Often, when inapproriate solutions are posted, they are deleted. The goal is to help people learn, not become more dependent on others to provide "code".

[prakash.subramaniam]

Hi,
This is the hirarichal model for the above mentioned table in IMS.

DBD NAME=VEH,ACCESS=(HDAM,OSAM),RMNAME=(DFSHDC40,3,71)
DATASET DD1=WIREDD,DEVICE=3380, BLOCK=2400
FIELD NAME=VIN,BYTES=17,START=1,TYPE=C
FIELD NAME=MODEL_ID,BYTES=2,START,18,TYPE=D
FIELD NAME=VEH_MODEL,YR,BYTES=4,START=20,TYPE=D
FIELD NAME=ADD_TIMESTAMP,BYTES=4,START=25,TYPE=C
FIELD NAME=UPD_TIMESTAMP,BYTES=4,START=30,TYPE=C

SEGM NAME=MFG,PARENT=VEH,BYTES=100
FIELD NAME=VIN,BYTES=17,START=35,YPE=C
FIELD NAME=MFG_DATE,BYTES=8,START=52,TYPE=C
FIELD NAME=ADD_TIMESTAMP,BYTES=4,START=53,TYPE=C
FIELD NAME=UPD_TIMESTAMP,BYTES=4,START=58,TYPE=C
DBDGENThanks and Regards,
Prakash Subramaniam.
9840187992.