%S_DESC: PROCEDURE (VSTR) RETURNS (CHARACTER);

    %DECLARE VSTR CHARACTER;

    %RETURN ('DESCRIPTOR (SUBSTR (' || VSTR || ', 1))');

%END;