From: Arne Vajhøj [avajhoej@gtech.com]
Sent: Tuesday, August 03, 1999 2:16 AM
To: Info-VAX@Mvb.Saic.Com
Subject: Re: Searchlist in VMS-Pascal

Peter Grevel wrote:
> I'm trying to learn VMS-Pascal. One of the problems I can't solve is
> creating a searchlist in a logical. I've tried several things but I can't
> solve this problem.
> 
> I think i'm searching in a circle. Who can solve my problem by using an
> example ?

Am I correct in interpreting your problem as "I can not get
LIB$SET_LOGICAL to
define two equivalents for the same logical" ?

There is an example in ftp://ftp.hhs.dk/pub/misc/lib$set_logical.c, but
to
make it simpler here is one in Pascal as well.

Arne

[inherit('sys$library:starlet','sys$library:pascal$lib_routines')]

program deflog(input,output);

type
   std_item = record
                  buflen,code : [word] 0..65535;
                  bufadr,retlenadr : integer;
              end;

var
   items : array [0..2] of std_item;
   eq1,eq2 : varying [255] of char;

begin
   eq1 := 'AAAA';
   eq2 := 'BBBBBBBB';
   items[0].buflen := eq1.length;
   items[0].code := LNM$_STRING;
   items[0].bufadr := iaddress(eq1.body);
   items[0].retlenadr := 0;
   items[1].buflen := eq2.length;
   items[1].code := LNM$_STRING;
   items[1].bufadr := iaddress(eq2.body);
   items[1].retlenadr := 0;
   items[2].buflen := 0;
   items[2].code := 0;
   items[2].bufadr := 0;
   items[2].retlenadr := 0;
  
lib$set_logical(logical_name:='X',table:='LNM$PROCESS',item_list:=items);
end.