DECLARE
	bmp_image_dir varchar(80) := 'D:\pic\' ;
	photo_filename varchar(80) ;
BEGIN

:SYSTEM.MESSAGE_LEVEL := '25' ;
photo_filename := bmp_image_dir||:records.regno||'.jpg' ;
READ_IMAGE_FILE(photo_filename,'JPG','records.PICTURE') ;
IF NOT FORM_SUCCESS THEN
	 MESSAGE('No Photo Found.') ;
END IF ;
end;