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- How to resolve it
Goto page 1, 2  Next
 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 5:57 pm    Post subject: SOC7 abend- How to resolve it
Reply with quote

I am getting SOC7 abend and not able to fix it. I know it is caused due to any one of the following-

1. Numeric data was not initialized.
2. A subscript or index contained an invalid value.
3. A comp-3 field had an invalid sign.
4. A group move overlaid a numeric field with non-numeric data.

Important parts of the program:
Code:

     SELECT IN-COST-CHG-PRCNT
            ASSIGN TO         ICCHGPCT
            STATUS            WS-ICCHGPCT-FS.
*
 DATA DIVISION.
 FILE SECTION.
*
 FD  IN-COST-CHG-PRCNT
     RECORDING MODE F
     BLOCK CONTAINS 0 RECORDS.
 01  IN-COST-CHG-FILE-RECORD.
     05  FILLER             PIC X(01).
     05  COST-CHG-PERCENT   PIC 9(3)V99.
     05  FILLER             PIC X(74).

WORKING-STORAGE SECTION.

01  RSNBLTY-CHECK-PARM.
    05  FILLER                      PIC X(39).
    05  WS-RSNCHK-RANGE-START       PIC 9(02).
    05  FILLER                      PIC X(04).
    05  WS-RSNCHK-RANGE-END         PIC 9(02).
    05  FILLER                      PIC X(33).

PRODEDURE-DIVISION.
 2000-REASONABILITY-CHECK-PARA.
*-----------------------------*
     MOVE '2000-PROCESS-PARA' TO WS-PARANAME
D    DISPLAY WS-PARANAME

     DISPLAY ' '
     ACCEPT RSNBLTY-CHECK-PARM FROM SYSIN
     DISPLAY 'RSNBLTY-CHECK-PARM: ' WS-RSNCHK-RANGE-START
     IF WS-RSNCHK-RANGE-START NOT NUMERIC   OR
        WS-RSNCHK-RANGE-END   NOT NUMERIC
        DISPLAY 'ERROR!!! REASONABILITY CHECK RANGE NOT NUMERIC'
        DISPLAY 'SETTING RETURN CODE TO 1'
        MOVE 1 TO RETURN-CODE
     ELSE
        DISPLAY 'ACCEPTABLE COST CHANGE RANGE: '
                WS-RSNCHK-RANGE-START '%' ' - '
                WS-RSNCHK-RANGE-END   '%'
     END-IF

     DISPLAY 'COST CHANGE % FROM IN-COST-CHG-PRCNT FILE: '
             COST-CHG-PERCENT '%'
     DISPLAY ' '
     DISPLAY ' '
     DISPLAY 'COST-CHG-PERCENT: ' COST-CHG-PERCENT
     DISPLAY 'WS-RSNCHK-RANGE-START: 'WS-RSNCHK-RANGE-START
     DISPLAY 'WS-RSNCHK-RANGE-END: 'WS-RSNCHK-RANGE-END

     IF COST-CHG-PERCENT >= WS-RSNCHK-RANGE-START AND
        COST-CHG-PERCENT <= WS-RSNCHK-RANGE-END
        DISPLAY '!!! REASONABILITY CHECK SATISFIES !!!'
     ELSE
        DISPLAY '!!! ALERT -  REASONABILITY CHECK FAILED !!!'
        DISPLAY 'SETTING RETURN CODE TO 2'
        MOVE 2 TO RETURN-CODE
     END-IF
     .
 2000-REASONABILITY-CHECK-EXIT.
*-----------------------------*
      EXIT.


i tried to follow the below link - http://ibmmainframes.com/viewtopic.php?t=6762
but not able to figue it out in the compile listing

My JCLstep is:

Code:

//PSTY0010 EXEC PGM=RP30H99C,COND=(4,LT)
//ICCHGPCT DD  DSN=CPISXK.COST.CHANGE.PERCENT,DISP=SHR
//SYSOUT   DD  SYSOUT=*
//SYSPRINT DD  SYSOUT=*
//SYSUDUMP DD  SYSOUT=*
//SORTMSG  DD  SYSOUT=*
//SYSIN    DD  DSN=CPISXK.TEST.SYSIN(RPCCCHEK),DISP=SHR
//*


