4.5.4 Final WEBEVENT Function

The add function can be re-written using the WEBEVENT style as shown below:

 

FUNCTION 

OPTIONS(*DIRECT *WEBEVENT)

 

DEFINE

FIELD(#RENTRY) TYPE(*CHAR) LENGTH(1)

 

GROUP_BY

NAME(#PANEL) FIELDS(#EMPNO #SURNAME #ADDRESS ... (RENTRY *HIDDEN))

 

IF

COND('#RENTRY *EQ Y')

 

INSERT 

FIELDS(#PANEL) TO_FILE(PSLMST) VAL_ERROR(T01)

 

CHANGE

FIELD(#PANEL) TO(*NULL)

 

MESSAGE

MSGID(DCU0011) MSGF(DC@M01) MSGDTA ('employee')

 

ENDIF

 

T01

CHANGE

FIELD(#RENTRY) TO(Y)

 

REQUEST

FIELDS(#PANEL) DESIGN(*DOWN) IDENTIFY(*DESC) EXIT_KEY(*NO) MENU_KEY(*NO) USER_KEYS((01 SUBMIT))

 

An entry must be added to the WEBEVENT Links table using the Web Function Editor to link this process/function (via the user key1) to itself. The function would present an HTML page of input fields, as well as a button. When the button is clicked, the function would call itself and pass the data to be inserted into the PSLMST file.