Function SET178E Brand

LANSA

previous page next page
Function SET178E Brand

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_178);
********** COMMENT(Function .......: SET178E);
********** COMMENT(Created on .....: 18/05/00 at 14:43:32);
********** COMMENT(Description ....: Generate a page for each brand);
********** COMMENT(Version.........: 1);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(generate one page per brand with links to every);
********** COMMENT(relevant device type.);
********** COMMENT();
********** COMMENT(Disclaimer: The following material is supplied as an);
********** COMMENT(example only. No warranty is expressed or implied.);
********** COMMENT();
********** COMMENT(Receives: Brand (#S_178BRND));
********** COMMENT();
********** COMMENT();
********** COMMENT(=======================================================);
********** COMMENT(Function control options);
FUNCTION OPTIONS(*DIRECT *WEBEVENT);
********** COMMENT();
********** COMMENT(<RDML ONCONDITION> field.);
********** COMMENT(Group and field definitions);
********** COMMENT();
GROUP_BY NAME(#S_GRPPANL) FIELDS((#S_178FDES *HIDDEN)(#S_178BRND *HIDDEN)(#S_178BSLG *HIDDEN)(#S_178BIMG *HIDDEN));
DEF_LIST NAME(#S_LST178E) FIELDS((#S_178DVTP *HIDDEN)(#S_178DVPG *INPUT)(#S_178LNPG *HIDDEN));
********** COMMENT();
********** COMMENT();
********** COMMENT(Mainline);
********** COMMENT();
GROUP_BY NAME(#S_GRPBRD) FIELDS((#S_178BRND)(#S_178BSLG)(#S_178BIMG)(#S_178BPG));
FETCH FIELDS(#S_GRPBRD) FROM_FILE(SETBRD) WITH_KEY(#S_178BRND);
********** COMMENT();
USE BUILTIN(TCONCAT) WITH_ARGS(#S_IFSPATH '/') TO_GET(#S_IFSPATH);
USE BUILTIN(WEB_STATIC_PAGE) WITH_ARGS(#S_178BPG '*NO' #S_IFSPATH);
********** COMMENT();
********** COMMENT();
********** COMMENT(Build a list of all the device types relevant to this);
********** COMMENT(brand);
CLR_LIST NAMED(#S_LST178E);
SELECT FIELDS(#S_LST178E) FROM_FILE(SETLNKL1) WITH_KEY(BD #S_178BRND);
CHANGE FIELD(#S_178DVPG) TO(#S_178LNPG);
ADD_ENTRY TO_LIST(#S_LST178E);
ENDSELECT;
********** COMMENT();
********** COMMENT();
REQUEST FIELDS(#S_GRPPANL) BROWSELIST(#S_LST178E) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);



previous page start next page