Giovanni's logo
Debugging functions
this means Version 2
power search
blue line

If you decide to use the CGI file debug trace facilities, you may find usefull some Mel's service program functions that allow your CGI's to write their own specific pieces of information to this file.

The following procedures are available for use in your CGI programs (use opcode callp to invoke them:

  1. isdebug
  2. returns a 1-char value to indicate whether debugging is on ('1') or off ('0').
  3. wrtdebug
  4. writes into the debugging physical file, CGIDEBUG, the text passed to it as a parameter.
    WRTDEBUG is used by several of the service program's subprocedures. You can use it, as desired. No output is generated unless debugging output has been turned on by the CGIDEBUG *ON command or the optional parameter, force, has been set to *ON.
  5. wrtjobdbg
  6. writes the qualified job name, current date, and current time into the debugging file.
  7. wrtpsds
  8. receives the program status data area and unconditionally writes it in a formatted manner into the debugging file.
  9. SetNoDebug
  10. turns off all conditionally or unconditionally debugging, thus improving the performance of a CGI.
 /copy mysrclib/qrpglesrc,hspecs
 /copy mysrclib/qrpglesrc,hspecsbnd
 * Variables common to all CGIs
 /copy mysrclib/qrpglesrc,prototypeb
 /copy mysrclib/qrpglesrc,usec
 /copy mysrclib/qrpglesrc,variables3
 *          ... etc. ...
 * Example of using
 *   wrtdebug(text:force)
C                   callp     wrtdebug(PgmName +
C                             ' execution time (seconds) ' +
C                             %trim(%editw(sec:'     0 .   ')):*on)
 * Example of writing qualified job name to debug file.
 *   Note that the force parameter is set to *on
C                   callp     wrtjobdbg(*on)
&nspp;* Example of sending psds data to cgidebug physical file
C                   callp     wrtpsds(psds)

blue line

In your CGI programs you may use a program status data structure and a program status subroutine to trap program status error and to
  • notify the client user that an error has occurred
  • use function wrtpsds to format and write the contents of the program status data structure to the CGIDEBUG file.
See how this is implemented in program CGIDEV2/TEMPLATE.
F                                     infsr(*pssr)
 * Prototype definitions and standard system API error structure
 /copy cgidev2/qrpglesrc,prototypeb
 /copy cgidev2/qrpglesrc,usec
 * For program status data structure and program status subroutine
D psds           sds
D   psdsdata                   429
D pssrswitch      s              1    inz(*off)
D wrotetop        s              1    inz(*off)
 * Program status subroutine
C     *pssr         begsr
 * If have already been in pssr, get out to avoid looping
C                   if        pssrswitch=*on
C                   eval      *inlr = *on
C                   return
C                   endif
 * Set on switch to indicate we've been here
C                   eval      pssrswitch=*on
 * Write HTML sections (top if not already done, pssr, and *fini)
C                   if        wrotetop=*off
C                   callp     wrtsection('top')
C                   endif
C                   callp     wrtsection('pssr endhtml *fini')
 * Send psds data to cgidebug physical file
C                   callp     wrtpsds(psds)
C                   eval      *inlr = *on
C                   return
C                   endsr