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
 

 

OUTREC S0C7 issue for particular scenario of REDEFINED group

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
View previous topic :: :: View next topic  
Author Message
ljaichandran

New User


Joined: 19 Mar 2010
Posts: 2
Location: Chennai

PostPosted: Fri Mar 07, 2014 1:10 pm    Post subject: OUTREC S0C7 issue for particular scenario of REDEFINED group
Reply with quote

Hi,

I am facing a S0C7 abend when I try to sort a file and outrec the data.

The input file here was written using a COBOL layout which has a redefine as stated in the below example:
Code:
01 REC.
    03 A.
        05 A1       PIC S9(11)V99 COMP-3.
    03 B REDEFINES A.
        05 B1       PIC 9(03).
        05 FILLER PIC X(04).

The records in the file are very much scenario based in such a way that any record would have a valid value in ether A1 or B1 which means the other field would be junk when interpreted as an individual field.

When I outrec the data, I want both the redefined fields as individual fields in the output file. As outrec would interpret as junk values when considering A1 or B1 as individual fields, it is abending with S0C7 error.

Is there any way in SORT OUREC that I can replace the junk value of A1/B1 or ignore it to avoid S0C7 abend?

Appreciate all your help on this. Thanks!
Back to top
View user's profile Send private message

Nic Clouston

Global Moderator


Joined: 10 May 2007
Posts: 1715
Location: UK

PostPosted: Fri Mar 07, 2014 3:01 pm    Post subject: Reply to: OUTREC S0C7 issue for particular scenario of REDEF
Reply with quote

Why not share your control cards with us so that we can see what you are doing? Probably all that you need to do is treat the fields as CH or BI whithin sort.
Back to top
View user's profile Send private message
Bill Woodger

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7236

PostPosted: Fri Mar 07, 2014 4:01 pm    Post subject: Reply to: OUTREC S0C7 issue for particular scenario of REDEF
Reply with quote

You must have some way in your data of identifying which field contains valid content for that record.
Back to top
View user's profile Send private message
ljaichandran

New User


Joined: 19 Mar 2010
Posts: 2
Location: Chennai

PostPosted: Fri Mar 07, 2014 6:42 pm    Post subject:
Reply with quote

Here is the SORT card i am using for the example given above:

OPTION COPY
OUTREC FIELDS=(1:1,7,
8:1,3,
11:4,3)

Please suggest if I can ignore or treat that as CH or replace with something so that I can avoid the S0C7 abend.
Back to top
View user's profile Send private message
dick scherrer

Site Director


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

PostPosted: Fri Mar 07, 2014 7:59 pm    Post subject:
Reply with quote

Hello anfd welcome to the forum,

The same bytes cannot be used as zoned-decimal and packed-decimal at the same time.

Your process needs to decide which format is being processed and move that format to the output - probably moving zero to the other format.
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: Fri Mar 07, 2014 9:13 pm    Post subject:
Reply with quote

...and please use Code tags (Click on Code to preserve spacing).
Back to top
View user's profile Send private message
Skolusu

Senior Member


Joined: 07 Dec 2007
Posts: 2205
Location: San Jose

PostPosted: Fri Mar 07, 2014 10:17 pm    Post subject:
Reply with quote

ljaichandran wrote:
Here is the SORT card i am using for the example given above:

OPTION COPY
OUTREC FIELDS=(1:1,7,
8:1,3,
11:4,3)

Please suggest if I can ignore or treat that as CH or replace with something so that I can avoid the S0C7 abend.



You sure the above control cards resulted in S0C7 abend? It is just a move and it doesn't matter what you have in those fields. Are you sure you did not use ZD/PD format and try to SUM or edit or convert to readable format? I would like to see the sysout of the above control cards that resulted S0C7.
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 -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts DFHRESPONSE returns issue divated CICS 3 Wed Nov 02, 2016 6:32 pm
No new posts Can sending 5 MB data between cobol p... Kevin Vaz CICS 12 Tue Oct 18, 2016 4:50 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 SORT- outrec ram_vizag DFSORT/ICETOOL 10 Tue Sep 27, 2016 12:50 am
No new posts Get Record count in summary record fo... Atul Banke DFSORT/ICETOOL 21 Fri Sep 23, 2016 4:17 pm


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