%ITMLST_DECL: PROCEDURE (ITMLST, N) STATEMENT RETURNS (CHARACTER);

    %DECLARE ITMLST CHARACTER, N FIXED;

    %RETURN ('DECLARE 1 ' || ITMLST || '(' || N || '),' ||
    	    	'2 BUFSIZ FIXED BINARY (15),' ||
    	    	'2 ITMCOD FIXED BINARY (15),' ||
    	    	'2 BUFADR POINTER,' ||
    	    	'2 RETLEN POINTER;');

%END;

%ITMLST2_DECL: PROCEDURE (ITMLST, N) STATEMENT RETURNS (CHARACTER);

    %DECLARE ITMLST CHARACTER, N FIXED;

    %RETURN ('DECLARE 1 ' || ITMLST || '(' || N || '),' ||
    	    	'2 BUFSIZ FIXED BINARY (15),' ||
    	    	'2 ITMCOD FIXED BINARY (15),' ||
    	    	'2 BUFADR POINTER;');

%END;