Function SET175D Select the from-port
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_175);
********** COMMENT(Function .......: SET175D);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Shipping - Generate First Ports Pages);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(generate the first ports page for the Eastbound);
********** COMMENT(Schedule and the Westbound Schedule.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(Receives: Service (#S_175SRV));
********** COMMENT( Page name (#S_175PAG));
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(<RDML ONCONDITION> field.);
********** COMMENT(Group and field definitions);
********** COMMENT();
********** COMMENT(NAME(#PANELDATA) FIELDS((#S_175D *INPUT *NOID)));
GROUP_BY NAME(#PANELDATA) FIELDS((#S_175MENU *HIDDEN)(#S_175FDES *HIDDEN)(#S_175SRV *HIDDEN));
DEF_LIST NAME(#S_LST175D) FIELDS((#S_175PRT *HIDDEN)(#S_175IDP1 *INPUT));
********** COMMENT();
********** COMMENT();
********** COMMENT(Mainline);
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS(#S_175PAG '*NO' #S_IFSPATH);
********** COMMENT();
********** COMMENT();
********** COMMENT(Build a list of all the valid load ports for a);
********** COMMENT(service);
CLR_LIST NAMED(#S_LST175D);
SELECT FIELDS((#S_175PRT)(#S_175IDP1)(#S_175LD)) FROM_FILE(SETPT1L1) WHERE('#S_175LD *EQ Y') WITH_KEY(#S_175SRV);
ADD_ENTRY TO_LIST(#S_LST175D);
ENDSELECT;
********** COMMENT();
********** COMMENT();
REQUEST FIELDS(#PANELDATA) BROWSELIST(#S_LST175D) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_175);
********** COMMENT(Function .......: SET175D);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Shipping - Generate First Ports Pages);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(generate the first ports page for the Eastbound);
********** COMMENT(Schedule and the Westbound Schedule.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(Receives: Service (#S_175SRV));
********** COMMENT( Page name (#S_175PAG));
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(<RDML ONCONDITION> field.);
********** COMMENT(Group and field definitions);
********** COMMENT();
********** COMMENT(NAME(#PANELDATA) FIELDS((#S_175D *INPUT *NOID)));
GROUP_BY NAME(#PANELDATA) FIELDS((#S_175MENU *HIDDEN)(#S_175FDES *HIDDEN)(#S_175SRV *HIDDEN));
DEF_LIST NAME(#S_LST175D) FIELDS((#S_175PRT *HIDDEN)(#S_175IDP1 *INPUT));
********** COMMENT();
********** COMMENT();
********** COMMENT(Mainline);
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS(#S_175PAG '*NO' #S_IFSPATH);
********** COMMENT();
********** COMMENT();
********** COMMENT(Build a list of all the valid load ports for a);
********** COMMENT(service);
CLR_LIST NAMED(#S_LST175D);
SELECT FIELDS((#S_175PRT)(#S_175IDP1)(#S_175LD)) FROM_FILE(SETPT1L1) WHERE('#S_175LD *EQ Y') WITH_KEY(#S_175SRV);
ADD_ENTRY TO_LIST(#S_LST175D);
ENDSELECT;
********** COMMENT();
********** COMMENT();
REQUEST FIELDS(#PANELDATA) BROWSELIST(#S_LST175D) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);