*DECK GETLFN
          FUNC GETLFN (PLTIND) C(10); 
 # * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
 *
 *        GETLFN - GETS A FILE NAME FROM THE PLT
 *
 *        INPUT - PLTIND IS THE PLT INDEX 
 *
 *        OUTPUT - RETURNS THE NAME LEFT JUSTIFIED WITH ZERO FILL 
                  MAX OF 7 CHARS
 *
 * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * #
          BEGIN 
*CALL PLT1
*CALL TABLETYP
  
          ITEM CHAR C(1); 
          ITEM FILENAME C(10);
          ITEM I1 I;
          ITEM PLTIND I;
  
          XREF PROC FILLRBZ;   # FILL RT BLANKS WITH ZEROS (BIN) #
          XREF FUNC VIRTUAL I;
  
          I1 = PL$STRINGPTR [VIRTUAL (TABLETYPE "PLT$", PLTIND)]; 
          FILENAME = PLT$CHAR [VIRTUAL (TABLETYPE "PLTSTR$", I1)];
          FILLRBZ (FILENAME);    # FILL TO RIGHT WITH BIN ZEROS#
          GETLFN = FILENAME;
          RETURN; 
          END 
          TERM
