newbee Beginner
Joined: 24 Jun 2011 Posts: 5 Topics: 2
|
Posted: Mon Jul 04, 2011 8:00 pm Post subject: HDAM secondary index not populated |
|
|
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
|
|
|