<?xml version='1.0' encoding='UTF-8'?>
<ROWSET tableName='xxx'>
/****************************************************************************/
/* SYSTEM_ID : GF                                                           */
/* GE54_TRIG ( TRIGGER )                                                    */
/* Created : 2017/07/31 15:48:53                                            */
/****************************************************************************/
<EXEC_SQL>
CREATE 
TRIGGER GE54_TRIG
/***************** GE54 帳票定義マスタ トリガー ***************/
/* システム名：                                               */
/* 作成日    ：2003/01/16                作成者：K.Hasegawa   */
/**************************************************************/
    BEFORE INSERT OR UPDATE OF FGJ ON GE54
    FOR EACH ROW WHEN ( new.FGJ = &apos;0&apos; )
	DECLARE
		wkSYSTEM_ID GE54.SYSTEM_ID%TYPE ;
		wkLISTID    GE54.LISTID%TYPE ;
    BEGIN
		wkSYSTEM_ID := nvl( :old.SYSTEM_ID,:new.SYSTEM_ID );
		wkLISTID    := nvl( :old.LISTID   ,:new.LISTID    );

		GE52POS_SET( wkSYSTEM_ID,wkLISTID,&apos;H&apos; );
		GE52POS_SET( wkSYSTEM_ID,wkLISTID,&apos;F&apos; );
		GE52POS_SET( wkSYSTEM_ID,wkLISTID,&apos;B&apos; );

		:new.HSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,&apos;H&apos; ) ;
		:new.FSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,&apos;F&apos; ) ;
		:new.BSQL := GE54SQL_SET( wkSYSTEM_ID,wkLISTID,&apos;B&apos; ) ;
		:new.FGJ  := &apos;1&apos;;
    END ;

</EXEC_SQL>
</ROWSET>
