Friday, October 22, 2010

A simple Count

//STEP02  EXEC  PGM=ICETOOL                       
//TOOLMSG DD SYSOUT=*                             
//DFSMSG  DD SYSOUT=*                             
//IN1  DD DSN=U123557.ONLYDB.UUID,DISP=SHR        
//OUT DD SYSOUT=*                                 
//TOOLIN DD *                                     
COPY FROM(IN1) USING(CTL1)                        
/*                                                
//CTL1CNTL DD *                                   
  OUTFIL FNAMES=OUT,REMOVECC,NODETAIL,            
    TRAILER1=('FILE1',5X,COUNT)                   
/*                                                

We get the output in SPOOL
FILE1          537       

No comments:

Post a Comment