Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
SOC7 ABEND WHILE DOING TOT IN DFSORT

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

New User


Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad

PostPosted: Fri Feb 16, 2007 4:57 pm    Post subject: SOC7 ABEND WHILE DOING TOT IN DFSORT
Reply with quote

Hi,
i am getting SOC7 abend while doing TOT in trailer record.
can anybody help on this...


Code:
//STEP1 EXEC PGM=SORT                                 
//SORTIN DD *                                         
        12,345                                         
        01,234                                         
/*                                                     
//RPT3     DD SYSOUT=*                                 
//SYSPRINT DD SYSOUT=*                                 
//SYSOUT   DD SYSOUT=*                                 
//SYSLIST  DD SYSOUT=*                                 
//SYSIN DD *                                           
  OPTION COPY                                         
  OUTFIL FNAMES=RPT3,                                 
  OUTREC=(9:9,6,ZD,EDIT=(SIIIIIT),SIGNS=(,-),X,80:X), 
  TRAILER1=(1:'TOTALS',9:TOT=(9,6,ZD,M12,LENGTH=6))   
/*
Back to top
View user's profile Send private message

William Thompson

Global Moderator


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

PostPosted: Fri Feb 16, 2007 5:12 pm    Post subject:
Reply with quote

I think that the commas in your 9,6 field are the problem, rather than ZD, DFSORT has UFF and SFF formats to take care of the imbeded commas.
Back to top
View user's profile Send private message
avaneendra_linga

New User


Joined: 13 Dec 2006
Posts: 73
Location: Hyderabad

PostPosted: Fri Feb 16, 2007 5:59 pm    Post subject: THX A LOT
Reply with quote

HiThompson,
it was working with UFF, Thx a lot it was a great help for me.
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 Compare and COPY using DFSORT pshongal DFSORT/ICETOOL 3 Fri Nov 17, 2017 9:49 am
No new posts Split files upto certain limit based ... bubbu75 DFSORT/ICETOOL 5 Tue Nov 14, 2017 11:11 pm
No new posts ASP3 ABEND IN CICS Vedant CICS 0 Fri Oct 20, 2017 3:18 pm
No new posts Join records from 2 files with No Dup... Poha Eater DFSORT/ICETOOL 22 Sun Aug 27, 2017 10:35 pm
No new posts C03 ABEND sjiraga PL/I & Assembler 1 Thu Jun 01, 2017 4:51 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us