1===> Compilation Summary                         FDRHTTP  SREXX    O1
 IBM Compiler REXX/370 3.0  LVL PN83402    Time: 00:01:41                  Date: 2004-12-19                    Page:    1
                                                                                                                         
  
 Compilation successful
 
 Compiler Options
 
      NOALTERNATE
        CEXEC     (FDRHTTP  CREXX    O1)
      NOCOMPILE   (E)
      NOCONDENSE
      NODLINK
      NODUMP
        FLAG      (I)
        IEXEC     (FDRHTTP  IREXX    O1)
        LIBLEVEL  (*)
        LINECOUNT (55)
        MARGINS   (1 *)
      NOOBJECT
        OPTIMIZE
        PRINT     (FDRHTTP  LISTING  O1)
      NOSAA
        SLINE
        SOURCE
      NOTERMINAL
      NOTESTHALT
      NOTRACE
      NOXREF
      Minimum Library Level required: 2 
        
1===> Source Listing                              FDRHTTP  SREXX    O1
 IBM Compiler REXX/370 3.0  LVL PN83402    Time: 00:01:41                  Date: 2004-12-19                    Page:    2
  If  Do Sel  Line C ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8----+----9----+----0
  
                 1   /***********************************************************************                            
                 2    *                                                                     *                            
                 3    *  Marist standard method for setting informational variable for CGIs *                            
                 4    *                                                                     *                            
                 5    *  Version 3.1                                                        *                            
                 6    *                                                                     *                            
                 7    **********************************************************************/                            
                 8   /*%Copyright Copyright (c) 2000 Marist College    */                                                
                 9                                                                                                       
                10   Parse arg cgi vers .                                                                                
                11                                                                                                       
                12   'CALLPIPE (name search00) *.input.0: | ewget vars form. formptr.'                                   
                13                                                                                                       
                14       /* Thread number is eweb.thread */                                                              
                15   'Callpipe (name fdrhttp02) *.input.2: | varload'                                                    
                16                                                                                                       
                17   aa = 'THREAD'                                                                                       
                18   thread = eweb.aa                                                                                    
                19        Address "COMMAND" 'GLOBALV SELECT HTTPD GET' ,                                                 
                20            'VRM SERVER_SOFTWARE_LIST SERVER_URL SERVER_NAME' ,                                        
                21            'GMTOFFSET SERVER_PORT PORT'                                                               
                22        Address "COMMAND" 'GLOBALV SELECT THREAD'thread 'GET' ,                                        
                23            'PATH QUERY_STRING HTTP_REFERER REMOTE_ADDR VERB' ,                                        
                24            'REQUEST_METHOD REMOTE_USER PATH_TRANSLATED'                                               
                25       referer = http_referer                                                                          
                26       server_software = server_software_list                                                          
                27       tz = gmtoffset                                                                                  
                28                                                                                                       
                29   server_url = 'http://www.fdrlibrary.marist.edu/'                                                    
                30                                                                                                       
                31   "CALLPIPE (name fdrhttp02) < FDRHTTP HEADER |join * | *:"                                           
                32                                                                                                       
                33   fdrcgi = cgi vers                                                                                   
                34   Address Command 'GLOBALV SELECT FDR PUT FDRCGI'                                                     
                35                                                                                                       
                36   'OUTPUT' ,                                                                                          
                37     '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML  4.01 Transitional//EN">'                                
                38                                                                                                       
                39   'OUTPUT' "<!--" 'FDR Library' server_url '-->'                                                      
                40   'OUTPUT' "<!--" verb server_url || substr(path,2)'?'query_string " -->"                             
                41                                                                                                       
                42   If referer <> '' Then ,                                                                             
   1            43      'OUTPUT' "<!-- Referer:" referer " -->"                                                          
                44                                                                                                       
                45   'CALLPIPE REXXVARS TOLOAD | VARLOAD 1'                                                              
1===> Compilation Statistics                      FDRHTTP  SREXX    O1
 IBM Compiler REXX/370 3.0  LVL PN83402    Time: 00:01:41                  Date: 2004-12-19                    Page:    3
                                                                                                                         
  
 REXX Lines  45
  
 Size of compiled program in bytes  8064
  
 Total messages   Informational   Warning   Error   Severe   Terminating
              0               0         0       0        0             0