Function SET011E: Build the URL
Function Options(*DIRECT *WEBEVENT)
* =======================================================
* Process ........: SET_011
* Function .......: SET011E
* Created on .....: 20/02/00
*
* Full Description: Start SET011 application. This
* function has the only purpose of building the URL
* required to run the application. It concatenates the
* partition and language with the url required to start
* the functions running in the different frames.
*
* Disclaimer: The following material is supplied as an
* example only. No warranty is expressed or implied.
* *******************************************************
* Field containing the url of the function that runs in
* frame on the left hand side
Define Field(#S_LEFTFRA) Type(*CHAR) Length(256)
* Field containing the url of the function that runs in
* frame on the right top.
Define Field(#S_RIGHTOP) Type(*CHAR) Length(256)
* Field containing the url of the function that runs in
* frame on the right bottom.
Define Field(#S_RIGHBOT) Type(*CHAR) Length(256)
*
Change Field(#S_LEFTFRA) To('/cgi-bin/lansaweb?procfun+SET_011+set011a+')
Change Field(#S_RIGHTOP) To('/cgi-bin/lansaweb?procfun+SET_011+set011c+')
Change Field(#S_RIGHBOT) To('/cgi-bin/lansaweb?procfun+SET_011+set011d+')
*
Group_By Name(#PANELDATA) Fields((#S_RIGHTOP *HIDDEN) (#STDRENTRY *HIDDEN) (#S_LEFTFRA *HIDDEN) (#S_RIGHBOT *HIDDEN))
*
* If the partition language is non multilingual don't
* include the language in the url.
If Cond('*language *ne *blanks')
Use Builtin(TCONCAT) With_Args(#S_LEFTFRA *PARTITION '+' *LANGUAGE) To_Get(#S_LEFTFRA)
Use Builtin(TCONCAT) With_Args(#S_RIGHTOP *PARTITION '+' *LANGUAGE) To_Get(#S_RIGHTOP)
Use Builtin(TCONCAT) With_Args(#S_RIGHBOT *PARTITION '+' *LANGUAGE) To_Get(#S_RIGHBOT)
Else
* If the partition language is multilingual include the
* language in the url.
Use Builtin(TCONCAT) With_Args(#S_LEFTFRA *PARTITION) To_Get(#S_LEFTFRA)
Use Builtin(TCONCAT) With_Args(#S_RIGHTOP *PARTITION) To_Get(#S_RIGHTOP)
Use Builtin(TCONCAT) With_Args(#S_RIGHBOT *PARTITION) To_Get(#S_RIGHBOT)
Endif
*
Request Fields(#PANELDATA) Exit_Key(*NO) Menu_Key(*NO) Prompt_Key(*NO)
Function Options(*DIRECT *WEBEVENT)
* =======================================================
* Process ........: SET_011
* Function .......: SET011E
* Created on .....: 20/02/00
*
* Full Description: Start SET011 application. This
* function has the only purpose of building the URL
* required to run the application. It concatenates the
* partition and language with the url required to start
* the functions running in the different frames.
*
* Disclaimer: The following material is supplied as an
* example only. No warranty is expressed or implied.
* *******************************************************
* Field containing the url of the function that runs in
* frame on the left hand side
Define Field(#S_LEFTFRA) Type(*CHAR) Length(256)
* Field containing the url of the function that runs in
* frame on the right top.
Define Field(#S_RIGHTOP) Type(*CHAR) Length(256)
* Field containing the url of the function that runs in
* frame on the right bottom.
Define Field(#S_RIGHBOT) Type(*CHAR) Length(256)
*
Change Field(#S_LEFTFRA) To('/cgi-bin/lansaweb?procfun+SET_011+set011a+')
Change Field(#S_RIGHTOP) To('/cgi-bin/lansaweb?procfun+SET_011+set011c+')
Change Field(#S_RIGHBOT) To('/cgi-bin/lansaweb?procfun+SET_011+set011d+')
*
Group_By Name(#PANELDATA) Fields((#S_RIGHTOP *HIDDEN) (#STDRENTRY *HIDDEN) (#S_LEFTFRA *HIDDEN) (#S_RIGHBOT *HIDDEN))
*
* If the partition language is non multilingual don't
* include the language in the url.
If Cond('*language *ne *blanks')
Use Builtin(TCONCAT) With_Args(#S_LEFTFRA *PARTITION '+' *LANGUAGE) To_Get(#S_LEFTFRA)
Use Builtin(TCONCAT) With_Args(#S_RIGHTOP *PARTITION '+' *LANGUAGE) To_Get(#S_RIGHTOP)
Use Builtin(TCONCAT) With_Args(#S_RIGHBOT *PARTITION '+' *LANGUAGE) To_Get(#S_RIGHBOT)
Else
* If the partition language is multilingual include the
* language in the url.
Use Builtin(TCONCAT) With_Args(#S_LEFTFRA *PARTITION) To_Get(#S_LEFTFRA)
Use Builtin(TCONCAT) With_Args(#S_RIGHTOP *PARTITION) To_Get(#S_RIGHTOP)
Use Builtin(TCONCAT) With_Args(#S_RIGHBOT *PARTITION) To_Get(#S_RIGHBOT)
Endif
*
Request Fields(#PANELDATA) Exit_Key(*NO) Menu_Key(*NO) Prompt_Key(*NO)