%ITMLST_INIT: PROCEDURE (ITM, ITMCOD, BUFSIZ, BUFADR, RETLEN)
    STATEMENT RETURNS (CHARACTER);

    %DECLARE (ITM, ITMCOD, BUFSIZ, BUFADR, RETLEN) CHARACTER;
    %DECLARE RETSTR CHARACTER;

    %IF ITMCOD = '' %THEN
    	%RETURN (ITM || '.ITMCOD,' || ITM || '.BUFSIZ = 0;');
    %RETSTR = 'DO;' || ITM || '.ITMCOD = ' || ITMCOD || ';';
    %IF BUFSIZ = '' %THEN
    	%RETSTR = RETSTR || ITM || '.BUFSIZ = 0;' ||
    	    	    ITM || '.BUFADR = NULL ();';
    %ELSE
    	%RETSTR = RETSTR || ITM || '.BUFSIZ = ' || BUFSIZ || ';' ||
    	    	    ITM || '.BUFADR = ADDR (' || BUFADR || ');';

    %IF RETLEN = '' %THEN
    	%RETSTR = RETSTR || ITM || '.RETLEN = NULL (); END;';
    %ELSE
    	%RETSTR = RETSTR || ITM || '.RETLEN = ADDR (' || RETLEN || '); END;';
    %RETURN (RETSTR);

%END;

%ITMLST2_INIT: PROCEDURE (ITM, ITMCOD, BUFSIZ, BUFADR)
    STATEMENT RETURNS (CHARACTER);

    %DECLARE (ITM, ITMCOD, BUFSIZ, BUFADR, RETLEN) CHARACTER;
    %DECLARE RETSTR CHARACTER;

    %IF ITMCOD = '' %THEN
    	%RETURN (ITM || '.ITMCOD,' || ITM || '.BUFSIZ = 0;');
    %RETSTR = 'DO;' || ITM || '.ITMCOD = ' || ITMCOD || ';';
    %IF BUFSIZ = '' %THEN
    	%RETSTR = RETSTR || ITM || '.BUFSIZ = 0;' ||
    	    	    ITM || '.BUFADR = NULL (); END;';
    %ELSE
    	%RETSTR = RETSTR || ITM || '.BUFSIZ = ' || BUFSIZ || ';' ||
    	    	    ITM || '.BUFADR = ADDR (' || BUFADR || '); END;';

    %RETURN (RETSTR);

%END;