Q5/ws_objects/Ew_bsnobj.pbl.src/f_scode_name.srf

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

forward prototypes
global function string f_scode_name (long arg_storageid, string arg_scode, string arg_name)
end prototypes

global function string f_scode_name (long arg_storageid, string arg_scode, string arg_name);String rslt_scode_name

Long li_spacenum
String ls_space

li_spacenum = 50 - Len(Trim(arg_name)) - 2 - Len(String(arg_storageid))
ls_space = Fill(' ',li_spacenum)
rslt_scode_name = arg_scode + ' '+arg_name+ls_space+'['+String(arg_storageid)+']'

RETURN rslt_scode_name

end function