Reporting CGI Diagnostics in REXX



/* ************************************** */
/* Code fragment for reporting CGI Script */ 
/* diagnostic                             */
/* ************************************** */

PARSE SOURCE ArchName . Fn .
...
Debug=1
SAY "Content-type: text/html";  SAY
...      
IF Debug>0 THEN SAY,
   Fn': PATH_INFO="'GETENV('PATH_INFO')'".<br>'