G RTE_EXAMPLEV1.0 4-NOV-2021 10:08 VSI C V7.4-002 x $READONLY$i$CODE$ $LITERAL$`$LINK$$BSS$ DEBUG(DEBUG(JMAIN0JPROCESSREQUEST8JHPROCESSSOURCEFILE(J __MAIN @6= =#G8^~ _#0"@^4GHcGG#]("0[8b "G@Zkpb#@BG4Gb/@ZkcG8]@]HP#/k///#;4G~^@[^GGx"Hb@Zk"0BC4G8b/@Zk BGGGtG(b/@ZkPBGXb@Zk//pB4Gxbp"@Zkb#@`BGhb@Zk`B"4Ghb@ZkBGGbG"X`"@ZkB4G4Gb@Zk/#X;TG^~0`[^ ~(GGhb@ "@Zk "0"4GBb("0@@ZkBG""TGb@ZkB"4Gb@Zk00GtG8b]GG] }("`"0#/k///B4GbP"@Zk ,B"4Gb H/@Zk00BTGG8bG"`"@Zk/G]] }(0#k/0B4Gb"@ZkC4G.BbJ"/@Zk00B4GG8bG"p`"@Zk/pBGTG""xbXb@Zk0 "tG`BhbA "/@ZkB4G@"b@Zk/`BGH""tGhb@ZkB4Gb@"/@Zk0"`BTGhbH!"@ZkG8b#]] }(0#//;#;TG^~ ([1^ ~(08GGG 0!"0b@ZkB8""@B"tGb@Zk "hBGGpba@Zk(B"GG]`0b@Zk$/B?"G"tGb /@Zk//(B0`@""}"GG0b@ZkB?""GtGb/@ZkXBG4G`b@ZkG]] }(08@#/k4!HGd DECC$MAIN4"Lb#  DECC$MAIN4!`@d DECC$MAIN4lG DECC$EXIT4 xb#  DECC$EXIT4@ DECC$EXIT4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENVDGCGILIBENVIRONMENTSETDEBUGDb#CGILIBENVIRONMENTSETDEBUGD@CGILIBENVIRONMENTSETDEBUG<G$CGILIBENVIRONMENTINIT<b#CGILIBENVIRONMENTINIT< @$CGILIBENVIRONMENTINITD$G4CGILIBENVIRONMENTISCGIPLUSD,b#CGILIBENVIRONMENTISCGIPLUSD0@4CGILIBENVIRONMENTISCGIPLUS4@GT CGILIBVAR4Hb# CGILIBVAR4P@T CGILIBVAR<\GlCGILIBCGIPLUSEOF<db#CGILIBCGIPLUSEOF<h@lCGILIBCGIPLUSEOFD pGCGILIBRESPONSESETERRORSTATUSD|b#CGILIBRESPONSESETERRORSTATUSD @CGILIBRESPONSESETERRORSTATUS<GCGILIBRESPONSEERROR<b#CGILIBRESPONSEERROR<@CGILIBRESPONSEERROR4G DECC$EXIT4 b# DECC$EXIT4@ DECC$EXIT4G DECC$GXFPRINTF4b#DECC$GXFPRINTF4@ DECC$GXFPRINTF4G4 CGILIBVAR4b# CGILIBVAR40@4 CGILIBVAR4 4GL DECC$STRCMP4 Db# DECC$STRCMP4 H@L DECC$STRCMPD LGdCGILIBRESPONSESETERRORSTATUS HD\b#CGILIBRESPONSESETERRORSTATUSD `@dCGILIBRESPONSESETERRORSTATUS<hGCGILIBRESPONSEERROR<tb#CGILIBRESPONSEERROR<CGILIBRESPONSEERROR4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVARD GCGILIBRESPONSESETERRORSTATUSDb#CGILIBRESPONSESETERRORSTATUSD @CGILIBRESPONSESETERRORSTATUS<G CGILIBRESPONSEERROR<b#CGILIBRESPONSEERROR<@ CGILIBRESPONSEERROR44GH CGILIBVAR4<b# CGILIBVAR4D@H CGILIBVARD XGtCGILIBRESPONSESETERRORSTATUSD\b#CGILIBRESPONSESETERRORSTATUSD p@tCGILIBRESPONSESETERRORSTATUS<xGCGILIBRESPONSEERROR<b#CGILIBRESPONSEERROR<@CGILIBRESPONSEERROR<GCGILIBRESPONSEHEADER<b#CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVAR4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G4 CGILIBVAR4$b# CGILIBVAR40@4 CGILIBVAR4<GTDECC$GXFPRINTF4Hb#DECC$GXFPRINTF4P@TDECC$GXFPRINTF4GDECC$GXFPRINTF4b#HDECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$FOPEN4b#H DECC$FOPEN4@ DECC$FOPEND GCMA$TIS_VMSERRNO_GET_ADDRD  b#HCMA$TIS_VMSERRNO_GET_ADDRD @CMA$TIS_VMSERRNO_GET_ADDR4G8DECC$GXFPRINTF40b#HDECC$GXFPRINTF44@8DECC$GXFPRINTF4@Gd DECC$FGETS4Tb#H DECC$FGETS4`@d DECC$FGETS4pGDECC$GXFPRINTF4b#HDECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$FGETS4b#H DECC$FGETS4@ DECC$FGETS4G DECC$FCLOSE4b#H DECC$FCLOSE4@ DECC$FCLOSE =8)Error: could not open "%s", %%X%08.08X 0= ProcessSourceFile() H=`S ***** THIRD, AN "INTERPRETED" FILE (WWW_SCRIPT_NAME/WWW_SCRIPT_FILENAME) ***** =CGIplus-enabled Run-time Environment Example -------------------------------------------- ***** FIRST, EVIDENCE OF PERSISTANCE ***** Usage Count: %d ***** SECOND, THE CGI ENVIRONMENT AVAILABLE ***** p=8*Internal error: no CGI "SCRIPT_FILENAME"= WWW_SCRIPT_FILENAME=0&Internal error: no CGI "SCRIPT_NAME"=(Only supports GET method!=H<WASD_ROOT:[src.cgiplus]RTE_EXAMPLE.C;1WWW_REQUEST_METHOD@= ProcessRequest() X=(Not CGIplus environment!x=RTE_EXAMPLE$DBUG  DECC$FOPEN=[%04.04d] %s 7DEBUG0 DECC$FGETS;=0";=@<< 7DECC$GA_STDOUTDECC$GXFPRINTF=r= shr=get DECC$FCLOSE( CMA$TIS_VMSERRNO_GET_ADDR= text/plain DECC$STRCMP=GET( CGILIBRESPONSESETERRORSTATUS CGILIBVAR=0";=04 ;@ CGILIBRESPONSEERROR=*X=%s `= WWW_SCRIPT_NAME CGILIBRESPONSEHEADER=0";= $ CGILIBENVIRONMENTINIT(CGILIBENVIRONMENTSETDEBUG DECC$GETENV(CGILIBENVIRONMENTISCGIPLUS CGILIBCGIPLUSEOF= DECC$EXIT=08";=P0 7DECC$$SHELL_HANDLER=! DECC$MAIN A=1)( RTE_EXAMPLEVSI C V7.4-002 ?= 4=TRANSFER$BREAK$GO = 44= main4=JBA y y y     =  ^= 44=ProcessRequest4=          ( ( ( (  ! f            =  = 4H4=ProcessSourceFile4=e]\          $ ( = t s= 4 4= __main4= y =  =  8(CMA$TIS_VMSERRNO_GET_ADDRDECC$GA_STDOUT DECC$FCLOSEDECC$GXFPRINTF DECC$FOPEN DECC$FGETS DECC$EXIT DECC$GETENV CGILIBVAR CGILIBCGIPLUSEOF CGILIBENVIRONMENTINIT(CGILIBENVIRONMENTISCGIPLUS(CGILIBENVIRONMENTSETDEBUG CGILIBRESPONSEERROR CGILIBRESPONSEHEADER(CGILIBRESPONSESETERRORSTATUS DECC$STRCMP DECC$MAIN DECC$$SHELL_HANDLER  $TIS