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
 
Checking for trailer and setting return code

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
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    Post subject: Checking for trailer and setting return code
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

DFSORT Moderator


Joined: 09 Mar 2011
Posts: 7315

PostPosted: Thu Feb 20, 2014 7:44 pm    Post subject: Reply to: Checking for trailer and setting return code
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

Moderator


Joined: 07 Sep 2006
Posts: 1542
Location: Andromeda Galaxy

PostPosted: Thu Feb 20, 2014 7:54 pm    Post subject:
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    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 Speed-up/reduce CPU use of code prino PL/I & Assembler 0 Tue Sep 26, 2017 12:05 am
No new posts Setting Font Type for XMIT satish.ms10 All Other Mainframe Topics 3 Fri Sep 15, 2017 10:01 pm
No new posts Return a Non Numeric value from REXX Learncoholic CLIST & REXX 3 Fri Sep 01, 2017 8:33 pm
No new posts Updating the Trailer count in variabl... satheshbabur DFSORT/ICETOOL 6 Wed Aug 30, 2017 9:49 pm
No new posts SORT Trailer Count - LRECL Output co... amorante DFSORT/ICETOOL 5 Tue Aug 29, 2017 8:57 pm

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