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 

HIDAM primary 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: Sat Jun 25, 2011 11:13 pm    Post subject: HIDAM primary index not populated Reply with quote

I am trying to learn IMS on my own. In my company we don't have IMS DBA to assist me.

I tried to create a HIDAM database and load 2 records into it.

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

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

Code:
 000001          PRINT NOGEN
 000002 DBDNAME  DBD   NAME=HIDAMDBD,ACCESS=(HIDAM,VSAM)
 000003          DATASET DD1=CORPDD,DEVICE=3390
 000004          SEGM   NAME=CORPSEG,PARENT=0,BYTES=105
 000005          LCHILD NAME=(POINTER,HIDAMIDX),POINTER=INDX
 000006          FIELD  NAME=(CORPID,SEQ,U),START=1,BYTES=15,TYPE=C
 000007          FIELD  NAME=CORPNAM,START=16,BYTES=40,TYPE=C
 000008          FIELD  NAME=CORPADS,START=56,BYTES=50,TYPE=C
 000009          SEGM   NAME=SERVPSEG,PARENT=CORPSEG,BYTES=35
 000010          FIELD  NAME=(SERVPID,SEQ,U),START=1,BYTES=10
 000011          FIELD  NAME=SERVPNM,START=11,BYTES=25,TYPE=C
 000012          SEGM   NAME=CONECSEG,PARENT=SERVPSEG,BYTES=67
 000013          FIELD  NAME=(EMPID,SEQ,U),START=1,BYTES=10,TYPE=C
 000014          FIELD  NAME=SCHMTYP,START=11,BYTES=10,TYPE=C
 000015          FIELD  NAME=CALLTYP,START=21,BYTES=05,TYPE=C
 000016          FIELD  NAME=SRTTIME,START=26,BYTES=10,TYPE=C
 000017          FIELD  NAME=ENDTIME,START=36,BYTES=10,TYPE=C
 000018          FIELD  NAME=TOTCALS,START=46,BYTES=10,TYPE=P
 000019          FIELD  NAME=TOTCHRG,START=56,BYTES=12,TYPE=P
 000020          DBDGEN
 000021          FINISH
 000022          END


Code:

 000001          PRINT NOGEN
 000002 DBDNAME  DBD   NAME=HIDAMDBI,ACCESS=(INDEX,VSAM)
 000003          DATASET DD1=CORPDDI,DEVICE=3390
 000004          SEGM   NAME=POINTER,PARENT=0,BYTES=15
 000005          LCHILD NAME=(CORPSEG,HIDAMDBD),INDEX=CORPID
 000006          FIELD  NAME=(INDEXFLD,SEQ),BYTES=15,START=1
 000007          DBDGEN
 000008          FINISH
 000009          END


Code:

 000001          PRINT  NOGEN
 000002 PCB1     PCB    TYPE=DB,DBDNAME=CORPDBD,PROCOPT=L,KEYLEN=35
 000003          SENSEG NAME=CORPSEG,PARENT=0
 000004          SENFLD NAME=CORPID,START=1
 000005          SENFLD NAME=CORPNAM,START=16
 000006          SENFLD NAME=CORPADS,START=56
 000007          SENSEG NAME=SERVPSEG,PARENT=CORPSEG
 000008          SENFLD NAME=SERVPID,START=1
 000009          SENFLD NAME=SERVPNM,START=11
 000010          SENSEG NAME=CONECSEG,PARENT=SERVPSEG
 000011          SENFLD NAME=EMPID,START=1
 000012          SENFLD NAME=SCHMTYP,START=11,REPLACE=YES
 000013          SENFLD NAME=CALLTYP,START=21,REPLACE=YES
 000014          SENFLD NAME=SRTTIME,START=26,REPLACE=YES
 000015          SENFLD NAME=ENDTIME,START=36,REPLACE=YES
 000016          SENFLD NAME=TOTCALS,START=46,REPLACE=YES


Code:


 000001 //USERID9A JOB NOTIFY=&SYSUID,PRTY=15
 000002 //   JCLLIB ORDER=USERID1.PROCLIB1
 000003 //STEP0001 EXEC IMSPROC,
 000004 //*           REGION=0M,MBR=DELETE01,
 000005 //*           PSB=HIDAMPS2,DBD=HIDAMDBD,DBRC=N,
 000006 //            REGION=0M,MBR=ISRT02,
 000007 //            PSB=HIDAMPSB,DBD=HIDAMDBD,DBRC=N,
 000008 //            SOURCE=USERID9.IMS.HIDAM.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.SYSPRINT DD SYSOUT=*
 000020 //GO.SYSOUT   DD SYSOUT=*
 000021 //GO.CORPDD   DD DISP=OLD,DSN=USERID9.IMS.HIDAM.CORPDD
 000022 //GO.CORPDDI  DD DISP=OLD,DSN=USERID9.IMS.HIDAM.CORPDDI
 000023 //GO.INPUT1   DD DISP=SHR,DSN=USERID9.IMS.HIDAM.INPUT
 000024 //GO.DFSVSAMP DD *
 000025 VSRBF=2048,4
 000026 /*
 000027 //SYSIN DD DUMMY
 000028 /*
 000029 //


In the program I am inserting the records with the procopt 'L'
Back to top
View user's profile Send private message
newbee
Beginner


Joined: 24 Jun 2011
Posts: 5
Topics: 2

PostPosted: Sun Jun 26, 2011 12:28 pm    Post subject: Reply with quote

Friends, I managed to locate the issues.
1) DBDname in the PSB is mentioned incorrectly.
2) Index DBDname is mentioned incorrectly in the HIDAM DBD

I am ashamed to think that I was struck on this issue for 2 days bonk

Mods, please delete the thread if it is redundant. I could not able to to delete the thread by myself.
Back to top
View user's profile Send private message
papadi
Supermod


Joined: 20 Oct 2009
Posts: 594
Topics: 1

PostPosted: Sun Jun 26, 2011 9:48 pm    Post subject: Reply with quote

Good to see you "found it" Smile

Most of us cannot edit or delete peoples topics.

Your topic may well help another who gets stuck one day.

Just as a suggestion, when experimenting, i'd use very few "pieces" and save a bunch of typing and potential errors<g>.
_________________
All the best,

di


Last edited by papadi on Mon Jul 04, 2011 1:51 pm; edited 1 time in total
Back to top
View user's profile Send private message
newbee
Beginner


Joined: 24 Jun 2011
Posts: 5
Topics: 2

PostPosted: Mon Jul 04, 2011 11:34 am    Post subject: Reply with quote

Hi di, Thanks for your feedback. I will surely try to help others in need.
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