Re: [WEB400] Different Approach

[Justin Houchin <jhouchin9@xxxxxxxxxxx>]

Is the program running correctly but you receive an HTTP500 error on the
browser?


----- Original Message -----
From: "Diane Nott" <dnott@lorainccc.edu>
To: <web400@midrange.com>
Sent: Wednesday, May 15, 2002 9:02 AM
Subject: [WEB400] Different Approach


> Hi. I am trying a different approach. Right now I am trying to get the
input
> variables and write them to the browser so I can see them. The input part
works fine
> but I can't see any output. What am I doing wrong. My ultimate going is to
transfer
> the input variables into a CL program. Can I do it with this program?
> Thanks!
> Diane
> Here is what I am doing:
>
> *=====================================================================
>       /copy diane/qrpglesrc,hspecs
>       /copy diane/qrpglesrc,hspecsbnd
> *=====================================================================
>       * Includes to be used in CGIs
>  *=====================================================================
>       /copy diane/qrpglesrc,prototypeb
>       /copy diane/qrpglesrc,usec
>       /copy diane/qrpglesrc,variables3
>
*=====================================================================
>       * Variables specific to this module
> *=====================================================================
>       * Name of this program
>      D PgmName         c                   'cgidiane4'
>       * Path to this program
>      D PgmPath         c                   'tcgi-bin'
>       *
>       * Sample client input variables
>      D year            s              4a
>      D term            s              2a
>       *
> *=====================================================================
>       * Read remote browser request via "zhbGetInput" procedure
> *=====================================================================
>       /copy diane/qrpglesrc,prolog3
> *=====================================================================
>       * Main line
> *=====================================================================
>       * Write qualified job name to debug file.  The *on
>       * parameter forces output even if debugging is off.
>       * Remove this parameter or change it to *off if you
>       * want the output only if debugging is on.
>      C                   callp      wrtjobdbg(*on)
>      C                   CallP     SetNoDebug(*on)
>       *------------------
>       * Ask the service program to load into core
>       * html member  CGIFORM
>       * from source file HTMLSRC in library DIANE
>      C                   callp     gethtml('HTMLSRC':
>      C                             'DIANE':'CGIFORM')
>       * Use "zhbGetVar" procedure
>       *  to parse the input string into program variables
>      C                   eval      year     = zhbgetvar('year')
>      C                   eval      term     = zhbgetvar('term')
>       * Start the output HTML:
>       *   clear all variables and set variable "/%pgm%/"
>       *                  callp     updHTMLvar('pgm':PgmName:'0')
>       *Write the TOP
>      C                   callp     wrtsection('top')
>       *Write the HTML Header
>      C                   callp     wrtsection('tablestart')
>       *Write the Table Header
>      C                   callp     wrtsection('tablerow')
>       **Update html skeleton buffer with values
>      C                   callp     updHTMLvar('year':year)
>      C                   callp     updHTMLvar('term':term)
>       *Write the Table Row
>      C                   callp     wrtsection('tablerow')
>       *Write Table End
>      C                   callp     wrtsection('tableend')
>       *Write HTML End
>      C                   callp     wrtsection('end')
> *=====================================================================
>       * Send response html and quit
> *=====================================================================
>       * End the HTML
>       * Do not delete the call to wrtsection with section name *fini.  It
is needed
>       * to ensure that all output html that has been buffered gets output.
>       * Quit without raising *inlr
>      C                   callp     wrtsection('*fini')
>      C                   eval      *inlr=*on
>      C                   return
>       *End of Program
>
> HTML I am using:
> /$top              **** START HTML
> Content-type: text/html
>
> <html>
> <head><title>Registration Counts Program "/%pgm%/"</title></head>
> <style type="text/css">
> .title { font-family:  Arial, sans-serif; font-weight: normal; font-size:
24px; }
> .subtitle { font-family:  Arial, sans-serif; font-weight: normal;
font-size: 18px;
> color: blue; }
> .warnred { color: red; font-weight: Bold; font-size: 18pt; font-family:
souvenir lt
> bt, verdana, serif; }
> .warnblue { color: blue; font-weight: Bold; font-size: 18pt; font-family:
souvenir
> lt bt, verdana, serif; }
> .mono { font-family: courier; font-size: 78%; }
> td,th,caption { font-family: Arial, sans-serif; font-size: 85%; }
> </style>
> </head>
>
> <body TEXT="#000000" LINK="#FF0000" VLINK="#BD3000" ALINK="#BD9CF7"
> BGCOLOR="#FFFFFF">
>
> <div class=title>Registration Counts Program "/%pgm%/"</div>
> <br><br>
> /$tablestart        **** START TABLE
> <table border=0 cellspacing=5>
> <th>Year</th>
> <th>Term</th>
>
> /$tablerow          **** TABLE ROW
> <tr><td class=mono align=right>
>         /%year%/
>         </td>
>     <td>/%term%/</td>
>         </td></tr>
>
> /$tableend          **** END TABLE (SOME RECORDS IN FILE)
> </table>
>
> /$form              **** INPUT FORM
> <form action="//%pgmpath%///%pgm%/" method=GET>
> <table border=0>
> <tr><td colspan=3 class=subtitle>
>         Add the Year and Term:
>         </td></tr>
> <tr><td>YEAR:</td>
>     <td class=mono colspan=2>
>         <input type=text name=year value="/%year%/"
>          size=4 maxlength=4>
>         </td></tr>
> <tr><td>TERM:</td>
>     <td class=mono colspan=2>
>         <input type=text name=term value="/%term%/"
>          size=2 maxlength=2>
> <tr><td colspan=3 align=center>
>         <input type=submit value="Send">
>         <input type="reset"  value="Start Over">
>         </td></tr>
> </table>
> </form>
>
> /$end               **** END HTML
> <br><br>
> </body></html>
>
> _______________________________________________
> This is the Web Enabling the AS400 / iSeries (WEB400) mailing list
> To post a message email: WEB400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/web400
> or email: WEB400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/web400.
>