MVSFORUMS.com

kolusu

Batch solutions:

The following sort job will give you a message with the record count:

Rajeev_jha · Beginner Joined: 20 Dec 2002 Posts: 5 Topics: 0

If you have SAS in your installation you can do it with SAS also. Using the SAS you can define which fields it has to count and print report also

kolusu · Posted: Fri Dec 20, 2002 6:31 am Post subject:

Rajeev,

I am very much interested to see the SAS example. I am learning SAS as a hobby. I would really appreciate if you can post the sample code.

Thanks

Kolusu

Ogv · Posted: Wed Dec 25, 2002 5:39 pm Post subject:

As an interactive option in our shop we are using Count command against the SEQuential files in ISPF =3.4 option. Not sure this is an properietry tool/option.
_________________
Thank-you,
OGV.

Ravindran · Posted: Thu Dec 26, 2002 1:45 am Post subject:

Hi all,
Here is the SAS code that will get you the count of records

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

HI,
i was tryin to count the number of records in a dataset. i saw the solution posted above.

//COUNT EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG DD SYSOUT=*
//IN DD DSN=INPUT DATASET,
// DISP=SHR
//TOOLIN DD *
COUNT FROM(IN)
/*

i just want to print the total number of records in a seperate file.
what changes should i make to achieve it.

Thanks
Stalin

Frank Yaeger · Posted: Sun May 21, 2006 9:53 am Post subject:

You can use a DFSORT job like this:

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Thanks a lot Frank.

but my requirement is something different.
i have 16 flat files of record format VB.i want to count all the records which is present in 16 files and print the output in a seperate file starting at position1.

for example.

let the total number of records in all the 16 files be 100000

the out put file should contain only
100000 (starting from column 1.

according to your solution it comes as
0000010

it has got leading sapces and zeros.
Note: each file has billions of record( 36 months of data). so the record count would be huge.
can you give me the code.

thanks
Stalin

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Forgot to mention. the output file should be FB.

Thanks Again
Stalin.

kolusu · Posted: Mon May 22, 2006 7:25 am Post subject:

stalin,

Try this job

Frank Yaeger · Posted: Mon May 22, 2006 10:08 am Post subject:

Stalin,

Was I supposed to read your mind to know what you wanted? In the future, please state in detail what exactly you want so you don't waste peoples' time.

It's still not clear to me whether or not you want leading zeros in the count. If you do, M11 will do that. If you want leading spaces, M10 will do that.

You also didn't say what LRECL you want for the count record file. Kolusu assumed you wanted LRECL=80.
_________________
Frank Yaeger - DFSORT Development Team (IBM)
Specialties: JOINKEYS, FINDREP, WHEN=GROUP, ICETOOL, Symbols, Migration
DFSORT is on the Web at:
www.ibm.com/storage/dfsort

stalin · Beginner Joined: 22 Aug 2005 Posts: 23 Topics: 4

Frank,
Sorry for any inconvenience
let me make my requirement clear.

i have a 16 VB files( these file got NDMed from the unix server to MVS, hence the record length may vary).
i need to count the total number of records in the VB file and put the count (alone)
in a flat file of FB and record length of 80.
the count should not contain any leading spaces or zeros.

For example, if the inout VB file has 5246 records
the output FB file should have the value 5246 starting from position1.

Hope this is clear.

Please help me with a solution

Thanks
Stalin.

Frank Yaeger · Posted: Mon May 22, 2006 2:13 pm Post subject:

Stalin,

Here's a DFSORT job that will do what you asked for in one pass. You'll need z/OS DFSORT V1R5 PTF UK90007 or DFSORT R14 PTF UK90006 (April, 2006) in order to use DFSORT's JFY function. If you don't have the April, 2006 PTF, ask your System Programmer to install it (it's free). For complete details on all of the new DFSORT and ICETOOL functions available with the April, 2006 PTF, see:

www.ibm.com/servers/storage/support/software/sort/mvs/peug/