RDML for SET205A
* =======================================================
* Process ........: SET_205
* Function .......: SET205A
* Created on .....: 22/08/01 at 14:53:37
* Description ....: Set Web Server Address and Port No.
*
* Full Description: The purpose of this function is to
* allow the users to specify the values for their Web
* Server's address and port number.
*
* The values obtained are then stored and remembered
* by the system variables *S_HOSTURL and S_HOSTPORT
*
*
* 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.
*
* Minimum Release of LANSA: 9.0
*
* =======================================================
* Function control options
Function Options(*DIRECT *WEBEVENT)
*
* Group and field definitions
*
* Field with the information about the button that was c
* clicked on the browser to submit the form
Define Field(#S_CLICKED) Type(*CHAR) Length(30)
* Component with the description of the function
Define Field(#S_205DESC) Type(*CHAR) Length(1)
*
Group_By Name(#PANELDATA) Fields((#S_CLICKED *HIDDEN) (#S_IFSPATH *HIDDEN) (#S_HOSTPRT *HIDDEN) (#S_HOSTURL *HIDDEN) (#S_205DESC *NOID) (#S_205WEBS *NOID))
*
* Mainline
*
* The update button was clicked, update the values
Case Of_Field(#S_CLICKED)
When Value_Is('= UPDATE.CLICK')
Execute Subroutine(CHG_SYSVAR)
Endcase
*
Request Fields(#PANELDATA) Exit_Key(*NO) Menu_Key(*NO) Prompt_Key(*NO)
*
* =======================================================
* Subroutine ....: CHG_SYSVAR
* Description ...: Update values of system variables
* =======================================================
Subroutine Name(CHG_SYSVAR)
*
Define Field(#VALUE_CHG) Reffld(#STD_BOOL) Default(FALSE)
Def_Cond Name(*VAL_CHGED) Cond('#value_chg = TRUE')
*
Def_List Name(#PARM_NAME) Fields(#S_SVNAME) Type(*WORKING)
Def_List Name(#PARM_VALU) Fields(#S_SVCHVAL) Type(*WORKING)
Clr_List Named(#PARM_VALU)
Clr_List Named(#PARM_NAME)
Change Field(#VALUE_CHG) To(*DEFAULT)
*
* The value held in the system variable is considered the
* current value.
* The value in the field is the one
* entered in the browser. If they are different and the
* value entered in the browser is not blanks, keep the
* new value adding it to a working list.
* Two working lists are required because the aggregated
* entry length of a working list cannot exceed 256 bytes
If Cond('(#s_hosturl *ne *s_hosturl) and (#s_hosturl *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_HOSTURL''')
Change Field(#S_SVCHVAL) To(#S_HOSTURL)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
If Cond('(#s_hostprt *ne *s_hostport) and (#s_hostprt *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_HOSTPORT''')
Change Field(#S_SVCHVAL) To(#S_HOSTPRT)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
If Cond('(#s_ifspath *ne *s_ifspath) and (#s_ifspath *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_IFSPATH''')
Change Field(#S_SVCHVAL) To(#S_IFSPATH)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
* If any Host Address or Port number have changed, call
* a program to update the values.
If Cond(*VAL_CHGED)
Call Process(*DIRECT) Function(SETCHSV) Pass_Lst(#PARM_NAME #PARM_VALU)
Endif
*
Endroutine
* =======================================================
* Process ........: SET_205
* Function .......: SET205A
* Created on .....: 22/08/01 at 14:53:37
* Description ....: Set Web Server Address and Port No.
*
* Full Description: The purpose of this function is to
* allow the users to specify the values for their Web
* Server's address and port number.
*
* The values obtained are then stored and remembered
* by the system variables *S_HOSTURL and S_HOSTPORT
*
*
* 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.
*
* Minimum Release of LANSA: 9.0
*
* =======================================================
* Function control options
Function Options(*DIRECT *WEBEVENT)
*
* Group and field definitions
*
* Field with the information about the button that was c
* clicked on the browser to submit the form
Define Field(#S_CLICKED) Type(*CHAR) Length(30)
* Component with the description of the function
Define Field(#S_205DESC) Type(*CHAR) Length(1)
*
Group_By Name(#PANELDATA) Fields((#S_CLICKED *HIDDEN) (#S_IFSPATH *HIDDEN) (#S_HOSTPRT *HIDDEN) (#S_HOSTURL *HIDDEN) (#S_205DESC *NOID) (#S_205WEBS *NOID))
*
* Mainline
*
* The update button was clicked, update the values
Case Of_Field(#S_CLICKED)
When Value_Is('= UPDATE.CLICK')
Execute Subroutine(CHG_SYSVAR)
Endcase
*
Request Fields(#PANELDATA) Exit_Key(*NO) Menu_Key(*NO) Prompt_Key(*NO)
*
* =======================================================
* Subroutine ....: CHG_SYSVAR
* Description ...: Update values of system variables
* =======================================================
Subroutine Name(CHG_SYSVAR)
*
Define Field(#VALUE_CHG) Reffld(#STD_BOOL) Default(FALSE)
Def_Cond Name(*VAL_CHGED) Cond('#value_chg = TRUE')
*
Def_List Name(#PARM_NAME) Fields(#S_SVNAME) Type(*WORKING)
Def_List Name(#PARM_VALU) Fields(#S_SVCHVAL) Type(*WORKING)
Clr_List Named(#PARM_VALU)
Clr_List Named(#PARM_NAME)
Change Field(#VALUE_CHG) To(*DEFAULT)
*
* The value held in the system variable is considered the
* current value.
* The value in the field is the one
* entered in the browser. If they are different and the
* value entered in the browser is not blanks, keep the
* new value adding it to a working list.
* Two working lists are required because the aggregated
* entry length of a working list cannot exceed 256 bytes
If Cond('(#s_hosturl *ne *s_hosturl) and (#s_hosturl *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_HOSTURL''')
Change Field(#S_SVCHVAL) To(#S_HOSTURL)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
If Cond('(#s_hostprt *ne *s_hostport) and (#s_hostprt *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_HOSTPORT''')
Change Field(#S_SVCHVAL) To(#S_HOSTPRT)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
If Cond('(#s_ifspath *ne *s_ifspath) and (#s_ifspath *ne *blanks)')
Change Field(#S_SVNAME) To('''*S_IFSPATH''')
Change Field(#S_SVCHVAL) To(#S_IFSPATH)
Add_Entry To_List(#PARM_VALU)
Add_Entry To_List(#PARM_NAME)
Change Field(#VALUE_CHG) To(TRUE)
Endif
*
* If any Host Address or Port number have changed, call
* a program to update the values.
If Cond(*VAL_CHGED)
Call Process(*DIRECT) Function(SETCHSV) Pass_Lst(#PARM_NAME #PARM_VALU)
Endif
*
Endroutine