Function SET1841

LANSA

previous page next page
Function SET1841

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_184);
********** COMMENT(Function .......: SET1841);
********** COMMENT(Created on .....: 26/07/00 at 14:43:32);
********** COMMENT(Description ....: Create a static page for a product);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(create each of the static pages that browselist entries);
********** COMMENT(in function SET184L will link to.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(Receives: #S_184CDE);
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(Group and field definitions);
********** COMMENT();
********** COMMENT();
DEFINE FIELD(#S_184STAT) TYPE(*CHAR) LENGTH(020) DESC('Static Page name');
********** COMMENT();
GROUP_BY NAME(#S_GRPPANL) FIELDS((#S_184FDES *INPUT *NOID)(#S_184CDE)(#S_184DES)(#S_184QTY)(#S_184UNIT)(#S_184UPRC)(#S_184TPRC)(#S_184IMG *NOID *INPUT)(#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 SET1841)));
********** COMMENT();
********** COMMENT((Field #S_184IMG has a component S_184IMG that displays);
********** COMMENT(the picture));
********** COMMENT();
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();
********** COMMENT();
CHANGE FIELD(#S_FUNDES) TO(*FUNCTION_DESC);
********** COMMENT();
********** COMMENT(Store the passed #S_184CDE);
DEFINE FIELD(#S_184CDEW) REFFLD(#S_184CDE);
CHANGE FIELD(#S_184CDEW) TO(#S_184CDE);
********** COMMENT();
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
********** COMMENT(build the name of the static page from the product code);
USE BUILTIN(TCONCAT) WITH_ARGS('S_1841' #S_184CDEW) TO_GET(#S_184STAT);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS(#S_184STAT '*NO' #S_IFSPATH);
********** COMMENT();
********** COMMENT();
********** COMMENT(Function SET184Y populates list #S_WRKFVC with data);
CLR_LIST NAMED(#S_WRKFVC);
CALL PROCESS(*DIRECT) FUNCTION(SET184Y) PASS_LST(#S_WRKFVC );
********** COMMENT();
********** COMMENT(Display the details from the list entry relating);
********** COMMENT(to the passed product code.);
LOC_ENTRY IN_LIST(#S_WRKFVC) WHERE('#S_184CDEW *EQ #S_184CDE');
********** COMMENT();
DISPLAY FIELDS(#S_GRPPANL) DESIGN(*DOWN) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);
********** 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 SET1841)));
********** COMMENT();
********** COMMENT((Field #S_184IMG has a component S_184IMG that displays);
********** COMMENT(the picture));

previous page start next page