INFO-VAX	Wed, 14 Nov 2007	Volume 2007 : Issue 623

   Contents:
Re: LANCP SHO DEV /CHAR doesn't
Re: Mylex 960 question
Re: Mylex 960 question
Re: Mylex 960 question
Re: Need help with TCPIP V5.1 configuration
Re: Need help with TCPIP V5.1 configuration
Re: Need help with TCPIP V5.1 configuration
Re: Need help with TCPIP V5.1 configuration
Re: Need help with TCPIP V5.1 configuration
Re: SYS$GRANT_LICENSE output codes
Re: SYS$GRANT_LICENSE output codes

----------------------------------------------------------------------

Date: Tue, 13 Nov 2007 21:59:38 +0100
From: Wilm Boerhout <w6OLD.PAINTboerhout@planet.nl>
Subject: Re: LANCP SHO DEV /CHAR doesn't
Message-ID: <473a1070$0$25496$ba620dc5@text.nova.planet.nl>

on 13-11-2007 6:17 Jur van der Burg wrote...
> Hey, it's a vax and that does officially not know about anything more 
> than 10MBps.
> As said, SHOW DEV/PARAMETER is the best you can get.

Hi Jur,

A VAX is s'posed to know about Full/Half Duplex right?

Anyway, if this is it, it's it then :-)


-- 
Wilm Boerhout                      Zwolle, NL
remove OLD PAINT from return address to reply

------------------------------

Date: Tue, 13 Nov 2007 15:55:25 -0800
From:  H Vlems <hvlems@freenet.de>
Subject: Re: Mylex 960 question
Message-ID: <1194998125.991684.174590@v2g2000hsf.googlegroups.com>

On 12 nov, 21:46, Uusim=E4ki <uusimaki@withouthis_exdecfinland.org>
wrote:
> Malcolm Dunnett wrote:
> > H Vlems wrote:
>
> >> Of course it turned out to be a little more complicated because the
> >> ARC software wouldn't load the
> >> RA200RCU.EXE utility. The first suspect was the floppy itself, though
> >> it could be read on a PC.
> >> A copy failed and also  a third one with a fresh copy of RA200RCU.EXE
> >> from another source.
> >> Hardware failure? No, it appeared that the flat cable was no longer
> >> connected to the floppy drive.
>
> > IIRC you can also find a copy of RA200RCU on the Alpha firmware update
> > CDs, under a Storageworks directory.
>
> >> But it works, thanks again!
> >> Hans
>
> Exactly, the RA200RCU.EXE is on the Firmware CD (in UTILITY\SWXCRMGR
> directory), but I would recommend the RA200SRL.EXE, which can be used
> with a VT Terminal. It resides in the same directory.
> Real computers don't have graphics adapters. ;-)

Ahem, I beg to differ, ever heard of SMG$ routines ? :-)
Somewhat more seriously, I'm posting this through Google, on an Alpha
running VMS 8.3 and Mozilla.
Works fine but would be somewhat harder on a VT100. Yes I do know
about Lynx ....
I hope you didn't mind that. Your remark is most useful actually,
because all my VAX and AXP
systems jave their consoles connected to serial interfaces in pc's. I
run a terminal emulator to connect to all these ports.
As you mention, to run RA200RCU it is required to connect a monitor,
mouse and keyboard to the Alpha.
RA200SRL is a lot easier because it fits in my, err, infrastructure.
Thanks for your comment!
Hans

------------------------------

Date: Tue, 13 Nov 2007 15:57:58 -0800
From:  H Vlems <hvlems@freenet.de>
Subject: Re: Mylex 960 question
Message-ID: <1194998278.232973.258430@57g2000hsv.googlegroups.com>

