Passing Parameter to Web Focus [Archive]

MadamZuZu

10-18-2006, 09:31 AM

hi :)
i used java for a drop down window.
User selects a name, i then produce a report.
here is a sample code:

**************************************************************
-* Check if running the actual report or generating the dropdowns
-* is needed.
-**************************************************************
-IF &step EQ 'runreport' GOTO runreport ELSE IF &step EQ 'runreport2' THEN GOTO runreport2;
-*
SET HOLDLIST=PRINTONLY
SET PAGE=NOPAGE
-**************************************************************
-* Create hold files to be used in the Drop down menu
-**************************************************************
-**************************************************************
-* Change Coordinator
-**************************************************************
DEFINE FILE MYTABLE
OPT1/A200='<OPTION>' |SUP_NAME || '</OPTION>';
OPT1/A200='<OPTION VALUE="' || SUP_LGN_NM || '">' |SUP_NAME || '</OPTION>';
END

TABLE FILE MYTABLE
SUM
OPT1
BY
CC_FULL_NM2 NOPRINT
WHERE NEW_DT GE '10012005'
ON TABLE SAVE AS LIST1 FORMAT ALPHA
END

-**************************************************************
-* create your selection menu as a WebFocus HTMLFORM
-**************************************************************
-*
-runform
-HTMLFORM BEGIN
<HTML>
<HEAD>
<TITLE>Please Choose Something</TITLE>
-**************************************************************
-* Script to run the report after the final selection
-**************************************************************
<script language="JavaScript">

</script>
-**************************************************************
-* Script which changes the windows message at the bottom
-* of the Browser
-**************************************************************
<script language="JavaScript">
function wStatus()
{
window.status = 'Screen Ready';
}
</script>
-**************************************************************
-* Get the Connection and Display the main Select Form
-**************************************************************
<BODY onLoad="wStatus()">
<center>
<table width=550 border=3 bgcolor=#CCCCCC>
<TD>
<center>
<b><font size=5>All Changes Recorded in Remedy for FY 2006</font></b>
</center>
<p><br>
<BR><center>
<table>
<td VALIGN=BOTTOM>
<FORM NAME=form1 ACTION="http://edaserve.nist.gov/cgi-bin/ibi_cgi/webapi.dll?" METHOD="GET"
TARGET="_top">
<INPUT TYPE="hidden" NAME="IBIF_ex" VALUE="CM2">
<INPUT TYPE="hidden" NAME="step" VALUE="STEP_4">
-**********************************************************
-* Change Coordinator
-**********************************************************
<P><H4><font color="brown">Select Change Coordinator:</font></H4>
<SELECT WIDTH="300" STYLE="width: 200px" NAME="SUP_NAME" >
<OPTION VALUE='ALL'>---- Selection ----</OPTION>
!IBI.FIL.LIST1;
</SELECT>
<BR><BR>
<INPUT TYPE="BUTTON" NAME="cmdSubmit" VALUE="Submit"
onclick="getProds('runreport2');" />
<BR><BR>
</td>
</table>

</FORM>
</td>
</table>
</BODY>
</HTML>
-HTMLFORM END
-EXIT
-**************************************************************
-* Run the Report
-**************************************************************
-runreport

-**************************************************************
-* the below is for testing purposes only
-**************************************************************

TABLE FILE MYTEST
PRINT MY_ID SUP_NAME REQ_NM SBMT_NM IMPL_NM

END