MODULE getyear_check;

    INCLUDE FILE 'getyear.scn_inc';

    PROCEDURE check_getyear_sub MAIN;
	DECLARE str : VARYING STRING ( str_param_len );
	DECLARE year : FIXED STRING ( year_len );

    	READ PROMPT ('Enter string to find year in: ') str;
	WHILE NOT ENDFILE( );
	    
	    year = getyear( str );
	    WRITE year;

	    READ PROMPT ('Enter string to find year in: ') str;
	END WHILE;

    END PROCEDURE /* check_getyear_sub */;

END MODULE /* getyear_check */;