Re: Exact Data Size

[Jodi_Walker@xxxxxxxxxxxxxxxxxxx (Jodi Walker)]

Try this:
DSPFD FILE(yourfile) TYPE(*MBR) OUTPUT(*OUTFILE) FILEATR(*PF) 
OUTFILE(yourlib/ofile)

NOTE: ofile is the name of the outfile you are creating, it will hold the file 
details generated from DSPFD.
after running the command, do a query or SQL over the outfile, in this example 
ofiler, for fields MBDSSZ (the data size in bytes) and/or MBISIZ (index size in 
bytes).  The outfile created will mirror the record format structure of QWHFDMBR
- see any CL reference for the DSPFD command and how it is used with OUTFILES.  
This is something that can be easily automated within a CL.  Changing the TYPE 
parameter will give different information in a different format - just prompt 
it.

Enjoy
JW

     
Hi Nancy,
     Thanks for your reply.  We are interested in finding out data size in
Bytes.
I am doing following steps:
Do DSPFD on file: Get Record size and number of records . Now total data 
size = Record Size * Number of Records.
     
     
Regards,
Ajay Kumar
305-539-6621.
     
     
     
     
     
Nancy Savino <newnancy@juno.com>@midrange.com on 06/02/2000 08:13:51 PM
     
Please respond to RPG400-L@midrange.com
     
Sent by:  owner-rpg400-l@midrange.com
     
     
To:   RPG400-L@midrange.com
cc:
     
Subject:  Re: Exact Data Size
     
     
You can do a DSPFM, with the exact file member. This will show the exact 
number of records by doing to the bottom of the file. You can also use 
wrkqry to do a record count.
     
Nancy
     
On Fri, 2 Jun 2000 10:17:05 -0400 AKumar@rccl.com writes: 
>
> Hi ,
>      I need to know exact data size in Physical File.
>      Using DSPFD , I get data size and index size but this includes 
> exact
> data size as well as pre-allocated size. 
>
> Regards,
> Ajay Kumar
> 305-539-6621.
>
>
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com. 
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com. 
> | To unsubscribe from this list send email to
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
     
________________________________________________________________ 
YOU'RE PAYING TOO MUCH FOR THE INTERNET!
Juno now offers FREE Internet Access!
Try it today - there's no risk!  For your FREE software, visit: 
http://dl.www.juno.com/get/tagj.
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com. 
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com. 
| Questions should be directed to the list owner/operator: 
david@midrange.com
+---
     
     
     
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com. 
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com 
+---
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---