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 Stats<21> = 1
Crt 'Requested file is type 1'
Case Stats<21> = 19
Crt 'Requested file is type 19'
Stop
Case Stats<21> = 27
Crt 'Requested file is a distributed file'
Stop
Case 1
If Stats<32> = 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
