MU-VMS Archives

February 1995

MU-VMS@LISTSERV.MIAMIOH.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Kent Covert <[log in to unmask]>
Reply To:
Miami University VMS Discussion <[log in to unmask]>
Date:
Thu, 23 Feb 1995 08:55:25 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (48 lines)
In article <1995Feb22.165851.40245@miavx1>, [log in to unmask] (Bob
Williams) writes:
> This is a pretty dumb question, but here goes.
>
> Is there any way to use aliases with non-mail commands, such as finger? It is
a
> real pain not being able to. I have to list the aliases, copy the one I want,
> then paste it as I type the command. It would be great to just, say, FINGER
> MYALIAS.
 
Not currently...but the following program should do it:
 
$!  NewFinger.COM
$!
$!  Initialization
$!
$   fingerAddress = f$edit(p1,"lowercase")
$!
$!  Try to find fingerAddress in aliases.dat file.
$!
$   open/read/error=doFinger aliasFile sys$login:aliases.dat
$   read aliasFile aliasRecord/index=0/key="''f$fao("!80AS",fingerAddress)'"-
      /error=doFinger
$   addressSize = f$cvui(0,8,f$extract(80,1,aliasRecord))
$   fingerAddress = f$extract(82,addressSize,aliasRecord)
$!
$!  Close Alias File
$!
$closeAliasFile:
$   close aliasFile
$!
$!  Issue Finger command
$!
$doFinger:
$   finger 'fingerAddress
$!
$!  Exit Program
$!
$done:
$   exit
 
--
                                     Kent Covert, Software Coordinator
                                     Miami Computing and Information Services
                                     Miami University, Oxford, OH
                                     [log in to unmask]  (internet)
                                     kacovert@miavx1                 (bitnet)

ATOM RSS1 RSS2