and the SYSIN is:

Code:

---------------------------------
----+----1----+----2----+----3----+----4----+----5----+----6-
***************************** Top of Data *******************
COST CHANGE REASONABILITY CHECK RANGE: 07 TO 14
                                       ||    ||
                                       ||    ||
                                       ||    RANGE END OFFSET
                                       ||
                                       RANGE START OFFSET


Please help[/code]
Back to top
View user's profile Send private message

Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Apr 30, 2014 6:04 pm    Post subject:
Reply with quote

Do you have the message that indicates the offset in the load module where the abend occurred?
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Wed Apr 30, 2014 6:06 pm    Post subject: Reply to: SOC7 abend- Not able to resolve it
Reply with quote

What did you get from the sysout of your step?
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 6:11 pm    Post subject:
Reply with quote

the sysout says as-

The system detected a data exception (System Completion Code=0C7).
From compile unit RP30H99C at entry point RP30H99C at compile unit unit offset +00000C28 at entry offset +00000C28
at address 13E00E18.
ENTERED (LEVEL 06/15/2011 AT 18.20)
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Apr 30, 2014 6:43 pm    Post subject:
Reply with quote

sandeep kumar302 wrote:
the sysout says as-

The system detected a data exception (System Completion Code=0C7).
From compile unit RP30H99C at entry point RP30H99C at compile unit unit offset +00000C28 at entry offset +00000C28
at address 13E00E18.
ENTERED (LEVEL 06/15/2011 AT 18.20)

So, if your compile listing has the generated pseudo-assembler, find offset C28 and find what source statement includes it. If not, re-compile with (IIRC) the LIST and NOOFFSET options, and find the offset and source statement in that listing.
Back to top
View user's profile Send private message
Terry Heinze

JCL Moderator


Joined: 14 Jul 2008
Posts: 1238
Location: Richfield, MN, USA

PostPosted: Wed Apr 30, 2014 6:46 pm    Post subject:
Reply with quote

Find the field that gave you the S0C7, then look for all references to that field. You may need to backtrack a lot. Look for C28 in your compile listing.
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 6:57 pm    Post subject:
Reply with quote

Hi Akatsukami & Terry,
Thanks fof te prompt reply but i am not able to track any source statemtnt in the CEEDUMP.

my spool contains-

JESMSGLG JES2 2 CPISXK X LOCAL 34
JESJCL JES2 3 CPISXK X LOCAL 181
JESYSMSG JES2 4 CPISXK X LOCAL 193
SYSPRINT JS0010 PC 101 CPISXK X LOCAL 34
SYSTERM JS0010 PC 102 CPISXK X LOCAL 9
SYSUT2 JS0010 GENER 104 CPISXK X LOCAL 656
SYSPRINT JS0010 GENER 105 CPISXK X LOCAL 4
SYSPRINT JS0010 LKED 106 CPISXK X LOCAL 183
SYSOUT PSTY0010 107 CPISXK X LOCAL 25
CEEDUMP PSTY0010 111 CPISXK X LOCAL 343
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 7:00 pm    Post subject:
Reply with quote

I can see the below in the dump-
Code:

Condition processing resulted in the unhandled condition.
Back to top
View user's profile Send private message
Pandora-Box

Moderator


Joined: 07 Sep 2006
Posts: 1529
Location: Andromeda Galaxy

PostPosted: Wed Apr 30, 2014 7:01 pm    Post subject:
Reply with quote

CEEDUMP ==> Helps you in finding the last processed data with value of fields did you try looking into it?
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Apr 30, 2014 7:04 pm    Post subject:
Reply with quote

sandeep kumar302 wrote:
Hi Akatsukami & Terry,
Thanks fof te prompt reply but i am not able to track any source statemtnt in the CEEDUMP.

Did I not say, "Find the source statement in the compile listing"? Why do you think it might be found in a dump?
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 7:09 pm    Post subject:
Reply with quote

