Post date: Feb 14, 2011 9:44:43 AM
1. Start -> OpenRoad WorkBeanch->Application-> Component select 4GL Procedure..
2. 4GL Procedure Editor->Tools-> Script
/*Procedure procname
procedure gp_insertmember
(
member = uc_member_data
) =
DECLARE
enddeclare
begin
INSERT INTO tblmembers(code, name, gender,DOj) VALUES(member.code, member.name,member.gender, member.DOj);
/*Commit the Work*/
COMMIT work;
/*if nothing went happend means return 0 for successfull execution */
IF iierrorNumber=0 THEN
RETURN SUCCESS;
ELSE
/*Rollback work */
RETURN FAILURE;
ENDIF;
end;