[Info-vax] PL/I hobbyist

[Steven Schweda]

On Aug 20, 5:04 am, ss <m... at thisis.invalid> wrote:

> $ run getmac.exe
> %LICENSE-F-NOLICENSE, no license is active for this software product

   There's some roughly similar (old) C code here:

      http://antinode.info/ftp/misc/eat3.c

It quits after the first device it finds, and its search
order looks different from that in GETMAC, but, with a little
effort, it might be able to do what you want.

alp $ cc eat3
alp $ link eat3
alp $ run eat3
 HWA (EWA0:) = 08-00-2b-86-59-46.

alp $ define /user_mode ZCD$ETH_LNM ewb0
alp $ run eat3
 HWA (ZCD$ETH_LNM) = 00-10-18-10-37-09.

   Note, too, that "show device /full" on a modern VMS (say,
V8.3?) reveals more than it did in the old days:

alp $ show device /full ewa0

Device EWA0:, device type DE500, is online, network device, error
logging is
    enabled, device is a template only.

    Error count                    0    Operations
completed                  0
    Owner process                 ""    Owner UIC
[SYSTEM]
    Owner process ID        00000000    Dev Prot
S:RWPL,O:RWPL,G,W
    Reference count                0    Default buffer
size                 512

Operating characteristics: Link down, Autonegotiation.

    Speed (Mbits/sec)             10
    Def. MAC addr  08-00-2B-86-59-46    Current MAC addr
AA-00-04-00-5F-04

You still need to know which device to specify if you have
more than one.