f_profilestring.srf 743 B

1234567891011121314151617181920212223242526
  1. $PBExportHeader$f_profilestring.srf
  2. global type f_profilestring from function_object
  3. end type
  4. forward prototypes
  5. global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue)
  6. end prototypes
  7. global function string f_profilestring (long arg_empid, string arg_dwname, string arg_itemname, string arg_itemvalue);//String ls_itemvalue
  8. //
  9. //SELECT itemvalue
  10. // INTO :ls_itemvalue
  11. // FROM sys_user_filestring
  12. // WHERE empid = :arg_empid
  13. // AND dwname = :arg_dwname
  14. // AND itemname = :arg_itemname;
  15. //IF sqlca.SQLCode <> 0 THEN
  16. // ls_itemvalue = arg_itemvalue
  17. //END IF
  18. //
  19. //RETURN ls_itemvalue
  20. //
  21. return ProFileString(sys_fx_positon, arg_dwname, arg_itemname, arg_itemvalue)
  22. end function