lokeshpg
New User
Joined: 16 Sep 2005 Posts: 10
|
|
|
|
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). |
|
martin9
Active User
Joined: 01 Mar 2006 Posts: 290 Location: Basel, Switzerland
|
|
|
|
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 |
|