- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- LIB$WAIT & COBOL/VMS
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
Forums
Discussions
Discussions
Discussions
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
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
10-21-2005 04:03 PM
10-21-2005 04:03 PM
LIB$WAIT & COBOL/VMS
Currently in my COBOL program I am using the lib$wait routine. Its being called in block of code that is being run via a perform loop.
For testing purposes I set the initial wait time to 10 seconds. The first time the perform loop runs through and hits the LIB$WAIT call it waits for 10 seconds. If there is no work to do it calls lib$wait but completely skips the 10 second count from then on as if it had met the 10 second wait criteria.
Here is my call:
CALL "LIB$WAIT" USING BY REFERENCE duration, libnowake, float-type
duration is set to 10
libnowake is set to 0 or 1, but I've also substituted 'OMITTED' in place of libnowake..none of these values fixed the problem.
Current versions of software pertinent to this problem:
OVMS = 7.3-2, roll-up patch 4
COBOL 2.8
RDB 7.1-411
I thank you'all in advance!
-Alex
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-21-2005 04:52 PM
10-21-2005 04:52 PM
Re: LIB$WAIT & COBOL/VMS
Hmmm,
I would have suspected the Control flags arguments: "The flags argument is the address of a longword integer that contains the control flags. The following flag is defined: Bit 0, LIB$K_NOWAKE LIB$WAIT will not wake in the case of an interrupt.
This is an optional argument. If omitted, the default is 0, and LIB$WAIT
will wake in the case of an interrupt. "
As discussed in:
https://forums2.itrc.hp.com/service/forums/questionanswer.do?threadId=948325
But it sounds like you already tried passing the integer value 1 as argument there.
I would triple-check and print out all arguments to lib$wait just before it being called.
Hein.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-21-2005 05:38 PM
10-21-2005 05:38 PM
Re: LIB$WAIT & COBOL/VMS
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-22-2005 04:48 AM
10-22-2005 04:48 AM
Re: LIB$WAIT & COBOL/VMS
http://www.openvms.org/phorum/read.php?f=1&i=2760&t=2760
Purely Personal Opinion
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-22-2005 07:24 AM
10-22-2005 07:24 AM
Re: LIB$WAIT & COBOL/VMS
It may be worth checking the variable which you use as the 'seconds' argument. LIB$WAIT requires a F-FLOATING value but your variable may not be declared as a COMP-1. If the variable is declared correctly is the compiler using an unexpected floating point type.
Regards,
Ian
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-22-2005 02:51 PM
10-22-2005 02:51 PM
Re: LIB$WAIT & COBOL/VMS
could you please try this once...
01 duration comp-1.
....
move 10.0 to duration.
CALL "LIB$WAIT" using by reference duration.
-----------------------------
The other way....
and other doubt I have is when I read the VMS help about lib$wait, in which they mentioned about the thrid argument float type....
float-type
"This is an optional argument. If omitted, the default is F_floating. F_floating is
the "--required--" float-type when LIB$WAIT is called from a module written in a language that "--prototypes--" functions"
Looks like we should use this third argument (LIB$K_VAX_F -- Alpha, LIB$K_IEEE_S --- IA64).
So try float-type = LIB$K_VAX_F alternatively with LIB$K_NOWAKE and LIB$K_NOWAIT control flags. Just trial only...
If it doesn't work, could please past your PERFORM loop code?
Archunan
Archie
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-23-2005 02:27 PM
10-23-2005 02:27 PM
Re: LIB$WAIT & COBOL/VMS
I was using comp-1, it should have been pic 9(5) comp value 1.
-Alex
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
10-23-2005 02:28 PM
10-23-2005 02:28 PM
Re: LIB$WAIT & COBOL/VMS
pic 9(5) comp value 1.