- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTO...
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
тАО01-18-2008 11:04 AM
тАО01-18-2008 11:04 AM
I am looking to use SYS$GETJPI's JPI$_RIGHTSLIST to obtain an array of rights identifiers held by the executing process, and then to display the ascii values of those identifiers using SYS$IDTOASC.
Unfortunately, I have been unable to get this to work in Fortran 77 or 90.
Would it be possible to get a Fortran code snippet that perform these two tasks? Any assistance will be greatly appreciated.
Many thanks.
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 11:19 AM
тАО01-18-2008 11:19 AM
SolutionFortran Examples sys$mumble
tailored for whichever system service(s) you are working with.
As it turns out, the first hit over there right now for "Fortran Examples sys$getjpiw" is this one:
http://h18000.www1.hp.com/support/asktima/appl_tools/00949F69-3F3075A0-1C0069.html
Which appears to be what you are looking for.
Stephen Hoffman
HoffmanLabs LLC
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 11:25 AM
тАО01-18-2008 11:25 AM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
-H-
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 11:28 AM
тАО01-18-2008 11:28 AM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 05:40 PM
тАО01-18-2008 05:40 PM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
This is especially true it your process has many identifiers in its rightslist.
Even more efficient is a call to $CHECK_PRIVILEGE, which provides streamlined access to the executive routine EXE$SEARCH_RIGHTS_ARRAY, but even if you don't request auditing, the $CHECK_PRIVILEGE system service requires AUDIT privilege. When I complained to Compaq about that, I was told that not requiring AUDIT privilege would be a security violation, and when I pointed out that the same information was available via $GETJPI, they were not able to explain why it would be a security problem.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 06:13 PM
тАО01-18-2008 06:13 PM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
And as for requiring AUDIT, there's more to the $CHECK_PRIVILEGE call than there is to the $GETJPI call, and rolling your own bit test. What you might be doing and the user-visible portion can appear to be identical, but the back-end processing can and does differ. (You can't toss out audits without privilege, when last I looked. And the former tosses out audits. The latter approach does not, not unless you add those yourself.)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-18-2008 10:08 PM
тАО01-18-2008 10:08 PM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
Here is the program I though should have been able to run without audit privilege.
(this is FORTRAN) (also attachec as text file)
options /extend_source
implicit none
include '($ssdef)/nolist' ! for system service status
include '($nsadef)/nolist' ! for NSA$M_IDENTIFIER
C Declare called functions
integer sys$asctoid
integer sys$check_privilege
integer id
integer status
status = sys$asctoid('INTERACTIVE',id,)
if (.not. status) call exit(status)
status = sys$check_privilege(,id,,%val(NSA$M_IDENTIFIER.or.NSA$M_NOSUCCAUD.or.NSA$M_NOFAILAUD),,,,)
call exit(status)
end
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО01-19-2008 02:22 PM
тАО01-19-2008 02:22 PM
Re: Fortran - $GETJPI/JPI$_RIGHTSLIST and SYS$IDTOASC
-H-