$PBExportHeader$f_get_itemcode.srf
global type f_get_itemcode from function_object
end type

forward prototypes
global function string f_get_itemcode (long arg_itemid)
end prototypes

global function string f_get_itemcode (long arg_itemid);String ls_itemcode
//ls_itemcode = ''
SELECT itemcode
	INTO :ls_itemcode
	From u_itemdef
	where itemid = :arg_itemid;
IF sqlca.SQLCode <> 0 THEN ls_itemcode = ''

RETURN ls_itemcode

end function