Function SET009A: Determine Selected Row
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_009);
********** COMMENT(Function .......: SET009A);
********** COMMENT(Created on .....: 18/02/00 at 14:43:32);
********** COMMENT(Description ....: Function Skeleton);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show how to determine which browselist row has been);
********** COMMENT(selected. Clicking on a browselist entry will result);
********** COMMENT(in a message showing the entry number.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(<RDML ONCONDITION> field.);
DEFINE FIELD(#SHOWMSG) TYPE(*DEC) LENGTH(001) DECIMALS(0);
DEFINE FIELD(#S_DEPTDES) REFFLD(#DEPTDESC);
********** COMMENT(Departments Browselist.);
DEF_LIST NAME(#S_009DEPL) FIELDS((#S_009ROWN *HIDDEN)(#DEPTMENT)(#DEPTDESC));
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#STDRENTRY *HIDDEN)(#STDROWNUM *HIDDEN)(#SHOWMSG *HIDDEN)(#S_009RMSG *INPUT *NOID)(#S_DEPTDES *HIDDEN));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT(If first time the function has been invoked, fill the);
********** COMMENT(browselist and go to request information.);
********** COMMENT();
IF COND('#stdrentry *ne Y');
CHANGE FIELD(#STDRENTRY) TO(Y);
CLR_LIST NAMED(#S_009DEPL);
SELECT FIELDS(#S_009DEPL) FROM_FILE(DEPTAB);
ADD_ENTRY TO_LIST(#S_009DEPL);
ENDSELECT;
GOTO LABEL(REQ);
ENDIF;
********** COMMENT();
********** COMMENT(Make the component with the message indicating the row);
********** COMMENT(number selected, visible.);
CHANGE FIELD(#SHOWMSG) TO(1);
********** COMMENT();
REQ: REQUEST FIELDS(#PANELDATA) BROWSELIST(#S_009DEPL) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_009);
********** COMMENT(Function .......: SET009A);
********** COMMENT(Created on .....: 18/02/00 at 14:43:32);
********** COMMENT(Description ....: Function Skeleton);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show how to determine which browselist row has been);
********** COMMENT(selected. Clicking on a browselist entry will result);
********** COMMENT(in a message showing the entry number.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(<RDML ONCONDITION> field.);
DEFINE FIELD(#SHOWMSG) TYPE(*DEC) LENGTH(001) DECIMALS(0);
DEFINE FIELD(#S_DEPTDES) REFFLD(#DEPTDESC);
********** COMMENT(Departments Browselist.);
DEF_LIST NAME(#S_009DEPL) FIELDS((#S_009ROWN *HIDDEN)(#DEPTMENT)(#DEPTDESC));
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#STDRENTRY *HIDDEN)(#STDROWNUM *HIDDEN)(#SHOWMSG *HIDDEN)(#S_009RMSG *INPUT *NOID)(#S_DEPTDES *HIDDEN));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT(If first time the function has been invoked, fill the);
********** COMMENT(browselist and go to request information.);
********** COMMENT();
IF COND('#stdrentry *ne Y');
CHANGE FIELD(#STDRENTRY) TO(Y);
CLR_LIST NAMED(#S_009DEPL);
SELECT FIELDS(#S_009DEPL) FROM_FILE(DEPTAB);
ADD_ENTRY TO_LIST(#S_009DEPL);
ENDSELECT;
GOTO LABEL(REQ);
ENDIF;
********** COMMENT();
********** COMMENT(Make the component with the message indicating the row);
********** COMMENT(number selected, visible.);
CHANGE FIELD(#SHOWMSG) TO(1);
********** COMMENT();
REQ: REQUEST FIELDS(#PANELDATA) BROWSELIST(#S_009DEPL) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);