HTML Function SET181B

LANSA

HTML Function SET181B

<HTML>

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

<SCRIPT LANGUAGE="JavaScript">

function SetPathNam(IfsPath)
{
document.LANSA.AS_PATHNAM.value = IfsPath;
document.LANSA.submit();
}
</SCRIPT>
</HEAD>
<RDML MERGE="&SCRIPT">
<BODY BGCOLOR="<RDML MERGE="*LW3CLNTCOLOR">" BACKGROUND="<RDML MERGE="*LW3CLNTBKGND">">
<FORM NAME="LANSA" METHOD="POST" ACTION="/cgi-bin/set181uplo" ENCTYPE="multipart/form-data">
<RDML MERGE="&HIDDEN">
<RDML COMPONENT="STDHEADER">
<DIV align="center"><FONT FACE="Arial" COLOR="DARKBLUE"><H1>File Upload</H1></FONT></DIV>
<RDML MERGE="&MESSAGES">
<INPUT NAME="AS_PATHNAM" TYPE="HIDDEN" SIZE="030" MAXLENGTH="256">
<BR>
<DIV align="center">
<BR>
<TABLE BORDER=2 bordercolor="darkred" CELLSPACING=0>
<TR>
<TD>
<TABLE>
<TR>
<TD COLSPAN=3><RDML COMPONENT="S_181BDESC"></TD>
</TR>
<TR>
<TD><FONT FACE="Arial" Size=2 COLOR="darkblue">File to Upload   </FONT></TD>
<TD COLSPAN=2><INPUT TYPE="FILE" SIZE=50 NAME="S_UPFILE"></TD>
</TR>
<TR>
<TD><FONT FACE="Arial" Size=2 COLOR="darkblue">File to Upload   </FONT></TD>
<TD COLSPAN=2><INPUT TYPE="FILE" SIZE=50 NAME="S_UPFILE"></TD>
</TR>
<TR>
<TD><FONT FACE="Arial" Size=2 COLOR="darkblue">File to Upload   </FONT></TD>
<TD COLSPAN=2><INPUT TYPE="FILE" SIZE=50 NAME="S_UPFILE"></TD>
</TR>
<TR>
<TD><IMG BORDER=0 WIDTH="1" HEIGHT="20" SRC="<RDML MERGE="*LW3SETSPACER">"></TD>
</TR>
<TR>
<TD><FONT FACE="Arial" Size=2 COLOR="darkblue">IFS Subdirectory   </FONT></TD>
<TD><INPUT NAME="AS_IFSPATH" TYPE="TEXT" SIZE="030" MAXLENGTH="256" VALUE="<RDML MERGE="S_IFSPATH">"></TD>
<TD ALIGN="CENTER"><RDML COMPONENT="S_181UPLO"></TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</DIV>
<RDML MERGE="&BUTTONS">
<RDML COMPONENT="STDFOOTER">
</FORM>
</BODY>
</HTML>

previous page start next page