Q5/ws_objects/Ew_mainface.pbl.src/f_cleardata.srf

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

forward prototypes
global function integer f_cleardata (boolean arg_if_clear, ref string arg_msg)
end prototypes

global function integer f_cleardata (boolean arg_if_clear, ref string arg_msg);Long ls_d,ll_i
String comm
sqlca.AutoCommit = TRUE

FOR ll_i = 1 TO UpperBound(s_tntblinfo)
	
	IF s_tntblinfo[ll_i].Table_name = '' THEN CONTINUE
	
	comm = ''
	CHOOSE CASE s_tntblinfo[ll_i].tabletype
		CASE -1,0,2,-7,-4
			comm = s_tntblinfo[ll_i].clearstr
		CASE 1,-2,-3,-5,-6
			IF arg_if_clear THEN
				comm = s_tntblinfo[ll_i].clearstr
			ELSE
				comm = ''
			END IF
	END CHOOSE
	
	IF comm <> '' THEN
		EXECUTE IMMEDIATE :comm ;
		ls_d = ls_d+sqlca.SQLCode
		IF sqlca.SQLCode <> 0 THEN arg_msg = arg_msg + '~n '+s_tntblinfo[ll_i].Table_name
	END IF
NEXT

sqlca.AutoCommit = FALSE

RETURN ls_d
end function