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>
<!-- 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>