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 VALIGN="TOP"><RDML ONCONDITION = "SHOWBROWS">
<RDML MERGE="@BLEMPLIST ">
</RDML>
<RDML NOTCONDITION = "SHOWBROWS">
<RDML COMPONENT="S_005DESC">
</RDML>
</TR>
</TBODY>
</TABLE>
</FONT>
</FORM>
</BODY>
</HTML>
<!-- 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> |
<RDML MERGE="@BLEMPLIST ">
</RDML>
<RDML NOTCONDITION = "SHOWBROWS">
<RDML COMPONENT="S_005DESC">
</RDML>
</TR>
</TBODY>
</TABLE>
</FONT>
</FORM>
</BODY>
</HTML>