1234567891011121314151617181920 |
- $PBExportHeader$f_get_itemname.srf
- global type f_get_itemname from function_object
- end type
- forward prototypes
- global function string f_get_itemname (long arg_itemid)
- end prototypes
- global function string f_get_itemname (long arg_itemid);String ls_itemname
- //ls_itemname = ''
- SELECT itemname
- INTO :ls_itemname
- From u_itemdef
- where itemid = :arg_itemid;
- IF sqlca.SQLCode <> 0 THEN ls_itemname = ''
- RETURN ls_itemname
- end function
|