- Community Home
- >
- Servers and Operating Systems
- >
- Operating Systems
- >
- Operating System - OpenVMS
- >
- Re: Need $RMIDEF from FORSYSDEF.TLB
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
тАО06-05-2009 08:41 AM
тАО06-05-2009 08:41 AM
Would someone please attach an RMIDEF.FOR extracted from a more recent SYS$LIBRARY:FORSYSDEF.TLB that I could just grab?
Thanks
Mike
Solved! Go to Solution.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-05-2009 10:12 AM
тАО06-05-2009 10:12 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
But is is not just a list of parameter definitions?
Using you favourite hammer (TPU, DCL,...) mold $RMIDEF from STARLET.LMB into fortran.
Something like....
$ libr/extr=$rmidef/out=rmidef.mar sys$library:starlet.mlb
$ perl -ne "next unless /^.EQU/; ($x,$name,$value)=split; print qq( PARAMETER $name = $value\n)" < rmidef.mar > rmidef.for
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-07-2009 11:05 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-08-2009 03:35 AM
тАО06-08-2009 03:35 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
That was exactly what I needed. Thank you very much.
Hein,
That was my backup plan , but it is a very *large* file of parameters, I have no perl here (in addition to having constrained privs thanks to Sarbanes-Oxely, we also have fairly tight disk quotas for the developers, so no user-local perl installation), and I was really hoping not to have to cook up text conversions in LSE or Eve.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-08-2009 05:45 AM
тАО06-08-2009 05:45 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
US$30 plus either an emulator or a real Alpha (or one if the US$300 rx2600 boxes and a scrounged OpenVMS I64 kit), and off you go. Immediately solves the "no privileges" problem, and any lurking "excess spare time" problem.
As for public-access clusters, the Deathrow GEIN:: host is running an older release, though the DECUServe EISNER:: host is running OpenVMS Alpha V8.3.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-08-2009 02:21 PM
тАО06-08-2009 02:21 PM
Re: Need $RMIDEF from FORSYSDEF.TLB
Excellent. Problem solved.
Mike wrote>> ", I have no perl here"
That's why I wrote: "Using you favourite hammer"
I dunno Mike, but if you can't pull of this transformation then.... Never mind !
:-) :-)
If you have not played with PERL yet, then might I recommend just trying? Either on a public OpenVMS system as mentioned, or just download (ActiveState.com ?) and play with it on a private system / PC?
Anyways, just for grins I typed in a DCL script to do this, and it worked in one go, no edit needed :-).
Just in case someone needs something similar some other day for an other file
Cheers,
Hein.
$ libr/extr=$rmidef/out=rmidef.mar sys$library:starlet.mlb
$ perl -ne "next unless /^.EQU/; ($x,$name,$value)=split; print qq( PARAMETER $name = $value\n)" < rmidef.mar > rmidef.for
$ cre tmp.com
$open/read in 'p1
$open/write out 'p2
$loop:
$read/end=done in rec
$if "$EQU".nes.F$EXT(0,4,rec) then goto loop
$rec = f$edit(rec,"COMPRESS")
$nam = f$elem(1," ",rec)
$val = f$elem(2," ",rec)
$write out " PARAMETER ", nam, " = ", val
$goto loop
$done:
$close in
$close out
Exit
$ @tmp rmidef.mar rmidef.tmp
$ head 10 rmidef.tmp
PARAMETER RMI$C_EXETYPE = 1
PARAMETER RMI$C_EWSTYPE = 2
:
$ perl -pe "last if $. > 10" rmidef.for
PARAMETER RMI$C_EXETYPE = 1
PARAMETER RMI$C_EWSTYPE = 2
:
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-08-2009 10:29 PM
тАО06-08-2009 10:29 PM
Re: Need $RMIDEF from FORSYSDEF.TLB
This will only get the $equ's (parameters) but not the defined structures, so this solves only half the problem.
Fekko
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-09-2009 09:31 AM
тАО06-09-2009 09:31 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
I've been playing with perl a lot and wish I had it available in this environment. Not an issue.
And, yes, I could have cobbled together some LSE/TPU macros or DCL code or a variety of other things in an hour or so that would have given me the bulk of what I needed.
But it was also easy to ask if someone could just attach the "real thing" and save me some work and perhaps some unnoticed typos. Thanks again, Fekko.
I don't need to kill flies with sledgehammers :-)
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-10-2009 12:28 AM
тАО06-10-2009 12:28 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
I wrote a piece of DCL to convert modules from starlet.mlb (or any .mlb file) to fortran . I attached the .com file as a .txt file. I tested it, but i do not garantee that it works in all cases. I am interested in possible errors/successes.
Fekko
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report Inappropriate Content
тАО06-10-2009 01:30 AM
тАО06-10-2009 01:30 AM
Re: Need $RMIDEF from FORSYSDEF.TLB
You need the [.STARLET.LIS]RMIDEF.SDL from the OpenVMS Alpha Listings CD-ROM Kit, if you don't have this kit, maybe your friendly HP support can provide one.
Create RMIDEF.FOR with the following command,
$ SDL /LANG=FORTRAN RMIDEF.SDL