Skeleton for process SET_184

LANSA

Skeleton for process SET_184
<!-- Process : %PR %PRDS -->
<!-- Function : %FU %FUDS -->
<!-- Page : %PG -->

<!-- Generated by - %PROD -->
<!-- Created by user - %USERI -->
<!-- Time and Date - %STAMP -->

<!-- RDML function sequence number - %SEQ -->

<!-- This is a *WEBEVENT function %IFWEV -->
%IFWEV
<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">
onLoad="getLocationPort()">

<SCRIPT LANGUAGE="JavaScript">
function getLocationPort()
{
<RDML ONCONDITION="*FUNCTION" VALUE="SET184A">
var ServerPort;
if (document.LANSA.AS_HOSTURL.value == "") document.LANSA.AS_HOSTURL.value = location.hostname;
if (location.port == "") ServerPort = 80;
if (document.LANSA.AS_HOSTPRT.value == "") document.LANSA.AS_HOSTPRT.value = ServerPort;
</RDML>
}
</SCRIPT>


%W3FRM

<RDML MERGE="&HIDDEN">

<RDML COMPONENT="STDHEADER">

<DIV align="center"> <FONT FACE="Arial" COLOR="DARKBLUE"><H1>
<RDML MERGE="S_FUNDES">
</H1></FONT></DIV>

<BR>

<RDML MERGE="&MESSAGES">

<FONT SIZE="BASEFONT">
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3> %IFNRLTB
<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=3 ALIGN=RIGHT> %IFRLTB
<TBODY>

%W3FLD

</TBODY>
</TABLE>
<BR CLEAR="right"> %IFRLTB
</FONT>

<BR>

%W3BRW

<RDML MERGE="&BUTTONS">

<RDML COMPONENT="STDFOOTER">

</FORM>
</BODY>

</HTML>