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 '' 38 39 'OUTPUT' "' 40 'OUTPUT' "" 41 42 If referer <> '' Then , 1 43 'OUTPUT' "" 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