Passing variable to 2nd form

I am trying to pass a variable from one form to another and then query based on the result of the variable from the first form.

It is a drop down box with 3 choices:
Positive
Negative
Both

The second form has to determine what the user selected and then based on that answer ...  query the database column called 'net_amount'  for a negative AND/OR  positive 'net_amount'. (see the $sqlwhere part for 'net_amount' in the 2nd form - that part only queries a positive number)

Code I currently have:
**************************
Parts of a file called:  cerp01.pl

<HTML>
<HEAD>
<META NAME="description" CONTENT="CERPs Web Site Search">
<META NAME="keywords" CONTENT="CERP">
<TITLE>CHOOSE Web Report Criteria</TITLE>
<script language="JavaScript">

function ErrorChecking(AForm)
{
   var AmtType = GetAmtType();
   var FromSelection = GetFromSelected();
   var ToSelection = GetToSelected();
   var countempty = 0;
   for (loopit=2; loopit< 30; loopit++)
   {
       if (loopit != 27 && loopit != 29)
      {
      if (isEmpty(document.REQFORM.elements[loopit]))
      {
      countempty = countempty + 1;
      }
      }
   }
   if (countempty == 23 && document.forms[0].elements[27].options[FromSelection].index == 0 && document.forms[0].elements[29].options[ToSelection].index == 0)
   {
      AWindowMessage("Please provide required search criteria.<br>");
      return false;
   }
   if (document.REQFORM.FromDate.options[FromSelection].index == 0 || document.REQFORM.ToDate.options[ToSelection].index == 0)
   {
      AWindowMessage("You MUST enter both the 'Start Date' and the 'End Date' <br>");
      return false;
   }
   else
   {
      if (document.forms[0].elements[27].options[FromSelection].text > document.forms[0].elements[29].options[ToSelection].text && (document.forms[0].elements[29].options[ToSelection].index > 0 || document.forms[0].elements[27].options[FromSelection].index > 0))
      {
      AWindowMessage("Please make sure that your TO dates are greater than or equal to your FROM dates.<br>");
      return false;
      }
   }
   if (!TestDate(FromSelection,ToSelection))
      {
      AWindowMessage("Date in Date Range Selected is beyond todays date.<br>");
      return false;
      }
   return true;
}

function TestDate(FromSelection,ToSelection)
{
   var today=new Date();
   Y=today.getFullYear(); // year in integer format
   M=today.getMonth()+1; //month in integer format
   SY = Y.toString();
   SM = M.toString();
   Now = SY+""+SM;
   if (document.forms[0].elements[27].options[FromSelection].text > Now || document.forms[0].elements[29].options[ToSelection].text > Now)
   {
   return false;
   } else
   {
   return true;
   }
}
****removed a large chunk of error checking code *****************
function GetFromSelected()
{
var ReturnedValue = document.forms[0].elements[27].selectedIndex;
return ReturnedValue
}

function GetToSelected()
{
var ReturnedValue = document.forms[0].elements[29].selectedIndex;
return ReturnedValue
}

function GetAmtType()
{
var ReturnedValue = document.forms[0].elements[20].selectedIndex;
return ReturnedValue
}
var specific_month, last_two_digits, last_two_as_num, last_four_digits, last_four_as_num,
   specific_october, specific_september;

function createFromTOCdate(specific_month,idx)
{
   top.From_specific_month=specific_month;
   top.From_idx=idx;
   last_two_digits = specific_month.charAt(8) + specific_month.charAt(9)
   last_two_as_num = Number(last_two_digits)
   last_four_digits = specific_month.charAt(4) + specific_month.charAt(5) +
      specific_month.charAt(6) + specific_month.charAt(7)
   last_four_as_num = Number(last_four_digits)
   if (last_two_as_num < 10)
   {
      specific_october = (last_four_as_num - 1)
   }
   else
   {
      specific_october = last_four_as_num
   }
   document.REQFORM.TOC_FromDatePulled.value = specific_october + "10"
}

