Problem with level-88 item



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Problem with level-88 item

Postby oerdgie » Sun Dec 23, 2012 10:06 pm

Hey folks,

I have an IMS message-driven program.
In the Working Storage I declared a level-88 item like this :

05 ACCESS PIC X(02).
88 INSERT VALUE 'I '.
88 UPDATE VALUE 'U '.
88 DELETE VALUE 'D '.

When I set the level-88 INSERT item in the Procedue Devision to TRUE, I would expect, the ACCESS item contais the value 'I '.
But it contains sometimes '30' or '79', not every time, sometimes.
No idea why... can anybode help me ?
oerdgie
 
Posts: 4
Joined: Thu Nov 22, 2007 2:40 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Problem with level-88 item

Postby Robert Sample » Sun Dec 23, 2012 10:23 pm

It sounds like you may have storage overlay problem. However, with what you have posted there is not much we can say.
Robert Sample
Global moderator
 
Posts: 3719
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: Problem with level-88 item

Postby enrico-sorichetti » Sun Dec 23, 2012 10:24 pm

just decide where You want Your questions answered
somebody will delete the useless copy..
( the topic on the other forum has been unlocked )
cheers
enrico
When I tell somebody to RTFM or STFW I usually have the page open in another tab/window of my browser,
so that I am sure that the information requested can be reached with a very small effort
enrico-sorichetti
Global moderator
 
Posts: 2994
Joined: Fri Apr 18, 2008 11:25 pm
Has thanked: 0 time
Been thanked: 164 times

Re: Problem with level-88 item

Postby oerdgie » Sun Dec 23, 2012 10:37 pm

A storage overlay problem... yes, could be. I think, maybe there ist a problem with the literal pool. But what can I do ??
What information you need additional to help me ?
oerdgie
 
Posts: 4
Joined: Thu Nov 22, 2007 2:40 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Problem with level-88 item

Postby BillyBoyo » Mon Dec 24, 2012 12:04 am

You need to post the full definition of which the 05 is only a small part.

It is unlikely that anything is wrong with the literal pool, so look for other things first.

How did you discover that the other values exist?
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times

Re: Problem with level-88 item

Postby Robert Sample » Mon Dec 24, 2012 12:45 am

The first thing for you to do is accept that if you code
SET INSERT TO TRUE
then the value of variable ACCESS is 'I ' -- period. There is nothing that will change this fact.

The second thing for you to do is to accept that if you are doing
DISPLAY ACCESS
after the previous code, and the value is NOT 'I ' then something in your program has changed that value. This, too, is a fact.

The third thing for you to do is to start looking at your code for where you change the value of ACCESS. It almost certainly will not be easy to locate, but that is the nature of storage violations. You might try using compiler option SSRANGE for a start.
Robert Sample
Global moderator
 
Posts: 3719
Joined: Sat Dec 19, 2009 8:32 pm
Location: Dubuque, Iowa, USA
Has thanked: 1 time
Been thanked: 279 times

Re: Problem with level-88 item

Postby oerdgie » Mon Dec 24, 2012 3:16 am

Thanks for the answer, I will try the compiler option SSRANGE.
As soon as I try SSRANGE, I give you an answwer :)
oerdgie
 
Posts: 4
Joined: Thu Nov 22, 2007 2:40 pm
Has thanked: 0 time
Been thanked: 0 time

Re: Problem with level-88 item

Postby BillyBoyo » Mon Dec 24, 2012 3:47 am

And when you post something, post the names actually used, please. ACCESS, INSERT and DELETE are all Reserved Words.

If you don't post the original, unchanged, source, then we end up diagnosing your typos.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 265 times


Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post