RDML Function SET171A
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_171);
********** COMMENT(Function .......: SET171A);
********** COMMENT(Created on .....: 27/04/00 at 14:43:32);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show the implementation of a simple calendar in LANSA);
********** COMMENT(for the WEB.);
********** COMMENT(This sample uses system fields #DDMMYY and #DDMMYYYY);
********** COMMENT(to show how the date can be returned from the calendar);
********** COMMENT(in different formats.);
********** 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(Group and field definitions);
GROUP_BY NAME(#PANELDATA) FIELDS((#DDMMYY)(#DDMMYYYY));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_171);
********** COMMENT(Function .......: SET171A);
********** COMMENT(Created on .....: 27/04/00 at 14:43:32);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show the implementation of a simple calendar in LANSA);
********** COMMENT(for the WEB.);
********** COMMENT(This sample uses system fields #DDMMYY and #DDMMYYYY);
********** COMMENT(to show how the date can be returned from the calendar);
********** COMMENT(in different formats.);
********** 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(Group and field definitions);
GROUP_BY NAME(#PANELDATA) FIELDS((#DDMMYY)(#DDMMYYYY));
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);