Function SET175B Front Page
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_175);
********** COMMENT(Function .......: SET175B);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Shipping - Generate Front Page);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(to generate a static front page for the shipping);
********** COMMENT(example.);
********** 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.);
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#S_175MENU *HIDDEN)(#S_PART *HIDDEN)(#S_URLPORT *HIDDEN)(#S_175FDES *HIDDEN)(#STD_FLAG *NOID *HIDDEN));
********** COMMENT();
********** COMMENT(Mainline);
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS('S_175MAIN' '*NO' #S_IFSPATH);
CHANGE FIELD(#S_PART) TO(*PARTITION);
CHANGE FIELD(#STD_FLAG) TO(Y);
********** COMMENT(field #S_175MENU has an attached component that refers);
********** COMMENT(to all the above fields.);
********** COMMENT();
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_175);
********** COMMENT(Function .......: SET175B);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Shipping - Generate Front Page);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(to generate a static front page for the shipping);
********** COMMENT(example.);
********** 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.);
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#S_175MENU *HIDDEN)(#S_PART *HIDDEN)(#S_URLPORT *HIDDEN)(#S_175FDES *HIDDEN)(#STD_FLAG *NOID *HIDDEN));
********** COMMENT();
********** COMMENT(Mainline);
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS('S_175MAIN' '*NO' #S_IFSPATH);
CHANGE FIELD(#S_PART) TO(*PARTITION);
CHANGE FIELD(#STD_FLAG) TO(Y);
********** COMMENT(field #S_175MENU has an attached component that refers);
********** COMMENT(to all the above fields.);
********** COMMENT();
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);