On 11 nov, 22:47, Malcolm Dunnett <noth...@spammers.are.scum> wrote:
> H Vlems wrote:
> > Of course it turned out to be a little more complicated because the
> > ARC software wouldn't load the
> > RA200RCU.EXE utility. The first suspect was the floppy itself, though
> > it could be read on a PC.
> > A copy failed and also  a third one with a fresh copy of RA200RCU.EXE
> > from another source.
> > Hardware failure? No, it appeared that the flat cable was no longer
> > connected to the floppy drive.
>
> IIRC you can also find a copy of RA200RCU on the Alpha firmware update
> CDs, under a Storageworks directory.
>
>
OK, but is it accessible from the ARC console? I've only used it to
run utiliies from the floppy drive.
The screen itself just lists onde device A: so it feels as if there's
no choice but to use a floppy.
What's the cdrom drive called then, D:?
Hans

------------------------------

Date: Wed, 14 Nov 2007 03:51:31 +0100
From: "Martin Vorlaender" <mv@pdv-systeme.de>
Subject: Re: Mylex 960 question
Message-ID: <op.t1rgv6wkdc3j58@notemv-tap.mv.privat>

H Vlems wrote:

> Malcolm Dunnett wrote:
>> H Vlems wrote:
>> > Of course it turned out to be a little more complicated because the
>> > ARC software wouldn't load the
>> > RA200RCU.EXE utility. The first suspect was the floppy itself, though
>> > it could be read on a PC.
>> > A copy failed and also  a third one with a fresh copy of RA200RCU.EXE
>> > from another source.
>> > Hardware failure? No, it appeared that the flat cable was no longer
>> > connected to the floppy drive.
>>
>> IIRC you can also find a copy of RA200RCU on the Alpha firmware update
>> CDs, under a Storageworks directory.
>>
> OK, but is it accessible from the ARC console? I've only used it to
> run utiliies from the floppy drive.
> The screen itself just lists onde device A: so it feels as if there's
> no choice but to use a floppy.
> What's the cdrom drive called then, D:?

IIRC, there's a drop-down list in the "Execute program" item for the
drive with entries for "A:" and "CDROM:".

The contents of the "Path" text field should be something like
"\utilities\swxcr\ra200rcu.exe".

Disclaimer: all of this is from memory.

cu,
   Martin
-- 
One OS to rule them all       | Martin Vorlaender  |  OpenVMS rules!
One OS to find them           | work: mv@pdv-systeme.de
One OS to bring them all      |   http://vms.pdv-systeme.de/users/martinv/
And in the Darkness bind them.| home: martin.vorlaender@t-online.de

------------------------------

Date: Tue, 13 Nov 2007 20:18:58 +0100
From: ss <me@thisis.invalid>
Subject: Re: Need help with TCPIP V5.1 configuration
Message-ID: <me-D8793A.20185713112007@news.highway.telekom.at>

Hi again...hope i don´t bother you too much with this but

