*=====================================================================
* RPG ILE MODULE CGIDEV2/TRIM
*
* After compiling this RPG MODULE,
* create the related program with the following command:
*
* CRTPGM CGIDEV2/TRIM MODULE(CGIDEV2/TRIM)
* ACTGRP(CGI) AUT(*USE)
*
* To execute this program,
* enter the following in your WEB browser command line:
* http://.../cgidev2p/trim.pgm
*
*=====================================================================
/copy qrpglesrc,hspecs
/copy qrpglesrc,hspecsbnd
*=====================================================================
* Includes to be used in CGIs
*=====================================================================
/copy qrpglesrc,prototypeb
/copy qrpglesrc,usec
/copy qrpglesrc,variables3
*=====================================================================
* Variables specific to this module
*=====================================================================
D inpVarNam s 10a
D request s 10a
D text s 22a inz(' a cat in your hat ')
*=====================================================================
/copy CGIDEV2/qrpglesrc,prolog3
C eval inpVarNam = 'request'
C eval request = zhbgetvar(inpVarNam)
C eval request = zhbgetvar('request')
C callp gethtml('DEMOHTML':'CGIDEV2':'TRIM':
C '«as400»')
*------------------
C if request = ' '
C eval request = '%trim'
C endif
*
C if request = '%trim'
C callp updhtmlvar('result1':text:'0':'%trim')
C callp updhtmlvar('result2':text:'1':'%trim')
C callp updhtmlvar('request':request)
C callp updhtmlvar('nxtrequest':'%triml')
C endif
*
C if request = '%triml'
C callp updhtmlvar('result1':text:'0':'%triml')
C callp updhtmlvar('result2':text:'1':'%triml')
C callp updhtmlvar('request':request)
C callp updhtmlvar('nxtrequest':'%trimr')
C endif
*
C if request = '%trimr'
C callp updhtmlvar('result1':text:'0':'%trimr')
C callp updhtmlvar('result2':text:'1':'%trimr')
C callp updhtmlvar('request':request)
C callp updhtmlvar('nxtrequest':'%trim0')
C endif
*
C if request = '%trim0'
C callp updhtmlvar('result1':text:'0':'%trim0')
C callp updhtmlvar('result2':text:'1':'%trim0')
C callp updhtmlvar('request':request)
C callp updhtmlvar('nxtrequest':'%trim')
C endif
*
C callp wrtsection('all')
C callp wrtsection('*fini')
C return
|