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

IMS SEGMENT READ ISSUE


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

New User


Joined: 03 Dec 2020
Posts: 5
Location: India

PostPosted: Sun May 02, 2021 9:36 pm
Reply with quote

Hi All,

I have recently deleted and created a new IMS DB file and its IMS Index file using the current image copy file.
below is the sample jcl used for Loading the IMS file

//STEP02 EXEC PGM=DFSRRC00,REGION=1024K,
// PARM='UDR,DFSURDB0,DBNA0AD,7,0000,,0,,N,0,T
//* PARM='UDR,DFSURDB0,DBNA0AD'
//STEPLIB DD DISP=SHR,DSN=IMSVS.WT.TEST.PGMLIB
// DD DISP=SHR,DSN=IMSVS.WT.TEST.RESLIB
//DFSRESLB DD DISP=SHR,DSN=IMSVS.WT.TEST.RESLIB
//IMS DD DISP=SHR,DSN=SYSD.WT.TEST.IMSDBDL
//DFSVSAMP DD DISP=SHR,DSN=SYSD.WT.TEST.IMSCNTL(DFSVSAMP)
//DFSUCUM DD DUMMY
//DFSULOG DD DUMMY
//SYSPRINT DD SYSOUT=Y
//DBIMSXX1 DD DSN=TEST.IC.IMSDB1,DISP=SHR
//DFSUDUMP DD DISP=SHR,DSN=TEST.IMSU.ICIMSXX1.IMGECOPY(+0
//SYSIN DD *
S DBIMSXX DBIMSXX1

Though the IMS has been created successfully with proper record counts as same as the source.

When I run a job using these ims db and index files, some of the segments of the IMS files are misread, for instance, CURR-BUS-DAY which has to be read in 9(5) julian format (YYDDD) like below

PREV-YYDDD 9(5) : 21119
CURR-YYDDD 9(5) : 21120

but it misreads the data as

PREV-YYDDD 9(5) : 20211
CURR-YYDDD 9(5) :20202.

if the segments are not read properly, where I have to start my analysis and what could be the reason for the same.

is there anything else I have to do in the LOAD JCL I have mentioned above.

Please advise. Thank you in advance.
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 Read UTF-8 file in Cobol COBOL Programming 5
No new posts SYNCSORT/ICETOOL JOINKEYS SORT Statem... DFSORT/ICETOOL 13
No new posts How to read unpacked field created in... DFSORT/ICETOOL 12
No new posts Issue with CR+ catalog backup job. JCL & VSAM 18
No new posts How to issue a non-blocking popup CLIST & REXX 8
Search our Forums:

Back to Top