Function SET212A

LANSA

Function SET212A

* =======================================================
* Process ........: SET_212
* Function .......: SET212A
* Description ....: Imbed a web component dynamically
* Version.........: 1
*
* Full Description:
*
* This RDML shows a how the component that is displayed
* on a screen can be chosen at run time.
*
* Disclaimer: The following material is supplied as
* example material only. No warranty concerning this
* material or its use in any way whatsoever is
* expressed or implied.
*
* Minimum Release of LANSA Required : 8.0
*
* =======================================================
FUNCTION OPTIONS(*DIRECT *WEBEVENT)
*
* =======================================================
* Button components.
* =======================================================
DEFINE FIELD(#S_CLICKED) TYPE(*CHAR) LENGTH(030) DEFAULT('FORM.INITIALIZE')
*
* Other fields
*
DEFINE FIELD(#S_212FLD) TYPE(*CHAR) LENGTH(020)
*
GROUP_BY NAME(#PANELDATA) FIELDS((#S_212FLD *NOID) (#STDRENTRY *HIDDEN) (#S_CLICKED *HIDDEN))
*
* Mainline
*
CASE OF_FIELD(#STDRENTRY)
WHEN VALUE_IS('= *Blanks')
CHANGE FIELD(#S_212FLD) TO(S_212COMP1)
CHANGE FIELD(#STDRENTRY) TO(A)
WHEN VALUE_IS('= A')
CHANGE FIELD(#S_212FLD) TO(S_212COMP2)
CHANGE FIELD(#STDRENTRY) TO(B)
WHEN VALUE_IS('= B')
CHANGE FIELD(#S_212FLD) TO(S_212COMP3)
CHANGE FIELD(#STDRENTRY) TO(C)
WHEN VALUE_IS('= C')
CHANGE FIELD(#S_212FLD) TO(S_212COMP4)
CHANGE FIELD(#STDRENTRY) TO(A)
ENDCASE
*
* =======================================================
REQUEST FIELDS(#PANELDATA) EXIT_KEY(*NO) MENU_KEY(*NO) PROMPT_KEY(*NO)
*