Function SET184I
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_184);
********** COMMENT(Function .......: SET184I);
********** COMMENT(Created on .....: 26/07/00 at 14:43:32);
********** COMMENT(Description ....: Changing the font type, size and);
********** COMMENT( background/foreground color);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show how to change the font type, size and background);
********** COMMENT(or foreground color);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT();
********** COMMENT(Receives: nothing);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#S_GRPPANL) FIELDS((#S_184FDES *INPUT *NOID)(#S_FUNDES *HIDDEN));
********** COMMENT((Field #S_184FDES has a component S_184FDES which);
********** COMMENT(merges in a component with the same name as the);
********** COMMENT(function (in this case component SET184I)));
DEF_LIST NAME(#S_184IFVC) FIELDS((#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC));
DEF_LIST NAME(#S_WRKFVC) FIELDS((#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC)(#S_184IMG)) TYPE(*WORKING) ENTRYS(0000500);
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
CHANGE FIELD(#S_FUNDES) TO(*FUNCTION_DESC);
********** COMMENT();
CLR_LIST NAMED(#S_184IFVC);
********** COMMENT(Function SET184Y populates list #S_WRKFVC with data);
CALL PROCESS(*DIRECT) FUNCTION(SET184Y) PASS_LST(#S_WRKFVC );
SELECTLIST NAMED(#S_WRKFVC);
ADD_ENTRY TO_LIST(#S_184IFVC);
ENDSELECT;
********** COMMENT();
REQUEST FIELDS(#S_GRPPANL) BROWSELIST(#S_184IFVC) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(The appearance of browselist S_184IFVC is altered);
********** COMMENT(because there is a graphical variable);
********** COMMENT(*LW3BLCCF_S_184IFVC.);
********** COMMENT(What is not mentioned in the manual is that *LW3BLCCF);
********** COMMENT(variables (Browse List Cell Color (Font)));
********** COMMENT(can also control font type and font size.);
********** COMMENT(This is done by setting *LW3BLCCF_S_184IFVC);
********** COMMENT(to value:);
********** COMMENT("RED" FACE="Bradley Hand ITC" SIZE=3);
********** COMMENT();
********** COMMENT(The graphical variable is created using the LANSA);
********** COMMENT(Web administrator. It is of type text, and value);
********** COMMENT("RED" FACE="Bradley Hand ITC" SIZE=3);
********** COMMENT();
********** COMMENT(A system variable must also be created with the same);
********** COMMENT(name, (alpha 255 uses 3GL W3@P2100));
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_184);
********** COMMENT(Function .......: SET184I);
********** COMMENT(Created on .....: 26/07/00 at 14:43:32);
********** COMMENT(Description ....: Changing the font type, size and);
********** COMMENT( background/foreground color);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show how to change the font type, size and background);
********** COMMENT(or foreground color);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT();
********** COMMENT(Receives: nothing);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#S_GRPPANL) FIELDS((#S_184FDES *INPUT *NOID)(#S_FUNDES *HIDDEN));
********** COMMENT((Field #S_184FDES has a component S_184FDES which);
********** COMMENT(merges in a component with the same name as the);
********** COMMENT(function (in this case component SET184I)));
DEF_LIST NAME(#S_184IFVC) FIELDS((#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC));
DEF_LIST NAME(#S_WRKFVC) FIELDS((#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC)(#S_184IMG)) TYPE(*WORKING) ENTRYS(0000500);
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
CHANGE FIELD(#S_FUNDES) TO(*FUNCTION_DESC);
********** COMMENT();
CLR_LIST NAMED(#S_184IFVC);
********** COMMENT(Function SET184Y populates list #S_WRKFVC with data);
CALL PROCESS(*DIRECT) FUNCTION(SET184Y) PASS_LST(#S_WRKFVC );
SELECTLIST NAMED(#S_WRKFVC);
ADD_ENTRY TO_LIST(#S_184IFVC);
ENDSELECT;
********** COMMENT();
REQUEST FIELDS(#S_GRPPANL) BROWSELIST(#S_184IFVC) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** COMMENT(The appearance of browselist S_184IFVC is altered);
********** COMMENT(because there is a graphical variable);
********** COMMENT(*LW3BLCCF_S_184IFVC.);
********** COMMENT(What is not mentioned in the manual is that *LW3BLCCF);
********** COMMENT(variables (Browse List Cell Color (Font)));
********** COMMENT(can also control font type and font size.);
********** COMMENT(This is done by setting *LW3BLCCF_S_184IFVC);
********** COMMENT(to value:);
********** COMMENT("RED" FACE="Bradley Hand ITC" SIZE=3);
********** COMMENT();
********** COMMENT(The graphical variable is created using the LANSA);
********** COMMENT(Web administrator. It is of type text, and value);
********** COMMENT("RED" FACE="Bradley Hand ITC" SIZE=3);
********** COMMENT();
********** COMMENT(A system variable must also be created with the same);
********** COMMENT(name, (alpha 255 uses 3GL W3@P2100));
********** COMMENT();