RE: Mixing GET and POST Methods

Thanks for the help.  I've made the changes and updated the service program.
I also restarted the server, but I still get the same problem.  I think I
may have mistated my question earlier.  I'm using the GET method to direct
my program to the correct subroutine, and the POST method the transmit form
data.  To setup a new account, I use GET to direct my program to the
NEWACCT2 subroutine, and POST to transmit the form information to the
program.  Below is the main program, and the program seems to fail at the
point where it tries to extract Function from savedquerystring, whose value
is "func=".  The URL submitted to the server is
"http://.../weblibp/webcusinq.pgm?func=vrfyacct".

      *--------------------------------------------------------------------
      * START Main Progam
      *--------------------------------------------------------------------

      * initialize the program
     C                   Exsr      Init

      * turn debugging on or off - see JobDebugIndicator
     C                   callp     wrtjobdbg(JobDebugInd)

      * read in HTML source file
     C                   Exsr      LoadHTML

      * get user input
     C                   eval      nbrVars =
zhbgetinput(savedquerystring:qusec)

     C                   callp
updHTMLVar('COMPANY':company:InitHTMLVars)
     C                   callp
updHTMLVar('SITETITLE':sitetitle:ChgHTMLVars)
     C                   callp
updHTMLvar('BASEHREF':basehref:chgHTMLvars)
     C                   callp     wrtsection('header')

      * if no parameters, show login screen
     C                   If        nbrVars = 0
     C                   Exsr      ShowLogin
     C                   Eval      GetOut = '1'
     C                   EndIf

      * populate session datastructure
     C                   eval      Function = zhbgetvar('func')
Function
     C                   eval      SessionID = zhbgetvar('sessionid')
SessionID
     C                   eval      ErrorID = zhbgetvar('error')
Error Msg

     C                   If        ErrorID <> *Blanks
     C                   Exsr      ShowLogin
     C                   Eval      GetOut = '1'
     C                   EndIf

     C                   If        GetOut = '0'
     C                   Select
     C                   When      Function = 'newacct'
     C                   Exsr      NewAcct
     C                   When      Function = 'vrfyacct'
     C                   Exsr      NewAcct2
     C                   When      Function = 'auth'
     C*                  Exsr      Authenticate
     C                   When      Function = 'main'
     C*                  Exsr      RetrieveSession
     C*                  Exsr      ShowMain
     C                   Other
     C                   eval      ErrorID='errGen1'
     C                   exsr      ShowLogin
     C                   EndSl
     C                   EndIf

     C                   callp     updHTMLVar('DISCLAIMER':sitetitle:
     C                             ChgHTMLVars)
     C                   callp     wrtsection('footer')
     C                   callp     wrtsection('*fini')

     C     EndAll        Tag
     C                   Return
      *--------------------------------------------------------------------
      * END   Main Progam
      *--------------------------------------------------------------------


---------------------------------------------------------
Christopher A. Libby, Programmer/Analyst
Maine Public Service Company (www.mainepublicservice.com)
clibby@mainepublicservice.com (207) 768-5811 ext. 2210


+---
| This is the WEB400 Mailing List!
| To submit a new message, send your mail to WEB400@midrange.com.
| To subscribe to this list send email to WEB400-SUB@midrange.com.
| To unsubscribe from this list send email to WEB400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---