IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Secondary index error while loading data using DFSDDLT0


IBM Mainframe Forums -> IMS DB/DC
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Mon Jan 18, 2021 9:26 pm
Reply with quote

I was trying sample secondary index creation on HDAM Database, sec. index i tried on ORDRDET segment - ORDRID field. Target and source both belong to same segment and same field. While loading 1st segment into ORDRDET, am coming across below issue - duplicate insert error. I am not sure why duplicate insert error is shown when there is not a single previous insert for the segment/database record.
Error:
Code:
+DFS0840I  INDEX ERROR CMPHDMSC NI 11111       
+DFS0832I ABEND U0826 REASON CODE N/A   DATABASE



DBD main database:
Code:
DBD NAME=CMPHDMSC,ACCESS=HDAM,RMNAME=(DFSHDC40,3,2048,2048) 
DATASET DD1=COMPDS,DEVICE=3390                               
                                                             
SEGM NAME=COMPINFO,BYTES=20,PARENT=0                         
FIELD NAME=(COMPKEY,SEQ,U),BYTES=04,START=1                 
FIELD NAME=COMPNAME,BYTES=10,START=5                         
FIELD NAME=COMPADDR,BYTES=06,START=15                       
                                                             
SEGM NAME=PARTDET,BYTES=20,PARENT=COMPINFO                   
FIELD NAME=(PARTKEY,SEQ,U),BYTES=05,START=1                 
FIELD NAME=PARTNAME,BYTES=15,START=6                         
                                                             
SEGM NAME=ORDRDET,BYTES=15,PARENT=COMPINFO                   
FIELD NAME=(ORDRID,SEQ),BYTES=05,START=1                     
LCHILD NAME=(X1SEG,CMPHDMSI),PTR=INDX                       
XDFLD NAME=ORDRIDX,SRCH=ORDRID                               
FIELD NAME=ORDRDATE,BYTES=10,START=6                         
                                                             
DBDGEN                                                       
FINISH                                                       
END                     


Secondary index DBD:
Code:
DBD NAME=CMPHDMSI,ACCESS=INDEX                           
DATASET DD1=COMPDSI                                       
                                                         
SEGM NAME=X1SEG,BYTES=05,PARENT=0                         
FIELD NAME=(ORDRIDIX,SEQ,U),BYTES=05,START=1             
LCHILD NAME=(ORDRDET,CMPHDMSC),INDEX=ORDRIDX,POINTER=SNGL
                                                         
DBDGEN                                                   
FINISH                                                   
END                                         


Initial PSB:
Code:
PCB TYPE=DB,DBDNAME=CMPHDMSC,                 
    PROCOPT=L,KEYLEN=14,PCBNAME=CMPPCB1       
SENSEG NAME=COMPINFO,PARENT=0                 
SENFLD NAME=COMPKEY,START=1                   
SENFLD NAME=COMPNAME,START=5                 
SENFLD NAME=COMPADDR,START=15                 
SENSEG NAME=PARTDET,PARENT=COMPINFO           
SENFLD NAME=PARTKEY,START=1                   
SENFLD NAME=PARTNAME,START=6                 
SENSEG NAME=ORDRDET,PARENT=COMPINFO           
SENFLD NAME=ORDRID,START=1                   
SENFLD NAME=ORDRDATE,START=6                 
PSBGEN PSBNAME=CMPPSBSC,LANG=COBOL,CMPAT=YES 
END           


Have I missed any step while addressing secondary index trial ?
You can help me with your any experience, insights pls which would help me improve my understanding.
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Mon Jan 18, 2021 9:41 pm
Reply with quote

I was trying to do initial load/insert with below data-
Code:
S 1 1 1 1 1    CMPHDMSC               
L        ISRT  COMPINFO               
L        DATA  0001COMPUTER25411044   
L        ISRT  PARTDET               
L        DATA  00011BALLEY SYST       
L        ISRT  PARTDET               
L        DATA  00012MP SYSTEMS       
L        ISRT  PARTDET               
L        DATA  00013TRANUNITD SYS   
L        ISRT  ORDRDET               
L        DATA  111112021-01-01       
L        ISRT  COMPINFO               
L        DATA  0002COMPUTER26413001   
L        ISRT  PARTDET               
L        DATA  00014CELL COMPUTER     
L        ISRT  ORDRDET               
L        DATA  222222021-01-02       
L        CHKP                         
Back to top
View user's profile Send private message
rohanthengal

Active User


Joined: 19 Mar 2009
Posts: 206
Location: Globe, India

PostPosted: Thu Jan 21, 2021 3:06 pm
Reply with quote

any idea on my above doubt ?
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> IMS DB/DC

 


Similar Topics
Topic Forum Replies
No new posts VB file copy COBOL program gives erro... COBOL Programming 3
No new posts AUTHORIZED database error in HALDB IMS DB/DC 2
No new posts Adding a header when change data DFSORT/ICETOOL 6
No new posts Selective extract of multi-record-typ... SYNCSORT 4
No new posts Issue with CA Copycat-IGD17100I UNEXP... CA Products 5
Search our Forums:

Back to Top