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
 
counting number of records in file

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> JCL & VSAM
View previous topic :: :: View next topic  
Author Message
kalpeshgala

New User


Joined: 08 Jul 2005
Posts: 4

PostPosted: Thu Sep 08, 2005 9:52 am    Post subject: counting number of records in file
Reply with quote

Hi,

Is there anyway in JCL by which :-
in step 1) I can count number of records in the file (not just whether file is empty or not but actual count of records)
and in step 2) pass that count to program through parm in next step.

thanks.
Back to top
View user's profile Send private message

Rupesh.Kothari

Member of the Month


Joined: 27 Apr 2005
Posts: 464

PostPosted: Thu Sep 08, 2005 10:02 am    Post subject: Re: counting number of records in file
Reply with quote

Hi Kalpesh,

Quote:
1) I can count number of records in the file (not just whether file is empty or not but actual count of records)
and in step


Yes you can count the number of records in File.Try this JCL

Code:
//SORTTST JOB (ACCT#),'SORT  ',NOTIFY=&SYSUID,CLASS=T,MSGCLASS=X       
//STEP01  EXEC PGM=SORT                                                 
//SYSOUT   DD   SYSOUT=*                                               
//SORTIN  DD DSN=Input file name,DISP=SHR                       
//SORTOUT DD DSN=outputfile.name,DISP=SHR                       
//SYSIN   DD *                                                         
  OPTION COPY                                                           
  OUTFIL REMOVECC,NODETAIL,                                             
   TRAILER1=(COUNT=(M10,LENGTH=02))                                     
/*                                                                     
//SYSUDUMP   DD SYSOUT=* 


Regards
Rupesh
Back to top
View user's profile Send private message
radhakrishnan82

Active User


Joined: 31 Mar 2005
Posts: 436
Location: chennai, India

PostPosted: Thu Sep 08, 2005 10:37 am    Post subject:
Reply with quote

Try this:

Code:

//*                                                 
//COUNT EXEC PGM=ICETOOL                         
//*
//TOOLMSG    DD   SYSOUT=*                           
//DFSMSG     DD   SYSOUT=*                           
//*
//COUNT      DD   DSN=dataset name,
//               DISP=SHR
//*
//TOOLIN     DD   DATA                               
  COUNT FROM(COUNT)                                   
/*                                                 
//*


hope this helps.
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 -> JCL & VSAM All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts COB2 file processing rizwanaccy COBOL Programming 8 Tue Jan 02, 2018 1:00 pm
No new posts Skip records depends on count lakshmiibmmainframes DFSORT/ICETOOL 5 Sun Dec 24, 2017 9:51 pm
No new posts Compare two PS files using ICE TOOL f... SENTHIL MURUGAAN DFSORT/ICETOOL 5 Sun Dec 24, 2017 1:26 pm
No new posts KSDS and Index file in cobol deepak14450 COBOL Programming 9 Fri Dec 22, 2017 9:36 am
No new posts Preserve order in Input File pshongal DFSORT/ICETOOL 13 Thu Dec 21, 2017 4:20 pm

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