!	Define the calling format for the GetYear procedure
	!	and the necessary argument and result constants

CONSTANT str_param_len = 255;
CONSTANT year_len = 4;

EXTERNAL PROCEDURE getyear ( VARYING STRING( str_param_len ) )
    OF FIXED STRING( year_len );