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

how to set rc=4 if file is empty
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
Amit Kumar
Warnings : 1
New User


Joined: 27 Mar 2007
Posts: 3
Location: chennai
PostPosted: Tue Mar 27, 2007 8:44 pm
 Reply with quote
Hi,

I am using SORT to write different output files depending upon condition using OPTION COPY and checking condition. I want to set the return code to 4 if the input file is empty. Can u tell me how to do it ?

now my code is looking like,

Code:

//STEP005 EXEC SORTD
//SORTIN DD DSN=TES.AG55032A.SQ.P56350.LAPS.IN.T04.D120606,DISP=SHR
//FILEB DD DSN=TES.AG55032A.SQ.P56560.TEMPA.CE.T04X.D120606,
//  DISP=(,CATLG,DELETE),UNIT=SYSDA,SPACE=(CYL,(5,5))
//SYSIN    DD  *
  OPTION COPY
  OUTFIL FNAMES=FILEB,OMIT=(58,1,CH,NE,C'5',AND,
                           58,1,CH,NE,C'6',OR,
                           59,9,CH,NE,C'K00161880')
/*
Back to top
View user's profile Send private message
dineshness

New User


Joined: 25 Dec 2006
Posts: 63
Location: Perambalur
PostPosted: Tue Mar 27, 2007 11:43 pm
 Reply with quote
You can use
Code:
COUNT FROM(SORTIN) EMPTY RC4
to set the Return Code to 4.

Please refer the "DFSORT Application Programming Guide" for more information on this.

Dinesh.
Back to top
View user's profile Send private message
Frank Yaeger

DFSORT Developer


Joined: 15 Feb 2005
Posts: 7129
Location: San Jose, CA
PostPosted: Wed Mar 28, 2007 1:07 am
 Reply with quote
Amit,

If you have z/OS DFSORT V1R5, you can use the NULLOFL=RC4 parameter to set RC=4 if the output file is empty (in one pass):

Code:

  OPTION COPY                           
  OUTFIL FNAMES=FILEB,NULLOFL=RC4,     
     OMIT=(58,1,CH,NE,C'5',AND,         
           58,1,CH,NE,C'6',OR,         
           59,9,CH,NE,C'K00161880')     



If you have DFSORT R14, then you'll need to use COUNT in a second pass.
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 FTP VB File from Mainframe retaining ... JCL & VSAM 4
No new posts Extract the file name from another fi... DFSORT/ICETOOL 6
No new posts How to split large record length file... DFSORT/ICETOOL 10
No new posts Extracting Variable decimal numbers f... DFSORT/ICETOOL 17
No new posts SFTP Issue - destination file record ... All Other Mainframe Topics 2
Search our Forums:

Back to Top
IBMMainframes.com is not an official and/or affiliated with IBM® in anyway
Board Rules | FAQ | Downloads | Wiki | SiteMap | Contact Us