No progress so far :(

I´ll try to post more detailed infos. let´s start:

My NIC is working i´ve of course checked this before i installed the 
Emulator.

(FreeBSD 5.5)

sim> SHOW VERSION
VAX simulator V3.7-3 [64b data, 64b addresses, Ethernet support]
sim> SHOW CPU
CPU, idle disabled, 64MB, HALT to SIMH
sim> SHOW XQ
XQ, address=20001920-2000192F, vector=250, MAC=00:01:02:F7:71:7F, 
type=DELQA, poll=100, attached to xl0

I don´t think it´s possible to check the NIC at this stage..Right?

sim> BOOT CPU


KA655-B V5.3, VMB 2.7
Performing normal system tests.
40..39..38..37..36..35..34..33..32..31..30..29..28..27..26..25..
24..23..22..21..20..19..18..17..16..15..14..13..12..11..10..09..
08..07..06..05..04..03..
Tests completed.
>>>SHOW MEMORY /FULL
Memory 0: 00000000 to 00FFFFFF, 16MB, 0 bad pages
Memory 1: 01000000 to 01FFFFFF, 16MB, 0 bad pages
Memory 2: 02000000 to 02FFFFFF, 16MB, 0 bad pages
Memory 3: 03000000 to 03FFFFFF, 16MB, 0 bad pages

Total of 64MB, 0 bad pages, 128 reserved pages

Memory Bitmap
-03FF0000 to 03FF3FFF, 32 pages

Console Scratch Area
-03FF4000 to 03FF7FFF, 32 pages

Qbus Map
-03FF8000 to 03FFFFFF, 64 pages

Scan of Bad Pages
>>>SHOW ETHERNET
Ethernet Adapter 0 (774440)
-XQA0 (00-01-02-F7-71-7F)
>>>BOOT
(BOOT/R5:0 DUA0



  2..
-DUA0
  1..0..


%SYSBOOT-I-SYSBOOT Mapping the SYSDUMP.DMP on the System Disk
%SYSBOOT-I-SYSBOOT SYSDUMP.DMP on System Disk successfully mapped
%SYSBOOT-I-SYSBOOT Mapping PAGEFILE.SYS on the System Disk
%SYSBOOT-I-SYSBOOT SAVEDUMP parameter not set to protect the PAGEFILE.SYS
   OpenVMS (TM) VAX Version V7.3     Major version id = 1 Minor version 
id = 0
%WBM-I-WBMINFO Write Bitmap has successfully completed initialization.
$!  Copyright 2001 Compaq Computer Corporation.

{...}

Accounting information:
  Buffered I/O count:            1219         Peak working set size:    
1961
  Direct I/O count:               656         Peak page file size:      
4949
  Page faults:                   4048         Mounted volumes:             
2
  Charged CPU time:           0 00:00:54.96   Elapsed time:     0 
00:01:06.33

 Welcome to OpenVMS (TM) VAX Operating System, Version V7.3

Username: SYSTEM
Password:
 Welcome to OpenVMS (TM) VAX Operating System, Version V7.3
    Last interactive login on Monday, 12-NOV-2007 16:03
$ SHOW DEV XQA

Device                  Device           Error
 Name                   Status           Count
XQA0:                   Online               0


$ RUN SYS$SYSTEM:SYSMAN
SYSMAN> PARAMETER SHOW SPTREQ
%SYSMAN-I-USEACTNOD, a USE ACTIVE has been defaulted on node SIMVAX
Node SIMVAX:   Parameters in use: ACTIVE
Parameter Name            Current    Default    Minimum    Maximum Unit  
Dynamic
--------------            -------    -------    -------    ------- ----  
-------
SPTREQ                     100000       3900       3000         -1 Pages

As JF has suggested in his reply i increased the SPTREQ, NPAGEDYN and 
NPAGEVIR parameters and it brought me at least one step further:

Compaq TCP/IP Services for OpenVMS Configuration Menu

        Configuration options:

                 1  -  Core environment
                 2  -  Client components
                 3  -  Server components
                 4  -  Optional components

                 5  -  Shutdown Compaq TCP/IP Services for OpenVMS
                 6  -  Startup Compaq TCP/IP Services for OpenVMS
                 7  -  Run tests

                 A  -  Configure options 1 - 4
                [E] -  Exit configuration procedure

Enter configuration option: 6
Begin Startup...


%TCPIP-I-INFO, TCP/IP Services startup beginning at 12-NOV-2007 
16:46:35.96
%TCPIP-I-NORMAL, timezone information verified
%%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:42.73  %%%%%%%%%%%
Message from user INTERnet on SIMVAX
INTERnet Loaded

%RUN-S-PROC_ID, identification of created process is 00000211
%TCPIP-I-SETLOCAL, setting domain and/or local host
%TCPIP-I-STARTCOMM, starting communication
%%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:47.92  %%%%%%%%%%%
Message from user INTERnet on SIMVAX
INTERnet Started

%TCPIP-I-SETPROTP, setting protocol parameters
%TCPIP-I-DEFINTE, defining interfaces
%%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:49.42  %%%%%%%%%%%
Message from user INTERnet on SIMVAX
INTERnet ACP Created INTERnet interface: QE0

%TCPIP-I-STARTNAME, starting name service
%%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:55.48  %%%%%%%%%%%
Message from user Proxy Server on SIMVAX
Loading proxy server image TCPIP$PROXY_SERVICES

And that´s it again. The longest time i´ve been patient was for about an 
hour, usually i tend to switch it off after aprox. 15 minutes. Or is it 
possible that it needs so long to come up?

I´ve deleted the TCPIP$*.DAT files to get somewhat of a fresh install 
before i started the config with the new parameters.

All "playing around" with the system was done as user with home DIR on 
DUA1, the only thing i´ve edited so far was the MODPARAMS.DAT with an 
AUTOGEN run afterwards...and installing TCPIP of course...

Do i overlook something?

What else could i consider? 

Maybe i´ll give it another configuration-try some hours later, anyway 
there´s no Cricket tonight, so maybe stay up late for VMS :)

regards
-Sascha

P.S.: Sorry for the delayed reply, but i have a lot of "real" work to do 
at the moment so my time to play around with this is limited :( I´m 
going to read the System Manager´s Manual and the I/O User´s Reference 
carefully during the next days, maybe this helps to find out what could 
be wrong. Any other reading suggestions btw?

------------------------------

Date: Tue, 13 Nov 2007 20:34:43 +0100
From: ss <me@thisis.invalid>
Subject: Re: Need help with TCPIP V5.1 configuration
Message-ID: <me-610E61.20344313112007@news.highway.telekom.at>

In article <1194812839.382396.24280@19g2000hsx.googlegroups.com>,
 H Vlems <hvlems@freenet.de> wrote:

> 
> Sascha, how did you configure the ethernet device with SIMH?
> For example, the config file I use contains:
> 
> set xq type=delqa
> set xq mac=08-00-2B-AB-C1-35
> 
> The MAC address of course must be unique on your LAN, other than that
> you can do whatever you please.
> Next, you did install WinPcap, didn't you?
> 
> Final question: what exactly went wrong, provide us with error
> messages (exact copies) and an explanation what you did.
> This newsgroup will answer any question that is related to VMS or
> other Digital products, provided we know what the question is :-)
> Hans

Hi Hans...

Just out of interest, does your card have the same MAC address on your 
base OS and your emulator or do you assign a different one?

-Sascha

------------------------------

Date: Tue, 13 Nov 2007 16:56:28 -0500
From: JF Mezei <jfmezei.spamnot@vaxination.ca>
Subject: Re: Need help with TCPIP V5.1 configuration
Message-ID: <c8413$473a1d8f$cef8887a$19935@TEKSAVVY.COM>

ss wrote:

> %TCPIP-I-STARTNAME, starting name service
> %%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:55.48  %%%%%%%%%%%
> Message from user Proxy Server on SIMVAX
> Loading proxy server image TCPIP$PROXY_SERVICES


Ok, looking at the startup procedure, it generates temporary files that 
contain the services that need to be activated. One of then contains an 
ordered list. It seems to start with bind, proxy and portmapper. (they 
are hardcoded). The rest is added from configuration data.

TCPIP> GENERATE SERVICE/CONFIGURATION/FILE=temp.txt
and then DUMP TEMP.TXT and you will see the  services it will attempt to 
start.

What you could do is to not start TCPIP in your system startup 
procedure. Once booted, you login interactively, and submit a batch job 
to do the TCPIP$SYSTARTUP. (or spawn/nowait/output=log.file @tcpip$startup).

While it is running, you can do a DIR disk:[SYS0.SYSTARTUP] for any 
TCPIP*.TMP or TCPIP*.DAT , one of them will contain the ordered service 
startup list. You know it has done the proxy startup, you might wish to 
find out which is the next service on the list it was trying to start 
when it hung.

Also, if your interactve session doesn't hang, you will know it is only 
the TCPIP$STARTUP that hangs (as opposed to the whole system hanging).

you can also SHOW LOG /TABLE=TCPIP$STARTUP_TABLE and it shows which 
services have been started, by whom and at what time.

I would have to delve further in the TCPIP$STARTUP.COM file. The later 
also does an @TCPIP$CONFIG GENERATE_SERVICES which is an undocumented 
function.

------------------------------

Date: Wed, 14 Nov 2007 00:28:59 +0100
From: ss <me@thisis.invalid>
Subject: Re: Need help with TCPIP V5.1 configuration
Message-ID: <me-8FB13D.00285914112007@news.highway.telekom.at>

Hi...

First of all, thanks for your quick replies.

In the meantime, i had the idea of letting tcpdump run in the background 
during startup and TCPIP$CONF.

Don?t know if this can shed some more light on my issue.

But i think now, that SimH isn?t the culprit.

http://www.iana.org/assignments/ethernet-numbers says:

6002 DEC MOP Remote Console (whatever this is)
ok, and 9000 Loopback

Anyway, here?s the output:


tcpdump: listening on xl0, link-type EN10MB (Ethernet), capture size 96 
bytes

[Starting the emulator]

22:12:53.381885 00:01:02:f7:71:7f > 00:01:02:f7:71:7f, ethertype 
Loopback (0x9000), length 60:
        0x0000:  2e2f 3031 3233 3435 3637 3839 3a3b 3c3d  
./0123456789:;<=
        0x0010:  3e3f 4041 4243 4445 4647 4849 4a4b 4c4d  
>?@ABCDEFGHIJKLM
        0x0020:  4e4f 5051 5253 5455 5657 5859 5a5b       NOPQRSTUVWXYZ[
22:12:53.758654 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0000 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............

[>>>BOOT]

[login]

22:22:32.194267 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0100 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............

Here it was time for a tea; started TCPIP$CONF afterwards:

22:31:32.153734 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0200 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............
22:31:52.772123 00:01:02:f7:71:7f > 00:01:02:f7:71:7f, ethertype 
Loopback (0x9000), length 60:
        0x0000:  0000 0200 0001 02f7 717f 0100 0000 0000  
........q.......
        0x0010:  0000 0000 0000 0000 0000 0000 0000 0000  
................
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............
22:31:53.006828 00:01:02:f7:71:7f > 00:01:02:f7:71:7f, ethertype 
Loopback (0x9000), length 60:
        0x0000:  0000 0200 0001 02f7 717f 0100 0000 0000  
........q.......
        0x0010:  0000 0000 0000 0000 0000 0000 0000 0000  
................
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............
22:31:54.175329 arp who-has 10.0.2.5 tell 10.0.2.5
22:40:32.492048 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0300 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............
22:49:32.498667 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0400 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............
22:58:32.505285 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0500 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............

[...]

23:43:32.538376 00:01:02:f7:71:7f > ab:00:00:02:00:00, ethertype MOP RC 
(0x6002), length 60:
        0x0000:  1c00 0700 0a00 0100 0303 0100 0200 0200  
................
        0x0010:  0007 0006 0001 02f7 717f 2500 0111 0000  
........q.%.....
        0x0020:  0000 0000 0000 0000 0000 0000 0000       ..............

^C

-Sascha

In article <c8413$473a1d8f$cef8887a$19935@TEKSAVVY.COM>,
 JF Mezei <jfmezei.spamnot@vaxination.ca> wrote:

> ss wrote:
> 
> > %TCPIP-I-STARTNAME, starting name service
> > %%%%%%%%%%%  OPCOM  12-NOV-2007 16:46:55.48  %%%%%%%%%%%
> > Message from user Proxy Server on SIMVAX
> > Loading proxy server image TCPIP$PROXY_SERVICES
> 
> 
> Ok, looking at the startup procedure, it generates temporary files that 
> contain the services that need to be activated. One of then contains an 
> ordered list. It seems to start with bind, proxy and portmapper. (they 
> are hardcoded). The rest is added from configuration data.
> 
> TCPIP> GENERATE SERVICE/CONFIGURATION/FILE=temp.txt
> and then DUMP TEMP.TXT and you will see the  services it will attempt to 
> start.
> 
> What you could do is to not start TCPIP in your system startup 
> procedure. Once booted, you login interactively, and submit a batch job 
> to do the TCPIP$SYSTARTUP. (or spawn/nowait/output=log.file @tcpip$startup).
> 
> While it is running, you can do a DIR disk:[SYS0.SYSTARTUP] for any 
> TCPIP*.TMP or TCPIP*.DAT , one of them will contain the ordered service 
> startup list. You know it has done the proxy startup, you might wish to 
> find out which is the next service on the list it was trying to start 
> when it hung.
> 
> Also, if your interactve session doesn't hang, you will know it is only 
> the TCPIP$STARTUP that hangs (as opposed to the whole system hanging).
> 
> you can also SHOW LOG /TABLE=TCPIP$STARTUP_TABLE and it shows which 
> services have been started, by whom and at what time.
> 
> I would have to delve further in the TCPIP$STARTUP.COM file. The later 
> also does an @TCPIP$CONFIG GENERATE_SERVICES which is an undocumented 
> function.

------------------------------

Date: Wed, 14 Nov 2007 03:58:49 +0100
From: "Martin Vorlaender" <mv@pdv-systeme.de>
Subject: Re: Need help with TCPIP V5.1 configuration
Message-ID: <op.t1rg8bq0dc3j58@notemv-tap.mv.privat>

Sascha wrote:
> H Vlems wrote:
>> Sascha, how did you configure the ethernet device with SIMH?
>> For example, the config file I use contains:
>>
>> set xq type=3Ddelqa
>> set xq mac=3D08-00-2B-AB-C1-35
>>
>> The MAC address of course must be unique on your LAN, other than that=

>> you can do whatever you please.
>> Next, you did install WinPcap, didn't you?
>>
>> Final question: what exactly went wrong, provide us with error
>> messages (exact copies) and an explanation what you did.
>> This newsgroup will answer any question that is related to VMS or
>> other Digital products, provided we know what the question is :-)
>
> Just out of interest, does your card have the same MAC address on your=

> base OS and your emulator or do you assign a different one?

I'd think it has to be a different one (freely chosen, unique on your
network), because pcap uses it to differentiate which packets are for
simh and which ones are for the host system.

