Learn from sources
       Member TRIM in CGIDEV2 / QRPGLESRC

       *=====================================================================
       *  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
0.018 sec.s