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

Checking for trailer and setting return code
IBM Mainframe Forums -> DFSORT/ICETOOL
Post new topic   Reply to topic Quick References
View previous topic :: View next topic  
Author Message
trushant.w

New User


Joined: 22 Sep 2013
Posts: 81
Location: pune india
PostPosted: Thu Feb 20, 2014 7:28 pm
 Reply with quote
In my input file i need to check if trailer record is present or not.If trailer record is present i need to set return code as 0 else 12

if frist two bytes are 09 then its trailer record

I am using below code

Code:
//SORTIN   DD DISP=SHR,DSN=WIPR.EXTW131.PAD.TRAIL.CHK 
//*                                                   
//SYSIN    DD *                                       
 SORT FIELDS=COPY                                     
 INREC IFTHEN=(WHEN=INIT,RC12),                       
       IFTHEN=(WHEN=(01,2,CH,EQ,C'09'),RC00)           
*  OUTREC BUILD=(1,80)                                 
/*               



Getting below error

Code:
ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R12 - 15:46 ON
           SORT FIELDS=COPY                                             
           INREC IFTHEN=(WHEN=INIT,RC12)                                 
                                   $                                     
ICE006A 0 OPERAND DEFINER ERROR                                         
                 IFTHEN=(WHEN=(01,2,CH,EQ,C'09'),RC00)                   
                 $                                                       
ICE005A 0 BLANK NEEDED IN COLUMN 1 OR OPERATION NOT DEFINED CORRECTLY   
          *  OUTREC BUILD=(1,80)                                         
ICE056A 1 SORTOUT  NOT DEFINED                                           
ICE751I 0 C5-K76982 C6-K90026 C7-K58148 C8-K67572 E7-K70685     
Back to top
View user's profile Send private message
Bill Woodger

Moderator Emeritus


Joined: 09 Mar 2011
Posts: 7309
Location: Inside the Matrix
PostPosted: Thu Feb 20, 2014 7:44 pm
 Reply with quote
Unfortunately, if you just invent syntax, it rarely does what you want.

There are examples here of setting the Return Code. Documentation in the manuals. Have a search/read and a genuine attempt at it. If still stuck, come back again.
Back to top
View user's profile Send private message
Pandora-Box

Global Moderator


Joined: 07 Sep 2006
Posts: 1592
Location: Andromeda Galaxy
PostPosted: Thu Feb 20, 2014 7:54 pm
 Reply with quote
Try this

Code:
//STEP0100 EXEC PGM=ICETOOL
//SYSOUT   DD SYSOUT=*
//SIN1     DD DSN=INPUTFILE,DISP=SHR
//TOOLMSG  DD SYSOUT=*
//DFSMSG   DD SYSOUT=*
//TOOLIN   DD *
  COUNT FROM(SIN1) EMPTY USING(CTL1)
//CTL1CNTL DD *
  SORT FIELDS=COPY
  INCLUDE COND=(1,2,CH,EQ,C'02')


Note: Did a small change as EMPTY returns RC=12
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 run rexx code with jcl CLIST & REXX 15
No new posts Compile rexx code with jcl CLIST & REXX 6
No new posts Return codes-Normal & Abnormal te... JCL & VSAM 7
No new posts REXX code to expand copybook in a cob... CLIST & REXX 2
No new posts VSAM return code 23 - for a Random read COBOL Programming 4
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