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
 

 

Index key

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> COBOL Programming
View previous topic :: :: View next topic  
Author Message
jdeeponline

New User


Joined: 08 Sep 2009
Posts: 27
Location: Charlotte

PostPosted: Thu Oct 08, 2009 7:21 am    Post subject: Index key
Reply with quote

DATA-TBL OCCURS 1 TO 290 TIMES
DEPENDING ON NUM-RECS
ASCENDING KEY IS NUM-KEY
INDEXED BY NUM-IDX

In the above case, do we have any restriction to declare the variable NUM-KEY. I am getting a SOC7 when I declare this as paked decimal (COMP-3).

Since, the source from where I load NUM-KEY is declared as COMP-3, I have declared NUM-KEY as the same.

Is this some sort of violation?
Back to top
View user's profile Send private message

Terry Heinze

JCL Moderator


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

PostPosted: Thu Oct 08, 2009 9:40 am    Post subject:
Reply with quote

Not that I can see from what you've posted. Please post the exact definition using copy/paste, not keying manually. Also post the exact code that's giving you the S0C7.
Back to top
View user's profile Send private message
dbzTHEdinosauer

Global Moderator


Joined: 20 Oct 2006
Posts: 6968
Location: porcelain throne

PostPosted: Thu Oct 08, 2009 1:51 pm    Post subject:
Reply with quote

Quote:
I am getting a SOC7 when I declare this as paked decimal (COMP-3).


the above statement is false. you received a soc7 because you have non-numeric data.
Back to top
View user's profile Send private message
Anuj Dhawan

Senior Member


Joined: 22 Apr 2006
Posts: 6258
Location: Mumbai, India

PostPosted: Thu Oct 08, 2009 2:25 pm    Post subject:
Reply with quote

I'd echo Dick. S0C7 is caused by a data exception and can only occur when decimal (packed) instructions are used. To get better replies, suggest you post the SYSOUT or diagnostic messages from the failed job.
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
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts SQL - select data available in index Nileshkul DB2 3 Mon Jun 26, 2017 1:30 am
No new posts setting new limit Key values for inde... srilata83 DB2 1 Fri Feb 10, 2017 9:24 pm
No new posts Order BY AND Index Nileshkul DB2 2 Sat Dec 31, 2016 6:33 pm
No new posts Several errors during building altern... Andi1982 JCL & VSAM 11 Wed Jul 06, 2016 7:39 pm
No new posts Drop building Alternate Index for a p... bhavin.mehta JCL & VSAM 6 Mon Jul 04, 2016 3:47 pm


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