function createToTOCdate(specific_month,idx)
{
   top.To_specific_month=specific_month;
   top.To_idx=idx;
   last_two_digits = specific_month.charAt(6) + specific_month.charAt(7)
   last_two_as_num = Number(last_two_digits)
   last_four_digits = specific_month.charAt(2) + specific_month.charAt(3) +
      specific_month.charAt(4) + specific_month.charAt(5)
   last_four_as_num = Number(last_four_digits)
   if (last_two_as_num > 9)
   {
      specific_september = (last_four_as_num  + 1)
   }
   else
   {
      specific_september = last_four_as_num
   }
   document.REQFORM.TOC_ToDatePulled.value = specific_september + "09"
}

function isEmpty(AField)
{
   if (AField.value == "")
      {
         return true;
      }
      else
      {
         return false;
      }
}

function UnCheckAll()
{
if (document.REQFORM.CheckAllBox.checked)
{
document.REQFORM.CheckAllBox.checked = true;
for (loopit=31; loopit< 73; loopit++)
{
document.REQFORM.elements[loopit].checked = false;
}
}
}

function UnCheckStuff()
{
document.REQFORM.CheckAllBox.checked = false;
}

function setSelect()
{
   if (top.From_idx != '') document.REQFORM.FromDate.selectedIndex = top.From_idx;
   if (top.To_idx != '') document.REQFORM.ToDate.selectedIndex = top.To_idx;
   if (top.From_specific_month != '')

      createFromTOCdate(top.From_specific_month,top.From_idx);

   if (top.To_specific_month != '')

      createToTOCdate(top.To_specific_month,top.To_idx);
}
</script>
</HEAD>
<BODY BGCOLOR=white TEXT=black LINK=purple VLINK=blue ALINK=red" onLoad="setSelect()">
<CENTER>
<FORM NAME="REQFORM" METHOD="POST" ACTION="https://cerps-hst.jax.disa.mil/cgi-bin/cerp02.pl" onSubmit="return ErrorChecking(forms[0])">
<A NAME=CerpTop><STRONG><BIG>CHOOSE Web Report Criteria</BIG></STRONG></A><br>
<hr>
<input type="submit" value="Run Report">
<input type="Reset" value="Clear Selections"><br>
<A NAME=SearchReq><STRONG>REQUIRED SEARCH CRITERIA ('Start Date' AND 'End Date' are required)</STRONG></A><br><br>
<!-- <A HREF=#CerpTop>Return to Top</A> -->
<TABLE BORDER=2>

<TR>
<TD>Finance Center<br>(FIPC):  <INPUT TYPE="text" NAME="FIPC" VALUE = "" SIZE = 1 MAXLENGTH = 1></TD>
<TD>Register Number<br>(REG):  <INPUT TYPE="text" NAME="REG_NUM" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Accounting Classification Reference Number<br>(ACRN):  <INPUT TYPE="text" NAME="ACRN" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Gaining Agency<br>(GA):  <INPUT TYPE="text" NAME="GA" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Beginning Fiscal Year<br>(BFY):  <INPUT TYPE="text" NAME="BFY" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
</TR>

<TR>
<TD>Ending Fiscal Year<br>(EFY):  <INPUT TYPE="text" NAME="EFY" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Fund Symbol<br> (FUND_SYM): <INPUT TYPE="text" NAME="FUND_SYM" VALUE = "" SIZE = 4 MAXLENGTH = 4></TD>
<TD>Subhead<br> (SHD): <INPUT TYPE="text" NAME="SUBHEAD" VALUE = "" SIZE = 4 MAXLENGTH = 4></TD>
<TD>Object Class<br> (OBJ): <INPUT TYPE="text" NAME="OBJ_CLASS" VALUE = "" SIZE = 3 MAXLENGTH = 3></TD>
<TD>Bureau Control Number (BCN): <INPUT TYPE="text" NAME="BCN" VALUE = "" SIZE = 5 MAXLENGTH = 5></TD>
</TR>

