Create 4GL Procedure...

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;