Re: stat: 4b 0 versus ?what?

The "binary" (9B 0) data type isn't really the right type for this
structure.   9B 0 only allows numbers up to 999999999, which is smaller
than a 4-byte binary field is capable of.

Instead, use the "integer" data type (10I 0) which you'd define in
your data structure like so:
d  size                  45     48i 0

This will allow you to handle size values up to 2,147,483,647 bytes,
which sounds like it will work for your application.

If this still isn't large enough, you'll need to look into using the
"large file support" versions of the IFS API.  The function should 
be called "fstat64" or "stat64".   stat64 returns the size in a field
defined as "20I 0", which should be a big enough number for almost
anyone :)



On Wed, 18 Apr 2001 rob@dekko.com wrote:

> 
> I am using a bit of code I probably got from someone on this list quite
> some time ago.  It reads the directories in the IFS and reports back on
> size.  Evidently I've reached the limit of a 4B 0 field.  The file is
> bigger than a gig.  And, while yes, we should address that issue, I want to
> get the list program working.  Here are some lines of code:
> 
> 
> DStatStruc        DS           128
> d  fill1                  1     20
> D* Size                  21     24B 0
> d  size                  45     48b 0
> d  FileType              49     53
> d  fill4                 76    127
> DpStatStruc       S               *   Inz(%Addr(StatStruc))
> ...
> c                   eval      boxsize = size
> ...
>  *
>  * Get file information
>  *
> c                   eval      Dir#File = %Subst(StreamDir:1:Leny - 1)
> c                                      + %Subst(FileNam:1:Len)
> c                                      + X'00'
> C                   Eval      RC = Stat(pDir#File:pStatStruc)
> ...
> c                   eval      boxsize = size
> ...
> MCH1210 - The target for a numeric operation is too small to hold the
> result (C G D F)
> 'D'
> BOXSIZE               PACKED(12,0)         000007864320.
>                       VALUE IN HEX         '0000007864320F'X
> 
> BOXSIZE must be from previous file.
> 
> SIZE                BIN(9,0)             078984704.       '40500000'X
> 
> 1 is truncated from the beginning of SIZE.
> 
> How could I change 'size' without messing up the data structure?
> 
> 
> 
> 
> Rob Berendt
> 
> ==================
> Remember the Cole!
> 

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---