MVSFORUMS.com

vijaysridharan · Beginner Joined: 05 Feb 2003 Posts: 2 Topics: 2

Hi,
If anyone of you may explain why this error occurs , it may be helpful for me. remedy is also appreciated.
Thanks in advance for your help.

_____________________________________________________________
working storage in pgm A
01 ws-var.
......
.......
03 var1 s9(17) comp-3.

77 ws-var2 pic s9(12) value zeros.

procedure division

move zeros to var1.
read file1 into ws-var.
display var1.

***Test data in file1 for the comp-3 field
100346113

When I display this value it's just 10034611. '3' is lost. i think it's because of the sign byte. next

move var1 to ws-var2.
display ws-var2.

when I tried moving this comp-3 variable to ws-var2 there is an S0C7 abend.

Pl. let me know why does this happen.

Next when I pass this var1 to pgm 'B'

Pgm B

77 ws-var1 pic s9(17) comp-3

procedure division

move zeros to ws-var1
move var1 to ws-var1

i get a s0c7 ABEND immediately after this move has been made.

Pl. explain why this happens.

Mervyn · Posted: Mon Mar 03, 2003 5:18 pm Post subject:

vijaysridharan, please show the hexadecimal representation of the important part of your input record. The reason I ask this is that all of these symptoms would occur if the last byte of your var1 variable contained '13' instead of '3c'.

Hope this helps.

Cheers,
Merv
_________________
The day you stop learning the dinosaur becomes extinct

dharmaraju · Posted: Tue Mar 11, 2003 6:51 am Post subject:

Hello Vijay

Let me know how u have declared ur FD entry record description.
If you have only one dataname declaring the whole length of the file record, then ur move will become alphanumeric move and results in SOC7 error. Could u come up with the details???
_________________
Arigato Guzaimasu ( Thank you in Japanese)
Dharmaraj