<TR>
<TD>Sub Allotment (SA): <INPUT TYPE="text" NAME="SUBALLOTMENT" VALUE = "" SIZE = 1 MAXLENGTH = 1></TD>
<TD>Auth Acct Activity<br> (AAA): <INPUT TYPE="text" NAME="AAA" VALUE = "" SIZE = 6 MAXLENGTH = 6> </TD>
<TD>Type Code<br>(TT): <INPUT TYPE="text" NAME="TYPE_CODE" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Supplemental Procurement Inst ID # (SPIIN):  <INPUT TYPE="text" NAME="SPINN" VALUE = "" SIZE = 6 MAXLENGTH = 6></TD>
<TD>Cost Code (CST):<br><INPUT TYPE="text" NAME="COST_CODE" VALUE = "" SIZE = 12 MAXLENGTH = 12> </TD>
</TR>

<TR>
<TD>Property Acct Activity (PAA):<br><INPUT TYPE="text" NAME="PAA" VALUE = "" SIZE = 6 MAXLENGTH = 6> </TD>
<TD>Document (DOC_NUM): <br> <INPUT TYPE="text" NAME="Document" VALUE = "" SIZE = 15 MAXLENGTH = 15></TD>
<TD>Net Amount (AMT):<br><INPUT TYPE="text" NAME="NET_AMOUNT" VALUE = "" SIZE = 15 MAXLENGTH = 15><br>
<SELECT NAME ="AmtType" Size =1 onChange = "GetAmtType(this.options[this.selectedIndex].value,this.selectedIndex)">
<option value=P>Positive  
<option value=N>Negative  
<option value=B>Both
</SELECT>
</TD>
<TD>Voucher (DOV):<br><INPUT TYPE="text" NAME="Voucher" VALUE = "" SIZE = 7 MAXLENGTH = 7></TD>
<TD>Reporting Office (RPT_OFF):<br> <INPUT TYPE="text" NAME="RPT_OFFICE" VALUE = "" SIZE = 6 MAXLENGTH = 6> </TD>
</TR>


<TR>
<TD>Disbursing Stn<br>Symbol Nbr<br>(DSSN): <INPUT TYPE="text" NAME="DSSN" VALUE = "" SIZE = 5 MAXLENGTH = 5></TD>
<TD>Suspense Code <br> (SUSP): <INPUT TYPE="text" NAME="SUSP_CODE" VALUE = "" SIZE = 1 MAXLENGTH = 1></TD>
<TD>Day Paid<br>Master Cashbook<br>Date (DAY): <INPUT TYPE="text" NAME="DAY_PAID" VALUE = "" SIZE = 2 MAXLENGTH = 2></TD>
<TD>Start Date<br>(YYYYMM): <br>      
<input type="hidden" name="TOC_FromDatePulled">
<!-- onChange="createFromTOCdate(this.options[this.selectedIndex].value,this.selectedIndex)" -->
<SELECT NAME="FromDate" SIZE = 1 onChange="createFromTOCdate(this.options[this.selectedIndex].value,this.selectedIndex)">
<option value=FromDate0>  
<option value=From200009>200009  
<option value=From200008>200008  
<option value=From200007>200007  
<option value=From200006>200006  
</SELECT>
</TD>
<TD>End Date<br>(YYYYMM):   <br>
<input type="hidden" name="TOC_ToDatePulled">
<!-- onChange="createToTOCdate(this.options[this.selectedIndex].value,this.selectedIndex)"-->
<SELECT NAME="ToDate" SIZE = 1 onChange="createToTOCdate(this.options[this.selectedIndex].value,this.selectedIndex)">
<option value=ToDate0>
<option value=To200009>200009  
<option value=To200008>200008  
<option value=To200007>200007    
<option value=To200006>200006  
</SELECT>
</TD>
</TR>
</Table>
<hr>
<A NAME=ColReq><STRONG>ITEMS ON REPORT</STRONG></A><br>
<A HREF=#CerpTop>Return to Top</A><br>
Select which items you would like on the report<br>
<TABLE NAME="FIELDSTAB" BORDER=3>
<TR>
<TD>All Items <INPUT TYPE="checkbox" NAME="CheckAllBox" CHECKED onClick="UnCheckAll()"></TD><TD></TD><TD></TD>
</TR>
<TR>
<TD></TD><TD></TD><TD></TD>
</TR>
<TR>
<TD><INPUT TYPE="checkbox" NAME="NET_AMOUNT1" onClick="UnCheckStuff()" NAME="AMT"> Net Amount (AMT) </TD>
<TD><INPUT TYPE="checkbox" NAME="ABS_AMT1" onClick="UnCheckStuff()"> Absolute Amount (ABS_AMT) </TD>
<TD><INPUT TYPE="checkbox" NAME="DOCUMENT" onClick="UnCheckStuff()"> Document Number (DOC_NUM) </TD>
<TD><INPUT TYPE="checkbox" NAME="FIPC1" onClick="UnCheckStuff()"> Finance Center (FIPC)</TD>
<TD><INPUT TYPE="checkbox" NAME="REG_NUM1" onClick="UnCheckStuff()"> Register Number (REG)</TD>
</TR>

