Listing of program /html/rsp/rsptest2.rsp


/*-- RSP ---------------------------------------------------------------------*/
/*                                                                            */
/* Module:      rsptest2.rsp                                                  */
/*                                                                            */
/* Version:     1.1.2                                                         */
/*                                                                            */
/* Author:      W. David Ashley                                               */
/* Modified :   Henri Henault June 2003                                       */
/*                                                                            */
/* Description: Test RSP page. REXX calculator.                               */
/*                                                                            */
/* Copyright (C) International Business Machines Corporation and others.      */
/* All Rights Reserved.                                                       */
/*                                                                            */
/* This software is subject to the terms of the Common Public License. You    */
/* must accept the terms of this license to use this software. Refer to       */
/* the file CPLv1.0.htm included in this package for more information.        */
/*                                                                            */
/* The program is provided "as is" without any warranty express or implied,   */
/* including the warranty of non-infringement and the implied warranties of   */
/* merchantibility and fitness for a particular purpose. IBM will not be      */
/* liable for any damages suffered by you as a result of using the Program.   */
/* In no event will IBM be liable for any special, indirect or consequential  */
/* damages or lost profits even if IBM has been advised of the possibility of */
/* their occurrence. IBM will not be liable for any third party claims        */
/* against you.                                                               */
/*                                                                            */
/* Modifications:                                                             */
/*                                                                            */
/* Date       Author      Description                                         */
/* ---------- ----------- --------------------------------------------------- */
/* 2002/06/01 WD Ashley   v1.1.0 Initial Public Release                       */
/* 2002/06/30 WD Ashley   v1.1.1 Changed the license reference only.          */
/* 2003/06/11 H. Henault  v1.1.1 Add hhns math package                        */
/* 2010/10/27 S. Henault  v1.1.2 mod_rexx_64.so Fresh compile after moving to */
/*                               apache_64.. method=POST fails, use method=GET*/
/*                                                                            */
/*----------------------------------------------------------------------------*/
signal on syntax name syntax_err
call WWWGetArgs arg(1)
?>

















/*call setdll*/ /* this will load the HHNS' math Rexx package */
exp = ''
expresult = ''
numdigits = 9
do i = 1 to WWWARGS.0
   select
      when WWWARGS.i.!NAME = 'expression' then do
         exp = WWWARGS.i.!VALUE
         end
      when WWWARGS.i.!NAME = 'numdigits' then do
         numdigits = WWWARGS.i.!VALUE
         end
      otherwise nop
      end
   end

   numeric digits numdigits
   interpret 'expresult='exp
   numeric digits
   end





end
?>





do i = 2 to 50


   end
?>