[U2] 64 bit file detection

2004-05-18 Thread richu 
Does anyone know of a tool, or have a decent routine that shows (on universe 10.1, aix 
5.2) whether a file is a 32-bit or 64-bit file?

 

Best Regards,

Richard Unsworth

Richardson Electronics, Ltd.

Tel: (630) 208 2428

Fax: (630) 208 2957

EML: [EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

RE: [U2] 64 bit file detection

2004-05-18 Thread Steve Ferries 
Please see attached!

Steve


-Original Message-
From: richu [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 18, 2004 1:06 PM
To: '[EMAIL PROTECTED]'
Subject: [U2] 64 bit file detection


Does anyone know of a tool, or have a decent routine that shows (on universe
10.1, aix 5.2) whether a file is a 32-bit or 64-bit file?



Best Regards,

Richard Unsworth

Richardson Electronics, Ltd.

Tel: (630) 208 2428

Fax: (630) 208 2957

EML: [EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users
Received: from penicillin.corp.totalcrediting.com ([101.11.1.237]) by
  macbeth.corp.totalcrediting.com with Microsoft SMTPSVC(5.0.2195.6713);
  Mon, 5 Apr 2004 12:21:05 -0400
Received: From zendo.oliver.com ([66.146.190.170]) by
  penicillin.corp.totalcrediting.com (WebShield SMTP v4.5 MR1a); id
  1081182078208; Mon, 5 Apr 2004 12:21:18 -0400
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
Received: from zendo.oliver.com (zendo.oliver.com [127.0.0.1]) by
  zendo.oliver.com (Postfix) with ESMTP id 2D9BC90213; Mon,  5 Apr 2004
  09:15:23 -0700 (PDT)
content-class: urn:content-classes:message
X-MimeOLE: Produced By Microsoft Exchange V6.0.6249.0
Subject: RE: Memo: Re: UV: How do I determine whether a file is using
  64bitor 32 bit addressing
Date: Mon, 5 Apr 2004 12:19:50 -0400
Message-ID: [EMAIL PROTECTED]
Thread-Topic: Memo: Re: UV: How do I determine whether a file is using
  64bitor 32 bit addressing
Thread-Index: AcQa9Ikb6MHG0reETyeTAy3OGfX6LgABnfbwAAueaKA=
List-Help: mailto:[EMAIL PROTECTED]
List-Subscribe: http://www.oliver.com/mailman/listinfo/u2-users,mailto:[EMAIL 
PROTECTED]
List-Unsubscribe: http://www.oliver.com/mailman/listinfo/u2-users,mailto:[EMAIL 
PROTECTED]
From: Steve Ferries [EMAIL PROTECTED]
To: U2 Users Discussion List [EMAIL PROTECTED]
Reply-To: U2 Users Discussion List [EMAIL PROTECTED]

Thanks guys, the filepeek told me the bad news!

filepeek status:
  Active file .. /memo/MEMO1
  Current file address . 0x
  Maximum file address . 0x79626FFF
  Window size .. 512 bytes
  0xFF will display as . 
  Default base . 16
  Default mode . 32-bit
  File type  2
  Modulo ... 277169
  Separation ... 4
  Group 0 .. 0x0800
  Free head  0x2B86C800
Addr:



Steve

-Original Message-
From: Logan, David (SST - Adelaide) [mailto:[EMAIL PROTECTED]
Sent: Monday, April 05, 2004 6:47 AM
To: U2 Users Discussion List
Subject: RE: Memo: Re: UV: How do I determine whether a file is using 64
bitor 32 bit addressing


Hi Steve,

Use the filepeek verb, it is in the Universe bin directory (I presume
this is unix as filepeek does not exist on windows (AFAIK)). Run this
and look at the header information, it will tell you either 32 or 64 bit
file. I also have a magic file (thanks to Glenn Herbert) that tells me
from the files command at the unix prompt. I will publish this if you
need it.

Regards

David Logan
Database Administrator
HP Managed Services
139 Frome Street,
Adelaide 5000
Australia

+61 8 8408 4273
+61 417 268 665



-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
On Behalf Of [EMAIL PROTECTED]
Sent: Monday, 5 April 2004 7:27 PM
To: U2 Users Discussion List
Subject: Memo: Re: UV: How do I determine whether a file is using 64 bit
or 32 bit addressing






Hi Steve,

there are two ways that I know of :

1. Try to use the verb uvfixfile -f filename from Unix. It will complain
that the file is 64 bit.

2. Use the STATUS statement in Basic. Note - this is not the same as the
STATUS() function. This is the way that I do it. Write a little program
that reads next from a list of file names, opens each file in turn and
then
use the status statement to return a dynamic array of info about the
file.
If attribute 32 is 5, the file is 64 bit. Do a HELP BASIC STATUS to get
the
full syntax.

hth,

asvin.




Steve  Lisa [EMAIL PROTECTED] on 04 Apr 2004 15:22

Please respond to U2 Users Discussion List [EMAIL PROTECTED]

Sent by:[EMAIL PROTECTED]

To:[EMAIL PROTECTED]
cc:
bcc:

Subject:UV: How do I determine whether a file is using 64 bit or 32
bit
addressing


HI All,

We have several files that are right at the 2 Gig limit. We are pretty
sure
that we have resized them using the 64 bit option.

However, just to make sure, how may we determine if the file is indeed
using
64 bit addressing.

Thanks,

Steve Ferries
--
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users


**
 This message originated from the Internet. Its originator may or
 may not be who they claim to be and the information contained in
 the message and any attachments may or may not be accurate

Re: [U2] 64 bit file detection

2004-05-18 Thread Leroy Dreyfuss 
Here is a quick and dirty program that should at least give you an idea of
one way to do it in BASIC.

 Dict   = ''
 File   = ''
 Stats  = ''
 Get(Arg.,1) File Then
If UpCase(File) = 'DICT' Then
   Dict = UpCase(File)
   Get(Arg.) File Else
  Crt 'DICT requires a file name'
  Stop
   End
End
 End Else
Crt 'Enter file name: ':
Input File
If File = '' Then Stop
 End
 Open Dict,File to F.File
 On Error
Crt 'Fatal error opening file, STATUS() is ':Status()
Stop
 End
 Else
Crt 'Unable to open file, STATUS() is ':Status()
Stop
 End
 Status Stats From F.File
 Else
Crt 'Unable to stat file, STATUS() is ':Status()
Stop
 End
 Begin Case
Case Stats21 = 1
   Crt 'Requested file is type 1'
Case Stats21 = 19
   Crt 'Requested file is type 19'
   Stop
Case Stats21 = 27
   Crt 'Requested file is a distributed file'
   Stop
Case 1
   If Stats32 = 5 Then
  Crt 'File is 64-bit'
   End Else
  Crt 'File is 32-bit'
   End
 End Case
 End


Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!



 richu
 [EMAIL PROTECTED]
 Sent by:   To
 [EMAIL PROTECTED] '[EMAIL PROTECTED]'
 stserver.u2ug.org [EMAIL PROTECTED]
cc

 05/18/2004 11:05  Subject
 AM[U2] 64 bit file detection


 Please respond to
 u2-users






Does anyone know of a tool, or have a decent routine that shows (on
universe 10.1, aix 5.2) whether a file is a 32-bit or 64-bit file?



Best Regards,

Richard Unsworth

Richardson Electronics, Ltd.

Tel: (630) 208 2428

Fax: (630) 208 2957

EML: [EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

[demime 1.01d removed an attachment of type image/gif which had a name of graycol.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of pic13864.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of ecblank.gif]
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

Re: [U2] 64 bit file detection

2004-05-18 Thread Ray Wurlod 
Why so complex?  The STATUS statement returns, in field 31 iirc, an indicator as to 
whether it's a 32-bit or 64-bit file.

Open filename To filevarable Then
   Status filestuff From filevariable Then
  structure = filestuff31
  Print (if structure = 5 then 64-bit else 32-bit)
   End
End

- Original Message -
From: Leroy Dreyfuss [EMAIL PROTECTED]
Date: Tue, 18 May 2004 13:12:30 -0600
To: [EMAIL PROTECTED]
Subject: Re: [U2] 64 bit file detection

 Here is a quick and dirty program that should at least give you an idea of
 one way to do it in BASIC.
 
  Dict   = ''
  File   = ''
  Stats  = ''
  Get(Arg.,1) File Then
 If UpCase(File) = 'DICT' Then
Dict = UpCase(File)
Get(Arg.) File Else
   Crt 'DICT requires a file name'
   Stop
End
 End
  End Else
 Crt 'Enter file name: ':
 Input File
 If File = '' Then Stop
  End
  Open Dict,File to F.File
  On Error
 Crt 'Fatal error opening file, STATUS() is ':Status()
 Stop
  End
  Else
 Crt 'Unable to open file, STATUS() is ':Status()
 Stop
  End
  Status Stats From F.File
  Else
 Crt 'Unable to stat file, STATUS() is ':Status()
 Stop
  End
  Begin Case
 Case Stats21 = 1
Crt 'Requested file is type 1'
 Case Stats21 = 19
Crt 'Requested file is type 19'
Stop
 Case Stats21 = 27
Crt 'Requested file is a distributed file'
Stop
 Case 1
If Stats32 = 5 Then
   Crt 'File is 64-bit'
End Else
   Crt 'File is 32-bit'
End
  End Case
  End
 
 
 Regards,
 
 LeRoy F. Dreyfuss
 Advanced Technical Services - U2 Technology Analyst
 IBM U2 Data Management Solutions
 Tel: 303-672-1254  Fax: 303-294-4832
 Mobile: 720-341-4317
 External email:  [EMAIL PROTECTED]
 WWW:  http://www.ibm.com/software/data/u2/support
 
 www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
 Online!
 
 
 
  richu
  [EMAIL PROTECTED]
  Sent by:   To
  [EMAIL PROTECTED] '[EMAIL PROTECTED]'
  stserver.u2ug.org [EMAIL PROTECTED]
 cc
 
  05/18/2004 11:05  Subject
  AM[U2] 64 bit file detection
 
 
  Please respond to
  u2-users
 
 
 
 
 
 
 Does anyone know of a tool, or have a decent routine that shows (on
 universe 10.1, aix 5.2) whether a file is a 32-bit or 64-bit file?
 
 
 
 Best Regards,
 
 Richard Unsworth
 
 Richardson Electronics, Ltd.
 
 Tel: (630) 208 2428
 
 Fax: (630) 208 2957
 
 EML: [EMAIL PROTECTED]
 ---
 u2-users mailing list
 [EMAIL PROTECTED]
 http://www.u2ug.org/listinfo/u2-users
 
 [demime 1.01d removed an attachment of type image/gif which had a name of 
 graycol.gif]
 
 [demime 1.01d removed an attachment of type image/gif which had a name of 
 pic13864.gif]
 
 [demime 1.01d removed an attachment of type image/gif which had a name of 
 ecblank.gif]
 ---
 u2-users mailing list
 [EMAIL PROTECTED]
 http://www.u2ug.org/listinfo/u2-users

-- 
___
Sign-up for Ads Free at Mail.com
http://promo.mail.com/adsfreejump.htm
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

Re: [U2] 64 bit file detection

2004-05-18 Thread Leroy Dreyfuss 
Directories are neither 32 bit nor 64 bit, distributed files do not contain
data and are always 32-bit with old-style headers, and I like to see errors
and messages that at least somewhat explainable. To each his/her own for
coding. As I said, it was a quick and dirty thing.

As an FYI, type 1/19 files will return 0 in field 32 of the dynamic array
returned by the STATUS statement. Field 31 is the signature (magic number)
of the file, which won't work as you have it in your code.

Regards,

LeRoy F. Dreyfuss
Advanced Technical Services - U2 Technology Analyst
IBM U2 Data Management Solutions
Tel: 303-672-1254  Fax: 303-294-4832
Mobile: 720-341-4317
External email:  [EMAIL PROTECTED]
WWW:  http://www.ibm.com/software/data/u2/support

www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
Online!



 Ray Wurlod
 [EMAIL PROTECTED]
 m To
 Sent by:  [EMAIL PROTECTED]
 [EMAIL PROTECTED]  cc
 stserver.u2ug.org
   Subject
   Re: [U2] 64 bit file detection
 05/18/2004 02:43
 PM


 Please respond to
 u2-users






Why so complex?  The STATUS statement returns, in field 31 iirc, an
indicator as to whether it's a 32-bit or 64-bit file.

Open filename To filevarable Then
   Status filestuff From filevariable Then
  structure = filestuff31
  Print (if structure = 5 then 64-bit else 32-bit)
   End
End

- Original Message -
From: Leroy Dreyfuss [EMAIL PROTECTED]
Date: Tue, 18 May 2004 13:12:30 -0600
To: [EMAIL PROTECTED]
Subject: Re: [U2] 64 bit file detection

 Here is a quick and dirty program that should at least give you an idea
of
 one way to do it in BASIC.

  Dict   = ''
  File   = ''
  Stats  = ''
  Get(Arg.,1) File Then
 If UpCase(File) = 'DICT' Then
Dict = UpCase(File)
Get(Arg.) File Else
   Crt 'DICT requires a file name'
   Stop
End
 End
  End Else
 Crt 'Enter file name: ':
 Input File
 If File = '' Then Stop
  End
  Open Dict,File to F.File
  On Error
 Crt 'Fatal error opening file, STATUS() is ':Status()
 Stop
  End
  Else
 Crt 'Unable to open file, STATUS() is ':Status()
 Stop
  End
  Status Stats From F.File
  Else
 Crt 'Unable to stat file, STATUS() is ':Status()
 Stop
  End
  Begin Case
 Case Stats21 = 1
Crt 'Requested file is type 1'
 Case Stats21 = 19
Crt 'Requested file is type 19'
Stop
 Case Stats21 = 27
Crt 'Requested file is a distributed file'
Stop
 Case 1
If Stats32 = 5 Then
   Crt 'File is 64-bit'
End Else
   Crt 'File is 32-bit'
End
  End Case
  End


 Regards,

 LeRoy F. Dreyfuss
 Advanced Technical Services - U2 Technology Analyst
 IBM U2 Data Management Solutions
 Tel: 303-672-1254  Fax: 303-294-4832
 Mobile: 720-341-4317
 External email:  [EMAIL PROTECTED]
 WWW:  http://www.ibm.com/software/data/u2/support

 www.ibm.com/software/data/u2/support - Open, Query, Update, Search -
 Online!



  richu
  [EMAIL PROTECTED]
  Sent by:
To
  [EMAIL PROTECTED] '[EMAIL PROTECTED]'
  stserver.u2ug.org [EMAIL PROTECTED]

cc

  05/18/2004 11:05
Subject
  AM[U2] 64 bit file detection


  Please respond to
  u2-users






 Does anyone know of a tool, or have a decent routine that shows (on
 universe 10.1, aix 5.2) whether a file is a 32-bit or 64-bit file?



 Best Regards,

 Richard Unsworth

 Richardson Electronics, Ltd.

 Tel: (630) 208 2428

 Fax: (630) 208 2957

 EML: [EMAIL PROTECTED]
 ---
 u2-users mailing list
 [EMAIL PROTECTED]
 http://www.u2ug.org/listinfo/u2-users

 [demime 1.01d removed an attachment of type image/gif which had a name of
graycol.gif]

 [demime 1.01d removed an attachment of type image/gif which had a name of
pic13864.gif]

 [demime 1.01d removed an attachment of type image/gif which had a name of
ecblank.gif]
 ---
 u2-users mailing list
 [EMAIL PROTECTED]
 http://www.u2ug.org/listinfo/u2-users

--
___
Sign-up for Ads Free at Mail.com
http://promo.mail.com/adsfreejump.htm
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

[demime 1.01d removed an attachment of type image/gif which had a name of graycol.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of pic04249.gif]

[demime 1.01d removed an attachment of type image/gif which had a name of ecblank.gif]
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users