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
 
SOC7 Abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> ABENDS & Debugging
View previous topic :: :: View next topic  
Author Message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Fri Jun 09, 2006 9:57 pm    Post subject: SOC7 Abend
Reply with quote

Hi,

I am getting a SOC7 Abend here below, The bold is the area where I am getting the SOC7 abend.

01 WS-ALARM-PCT-AREA.
05 WS-ALARM-PCT PIC 9(09).
05 WS-ALARM-PCT-X REDEFINES WS-ALARM-PCT PIC X(09).



IF D303-CSAR-PREM2-AMT (CSAR-IDX) > ZEROS
MOVE D303-CSAR-PREM2-AMT (CSAR-IDX) TO WS-ALARM-PCT
MOVE WS-ALARM-PCT-X TO AV-ALMB
END-IF.

IF D303-CSAR-PREM3-AMT (CSAR-IDX) > ZEROS
MOVE D303-CSAR-PREM3-AMT (CSAR-IDX) TO WS-ALARM-PCT
MOVE WS-ALARM-PCT-X TO AV-ALMC
END-IF.



Copy book variable

10 D303-CSAR-PREM2-AMT PIC S9(09)V99 COMP-3.
10 D303-CSAR-PREM3-AMT PIC S9(09)V99 COMP-3.

can any one tell me what needs to be done.
Back to top
View user's profile Send private message

calspach

New User


Joined: 05 May 2006
Posts: 32
Location: USA

PostPosted: Fri Jun 09, 2006 10:49 pm    Post subject:
Reply with quote

Only thing I would say is look at what is being put in D303-CSAR-PREM2-AMT before your move. If it's nothing, and you haven't initialized the table, you could have garbage in it, hence the soc7.
Back to top
View user's profile Send private message
calspach

New User


Joined: 05 May 2006
Posts: 32
Location: USA

PostPosted: Fri Jun 09, 2006 10:50 pm    Post subject:
Reply with quote

Oh, and change the zeros to zero or 0. I think zeros is handled a bit different, it doesn't necessarily check it for numeric, just that it is greater than the hex equivalent of all zeroes.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1235
Location: Israel

PostPosted: Sun Jun 11, 2006 8:05 pm    Post subject:
Reply with quote

It is a good practice to double-check data that comes from external source:
Code:
IF D303-CSAR-PREM2-AMT (CSAR-IDX) IS NUMERIC
    MOVE D303-CSAR-PREM2-AMT (CSAR-IDX) TO WS-ALARM-PCT
ELSE
    MOVE 0 TO WS-ALARM-PCT
END-IF.
Back to top
View user's profile Send private message
som_infotech

New User


Joined: 25 Feb 2006
Posts: 38
Location: chennai-india

PostPosted: Mon Jun 12, 2006 12:09 am    Post subject:
Reply with quote

is it working out for you
Back to top
View user's profile Send private message
shrivatsa
Warnings : 1

Active User


Joined: 17 Mar 2006
Posts: 171
Location: Bangalore

PostPosted: Mon Jun 12, 2006 7:35 am    Post subject: Re: SOC7 Abend
Reply with quote

Hi,

This Program is compiled through Endevor and we have some other programs which are going to compile manual. So I have not made changes to the manual programs its comeout with the data out of sync, ended with SOC7.

Now its working fine.

Thanks to all of you
Back to top
View user's profile Send private message
OldSystemProgrammer

New User


Joined: 12 May 2006
Posts: 7

PostPosted: Tue Jun 13, 2006 4:33 pm    Post subject:
Reply with quote

Packed decimal (COMP-3) field handling need to use the digit "0". When you use the ZERO or ZEROES figurative constans the result of an operation will be unpredictable. The packed decimal fields do not like the figurativ constans. At a packed decimal field checking result is better with a following comparation.

IF (D303-CSAR-PREM2-AMT (CSAR-IDX) >= 0) AND
(D303-CSAR-PREM2-AMT (CSAR-IDX) <=9) THEN ........
ELSE ................

ENDIF
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1235
Location: Israel

PostPosted: Tue Jun 13, 2006 5:44 pm    Post subject:
Reply with quote

OldSystemProgrammer wrote:
Packed decimal (COMP-3) field handling need to use the digit "0". When you use the ZERO or ZEROES figurative constans the result of an operation will be unpredictable. The packed decimal fields do not like the figurativ constans.

Never seen or heard of such a problem. I would be very very surprised if this is correct.
Back to top
View user's profile Send private message
ioro

New User


Joined: 16 Jun 2006
Posts: 1

PostPosted: Fri Jun 23, 2006 8:10 am    Post subject:
Reply with quote

it seems correct..
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 -> ABENDS & Debugging All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm
No new posts IMS region inactive - User abend code... gthmrj IMS DB/DC 5 Tue Mar 07, 2017 12:29 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm
No new posts abend sort based on count records in ... anatol DFSORT/ICETOOL 5 Mon Oct 17, 2016 10:10 pm
No new posts hot to get details when "EXEC CI... Andi1982 CICS 11 Tue Sep 20, 2016 5:01 pm


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