IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Getting soc1 at compile time


IBM Mainframe Forums -> COBOL Programming
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 2:34 pm
Reply with quote

Hi all,

i am getting soc1 abend at compile time.

actually we are using changeman to compile the program,

when i checked the option xpeditor as 'y' (to xpedit that program later)

i am getting this soc1 abend.
Can anybody explain me why it is coming and what i should do to overcome it.

thanks in advance
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Fri Jul 27, 2007 2:43 pm
Reply with quote

BalaKrishna,

S0C1 description -

An attempt was made to execute an invalid machine
instruction operation code. The operation code is either
invalid or is for an instruction that is not available on
this CPU.

This failure is usually due to a branch to an invalid storage
location, as might occur in a load module with unresolved
external references, or when a branch to an address outside
of a program occurs. (Reason Code 1)


If you require anymore assistance, please post the spool messages.
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Jul 27, 2007 2:44 pm
Reply with quote

What program is abending?
Have you looked at the dump and identified the opcode?
Is it a wild branch or overlayed storage?
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 3:03 pm
Reply with quote

Hi,

if i check that xpeditor as 'n' , my code is working properly and i am getting the output also.
you asked me the spool messages, i could not understand which one to show you i am providing one image of it just have a look on it.


if it is not sufficient then tell me which messages u want
Code:


COMMAND ===>                                                 SCROLL ===>
--JOBNAME--JOBID----STATUS---RAN/RECEIVED------DAY-------DEST-----------
   SYDGM1BB J028191  OUTPUT    5:22   7/27/2007 TODAY     BETH           
--RC--PGM--------STEP-----PRSTEP---PROC-----COMMENTS--------------------
   0  CMNOCDEL   DLTDBB                                                 
   0  CMNOCDEL   DLT@BB                                                 
   0  IEBCOPY    SRCIN                                                 
   0  SERCOPY    SERCOPY                                               
   0  CMNWRITE   WRITE                                                 
ABND  CWPCMAIN   COBOLMVS                   ABEND SYSTEM=0C1 USER=0000 
   *  CMNSSIDN   SSIDN                      NOT EXECUTED               
   *  IEFBR14    ALLOC                      NOT EXECUTED               
   *  IEBGENER   ALLOCIN                    NOT EXECUTED               
   *  IEBGENER   ALLOCOBJ                   NOT EXECUTED               
   *  IEWL       LINK                       NOT EXECUTED               
   *  CMNBAT90   BT90LOD                    NOT EXECUTED               
   *  SERCOPY    COPYLOD                    NOT EXECUTED               
   *  SERCOPY    LDCCRT                     NOT EXECUTED               
   *  CMNBAT90   BAT90LDE                   NOT EXECUTED               
   *  IEBCOPY    LDCCPY                     NOT EXECUTED               
   *  SERCMPAR   COMPARE1                   NOT EXECUTED               
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Jul 27, 2007 3:10 pm
Reply with quote

CWPCMAIN is the program that abended, who owns it, xpeditor?
Have you looked at the dump and identified the opcode?
Is it a wild branch or overlayed storage?
Back to top
View user's profile Send private message
murmohk1

Senior Member


Joined: 29 Jun 2006
Posts: 1436
Location: Bangalore,India

PostPosted: Fri Jul 27, 2007 3:12 pm
Reply with quote

Balakrishna,

You had provided data which is not useful to us. As William said, please post the COBOL instruction which caused the reror.
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 3:13 pm
Reply with quote

Hi thompson,

I dont know were the dump is, can u please guide me so that i can get you the opcode u are asking about
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 3:20 pm
Reply with quote

Hi ,

how to know that in which cobol instruction the abend has occured

i will show you the options that i am getting in the spool.
Code:


----DDNAME---STEP-----PRSTEP---STAT-ACT-C-GRP-D-SIZE-U-DEST-
 1  LOG      *                          H   1 W   37 L BETH
 2  JCL      *                          H   1 W  423 L BETH
 3  MESSAGES *                          H   1 W  718 L BETH
 4  CWPERRM  COBOLMVS                   H   1 W   99 L BETH
 5  SYSOUT   COBOLMVS                   H   1 W   42 L BETH
 6  SERPRINT FAILURE           DONE SEL H                   
 7  PRINT2   PRINT                  SEL H   1 W 2867 L BETH
                                                           
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Jul 27, 2007 3:23 pm
Reply with quote