**********removed large chunk of "chekbox" code ********
</TABLE>
<input type="submit" value="Run Report">
</FORM>
<br>
</BODY>
</HTML>

********************************************************
Parts of a file called:  CERO02.PL

getFormData(\%frmFlds);
$sql = "SELECT * FROM CERPTOC $WhereStart $WhereEnd";
$cursor = $db->prepare($sql) or die "Unable to Get TOC with SQL: $DBI::errstr";
$cursor->execute or die "Unable to Get TOC with SQL: $DBI::errstr";
print "$sql";
print "<A NAME=CerpToc><H2><CENTER>THE CHOOSE REPORT</CENTER></H2></A>";
print "<FORM NAME='DOWNFORM' METHOD='POST' ACTION='download.pl'>";
print "<input type=hidden name=TOC_FromDatePulled value='$value'>";
print "<input type=hidden name=TOC_ToDatePulled value='$value'>";
print "$hiddenfields";
print "<input type=submit value='Download Report'>";
print "</FORM>";
print "<A HREF='cerp01.pl'>New Search Criteria</A><br>";
while (@row = $cursor->fetchrow_array)
{
      #print "<A HREF=#@row[0]>@row</A><br>";
      push (@FYTables, @row[0]);
}
print "<br>";
if ($NotAll == 1)
{
      $sqlsize = length($sqlselect);
      $bitbucket = substr($sqlselect,$sqlsize-2,1);
      $sqlselect = substr($sqlselect,0,$sqlsize-2);
} else
{
      @CHDs = ("AMT", "ABS_AMT", "DOC_NUM", "FIPC", "REG", "ACRN", "GA", "TA", "BFY", "EFY", "FUND_SYM", "SHD", "OBJ", "BCN", "SA", "AAA", "TT", "DOV", "PAA", "CST", "SPIIN", "CLIN", "FILLER", "RPT_OFF", "DSSN", "RPM", "RGMO", "DAY", "ERC", "CL", "CDCC", "SRC", "IBOP", "IDA", "SUSP", "PAY", "STR", "DSC", "CDDC", "YORN", "ERROR", "YYYYMM");
}

