Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

Issue in View/Browse IMS database in Fileaid

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
Rajesh M

New User


Joined: 08 Aug 2008
Posts: 3
Location: Chennai

PostPosted: Wed Dec 24, 2008 9:57 am    Post subject: Issue in View/Browse IMS database in Fileaid
Reply with quote

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
Back to top
View user's profile Send private message

Rajesh M

New User


Joined: 08 Aug 2008
Posts: 3
Location: Chennai

PostPosted: Wed Dec 24, 2008 10:23 am    Post subject: Reply to: Issue in View/Browse IMS database in Fileaid
Reply with quote

Correct attachment for this issue..
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Dec 24, 2008 7:23 pm    Post subject:
Reply with quote

Is this a path call? Are you using separate copybooks with filler at the end of each?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Execessive parameter issue Sumeendar JCL & VSAM 5 Mon Dec 19, 2016 4:35 pm
No new posts IMS Database backup info ashek15 IMS DB/DC 14 Wed Nov 16, 2016 5:29 am
No new posts DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 pm
No new posts Getting list of tables defined under ... kishpra DB2 2 Wed Aug 24, 2016 10:36 am


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us