Rajesh M
New User
Joined: 08 Aug 2008 Posts: 3 Location: Chennai
|
|
|
|
Hi Members,
I have one issue in view the IMS database using fileaid. IMS database has 3 levels of hierarchy. When i tried to view the record values in 3rd level segment, first 4 chracters are truncated. Please find the attached layout for your reference. But physically when i open the dataset in MVS FILEAID, i can view the whole records with out any truncation.
These are the segments, RETAIL,PURCHASE,BOOKING,STOCK,SHIPPING
3rd level segment is booking. Copybook mapping is also correct with the DBD source description.
IF you download the attached, the highlighted fileds are truncated with 4 characters and last 4 characters are filled with dots(.) Say for E.G,
Actual existing record is CASHA28910005 (Correct one)
Displayable record is A28910005.... (Incorrect
one)
Do i need to add any other options in the XREF datasets.??
Please see the DBD Source.
Code: |
* MAIN DBD SOURCE FOR THE DATABASE RETADBD
DBD NAME=RETADBD,ACCESS=(HIDAM,VSAM)
DATASET DD1=RETVSAM,DEVICE=3390,SIZE=4096
SEGM NAME=RETAIL,BYTES=5,PARENT=0,PTR=TB
LCHILD NAME=(RETIDX,RETAIDX),PTR=INDX
FIELD NAME=(ITEMNAME,SEQ,U),BYTES=5,START=01,TYPE=C
*
SEGM NAME=PURCHASE,BYTES=40,PARENT=RETAIL
FIELD NAME=(ORDERNO,SEQ,U),BYTES=05,START=01,TYPE=C
FIELD NAME=(BUYEADD),BYTES=30,START=06,TYPE=C
FIELD NAME=(QTYREQ),BYTES=02,START=36,TYPE=C
FIELD NAME=(UNITPR),BYTES=03,START=38,TYPE=C
*
SEGMNAME=BOOKING,BYTES=13,PARENT=PURCHASE,PTR=TB
* LCHILD NAME=(RETIDX,RETAIDX),PTR=INDX
FIELD NAME=(PAYTYPE,SEQ,M),BYTES=05,START=01,TYPE=C
FIELD NAME=(ADVAPAID),BYTES=03,START=06,TYPE=C
FIELD NAME=(BALAMT),BYTES=03,START=09,TYPE=C
FIELD NAME=(DELSLA),BYTES=02,START=12,TYPE=C
* XDFLD NAME=PAYMODE,SRCH=PAYTYPE
*
SEGM NAME=STOCK,BYTES=12,PARENT=RETAIL
FIELD NAME=(QTYPRST,SEQ,M),BYTES=04,START=01,TYPE=C
FIELD NAME=(TQTYREQ),BYTES=04,START=05,TYPE=C
FIELD NAME=(TOTQTYSH),BYTES=04,START=09,TYPE=C
*
SEGM NAME=SHIPPING,BYTES=37,PARENT=RETAIL
FIELD NAME=(SHIPMODE,SEQ,M),BYTES=06,START=01,TYPE=C
FIELD NAME=(SHIPDATE),BYTES=08,START=07,TYPE=C
FIELD NAME=(SHIPADDR),BYTES=15,START=15,TYPE=C
FIELD NAME=(DELDATE),BYTES=8,START=30,TYPE=C
DBDGEN
FINISH
END |
INDEX DBD--(Primary INDEX)
Code: |
DBD NAME=RETAIDX,ACCESS=(INDEX)
DATASET DD1=RETVSAM1,DEVICE=3390,SIZE=4096
SEGM NAME=RETIDX,BYTES=5,PARENT=0
LCHILD NAME=(RETAIL,RETADBD),INDEX=ITEMNAME
FIELD NAME=(ITEMIDX,SEQ,U),BYTES=5,START=01,TYPE=C
DBDGEN
FINISH
END |
Can anyone help me out, how to solve the truncation of few characters in teh 3rd level segment.?? Your repsonse is most awaited.
Edited: Please use BBcode when You post some code, that's rather readable, Thanks...Anuj |
|