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 ERROR - HELP NEEDED

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

New User


Joined: 16 Sep 2005
Posts: 10

PostPosted: Fri Apr 07, 2006 5:23 pm    Post subject: SOC7 ERROR - HELP NEEDED
Reply with quote

HI,

My program has failed with soc7 error, here by i'm giving the details found in the dump master along with the source listing and my program is an online pgm and uses TELON and IMS

Program JL0O08AU failed with Abend Code S0C7 when executing the ADD
in the following statement

004028 ADD 1 TO PAGES-SAVED

The following data are referenced by the statement

SeqNo Data Definition Address Le
WORKING-STORAGE SECTION
002108 10 PAGES-SAVED PIC 99 DISP-NUM 0004C0B3 2
Content: 'o.' X'962C' *** not valid DISP-NUM data.
002107 88 MORE-PAGES DISPLAY 0004C0
VALUE "1"
002108 10 PAGES-SAVED PIC 99 DISP-NUM 0004C0
Content: 'o.' X'962C' *** not valid DISP-NUM data.
002109 10 PAGE-KEY-TABLE 0004C0
002110 15 PAGE-KEY-1 PIC X(3) DISPLAY 0004C0
Content: 'rr.' X'9999,9D'
*** contains non-DISPLAY characters.
002111 15 PAGE-KEY-2-END PIC X(297) DISPLAY 0004C0
Content: '........@.................@..<.....%........*.......
X'0202,0C02,041C,0205,7C02,081C,0210,2C02,122C,0214,.
*** contains non-DISPLAY characters.

002102 *----------------------------------------------| END SRXFERB --
002103
002104 05 PAGE-WORK-AREA REDEFINES PAGE-AREA-START.
002105 10 PAGE-NUMBER-SAVE PIC 99.
002106 10 MORE-INDICATOR PIC X.
002107 88 MORE-PAGES VALUE "1".
002108 10 PAGES-SAVED PIC 99.
002109 10 PAGE-KEY-TABLE.
002110 15 PAGE-KEY-1 PIC X(3).
002111 15 PAGE-KEY-2-END PIC X(297).
002112 10 FILLER REDEFINES PAGE-KEY-TABLE.
002113 15 PAGE-KEY-SAVE OCCURS 100 TIMES PIC X(3).
002114 10 CURRENT-SEGMENT-KEY.
002115 15 CK-SEGMENT-KEY.
002116 20 CK-RO-NO PIC S9(5)V COMP-3.
002118 02 SCREEN-IMAGE-AREA.
002119 05 FILLER PIC X(12).
Back to top
View user's profile Send private message

martin9

Active User


Joined: 01 Mar 2006
Posts: 287
Location: Basel, Switzerland

PostPosted: Fri Apr 07, 2006 6:57 pm    Post subject:
Reply with quote

hy lokeshpg,

you know about s0c7?
if you don't have numeric data in this variable
and you try to access it, i.e. ADD, then of course
it will give you a s0c7 (data exception)!

correct this. maybe you initialize this variable first
or move zeros as initial value.

martin9
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 OO COBOL compile error Virendra Shambharkar COBOL Programming 3 Tue Jan 10, 2017 6:05 pm
No new posts S922 Error yuvan ABENDS & Debugging 3 Fri Dec 02, 2016 6:58 pm
No new posts Invoke Webservice Fails with DFHPI100... divated CICS 2 Thu Nov 24, 2016 5:57 pm
No new posts Error during restore rename archanamuthukrishnan All Other Mainframe Topics 2 Fri Oct 14, 2016 3:30 pm
No new posts Error IEC161I 052(009,XXXRS00)-084 wh... amitc23 JCL & VSAM 10 Wed Oct 12, 2016 5:00 pm


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