Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist 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 SIGNAL ON HALT issue packerm CLIST & REXX 0 Fri Oct 20, 2017 6:56 pm
No new posts Moving UDB database to Db2 on z/OS Keith Hooley DB2 4 Wed Sep 27, 2017 12:38 am
No new posts Browse dataset cvnlynn CLIST & REXX 4 Tue Jul 18, 2017 3:52 am
No new posts Changeman get multiple "Browse C... elixir1986 Compuware & Other Tools 4 Fri Jul 14, 2017 1:48 am
No new posts REXX to view the PGM or PROC jackzhang75 CLIST & REXX 11 Tue Jun 20, 2017 1:20 am

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us