- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- Re: Basic 1.6 and Xfloats
Categories
Company
Local Language
Forums
Discussions
Forums
- Data Protection and Retention
- Entry Storage Systems
- Legacy
- Midrange and Enterprise Storage
- Storage Networking
- HPE Nimble Storage
Discussions
Discussions
Discussions
Forums
Forums
Discussions
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
- BladeSystem Infrastructure and Application Solutions
- Appliance Servers
- Alpha Servers
- BackOffice Products
- Internet Products
- HPE 9000 and HPE e3000 Servers
- Networking
- Netservers
- Secure OS Software for Linux
- Server Management (Insight Manager 7)
- Windows Server 2003
- Operating System - Tru64 Unix
- ProLiant Deployment and Provisioning
- Linux-Based Community / Regional
- Microsoft System Center Integration
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Discussion Boards
Community
Resources
Forums
Blogs
- Subscribe to RSS Feed
- Mark Topic as New
- Mark Topic as Read
- Float this Topic for Current User
- Bookmark
- Subscribe
- Printer Friendly Page
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 03:18 AM
тАО08-02-2005 03:18 AM
I was told it was a bug and should be corrected in version 1.6, just released.
I've tested the same little program and happened to not run.
The errors are different than with version 1.5 (compiling errors), now are running errors.
Here is the little program.
Vms is 7.3-1 on Alpha.
I can find for a workaround but as usual it's a mess.
Any ideas?
Regards
Carlos Fernandez
OPTION TYPE = EXPLICIT
DECLARE XFLOAT FUNCTION OK (XFLOAT)
DEF XFLOAT OK (XFLOAT OK_ENTRA)
OK_ENTRA = 0 IF (OK_ENTRA < 0.0001 AND
OK_ENTRA > -0.0001)
OK = OK_ENTRA
END DEF
declare xfloat numero
input 'numero = ';numero
NUMERO = OK (NUMERO)
print 'Numero = ';numero
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 12:29 PM
тАО08-02-2005 12:29 PM
Re: Basic 1.6 and Xfloats
Can you provide a log of the compilation and run
of the above program. My attempts to compile the
code result in an internal compiler error...
Dave
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 02:12 PM
тАО08-02-2005 02:12 PM
Re: Basic 1.6 and Xfloats
Sorry, if you want to be assurred that a fix gets into a release, you need to log a formal case against your service contract.
You've tried the informal path (this forum) and it apparently hasn't worked. So, you need to go the formal path.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 05:56 PM
тАО08-02-2005 05:56 PM
Re: Basic 1.6 and Xfloats
please follow John's advice. You've tried the un-official pathes (openvms.org forum and comp.os.vms) to get HP's attention for what you believe is a product problem and it seems to have partially helped.
If you provide a concise reproducer and a detailled description (including all the steps, versions and output of the failure) for your problem, maybe someone with a software service contract for BASIC can reproduce and finally and officially forward this problem to HP.
Volker.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 07:59 PM
тАО08-02-2005 07:59 PM
Re: Basic 1.6 and Xfloats
your function doen't return value when OK_ENTRA is in range -0.0001 trhu 0.0001.
You have to supply ELSE option.
Antonio Vigliotti
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 08:15 PM
тАО08-02-2005 08:15 PM
Re: Basic 1.6 and Xfloats
In 1.6 it's a running error.
CARLOS ALPHA >bas pp
CARLOS ALPHA >lin pp
CARLOS ALPHA >r pp
numero = ? 123
Numero = 0
%BAS-F-PROLOSSOR, Internal error in Alpha BASIC Run-Time Library. Please submit an SPR
%TRACE-F-TRACEBACK, symbolic stack dump follows
image module routine line rel PC abs PC
DEC$BASRTL 0 00000000000043A4 000000007C1923A4
PP PP$MAIN PP$MAIN 15 0000000000000164 0000000000020164
0 FFFFFFFF8028759C FFFFFFFF8028759C
I was in contact with the responsible of Basic product who gave me thanks to reduce and report the error. He said it would be solved in 1.6 version.
What I was asking now is if someone with 1.6 version can reproduce the same error.
And there is no need for the ELSE part as OK_ENTRA always has any value. Or the initial one or Zero if it's in the range.
Thanks to all for your time and support.
Carlos
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 08:52 PM
тАО08-02-2005 08:52 PM
Re: Basic 1.6 and Xfloats
did you compile with qulifier /REAL=XFLOAT?
Antonio Vigliotti
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-02-2005 09:01 PM
тАО08-02-2005 09:01 PM
Re: Basic 1.6 and Xfloats
now it gets more complicated:
- you've reported a compiler error with BASIC V1.5 and it has been solved in V1.6 - that's good.
- now you compile your program with V1.6 and it fails during runtime with an internal error PROLOSSOR in the DEC$BASRTL (Basic runtime library). If this is really related, no wonder this problem has never been seen, if the compiler didn't work before. One would have expected, that the compiler people would also have run the compiled code, but...
- DEC$BASRTL is part of OpenVMS. You're running V7.3-1, which is not supported anymore.
You need to find someone with a supported version of OpenVMS and BASIC V1.6, who can reproduce this and then log a call to HP.
Volker.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-03-2005 04:53 AM
тАО08-03-2005 04:53 AM
Re: Basic 1.6 and Xfloats
For what I remember, that option is not needed. It only applies to not defined variables, but anyway, I'll give it a try. Option tried and same error.
To Volker,
I really don't know where the problem is.
But this is pasted from the 1.6 release notes.
o Alpha BASIC V1.6 minimally requires OpenVMS Alpha Version 6.2
to run.
o This kit includes an updated RTL. This RTL is install au-
tomatically if it is newer than the currently installed
version. It may also be extracted from saveset C for in-
stallation as necessary. The commands for doing this are as
follows:
$ BACKUP/SELECT=DEC$BASRTL.EXE BASIC016.C/SAVE DEC$BASRTL.EXE
$ COPY DEC$BASRTL.EXE SYS$COMMON:[SYSLIB]
$ INSTALL REPLACE SYS$LIBRARY:DEC$BASRTL ! on each node in the cluster
$ LIBRARY/REPLACE SYS$COMMON:[SYSLIB]IMAGELIB.OLB -
SYS$COMMON:[SYSLIB]DEC$BASRTL.EXE
Note that if OpenVMS is updated, it may be necessary to
reinstall BASIC and/or the updated RTL.
As you said, I need someone to test this small routine in a supported 7.3-2 Vms with 1.6 Basic to know if it's a general problem or just mine.
Thanks guys for your assistance.
Carlos
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО08-03-2005 04:59 AM
тАО08-03-2005 04:59 AM
Re: Basic 1.6 and Xfloats
did you verify, that you're running with the most recent DEC$BASRTL from the BASIC V1.6 kit ?
$ DIR/DATE SYS$SHARE:DEC$BASRTL.EXE
$ ANAL/IMA/INT SYS$SHARE:DEC$BASRTL.EXE
look at Image Identification Information
$ INSTAL LIS SYS$SHARE:DEC$BASRTL.EXE
$ SHOW LOG DEC$BASRTL
Volker.