Function SET169A - Demonstrate a prompt calendar
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_169);
********** COMMENT(Function .......: SET169A);
********** COMMENT(Created on .....: 21/01/00 at 14:43:32);
********** COMMENT(Description ....: Demonstrate a prompt calendar);
********** COMMENT(Version.........: 1);
**********;
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(demonstrate a prompt calendar.);
**********;
********** 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(Minimum LANSA release: 8.0);
**********;
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT);
**********;
********** COMMENT(Group and field definitions);
**********;
********** COMMENT(Mainline);
**********;
**********;
BEGIN_LOOP;
REQUEST FIELDS(#S_DATFRM #S_DATTO);
END_LOOP;
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_169);
********** COMMENT(Function .......: SET169A);
********** COMMENT(Created on .....: 21/01/00 at 14:43:32);
********** COMMENT(Description ....: Demonstrate a prompt calendar);
********** COMMENT(Version.........: 1);
**********;
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(demonstrate a prompt calendar.);
**********;
********** 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(Minimum LANSA release: 8.0);
**********;
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT);
**********;
********** COMMENT(Group and field definitions);
**********;
********** COMMENT(Mainline);
**********;
**********;
BEGIN_LOOP;
REQUEST FIELDS(#S_DATFRM #S_DATTO);
END_LOOP;