Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
count records based on keys

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL
Author Message
hyuzen

Active User


Joined: 10 Jul 2005
Posts: 50

PostPosted: Sun Nov 06, 2005 7:09 pm    Post subject: count records based on keys
Reply with quote

Hi all,

How can find out the number of records in a ksds file. Here is define options of ksds file:
RECORG=KS,KEYLEN=9,KEYOFF=10489,LRECL=10512,BLKSIZE=0,
UNIT=3390,SPACE=(CYL,(1,1))

I would like to count how many records there are in the ksds file based on a particular key. The key is CON and its position starts at 4100.

Thanks in advance,
Hyuzen
Back to top
View user's profile Send private message
References
Frank Yaeger

DFSORT Moderator


Joined: 15 Feb 2005
Posts: 4677
Location: San Jose, CA

PostPosted: Sun Nov 06, 2005 9:36 pm    Post subject:
Reply with quote

If you just want to display the count, you can use this DFSORT/ICETOOL job:

Code:

//S1 EXEC PGM=ICETOOL                         
//TOOLMSG DD SYSOUT=*                         
//DFSMSG DD SYSOUT=*                         
//IN DD DSN=...  VSAM input file             
//TOOLIN DD *                                 
COUNT FROM(IN) VSAMTYPE(V) USING(CTL1)       
//CTL1CNTL DD *                               
   OPTION VLSCMP                             
   INCLUDE COND=(4104,3,CH,EQ,C'CON')         
/*                                           


The count will be displayed in TOOLMSG. For example:

ICE628I 0 RECORD COUNT: 000000000000003
Back to top
View user's profile Send private message
hyuzen

Active User


Joined: 10 Jul 2005
Posts: 50

PostPosted: Tue Nov 08, 2005 3:31 am    Post subject: Thank you Frank
Reply with quote

Hi Frank,

Thank you very much for your quick response.

Bye,
Hyuzen
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> DFSORT/ICETOOL All times are GMT + 6 Hours
Page 1 of 1