RDML Function SET171C

LANSA

RDML Function SET171C

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_171);
********** COMMENT(Function .......: SET171C);
********** COMMENT(Created on .....: 05/05/00 at 14:43:32);
********** COMMENT();
********** COMMENT(Full Description: This function shows you how to);
********** COMMENT(use a calendar to select a date in a browselist. The);
********** COMMENT(calendar used in this example is the same as in SET171A);
********** COMMENT(The only difference between this and SET171A is that);
********** COMMENT(a field in a browselist has a very different name than);
********** COMMENT(a field not in a browselist.);
********** 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();
DEFINE FIELD(#S_171CALI) TYPE(*CHAR) LENGTH(001) LABEL('') DESC('');
********** COMMENT();
DEF_LIST NAME(#S_171DATE) FIELDS((#DATE *INPUT)(#S_171CALI));
********** COMMENT();
INZ_LIST NAMED(#S_171DATE) NUM_ENTRYS(0000010);
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
REQUEST BROWSELIST(#S_171DATE) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);

previous page start next page