SET225a RDML

LANSA

SET225a RDML
* =======================================================
* Process ........: SET_225
* Function .......: SET225A
* Created on .....: 06/12/01 at 05:49:25
* Description ....: First alternative msg presentation
* Version.........: 1
*
* Full Description:
* This function together with the functions in processes
* SET_224 and SET_226 constitute the vehicles to show
* two different ways to customize the message
* presentation in LANSA for the WEB. The RDML code in
* the mentioned functions is the same. Likewise is the
* HTML.
* The INSERT statement is there to generate some error
* messages.
*
* Disclaimer: The following material is supplied as
* sample material only. No warranty concerning the
* material or its use in any way whatsoever is
* expressed or implied.
*
* =======================================================
* Function control options
Function Options(*DIRECT *WEBEVENT)
*
* Group and field definitions
Define Field(#S_CLICKED) Type(*CHAR) Length(030) Default('FORM.INITIALIZE')
* Message presentation buttons to choose between three
* different examples.
Define Field(#S_224MGB1) Reffld(#S_BUTTON)
Define Field(#S_224MGB2) Reffld(#S_BUTTON)
Define Field(#S_224MGB3) Reffld(#S_BUTTON)
* Function description component.
Define Field(#S_224DESC) Reffld(#S_FUNDESC)
* Function title
Define Field(#S_FUNTITL) Reffld(#FUNCDESC)
*
Group_By Name(#PANELDATA) Fields((#S_224DESC *NOID) #EMPNO #SURNAME #GIVENAME (#S_224MGB1 *NOID) (#S_224MGB2 *NOID) (#S_224MGB3 *NOID) (#S_CLICKED *HIDDEN) (#S_FUNTITL *HIDDEN))
*
Use Builtin(CLR_MESSAGES)
* Mainline
Case Of_Field(#S_CLICKED)
When Value_Is('= FORM.INITIALIZE')
Execute Subroutine(INIT_FORM)
Otherwise
Insert Fields(#PANELDATA) To_File(PSLMST) Val_Error(*NEXT) Check_Only(*YES)
*
Endcase
*
Request Fields(#PANELDATA) Exit_Key(*NO) Menu_Key(*NO) Prompt_Key(*NO)
Return
* =======================================================
* Subroutine INIT_FORM
* Description ...: Initialize function
* =======================================================
Subroutine Name(INIT_FORM)
Change Field(#S_FUNTITL) To('Message Presentation')
Change Field(#EMPNO) To(A9836)
Change Field(#SURNAME) To('Brown')
Change Field(#GIVENAME) To('Veronica')
Change Field(#S_CLICKED) To('FORM.EXAMPLE_1')
Endroutine