cu,
   Martin
-- =

One OS to rule them all       | Martin Vorlaender  |  OpenVMS rules!
One OS to find them           | work: mv@pdv-systeme.de
One OS to bring them all      |   http://vms.pdv-systeme.de/users/martin=
v/
And in the Darkness bind them.| home: martin.vorlaender@t-online.de

------------------------------

Date: 13 Nov 2007 14:34:39 -0600
From: Kilgallen@SpamCop.net (Larry Kilgallen)
Subject: Re: SYS$GRANT_LICENSE output codes
Message-ID: <4sDYgrQkdvIe@eisner.encompasserve.org>

In article <drj_i.18$xu3.4@newsfe08.lga>,   VAXman-  @SendSpamHere.ORG writes:
> In article <fhca69$uuo$1@usenet01.boi.hp.com>, John Reagan <john.reagan@hp.com> writes:
>>
>>
>>VAXman- @SendSpamHere.ORG wrote:
>>> In article <op.t1ptcubkhv4qyg@murphus.hsd1.ca.comcast.net>, "Tom Linden" <tom@kednos.company> writes:
>>
>>>            2 hw_id,
>>>              3 length  fixed bin(15) initial (lmf$k_hw_idlen),
>>>              3 item    fixed bin(15) initial (lmf$_hw_id),
>>>              3 bufadr  pointer initial (addr(hardware_id)),
>>>              3 retlen  fixed bin(31) initial (0),            <===<<< (*)
>>> 
>>> SYS$GRANT_LICENSE will want to return the length of the retrieved HW ID.
>>> (*) Is this specified properly?  Sorry, my PL/I is rusty.
>>> 
>>
>>Bingo!  HW_ID & PROD_TOKEN want to return their length.  You can't say 
>>"don't bother" like you can with other item-based services.  I just 
>>checked the source to verify that behavior.  Why?  No clue. I didn't see 
>>a real need to be "different" but that is the way it is coded.
> 
> If the item's length is NOT returned, properly verifying that the retrieved
> TOKEN or the HW_ID is correct can be problematic.

