MVSFORUMS.com Forum Index MVSFORUMS.com
A Community of and for MVS Professionals
 
 FAQFAQ   SearchSearch   Quick Manuals   RegisterRegister 
 ProfileProfile   Log in to check your private messagesLog in to check your private messages   Log inLog in 

HDAM secondary index not populated

 
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS
View previous topic :: View next topic  
Author Message
newbee
Beginner


Joined: 24 Jun 2011
Posts: 5
Topics: 2

PostPosted: Mon Jul 04, 2011 8:00 pm    Post subject: HDAM secondary index not populated Reply with quote

I tried to create a HDAM database with secondary index and load records into it.

The DBD generation, PSB generation, HDAM & HDAM index dataset creation are all ok. I ran a program to load records into it. I am able to see the data in the HDAM ESDS file, but no record is present in the secondary index file(KSDS).

Please help me understand why there is no record in the secondary index file. Am I missing some thing?

Code:

 000001          PRINT NOGEN
 000002 DBDNAME  DBD   NAME=HDAMSEC,ACCESS=(HDAM),RMNAME=(DFSHDC10,5,10)
 000003          DATASET DD1=CORPDD,DEVICE=3390
 000004          SEGM  NAME=CORPSEG,PARENT=0,BYTES=105
 000005          FIELD NAME=(CORPID,SEQ,U),START=1,BYTES=15,TYPE=C
 000006          FIELD NAME=CORPNAM,START=16,BYTES=40,TYPE=C
 000007          FIELD NAME=CORPADS,START=56,BYTES=50,TYPE=C
 000009          SEGM  NAME=SERVPSEG,PARENT=CORPSEG,BYTES=35
 000010          LCHILD NAME=(SERVPTR,HDAMSECI),POINTER=INDX
 000011          FIELD NAME=(SERVPID,SEQ,U),START=1,BYTES=10
 000013          XDFLD NAME=SERVXID,SRCH=SERVPID
 000014          FIELD NAME=SERVPNM,START=11,BYTES=25,TYPE=C
 .
 000023          DBDGEN
 000024          FINISH
 000025          END


Code:

 000001          PRINT NOGEN
 000002 DBDNAME  DBD   NAME=HDAMSECI,ACCESS=(INDEX,VSAM)
 000003          DATASET DD1=CORPDDI,DEVICE=3390
 000004          SEGM   NAME=SERVPTR,PARENT=0,BYTES=10
 000005          LCHILD NAME=(SERVPSEG,HDAMSEC),INDEX=SERVXID,POINTER=SNGL
 000006          FIELD  NAME=(SERVINDX,SEQ),BYTES=10,START=1
 000008          DBDGEN
 000009          FINISH
 000010          END


Code:

 000001          PRINT  NOGEN
 000002 PCB1     PCB    TYPE=DB,DBDNAME=HDAMSEC,PROCOPT=L,KEYLEN=35
 000005          SENSEG NAME=CORPSEG,PARENT=0
 000006          SENFLD NAME=CORPID,START=1
 000007          SENFLD NAME=CORPNAM,START=16
 000008          SENFLD NAME=CORPADS,START=56
 000010          SENSEG NAME=SERVPSEG,PARENT=CORPSEG
 000011          SENFLD NAME=SERVPID,START=1
 000012          SENFLD NAME=SERVPNM,START=11
 .
 000021          PSBGEN LANG=COBOL,PSBNAME=HDAMSIPS
 000022          END


Code:

 000001 //USERID9R JOB NOTIFY=&SYSUID,PRTY=15
 000002 //         JCLLIB ORDER=USERID1.PROCLIB1
 000003 //STEP0001 EXEC IMSPROC,
 000006 //            REGION=0M,MBR=ISRT02,
 000007 //            PSB=HDAMSIPS,DBD=HDAMSEC,DBRC=N,
 000008 //            SOURCE=USERID9.IMS.HDAMSECI.PROG,
 000009 //            LOADMOD=USERID9.IMS.LOADLIB,
 000010 //            PSBLIB=USERID9.IMS.PSBLIB,
 000011 //            DBDLIB=USERID9.IMS.DBDLIB,
 000012 //            HLQ=USERID9
 000013 //GO.IMSLOGR  DD DSN=USERID9.IMS.LOG1,DISP=(MOD,KEEP),
 000014 //            DCB=(RECFM=VB,BLKSIZE=1920,
 000015 //            LRECL=1916,BUFNO=2),SPACE=(TRK,(5,5))
 000016 //GO.IEFRDER  DD DSN=USERID9.IMS.LOG2,DISP=(MOD,KEEP),
 000017 //            DCB=(RECFM=VB,BLKSIZE=1920,
 000018 //            LRECL=1916,BUFNO=2),SPACE=(TRK,(5,5))
 000019 //GO.DFSURWF1 DD DSN=USERID9.IMS.DFSURWF1,DISP=(MOD,KEEP),
 000020 //            DCB=(RECFM=VB,BLKSIZE=304,
 000021 //            LRECL=300,BUFNO=2),SPACE=(TRK,(5,5))
 000022 //GO.DFSURIDX DD DSN=USERID9.IMS.DFSURIDX,DISP=(MOD,KEEP),
 000023 //            DCB=(RECFM=VB,BLKSIZE=904,
 000024 //            LRECL=900,BUFNO=2),SPACE=(TRK,(5,5))
 000025 //GO.SYSPRINT DD SYSOUT=*
 000026 //GO.SYSOUT   DD SYSOUT=*
 000027 //GO.CORPDD   DD DISP=OLD,DSN=USERID9.IMS.HDAMSECI.CORPDD
 000028 //GO.CORPDDI  DD DISP=OLD,DSN=USERID9.IMS.HDAMSECI.CORPDDI
 000029 //GO.INPUT1   DD DISP=SHR,DSN=USERID9.IMS.HDAMSECI.INPUT
 000030 //GO.DFSVSAMP DD *
 000031 VSRBF=2048,4
 000032 VSRBF=2048,4
 000033 /*
 000034 //SYSIN DD DUMMY
Back to top
View user's profile Send private message
newbee
Beginner


Joined: 24 Jun 2011
Posts: 5
Topics: 2

PostPosted: Sun Jul 10, 2011 4:50 am    Post subject: Reply with quote

Any feedback Question
Back to top
View user's profile Send private message
Nic Clouston
Advanced


Joined: 01 Feb 2007
Posts: 1075
Topics: 7
Location: At Home

PostPosted: Sun Jul 10, 2011 1:34 pm    Post subject: Reply with quote

Obviously not!
_________________
Utility and Program control cards are NOT, repeat NOT, JCL.
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic   printer-friendly view    MVSFORUMS.com Forum Index -> IMS All times are GMT - 5 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


MVSFORUMS
Powered by phpBB © 2001, 2005 phpBB Group