PROCEDURE GET_DSNAME (VAR S: STRING; VAR L: LSTRING) ;

VAR 
    IEF,
    IEC,
    IED,
    IFB,
    IRA,
    I,
    K,
    J    : INTEGER ;
BEGIN
   J := UPPER(L);
   K := ORD(L.LEN) ;
   I := UPPER(S) ;
 
   IF K < 2 THEN
     BEGIN
       IEF := INDEX(L,' ');
       {STRING LENGTH GT 0 AND INDEX := 0 MEANS LAST WORD}
       IF IEF = 0 THEN 
          MOVEL(ADR L[1],ADR S[1],WRD(K)
       ELSE 
          BEGIN
          IEF := ief - 1 ;
          MOVEL(ADR L[1],ADR S[1],WRD(IEF)) ;
          IEC := K - IEF ;
          IEC := IEC - 1;
          {TRUNCATE STRING HERE }
          END; {BEGIN IEF<> 0 }
     END; {BEGIN K<2}
END; {GET_DSNAME}