Page History

...

　　　FUNCTION options(*DIRECT)
　　　BEGIN_COM role(*EXTENDS #PRIM_FORM) HEIGHT(334) LEFT(245) TOP(136) WIDTH(623)
　　　DEFINE_COM class(#PRIM_LTVW) name(#EMPLIST) DISPLAYPOSITION(1) FULLROWSELECT(True) HEIGHT(285) LEFT(8) PARENT(#COM_OWNER) TABPOSITION(1) TOP(8) WIDTH(505)
　　　DEFINE_COM class(#PRIM_LVCL) name(#LVCL_1) DISPLAYPOSITION(1) PARENT(#EMPLIST) SOURCE(#EMPNO) WIDTH(24)
　　　DEFINE_COM class(#PRIM_LVCL) name(#LVCL_2) DISPLAYPOSITION(2) PARENT(#EMPLIST) SOURCE(#SURNAME) WIDTH(25)
　　　DEFINE_COM class(#PRIM_LVCL) name(#LVCL_3) DISPLAYPOSITION(3) PARENT(#EMPLIST) SOURCE(#GIVENAME) WIDTH(33)
　　　DEFINE_COM class(#PRIM_LVCL) name(#LVCL_4) DISPLAYPOSITION(4) PARENT(#EMPLIST) SOURCE(#SALARY) WIDTH(18)
　　　DEFINE_COM class(#PRIM_PHBN) name(#PB_RAISE) CAPTION('Give Raise') DISPLAYPOSITION(2) LEFT(528) PARENT(#COM_OWNER) TABPOSITION(2) TOP(8)
　　　EVTROUTINE handling(#com_owner.Initialize)
　　　SELECT fields(#EMPLIST) from_file(PSLMST)
　　　ADD_ENTRY to_list(#EMPLIST)
　　　ENDSELECT　　　　　　ENDSELECT　
ENDROUTINE　　　ENDROUTINE
EVTROUTINE　　　EVTROUTINE handling(#PB_RAISE.Click)
SELECTLIST　　　SELECTLIST named(#EMPLIST)
CHANGE　　　CHANGE field(#SALARY) to('#SALARY * 1.10')
UPD　　　UPD_ENTRY in_list(#EMPLIST)
ENDSELECT　　　ENDSELECT
ENDROUTINE　　　ENDROUTINE
END　　　END_COM