Display Comp-3 variable in sysout

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

Hi,
I have a table field say

PB-LMT(2,3) PIC S9(07)V99 COMP-3.
I want to display its value in sysout for testing purpose. I tried to MOVE it in a working storage variable declared as

WS-PB-LMT1 PIC Z(07)V9(2). but getting SOC4 error

Can anyone pls help me on it.
Thanks.

Robert Sample · Posted: Fri Aug 24, 2012 7:26 am

1. Why not just display the table element with the leading zeroes?

2. An S0C4 ABEND is a storage violation -- meaning you are going outside your table bounds or otherwise attempting to use storage that is not assigned to your program. Without specific code, there's not much more we can say.

3. You posted invalid syntax -- what is this supposed to be?

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

Thanks Robert for quick!

In Copybook the field PB-LMT is declared as below.

dick scherrer · Posted: Fri Aug 24, 2012 7:52 am

Hello,

Is the PB-LMT field in a 2-dimensional array?

It looks like your index(es)/subscript(s) are wrong (outside of the array) when you try to move the value to the WS field. . . You could try using SSRANGE to see when the error happens.

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

Yes, Dick It's in 2 dimensional array.

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

I did try with SSRANGE before ID DIV but getting SOC4 again.

CBL SSRANGE
IDENTIFICATION DIVISION.
*************************

dick scherrer · Posted: Fri Aug 24, 2012 8:12 am

Hello,

Your post has been "Code'd" to improve readabiliby.

What about an index for the second array?

How did you get from the 0c4 to incorrect results?

It sounds like there multiple things wrong and rather than actually fixing one problem at a time, a shotgun approach is being taken. . .

dick scherrer · Posted: Fri Aug 24, 2012 8:12 am

Follow on:

Which instruction causes the 0c4?

dbzTHEdinosauer · Posted: Fri Aug 24, 2012 8:16 am

looks like the 2 dimensional table within the vsam record is corrupted,
typical reason: program updating the record is not properly written -
different record definition
different working-storage definition

Looks like you have a short record. DFSORT can validate your record lengths.

and why are you not using the work-area option on your reads?

any module that references the record should be checked.

are there different record types within the vsam file?

did not know that file-aid could not handle a compressed vsam record.

dbzTHEdinosauer · Posted: Fri Aug 24, 2012 8:19 am

if you require an extra dd parm to read/write the file,
maybe some update job is not using the required parm.

dbzTHEdinosauer · Posted: Fri Aug 24, 2012 9:47 am

last but not least,
Dick asked the most important question,
when/where are you getting the soc4?

you are not getting it on 2,3.

between no answer on the soc4 and this silliness about file-aid,
i am afraid we have wasted a lot of time here,

Bill Woodger · Posted: Fri Aug 24, 2012 1:20 pm

As has been pointed out, there is much that doesn't add up.

If you can display the ( 2 3 ) without getting a S0C4, then you won't get a S0C4 on the MOVE with the same data.

SSRANGE you have, but with literal subscripts you know they are inside the range.

So,

Show your JCL for the VSAM file
Show the Select from your program
Show the FD and what is subordinate to it
If not shown in the previous, show the full copybook

If you are accessing ( 2 3 ) for a record which only has one entry in the table then sometimes you'll get output with no abend, sometimes you'll get S0C7, and you have a chance of S0C4 as well.

Phrzby Phil · Posted: Fri Aug 24, 2012 5:34 pm

Just a side note - if you are going to move it to a display field, why not show the sign and the actual (rather than implied) decimal point?

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

I did try with SSRANGE before ID DIV but getting SOC4 again.

CBL SSRANGE
IDENTIFICATION DIVISION.
*************************

Bill Woodger · Posted: Fri Aug 24, 2012 6:25 pm

OK, but I said that SSRANGE is not going to change anything. You are using literal subscripts which are known to be within the range.

Can you provide what has been requested, else it is difficult to say much more?

Robert Sample · Posted: Fri Aug 24, 2012 6:42 pm

The S0C4 means your program is attempting to access (read or write) storage which does not belong to your program. There is a good chance this is due to a subscript being out of range (a bad variable value, for example, when the variable is being used for a subscript). However, there is also a good chance that the storage violation has absolutely nothing to do with your table.

The abend messages should include a program name and offset into that program where the problem was identified (note that for S0C4 abends in particular, the location the problem is identified at could be a long way from where the storage violation actually occurred). Using that offset to identify the line of code would be the first step to figuring out the abend.

Peter cobolskolan · Posted: Fri Aug 24, 2012 7:49 pm

Why not a simple Repro of some records to Sysout to verify the contents to start with?

enrico-sorichetti · Posted: Fri Aug 24, 2012 7:51 pm

dick scherrer · Posted: Fri Aug 24, 2012 7:53 pm

Hello,

As i asked before, which instruction caused the 0c4?

I suspect it may be due to referencing a closed (or not yet opened) file.

enrico-sorichetti · Posted: Fri Aug 24, 2012 7:56 pm

looks like the topic is going down the sink

up to now the TS has not posted a single bit of info useful to solve his problem

dick scherrer · Posted: Fri Aug 24, 2012 8:18 pm

Hi Enrico,

Yup, but some of us "big kids" are having fun tossing out ideas

d

Ravi Kirti · New User Joined: 24 Mar 2012 Posts: 17 Location: pune

Sorry for late response, I was away for some time.

The storage reference exception occurred in the following statement:

MOVE PB-LMT(2,3) TO WS-PB-LMT1

Thanks

Bill Woodger · Posted: Fri Aug 24, 2012 9:21 pm

Well, if that is all you are going to give us, then Dick's "file not currently open" is the most likely, followed by only one entry on that particular record.

We can keep guessing 'til the cows come ho... Oh, there they are now. 'nuff guessing.

dick scherrer · Posted: Fri Aug 24, 2012 9:21 pm

Hello,

Where is PB-LMT located (in the FD, working-storage, linkage section)?

If it is in the FD, you have probably already been given the answer. . .