Article 129314 of comp.os.vms:
Newsgroups: comp.os.vms
Path: nntpd.lkg.dec.com!depot.mro.dec.com!pa.dec.com!news2.digital.com!news1.digital.com!nntp-hub2.barrnet.net!hookup!usenet.eel.ufl.edu!news.uoregon.edu!vixen.cso.uiuc.edu!howland.reston.ans.net!swrinde!sdd.hp.com!night.primate.wisc.edu!relay!news
From: Steve Canup <scanup@relay.nswc.navy.mil>
Subject: Re: openvms alpha version; macro for getfid
Content-Type: text/plain; charset=us-ascii
Message-ID: <1995Sep15.041840.9571@relay.nswc.navy.mil>
To: kafer@ix.netcom.com
Sender: news@relay.nswc.navy.mil
Content-Transfer-Encoding: 7bit
Organization: NSWCDD
References: <439lhs$ek0@ixnews2.ix.netcom.com>
Mime-Version: 1.0
Date: Fri, 15 Sep 1995 04:18:40 GMT
X-Mailer: Mozilla 1.2b5 (Windows; I; 16bit)
Lines: 40


We took the .MAR from digital and had to make a small change inorder to 
compile it. It seems to work: (if i typed it in correct, if not mail me and 
i'll send you the actual file)


   .TITLE    GETFID - SUBROUTINE TO RETURN FILE I.D.
   .PSECT    DATA,LONG


 INFAB: $FAB   NAME=NAMBLK,FNA=NAME
 INRAB: $RAB   FAB=INFAB
 NAMBLK:      $NAM

 NAME:        .BLKB 63
              .PSECT DATA1

              .PSECT CODE
              .ENTRY GETFID,^M<R2,R3,R4,R5,R6,R7>
              MOVL   4(AP),R7
              MOVB   (R7),W^INFAB+FAB$B_FNS
              MOVZBL (R7),R6
              MOVL   4(R7),R7
              MOVC3  R6,(R7),W^NAME
              $OPEN  FAB=W^INFAB
              BLBC   R0,EXIT
              MOVL   8(AP),R3
              MOVAL  W^NAMBLK,R2
              MOVW   W^NAM$W_FID_NUM(R2),(R3)+
              MOVW   W^NAM$W_FID_SEQ(R2),{R3)+
              MOVW   w^NAM$W_FID_RVN(R2),(R3)
              $CLOSE FAB=W^INFAB
              BLBC   R0,EXIT
              MOVZWL #SS$_NORMAL,R0

 EXIT:        RET
              .END





