IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search Log in to check your private messages Log in
 

Display user error message in SPOOL when abended


 
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic
View previous topic :: :: View next topic  
Author Message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 216
Location: USA

PostPosted: Wed Aug 21, 2013 3:11 am
Reply with quote

Hi,

My sort control card is as below.

Code:

//CTL2CNTL DD *                                                       
  OPTION NULLOUT=RC16                                                 
  INCLUDE COND=(1,10,CH,EQ,11,10,CH)                                 
//*


This abends fine when the o/p is EMPTY.

But when this abends, I should display user error message in SPOOL such as 'The file is empty' and then abend the step. Is it possible to do that? Let the LRECL=80,RECFM=FB and assume that we need to copy input to output.


Regards
Amar
Back to top
View user's profile Send private message
dick scherrer

Moderator Emeritus


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

PostPosted: Wed Aug 21, 2013 6:45 am
Reply with quote

Hello,

Do you get an rc16 when the file is empty?

If yes, this is NOT an abend and you can conditionally create any message you want.
Back to top
View user's profile Send private message
V S Amarendra Reddy

Active User


Joined: 13 Sep 2006
Posts: 216
Location: USA

PostPosted: Wed Aug 21, 2013 6:55 am
Reply with quote

Hi Dick,

yes I got RC16 and the step stops the process. Now, do you mean I use this step's condition code and let the next step write error message into the SPOOL?

Regards
Amar
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7312
Location: Inside the Matrix

PostPosted: Wed Aug 21, 2013 1:00 pm
Reply with quote

Yes, if the RC16 doesn't actually abend (RC not equal to zero does not indicate an abend) then you can have a subsequent conditional step.

You could also document it in the "run instructions", in your scheduler.... what is it you are trying to achieve by having a message produced as well?
Back to top
View user's profile Send private message
Skolusu

Senior Member


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

PostPosted: Wed Aug 21, 2013 11:20 pm
Reply with quote

V S Amarendra Reddy,

1. Have MODE CONTINUE before your COPY step.
2. Change your CTL2CNTL to add another temp dataset(T1) which will have just the count
3. Add a COPY to your TOOLIN to copy T1 to MSG dataset using CTL3CNTL which will have IFTHEN=(when=(1,8,uff,eq,0),build=(c'THE FILE IS EMPTY ')) and when=none,build=(80x)
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic All times are GMT + 6 Hours
Forum Index -> DFSORT/ICETOOL
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Forum Replies
No new posts can someone please help me in finding... IBM Tools 9
No new posts SYNCSORT Error - CONTROL FIELD BEYOND... SYNCSORT 10
No new posts Unable to display comp variable COBOL Programming 4
No new posts Read 4MB message and split into multi... COBOL Programming 9
No new posts Easytrieve EZABX007 with error code 0... CA Products 7

Back to Top