Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

S0C7 while expanding my IMS segment length

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC
View previous topic :: :: View next topic  
Author Message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 147
Location: Coimbatore

PostPosted: Mon Mar 01, 2010 2:16 pm    Post subject: S0C7 while expanding my IMS segment length
Reply with quote

Hi,

Recently i had a requirement to change my IMS segment length and my dbd has fixed (230) and variable length(455) like this one,

A07SFIRE SEGM NAME=A07SFIRE,PARENT=((A07STDSQ,SNGL)),BYTES=
(455,230) ,PTR=T

It had already 220,445. So when i expanded my copybook and used the new one in my program i am getting junk values for the field which i have not changed it.
For eg:
A pic x(01).
C OCCURS 0 TO 75 TIMES depending on D
B PIC S9(03) COMP-3.
here B is the new variable introduced. But i am getting abend for A variable.

Please help me to see if i am going wrong somewhere. icon_sad.gif
Back to top
View user's profile Send private message

Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Mon Mar 01, 2010 6:42 pm    Post subject:
Reply with quote

Just asking - are you using a database that was THERE BEFORE you changed the DBD?
Back to top
View user's profile Send private message
abdulrafi

Active User


Joined: 14 Sep 2009
Posts: 147
Location: Coimbatore

PostPosted: Tue Mar 02, 2010 4:26 pm    Post subject: Reply to: S0C7 while expanding my IMS segment length
Reply with quote

Yes. I am changing a particular segment length in an existing database.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Tue Mar 02, 2010 4:45 pm    Post subject:
Reply with quote

Did you "unload" and "reload" the PHYSICAL database? Did you initialize the fields that are in that different location?

Quote:
So when i expanded my copybook and used the new one in my program i am getting junk values for the field which i have not changed it.


If the fields that you are accessing are in a different phycial location, you will get junk.
Back to top
View user's profile Send private message
Sandy Zimmer

Active Member


Joined: 13 Jun 2007
Posts: 826
Location: Wilmington, DE

PostPosted: Wed Mar 03, 2010 3:29 am    Post subject:
Reply with quote

Think of it this way - relative position 1 is the beginning of the first field in your database. I am ASSUMING that you are increasing the length of this segment because you need more occurances for history purposes.

So, your current segment is:
Quote:
A07SFIRE SEGM NAME=A07SFIRE,PARENT=((A07STDSQ,SNGL)),BYTES=
(455,230) ,PTR=T


Your prior segment was:
Quote:
A07SFIRE SEGM NAME=A07SFIRE,PARENT=((A07STDSQ,SNGL)),BYTES=
(445,220) ,PTR=T


If your minimum length was 220 BEFORE and your NEW segment length is 230 - that is the first of your problems.

You need to show us the before DBD and the after DBD - your prior copybook and your new copybook. Remember: DISPACEMENT. Depending on your answer, depends on how you will proceed.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> IMS DB/DC All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Length of Tape file Mohan Kothakota JCL & VSAM 9 Thu Apr 20, 2017 10:24 pm
No new posts Sort Large record length cmsmoon DFSORT/ICETOOL 14 Tue Apr 11, 2017 5:49 pm
No new posts Count the length of the record & ... sreekusr DFSORT/ICETOOL 4 Thu Mar 23, 2017 7:52 pm
No new posts Writing on to GSAM variable length rohanthengal JCL & VSAM 6 Fri Mar 03, 2017 7:46 pm
No new posts SQZ pipe delimited file with 1 column... Rick Silvers DFSORT/ICETOOL 6 Sun Nov 06, 2016 8:11 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us