If you look at the dump, you will see either valid opcodes or garbage. If the location of the abend is valid executable code, the opcode in question attempted something that was not valid for that opcode. If the location is not valid executable code, is it a little bit of garbage that was overlaid upon valid executable code or is it an area of valid storage for constants and/or buffers?

The real question is "who owns the program?" because it looks like the program has a bug.....
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 3:39 pm
Reply with quote

hi thompson,

i got the dump but i cannot find the opcode where abend is occuring,
i searched the whole dump,Is there any other way to get the displacement where the abend is occuring.If so please let me know
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Jul 27, 2007 3:47 pm
Reply with quote

The PSW points to he abending opcode.

The real question is "who owns the program?" because it looks like the program has a bug.....
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Fri Jul 27, 2007 4:31 pm
Reply with quote

hi,

i found that psw but couldn't understand which one is the opcode

Code:

PSW AT TIME OF ERROR  078D0000   950F7AB2  ILC 2  INTC 01 
  NO ACTIVE MODULE FOUND                                   
  NAME=UNKNOWN                                             
  DATA AT PSW  150F7AAC - 00000000  00000000  00000000     
  AR/GR 0: 80CAA990/0000AF20   1: 00000000/1504FA90       
        2: 00000000/0000AFE0   3: 00000000/9504EDAA       
        4: 00000000/00000000   5: 00000000/000135D9       
        6: 00000000/1509A588   7: 00000000/1509A587       
        8: 00000000/0000A838   9: 00000000/000134E0       
        A: 00000000/00009BE0   B: 00000000/1502E8D8       
        C: 00000000/1504EA90   D: 00000000/0000AF20       
        E: 00000000/150F7AB0   F: 00000000/0000AFE0       
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3156
Location: Tucson AZ

PostPosted: Fri Jul 27, 2007 4:49 pm
Reply with quote

PSW AT TIME OF ERROR 078D0000 950F7AB2 ILC 2 INTC 01
PSW points to F7AB2
DATA AT PSW 150F7AAC - 00000000 00000000 00000000
Low values are at that address
E: 00000000/150F7AB0
Looks like a branch from R14

Maybe a module not linked into the program?

The real question is "who owns the program?" because it looks like the program has a bug.....
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


Joined: 23 Nov 2006
Posts: 19244
Location: Inside the Matrix

PostPosted: Fri Jul 27, 2007 7:35 pm
Reply with quote

Hello,

Have you successfully run xpediter on some other program? If not create or use a very simple COBOL program to ensure that you have your jcl set up correctly for your system.

Where did you get your jcl? Hopefully, it is the exact same as others who use xpediter on your system.

If you talk with your system support people (or maybe a senior person on your project), they can tell you if your job is set up correctly for your system.

I suspect that there may be something out of sync with the xpediter setup you are using.
Back to top
View user's profile Send private message
balakrishna reddy

Active User


Joined: 13 Jul 2007
Posts: 128
Location: Guntur

PostPosted: Tue Jul 31, 2007 10:09 am
Reply with quote

Hi scherrer,

Scherrer wrote :
Quote:

Have you successfully run xpediter on some other program? If not create or use a very simple COBOL program to ensure that you have your jcl set up correctly for your system.


I have run successfully a sample cobol program its working fine, I think problem is with my code,how to identify in which instruction of the code i am getting abend.

i have provided the psw of th dump now how to identify it exactly in which instruction the program getting abended.
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> COBOL Programming

 


Similar Topics
Topic Forum Replies
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts To get the the current time DFSORT/ICETOOL 13
No new posts RC query -Time column CA Products 3
No new posts C Compile time time stamps Java & MQSeries 10
No new posts Parallelization in CICS to reduce res... CICS 4
Search our Forums:

Back to Top