Function SET177D
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_177);
********** COMMENT(Function .......: SET177D);
********** COMMENT(Created on .....: 09/06/00 at 15:22:10);
********** COMMENT(Description ....: Update Employee Details);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function allow an Employee to);
********** COMMENT(change the its personal details.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT(sample material only. No warranty concerning the);
********** COMMENT(material or its use in any way whatsoever is);
********** COMMENT(expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA: 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#STDRENTRY *HIDDEN)(#S_177NAME)(#S_177SURN)(#S_177EMPN *HIDDEN)(#S_177ADR1)(#S_177ADR2)(#S_177ADR3)(#S_177PHON)(#S_177EMAI));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
IF COND('#stdrentry *ne Y');
CHANGE FIELD(#STDRENTRY) TO(Y);
FETCH FIELDS(#PANELDATA) FROM_FILE(SETEMP) WITH_KEY(#S_177EMPN);
GOTO LABEL(REQ);
ENDIF;
********** COMMENT();
UPDATE FIELDS(#PANELDATA) IN_FILE(SETEMP) WITH_KEY(#S_177EMPN);
********** COMMENT();
REQ: REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT();
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_177);
********** COMMENT(Function .......: SET177D);
********** COMMENT(Created on .....: 09/06/00 at 15:22:10);
********** COMMENT(Description ....: Update Employee Details);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: This function allow an Employee to);
********** COMMENT(change the its personal details.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as);
********** COMMENT(sample material only. No warranty concerning the);
********** COMMENT(material or its use in any way whatsoever is);
********** COMMENT(expressed or implied.);
********** COMMENT();
********** COMMENT(Minimum Release of LANSA: 8.0);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#STDRENTRY *HIDDEN)(#S_177NAME)(#S_177SURN)(#S_177EMPN *HIDDEN)(#S_177ADR1)(#S_177ADR2)(#S_177ADR3)(#S_177PHON)(#S_177EMAI));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
IF COND('#stdrentry *ne Y');
CHANGE FIELD(#STDRENTRY) TO(Y);
FETCH FIELDS(#PANELDATA) FROM_FILE(SETEMP) WITH_KEY(#S_177EMPN);
GOTO LABEL(REQ);
ENDIF;
********** COMMENT();
UPDATE FIELDS(#PANELDATA) IN_FILE(SETEMP) WITH_KEY(#S_177EMPN);
********** COMMENT();
REQ: REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT();
********** COMMENT();