RDML Function SET173A

LANSA

RDML Function SET173A

********** COMMENT(=======================================================);
********** COMMENT(Process ........: SET_173);
********** COMMENT(Function .......: SET173A);
********** COMMENT(Created on .....: 08/05/00 at 13:55:11);
********** COMMENT();
********** COMMENT(Full Description: The purpose of this function is to);
********** COMMENT(show how to manipulate browselist fields to dynamically);
********** COMMENT(make them input or output in a browselist entry.);
********** COMMENT(Sometimes you need a field to be input or output based);
********** COMMENT(on the value of another field. This means you can't add);
********** COMMENT(the input or output attribut to the field in the);
********** COMMENT(DEF_LIST as you normally would. *IOCOND is not);
********** COMMENT(supported in LANSA for the WEB.);
********** 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();
DEFINE FIELD(#S_173IOC1) TYPE(*CHAR) LENGTH(001) DESC('IO condition controlling first column');
DEFINE FIELD(#S_173IOC2) TYPE(*CHAR) LENGTH(001) DESC('IO condition controlling second column');
DEFINE FIELD(#S_173IOC3) TYPE(*CHAR) LENGTH(001) DESC('IO condition controlling third column');
DEFINE FIELD(#S_173IOC4) TYPE(*CHAR) LENGTH(001) DESC('IO condition controlling fourth column');
********** COMMENT(Group and field definitions);
DEFINE FIELD(#S_173COL1) TYPE(*CHAR) LENGTH(006) DESC('Column 1') DEFAULT(OUTPUT);
DEFINE FIELD(#S_173COL2) TYPE(*CHAR) LENGTH(009) DESC('Column 2') DEFAULT(OUTPUT);
DEFINE FIELD(#S_173COL3) TYPE(*CHAR) LENGTH(006) DESC('Column 3') DEFAULT(OUTPUT);
DEFINE FIELD(#S_173COL4) TYPE(*CHAR) LENGTH(010) DESC('Column 4') DEFAULT(OUTPUT);
DEF_COND NAME(*ISINPIOC1) COND('#s_173ioc1 = I');
DEF_COND NAME(*ISINPIOC2) COND('#s_173ioc2 = I');
DEF_COND NAME(*ISINPIOC3) COND('#s_173ioc3 = I');
DEF_COND NAME(*ISINPIOC4) COND('#s_173ioc4 = I');
********** COMMENT();
GROUP_BY NAME(#PANELDATA) FIELDS((#S_173IOC1)(#S_173IOC2)(#S_173IOC3)(#S_173IOC4));
********** COMMENT();
DEF_LIST NAME(#S_173INOU) FIELDS((#S_173COL1 *LABEL)(#S_173IOC1 *HIDDEN)(#S_173COL2 *LABEL)(#S_173IOC2 *HIDDEN)(#S_173COL3 *LABEL)(#S_173IOC3 *HIDDEN)(#S_173COL4 *LABEL)(#S_173IOC4 *HIDDEN));
********** COMMENT();
********** COMMENT(Mainline);
IF COND(*ISINPIOC1);
CHANGE FIELD(#S_173COL1) TO(INPUT);
ENDIF;
IF COND(*ISINPIOC2);
CHANGE FIELD(#S_173COL2) TO(INPUT);
ENDIF;
IF COND(*ISINPIOC3);
CHANGE FIELD(#S_173COL3) TO(INPUT);
ENDIF;
IF COND(*ISINPIOC4);
CHANGE FIELD(#S_173COL4) TO(INPUT);
ENDIF;
********** COMMENT();
INZ_LIST NAMED(#S_173INOU) NUM_ENTRYS(0000010);
********** COMMENT();
REQUEST FIELDS(#PANELDATA) BROWSELIST(#S_173INOU) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO);