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

SOC7 error with DFSORT


IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
Chandran Kallidil

New User


Joined: 11 Mar 2021
Posts: 4
Location: India

PostPosted: Thu Mar 11, 2021 1:56 pm
Reply with quote

Hi All,
I am getting SOC7 error while using DFSORT. I want to find out the exact record causing this issue so that I can identify the field from that record. I have millions of records and manual method takes time. I have sysout and sort snap in the JES output. Is there any way to identify the record number from the sort snap output or the key value like account number of that record. Please provide any method by which I can identify the record causing this issue.
Thanks,
Chandran.
Back to top
View user's profile Send private message
Joerg.Findeisen

Active Member


Joined: 15 Aug 2015
Posts: 619
Location: Bamberg, Germany

PostPosted: Thu Mar 11, 2021 2:05 pm
Reply with quote

Code:
//VERIFY   EXEC PGM=ICETOOL                         
//INPUT    DD DISP=SHR,DSN=<input>                               
//DFSMSG   DD SYSOUT=*                                           
//TOOLMSG  DD SYSOUT=*                                           
//TOOLIN   DD *                                                   
  VERIFY FROM(INPUT) ON(1,4,ZD)                                   
/*
Back to top
View user's profile Send private message
Chandran Kallidil

New User


Joined: 11 Mar 2021
Posts: 4
Location: India

PostPosted: Thu Mar 11, 2021 2:08 pm
Reply with quote

Thanks a lot. Will try this out and provide my results.

Thanks,
Chandran.
Back to top
View user's profile Send private message
Chandran Kallidil

New User


Joined: 11 Mar 2021
Posts: 4
Location: India

PostPosted: Thu Mar 11, 2021 2:19 pm
Reply with quote

Hi, I have hundreds of packed decimal fields in the input file. I need to check for each of these fields through this method. I will try this for all the fields.

Is there any other way by looking at sort snap to identify the record number causing the issue?
Thanks,
Chandran.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10801
Location: italy

PostPosted: Thu Mar 11, 2021 2:37 pm
Reply with quote

what sort does not know about will not cause am abend
the error occurs for the fields used in the sort control statements,
no need- to solve the abend - to check all the others
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1201

PostPosted: Thu Mar 11, 2021 6:51 pm
Reply with quote

Chandran Kallidil wrote:
Hi, I have hundreds of packed decimal fields in the input file. I need to check for each of these fields through this method. I will try this for all the fields.

For PACKED DECIMAL field use
Code:
 OUTFIL FNAMES=BADRECS,INCLUDE=(1,4,PD,NE,NUM)
 OUTFIL FNAMES=GOODRECS,SAVE


For UNPACKED DECIMAL field use
Code:
 OUTFIL FNAMES=BADRECS,INCLUDE=(1,4,ZD,NE,NUM)
 OUTFIL FNAMES=GOODRECS,SAVE


Another way might be, using INREC to conditionally OVERLAY any non-numeric value with an acceptable one, like +0 in corresponding format.
Code:
 INREC IFTHEN=(WHEN=(1,4,PD,NE,NUM),
               OVERLAY=(1:X’0000000C’),
               HIT=NEXT),
      . . . Other fields . . . .
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1201

PostPosted: Thu Mar 11, 2021 7:06 pm
Reply with quote

Chandran Kallidil wrote:
Is there any other way by looking at sort snap to identify the record number causing the issue?
Thanks,
Chandran.

You’ve got very good hints regarding your problem.

Can you, please, RTFM a little bit, about other additional options???!!!

To get the record number you can use parameter SEQNUM. Please, read about it in ANY MANUAL on SORT utility.
Back to top
View user's profile Send private message
Chandran Kallidil

New User


Joined: 11 Mar 2021
Posts: 4
Location: India

PostPosted: Thu Mar 11, 2021 7:19 pm
Reply with quote

Hi, unfortunately I need to do this for all packed decimal fields in my file. I am extracting everything in the file. Verify is a good technique to identify the record and I have now solved my problem. Thanks everyone for the help. Really appreciate the timely help.

Regards,
Chandran.
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10801
Location: italy

PostPosted: Thu Mar 11, 2021 7:36 pm
Reply with quote

Quote:
Hi, unfortunately I need to do this for all packed decimal fields in my file.


then You posted the wrong question in the wrong forum icon_cool.gif
Back to top
View user's profile Send private message
sergeyken
Warnings : 2

Senior Member


Joined: 29 Apr 2008
Posts: 1201

PostPosted: Thu Mar 11, 2021 11:01 pm
Reply with quote

Chandran Kallidil wrote:
Hi, unfortunately I need to do this for all packed decimal fields in my file. I am extracting everything in the file. Verify is a good technique to identify the record and I have now solved my problem. Thanks everyone for the help. Really appreciate the timely help.

Regards,
Chandran.

Unfortunately, you don’t want, or just cannot understand the very straightforward hints given to you by several people.
824.gif 12.gif
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 -> DFSORT/ICETOOL

 


Similar Topics
Topic Forum Replies
No new posts VB file copy COBOL program gives erro... COBOL Programming 3
No new posts AUTHORIZED database error in HALDB IMS DB/DC 2
No new posts Issue with CA Copycat-IGD17100I UNEXP... CA Products 5
No new posts Getting error S000 U0016 (Cn Internal... JCL & VSAM 4
No new posts Getting OUTREC - SHORT REC error for ... DFSORT/ICETOOL 12
Search our Forums:

Back to Top