Function SET187C Handle Enter Key using DEFAULT_HIDDEN

LANSA

previous page next page
Function SET187C Handle Enter Key using DEFAULT_HIDDEN

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_187B);
********** COMMENT(Function .......: SET187C);
********** COMMENT(Created on .....: 26/07/00 at 14:43:32);
********** COMMENT(Description ....: Handle the Enter key in Browsers (2));
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show another way of handling the problem when the user);
********** COMMENT(presses enter. In this method, it is assumed that when);
********** COMMENT(the user presses enter they will always go to the);
********** COMMENT(function they are currently in. This method has the);
********** COMMENT(advantage that it is not necessary to edit the html);
********** COMMENT(of every function after every compile.);
********** COMMENT();
********** COMMENT(This is achieved with one modification to either);
********** COMMENT(DEFAULT_HIDDEN or as in this case, the process specific);
********** COMMENT(HIDDEN (SET_187B_HIDDEN));
********** COMMENT();
********** COMMENT(Lines:);
********** COMMENT(<INPUT NAME="_PROCESS");
********** COMMENT(TYPE="HIDDEN" SIZE=10 MAXLENGTH=10 VALUE=" ">);
********** COMMENT();
********** COMMENT(<INPUT NAME="_FUNCTION");
********** COMMENT(TYPE="HIDDEN" SIZE=10 MAXLENGTH=10 VALUE=" ">);
********** COMMENT();
********** COMMENT();
********** COMMENT(Become:);
********** COMMENT(<INPUT NAME="_PROCESS");
********** COMMENT(TYPE="HIDDEN" SIZE=10 MAXLENGTH=10);
********** COMMENT(VALUE="<RDML MERGE="*PROCESS">">);
********** COMMENT();
********** COMMENT(<INPUT NAME="_FUNCTION");
********** COMMENT(TYPE="HIDDEN" SIZE=10 MAXLENGTH=10);
********** COMMENT(VALUE="<RDML MERGE="*FUNCTION">">);
********** COMMENT();
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT();
********** COMMENT(Receives: nothing);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(Group and field definitions);
********** COMMENT();
********** COMMENT();
OVERRIDE FIELD(#STD_COUNT) LABEL('Iteration');
********** COMMENT();
GROUP_BY NAME(#S_GRPPANL) FIELDS((#S_187FDES *INPUT *NOID)(#S_FUNDES *HIDDEN)(#STD_COUNT *INPUT)(#STDRENTRY *HIDDEN));
********** COMMENT((Field #S_187FDES has a component S_187FDES which);
********** COMMENT(merges in a component with the same name as the);
********** COMMENT(function (in this case component SET187C)));
********** COMMENT();
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
CHANGE FIELD(#S_FUNDES) TO(*FUNCTION_DESC);
********** COMMENT();
CASE OF_FIELD(#STDRENTRY);
WHEN VALUE_IS('= *BLANKS');
********** COMMENT(first time in);
CHANGE FIELD(#STDRENTRY) TO(Y);
CHANGE FIELD(#S_FUNDES) TO('''First time in''');
CHANGE FIELD(#STD_COUNT) TO(1);
WHEN VALUE_IS('= Y');
CHANGE FIELD(#S_FUNDES) TO('''Second or later iteration''');
CHANGE FIELD(#STD_COUNT) TO('#STD_COUNT + 1');
ENDCASE;
********** COMMENT();
REQUEST FIELDS(#S_GRPPANL) IDENTIFY(*LABEL) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);




previous page start next page