In particular, distinguishing between not returning anything and
returning an item that happens to exactly match the initial value
in the buffer.

------------------------------

Date: Tue, 13 Nov 2007 19:44:58 -0800
From: "Tom Linden" <tom@kednos.company>
Subject: Re: SYS$GRANT_LICENSE output codes
Message-ID: <op.t1rjc8lkhv4qyg@murphus.hsd1.ca.comcast.net>

On Tue, 13 Nov 2007 11:19:26 -0800, Jeff Goodwin  
<jgoodwin@maine.rrr-r.com> wrote:

>
> "Tom Linden" <tom@kednos.company> wrote in message
> news:op.t1ptcubkhv4qyg@murphus.hsd1.ca.comcast.net...
>> On Mon, 12 Nov 2007 19:53:34 -0800, Larry Kilgallen
>> <Kilgallen@SpamCop.net> wrote:
>>
>>> In article <op.t1porrzghv4qyg@murphus.hsd1.ca.comcast.net>, "Tom  
>>> Linden"
>>> <tom@kednos.company> writes:
>>>
>>>> The LMF System Service Manual indicate two possible, optional
>>>> output codes, LMF$_PROD_TOKEN and LMF$_HW_ID.  I am unable to get
>>>> either to work.  I created an appropriate license pak in a
>>>> separate testing lmf database  and loaded the license.  But
>>>> when running the test, the status which should be 1 if the call
>>>> is successful, got 12.  When I comment out the item_list for the
>>>> HW_ID it returns 1, so it clearly found the license.
>>>
>>> 12 is SS$_ACCVIO. so without looking at the book I would say you
>>> have something wrong in by-reference/by-value land.  I would say
>>> you should remove a dot, but I do not believe you used Bliss.
>>>
>>>> Anyone have experience with this call?  I am not convinced it
>>>> works as documented.
>>>
>>> LJK/Security licenses use both of those fields, but I don't believe
>>> you programmed it in Ada either.
>>
>> Quite right, this is the declaration
>> declare 1 license_items,
>>           2 prod_date,
>>             3 length  fixed bin(15) initial (8),
>>             3 item    fixed bin(15) initial (lmf$_prod_date),
>>             3 bufadr  pointer initial (addr(binary_date)),
>>             3 retlen  fixed bin(31) initial (0),
>>           2 prod_version,
>>             3 length  fixed bin(15) initial (4),
>>             3 item    fixed bin(15) initial (lmf$_prod_version),
>>             3 bufadr  pointer initial (addr(compiler_version)),
>>             3 retlen  fixed bin(31) initial (0),
>>           2 hw_id,
>>             3 length  fixed bin(15) initial (31),
>>             3 item    fixed bin(15) initial (lmf$_hw_id),
>>             3 bufadr  pointer initial (addr(hardware_id)),
>>             3 retlen  fixed bin(31) initial (0),
>>           2 endlist,
>>             3 length  fixed bin(15) initial (0),
>>             3 item    fixed bin(15) initial (0),
>>             3 bufadr  pointer initial (null()),
>>             3 retlen  fixed bin(31) initial (0);
>
> Tom,
>
> I suspect the retlen argument needs to be the address of where you store  
> the
> return length, not the return length itself.

Yes, that indeed was the issue.  <op> This is an example of the sort of  
problems
that are encountered when interfaces aren't with strong typing.  Digital  
had the
opportunity to get it right using SDL, but got lazy.</op>
>
> -Jeff
>
>> where
>>
>> declare compiler_version(2) fixed bin(15) static readonly
>>     initial (MINOR_VERSION, MAJOR_VERSION);
>> declare binary_date bit(64) aligned static;
>> declare hardware_id char(31) static init( '');
>>
>> The call works if I commented out the hw_id substructure.  As far as
>> I can tell this definition conforms to the documentation, which requires
>> the bufadr to be a pointer to a buffer of storage for sending/receiving
>> data to/from the call.
>>
>> --
>> PL/I for OpenVMS
>> www.kednos.com
>
>



-- 
PL/I for OpenVMS
www.kednos.com

------------------------------

End of INFO-VAX 2007.623
************************