HTML for SET009A (SET009A001)
<!-- Process : SET_009 WEB samples and examples -->
<!-- Function : SET009A Determining Selected Row Number -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 133039210300 -->
<!-- RDML function sequence number - 0045 -->
<!-- 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">" <RDML COMPONENT="FORMINIT">>
<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="AS_DEPTDES" TYPE="HIDDEN" SIZE="007" MAXLENGTH="020" VALUE="<RDML MERGE="S_DEPTDESC">">
<INPUT NAME="PSTDROWNUM" TYPE="HIDDEN" SIZE="007" MAXLENGTH="007" VALUE="<RDML MERGE="STDROWNUM ">">
<INPUT NAME="PSHOWMSG " TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="SHOWMSG ">">
<RDML COMPONENT="STDHEADER">
<CENTER><FONT FACE="Arial" COLOR="DARKBLUE"><H1>Determine Selected Row Number</H1></CENTER>
<BR>
<RDML MERGE="&MESSAGES">
<FONT SIZE="BASEFONT">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TBODY>
<TR>
<TD><STRONG></STRONG></TD>
<TD><RDML COMPONENT="S_009RMSG " MODE="I"></TD>
</TR>
</TBODY>
</TABLE>
</FONT>
<RDML MERGE="@BLS_009DEPL ">
</FORM>
</BODY>
</HTML>
<!-- Process : SET_009 WEB samples and examples -->
<!-- Function : SET009A Determining Selected Row Number -->
<!-- Page : 001 -->
<!-- Generated by - LANSA -->
<!-- Created by user - SETUSER -->
<!-- Time and Date - 133039210300 -->
<!-- RDML function sequence number - 0045 -->
<!-- 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">" <RDML COMPONENT="FORMINIT">>
<FORM METHOD="POST" NAME="LANSA"
ACTION="/<RDML MERGE="&CGI">/LANSAWEB?WEBEVENT+<RDML MERGE="&SESSPL">">
<RDML MERGE="&HIDDEN">
<INPUT NAME="ASTDRENTRY" TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="STDRENTRY ">">
<INPUT NAME="AS_DEPTDES" TYPE="HIDDEN" SIZE="007" MAXLENGTH="020" VALUE="<RDML MERGE="S_DEPTDESC">">
<INPUT NAME="PSTDROWNUM" TYPE="HIDDEN" SIZE="007" MAXLENGTH="007" VALUE="<RDML MERGE="STDROWNUM ">">
<INPUT NAME="PSHOWMSG " TYPE="HIDDEN" SIZE="001" MAXLENGTH="001" VALUE="<RDML MERGE="SHOWMSG ">">
<RDML COMPONENT="STDHEADER">
<CENTER><FONT FACE="Arial" COLOR="DARKBLUE"><H1>Determine Selected Row Number</H1></CENTER>
<BR>
<RDML MERGE="&MESSAGES">
<FONT SIZE="BASEFONT">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3>
<TBODY>
<TR>
<TD><STRONG></STRONG></TD>
<TD><RDML COMPONENT="S_009RMSG " MODE="I"></TD>
</TR>
</TBODY>
</TABLE>
</FONT>
<RDML MERGE="@BLS_009DEPL ">
</FORM>
</BODY>
</HTML>