HTML for SET005A (SET005A001)

LANSA

HTML for SET005A (SET005A001)

<!-- Process : SET_005 WEB samples and examples -->
<!-- Function : SET005A List Box multi selection -->
<!-- Page : 001 -->

<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 145844010300 -->

<!-- RDML function sequence number - 0105 -->

<!-- This is a *WEBEVENT function -->

<HTML>

<HEAD>
<RDML MERGE="&STYLE">
<TITLE><RDML MERGE="&FUNCTION"> </TITLE>
</HEAD>

<RDML MERGE="&SCRIPT">

<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">" BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">" onLoad="SetValues()">

<FORM METHOD="POST" NAME="LANSA" ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">

<RDML MERGE="&HIDDEN">

<INPUT NAME="ASELVALUES" TYPE="HIDDEN" SIZE="030" MAXLENGTH="256" VALUE="<RDML MERGE="SELVALUES ">">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="PMAXLENGTH" TYPE="HIDDEN" SIZE="002" MAXLENGTH="002" VALUE="<RDML MERGE="MAXLENGTH ">">
<INPUT NAME="PSHOWBROWS" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="SHOWBROWS ">">
<INPUT NAME="PMAXITEMS " TYPE="HIDDEN" SIZE="002" MAXLENGTH="002" VALUE="<RDML MERGE="MAXITEMS ">">
<INPUT NAME="ASELLENGTH" TYPE="HIDDEN" SIZE="030" MAXLENGTH="064" VALUE="<RDML MERGE="SELLENGTH ">">


<RDML COMPONENT="STDHEADER">

<CENTER><FONT FACE="Arial" COLOR="DARKBLUE"><H1>Multi-Select List Box </H1></FONT></CENTER>

<BR>

<RDML MERGE="&MESSAGES">

<BR>

<FONT SIZE="BASEFONT">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TBODY>

<TR>
<TD VALIGN="TOP"><STRONG>Select Departments</STRONG></TD>
<TD VALIGN="TOP"><RDML COMPONENT="S_005DEPT " MODE="I"></TD>
<TD width="2%"></TD> 
<TD VALIGN="TOP"><RDML ONCONDITION = "SHOWBROWS">
<RDML MERGE="@BLEMPLIST ">
</RDML>
<RDML NOTCONDITION = "SHOWBROWS">
<RDML COMPONENT="S_005DESC">
</RDML>
</TR>

</TBODY>
</TABLE>
</FONT>
</FORM>
</BODY>

</HTML>