$sqlsize = length($sqlwhere);
$bitbucket = substr($sqlwhere,$sqlsize-4,3);
$sqlwhere = substr($sqlwhere,0,$sqlsize-4);
print "<CENTER>\n";
$TotalFound = 0;
foreach $FromClause (@FYTables)
{
   $sql = "$sqlselect FROM $FromClause $sqlwhere";
   $SQLCntBack = "$sqlcount FROM $FromClause $sqlwhere";
   $cursor = $db->prepare($SQLCntBack) or die "Unable to Execute SQL: $DBI::errstr";
   $cursor->execute or die "Unable to Execute SQL: $DBI::errstr" ;
   @row = $cursor->fetchrow_array or die "<br>FETCH DIED:<br> $DBI::errstr";
   print "<br>";
   if ($row[0] lt 1)
   {
        print "<A NAME=$FromClause><STRONG>NO DATA </STRONG> for $FromClause.</A><br>";
   }else
   {
   $TotalFound = 1;
   print "<A NAME=$FromClause>$FromClause (@row Rows Returning)</A><br>";
   }  
   print "<TABLE BORDER=2>\n";

if ($NotAll == 1)
{
     $AllStmnt = "$sqlselect FROM $FromClause $sqlwhere";

}  else
{
     $AllStmnt = "Select ALL from $FromClause $sqlwhere";
}
   print "<TR><TD COLSPAN=10><STRONG>Report Request </STRONG> $AllStmnt</TD></TD>\n";
   $cursor = $db->prepare($sql) or die "Unable to Execute SQL: $DBI::errstr";
   $cursor->execute or die "Unable to Execute SQL: $DBI::errstr" ;
   print "$sql";
   print "<TR>";
   foreach $Columns (@CHDs)
   {
    print "<TD><Strong>$Columns</STRONG></TD>";
   }
   print "</TR>";
   while (@row = $cursor->fetchrow_array)
   {
      print "<TR>";
      foreach $Fields (@row)
      {
         print "<TD ALIGN=RIGHT>$Fields</TD>";
      }
      print "</TR>";
      $countit++;
   }
   print "</TABLE>";
}
if ($TotalFound eq 0)
{
print "NO DATA FOUND<BR>";
} else
{
print "REPORT COMPLETE<BR>";
}
print "<A HREF=#CerpToc>Return to Top</A><br>";
print "</CENTER>\n";
print "</BODY>\n";
print "</HTML>\n";
$cursor->finish;
$db->disconnect;
}