Hi Akatsukami,
Apology for this but i am not sure where is the compile listing is present
. i mean is it a SPOOL or a library?
Back to top
View user's profile Send private message
Bill O'Boyle

CICS Moderator


Joined: 14 Jan 2008
Posts: 2502
Location: Atlanta, Georgia, USA

PostPosted: Wed Apr 30, 2014 7:13 pm    Post subject: Reply to: SOC7 abend- Not able to resolve it
Reply with quote

Probably in SDSF....
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 7:21 pm    Post subject:
Reply with quote

Hi Akatsukami,
I recompiled with-
CBL NOOFFSET LIST
but still i am not able to get any source code.Can you please guide me on how to see in cobol listing.
Back to top
View user's profile Send private message
Akatsukami

Global Moderator


Joined: 03 Oct 2009
Posts: 1738
Location: Bloomington, IL

PostPosted: Wed Apr 30, 2014 7:25 pm    Post subject:
Reply with quote

sandeep kumar302 wrote:
Hi Akatsukami,
I recompiled with-
CBL NOOFFSET LIST
but still i am not able to get any source code.Can you please guide me on how to see in cobol listing.

In the compile step of the compile etc. procedure is a SYSPRINT DD statement. The compiler listing will be written to the destination given in this statement, whether it be a held output class, a member of a PDS, or a printer. Find which it is.
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 7:25 pm    Post subject:
Reply with quote

In SPOOL,
in sysout when i am trying to display the values-
i am getting-
Code:
COST-CHG-PERCENT:  1 24

and i defined
Code:
COST-CHG-PERCENT   PIC 9(3)V99 COMP-3.


and ideally it should get the value as 12 from the ICCHGPCT file.

Is it the issue?

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

REXX Moderator


Joined: 13 Mar 2006
Posts: 1219
Location: Israel

PostPosted: Wed Apr 30, 2014 7:38 pm    Post subject:
Reply with quote

In the code you gave at the beginning, field COST-CHG-PERCENT is not in COMP-3 format.
You are only getting us as mixed up as you are!
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1219
Location: Israel

PostPosted: Wed Apr 30, 2014 7:40 pm    Post subject:
Reply with quote

Can we see the contents of the ICCHGPCT file ?
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 7:47 pm    Post subject:
Reply with quote

Hi Marso,
Oh i am sorry, actually later i changed it while testing. Anyways it is not working with both the formats.

The content of the ICCHGPCT file is -

Code:
Command ===>
=COLS> ----+----1
****** **********
000001  12


afte the 3 column, everything is empty and the Record length is 80( i have not pasted full LRECL here)


Code'd
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Wed Apr 30, 2014 9:05 pm    Post subject: Reply to: SOC7 abend- Not able to resolve it
Reply with quote

Have you been re-typing rather than pasting?

Have you decided whether to provide the earlier information I asked for?

Why did you thing 12 followed by three blanks could be adequately described by PIC 9(3)V99?

Earlier in your program you check for NUMERIC, but continue with the next code anyway. When you do get non-numeric, you will get a S0C7. That is one way with your code, and the output I asked for from your DISPLAYs would affirm or discount that as the actual cause for your S0C7.

If you can't find the compile listing, ask a colleague. It will be much quicker and more certain than asking us.
Back to top
View user's profile Send private message
sandeep kumar302

New User


Joined: 14 Mar 2012
Posts: 69
Location: India

PostPosted: Wed Apr 30, 2014 10:00 pm    Post subject:
Reply with quote

Thanks Bill,
The problem was with input file. I corrected it and then the issue was resolved.

thanks a lot
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 -> COBOL Programming All times are GMT + 6 Hours
Goto page 1, 2  Next
Page 1 of 2

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
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
No new posts S213-14 ABEND explantion Apurva Mehta JCL & VSAM 5 Thu Jul 07, 2016 10:56 pm
No new posts How to resolve IMS DB status code FM Priyanka Boga IMS DB/DC 3 Fri Jun 10, 2016 1:54 pm


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