*DECK DB$LFN
      FUNC DB$LFN((CHAR),ADDRESS);
      BEGIN 
 #
* *   DB$LFN--GENERATE LFN NAME                  PAGE  1
* *   C O GIMBER                                 2/24/76
* 
* DC  PURPOSE 
* 
*     GENERATE LFN FOR CDCS FILES.
* 
* DC  ENTRY CONDITIONS
* 
*     PARAMETERS
# 
      ITEM CHAR C(10);       #1ST CHARACTER OF LFN# 
      ITEM ADDRESS;          #ADDRESS TO BE PUT INTO LFN# 
# 
* DC  EXIT CONDITIONS 
* 
*     RETURNS LFN IN THE LOWER 42 BITS (7 CHARACTERS).  FIRST CHARACTER 
*     IS THE CHARACTER PASSED IN THE CALLING SEQUENCE.
*     THE RIGHT 6 CHARACTERS ARE THE ADDRESS CONVERTED TO OCTAL DISPLAY 
*     CODE. 
* 
* DC  CALLED ROUTINES 
# 
      XREF FUNC DB$COCT C(10);     # CONVERT INTEGER TO DISPLAY OCTAL  #
# 
 #
      CONTROL EJECT;
 #
* 
* DC  DESCRIPTION 
* 
*     CONVERT ADDRESS TO OCTAL DISPLAY AND COMBINE WITH FIRST CHARACTER.
*     PUT BINARY ZEROES INTO LOWER 18 BITS OF WORD. 
 #
      C<1,6>CHAR = DB$COCT(ADDRESS,6);
      DB$LFN = B<0,42>CHAR; 
      RETURN; 
      END 
      TERM; 