sub getFormData
{
    my($hashRef) = shift;
    my($buffer) = "";

    if ($ENV{'REQUEST_METHOD'} eq 'GET')
    {
        $buffer = $ENV{'QUERY_STRING'};
    }
    else
    {
        read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
    }

    foreach (split(/&/, $buffer))
    {
        my($key, $value) = split(/=/, $_);
        $key   = decodeURL($key);
        $value = decodeURL($value);
        $value =~ s/(<P>\s*)+/<P>/g;   # compress multiple <P> tags.
        $value =~ s/</&lt;/g;          # turn off all HTML tags.
        $value =~ s/>/&gt;/g;
        $value =~ s/&lt;b&gt;/<b>/ig;  # turn on the bold tag.
        $value =~ s!&lt;/b&gt;!</b>!ig;
        $value =~ s/&lt;i&gt;/<b>/ig;  # turn on the italic tag.
        $value =~ s!&lt;/i&gt;!</b>!ig;
        $value =~ s!\cM!!g;            # Remove unneeded carriage returns.
        $value =~ s!\n\n!<P>!g;        # Convert 2 newlines into paragraph.
        $value =~ s!\n! !g;            # Convert newline into spaces.
        $value =~ s!a-z!A-Z!g;         # Convert newline into spaces.
        $value =~ tr/a-z/A-Z/;         # Convert lowercase to upper.
        %{$hashRef}->{$key} = $value;
        $hiddenfields .= "<input type=hidden name=$key value = '$value'>\n";
           
        #print "<STRONG>Form Fields:</STRONG>  $key HOLDS -> '$value'<br>\n";

        if ($key eq "Document" && $value ne '')
        {
              $sqlwhere = "$sqlwhere DOC_NUM = '$value' and ";
        }
        if ($key eq "Voucher" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        $holddate = substr($value,8,3);
        if ($key eq "FromDate" && $holddate ne '0' )
        {
              $FromDatePulled = substr($value,4,6);
              #$WhereStart = "WHERE (START_DATE BETWEEN '$TOC_FromDatePulled' ";
              #$WhereEnd = " (END_DATE BETWEEN '$TOC_FromDatePulled' ";
              $sqlwhere = "$sqlwhere (YYYYMM BETWEEN '$FromDatePulled' and ";
        }
        $holddate = substr($value,6,3);
        if ($key eq "ToDate" && $holddate ne '0')
        {
              $ToDatePulled = substr($value,2,6);
              #$WhereStart = "$WhereStart and '$TOC_ToDatePulled') or ";
              #$WhereEnd = "$WhereEnd and '$TOC_ToDatePulled')";
              $sqlwhere = "$sqlwhere '$ToDatePulled') and ";
        }
        if ($key eq "TOC_FromDatePulled")
        {
             $WhereStart = "WHERE (START_DATE BETWEEN '$value' ";
             $WhereEnd = "(END_DATE BETWEEN '$value' ";
        }
        if ($key eq "TOC_ToDatePulled")
        {
             $WhereStart = "$WhereStart and '$value') or ";
             $WhereEnd = "$WhereEnd and '$value')";
        }
 *****       if ($key eq "NET_AMOUNT" && $value ne '') **** what needs to be added here?
        {
             $sqlwhere = "$sqlwhere $key = '$value' and ";
      }  
      if ($key eq "FIPC" && $value ne '')
        {
             $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "REG_NUM" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "ACRN" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "GA" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "PAA" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "SUBALLOTMENT" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "OBJ_CLASS" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "BFY" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "EFY" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "FUND_SYM" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "SUBHEAD" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "TYPE_CODE" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "BCN" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "AAA" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "SPINN" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "COST_CODE" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "RPT_OFFICE" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "DSSN" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key LIKE '$value' and ";
        }
        if ($key eq "DAY_PAID" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "SUSP_CODE" && $value ne '')
        {
              $sqlwhere = "$sqlwhere $key = '$value' and ";
        }
        if ($key eq "CheckAllBox" && $value eq 'ON')
        {
              $sqlselect = "SELECT  TO_CHAR(NET_AMOUNT,'B999999999.99'), ABS(TO_CHAR(NET_AMOUNT,'B999999999.99')), DOC_NUM, FIPC, REG_NUM, ACRN, GA, TA, BFY, EFY, FUND_SYM, SUBHEAD, OBJ_CLASS, BCN, SUBALLOTMENT, AAA, TYPE_CODE, VOUCHER, PAA, COST_CODE, SPINN, CLIN, FILLER, RPT_OFFICE, DSSN, RPT_MTH, REG_MTH, DAY_PAID, EXP_REIMB, CLASS, CD_CODE, SOURCE_CLASS, IBOP, IDA_CODE, SUSP_CODE, PAY_TYPE, SUB_TRAN, TO_CHAR(DISCOUNT_AMT,'B9999999.99'), DIST_CODE, YORN, ERROR_CD, YYYYMM ";
              $NotAll = 0;
      }
        if ($key eq "NET_AMOUNT1" && $value eq 'ON')
        {
              $sqlselect = "$sqlselect TO_CHAR(NET_AMOUNT,'B999999999.99'), ";
              push (@CHDs, "AMT");
              $NotAll = 1;
        }
        if ($key eq "ABS_AMT1" && $value eq 'ON')
       
bjbibleAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

maneshrCommented:
you have only given a part of the 2nd script.

therefore there i dont know if you have the foll code or not.

in any case you need to have the foll code in your 2nd .pl file so that the variables passed by the 1st .pl file are read.


use CGI;

my $query=new CGI;

my $NA=$query->param('NET_AMOUNT'); ## Read the POST'ed form var.

print $NA,"<br>\n";
0
bjbibleAuthor Commented:
There is code above for parts of the 1st form and parts of the 2nd form.  The 1st part is directly below my originial comments beginning with ....


**************************
Parts of a file called:  cerp01.pl


The 2nd part starts with...
****************************************
Parts of a file called:  CERP02.PL

If you need the files in total, I'll be happy to email them to you so you can see the complete picture.
Thanks
0
maneshrCommented:
please email them to me at maneshr@hotmail.com.

if possible, also give me a brief idea of what it is that you are trying to achieve using those scripts. that would help me answer your Q's faster & more accurately.

Rgds
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
bjbibleAuthor Commented:
I wish I could have used the code you wrote, but I was not able to get the database to cooperate.  I will award you 1/2 of the points since you were so helpful (even though I was able to get it to work on my own).
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
JavaScript

From novice to tech pro — start learning today.