G CGIPLUSDEMOV1.0 4-NOV-2021 10:08 VSI C V7.4-002 P $READONLY$UTILITYi, $CODE$ $LITERAL$0$LINK$$DATA$( UTILITY DEBUG(DEBUG  ISCGIPLUS0 ISCGIPLUS   USAGECOUNTER0 USAGECOUNTER  USECGIPLUSVARSTRUCT8 USECGIPLUSVARSTRUCT   CGIPLUSEOFPTR0 CGIPLUSEOFPTR  FIRSTUSEDDATETIME8 FIRSTUSEDDATETIME NOWDATETIME0 NOWDATETIME UNIXTIME0 UNIXTIME  UNIXTMPTR0 UNIXTMPTR(JpMAIN0J, CGIPLUSDEMO0JCGISTANDARDDEMO0Jx CGIPLUSREADER(J__MAIN @6= ,= CGIPLUSDEMO =4 , #~P^X^`cG#GLH=D]@}<8 "ݶ0#(=#  >LH=D]@}<84G0B8b@Zkb# @G4GBb@ZkcGP]X]`p#k#~^^GG"4GBb@Zk4G0"1G4GpBxb@Zk"4GBb@Zk"(4G@BHb@Zk(4G`Bhb@Zk " GBR"GGPBXb/@Zk "H!P.0.0Hs0HRPJQ0JTF3FP>0>"4GBb@Zk"0"(4G@BHb/@Zk(4G`Bhb@Zk " GBR"GGPBXb@Zk/ "P!P.0.0Hs0HRPJQ0JTF3FP>0>0b#\@Ðb#@04G4G0B8b@Zk4GG]] #k#~^^ GG`@"1G "TG0B8b@Zk@H"!0 @H0H"qG "1"GhbpG0B8b@Zk "4GPBXb/@Zk/ @"1G "(1"]tG0B8b@Zk @G "@1"TG0B8b@ZkG]] 0#k#~^^~ GG` @"1G "`1"TG0B8b@Zk0 X"4G B(b/@Zk@H"!0 @H0H"q B(R@ B`R"G h"GG "1"GhbpGG0B8b@Zk p"4G B(b@ZkG#`G "p1"GtGBb@Zk/ @"!c"G "1"GtG0B8b/@Zk@G "x1"GtG0B8b/@Zk@G "1"TG0B8b@Zk "4G B(b@ZkG#,#H @"1G "1"GtG0B8b@Zk @G "1"TG0B8b@Zk "4G B(b@ZkG#,#H @"1G "1"GtG0B8b@Zk @G "1"TG0B8b@Zk0 "(! G@BHb@Zk4G "( (/ G`Bhb@Zk (xb#@@P"!G "1"GtG0B8b@ZkG]]} 0#k#~^^ ~(0GG G"81"TGBb@ZkP"4GBb@ZkG"1"TGXB`b/@ZkG `G8B@b@Zk4G(B0b/@Zk"?"GtGHBPb/@Zk G8B@b@Zk4G(B0b@Zk"!0 @0"qG"1"GbGBb@Zk"?"GtGHBPb@Zk G8B@b@Zk4G(B0b@ZkDXD/ .JD.DJXAF@ .VJ>""`1"GtGxBb/@Zk "! }"G"x1"GtGBb@ZkG"1"]"tGBb/@ZkG4GhBpb@ZkG]] }(0@#k4G DECC$MAIN4 b# DECC$MAIN4@ DECC$MAIN4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$GETENV4b#p DECC$GETENV4@ DECC$GETENVDG$CGILIBENVIRONMENTSETDEBUGDb#pCGILIBENVIRONMENTSETDEBUGD @$CGILIBENVIRONMENTSETDEBUG40G< DECC$GETENV44b#p DECC$GETENV48@< DECC$GETENV4LGXDECC$__UTC_TIME4Pb#pDECC$__UTC_TIME4T@XDECC$__UTC_TIME<`GlDECC$__UTCTZ_LOCALTIME<db#pDECC$__UTCTZ_LOCALTIME<h@lDECC$__UTCTZ_LOCALTIME<GDECC$__UTC_STRFTIME<b#pDECC$__UTC_STRFTIME<@DECC$__UTC_STRFTIME4G DECC$GETENV4b#p DECC$GETENV 4@ DECC$GETENV4G$DECC$__UTC_TIME4b#pDECC$__UTC_TIME4 @$DECC$__UTC_TIME<,G8DECC$__UTCTZ_LOCALTIME<0b#pDECC$__UTCTZ_LOCALTIME<4@8DECC$__UTCTZ_LOCALTIME<`GlDECC$__UTC_STRFTIME<db#pDECC$__UTC_STRFTIME<h@lDECC$__UTC_STRFTIME4G DECC$EXIT4b#p DECC$EXIT4@ DECC$EXIT4@GLDECC$GXFPRINTF4Db#DECC$GXFPRINTF4H@LDECC$GXFPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$GETENV4b# DECC$GETENV4@ DECC$GETENV4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4 b#DECC$GXFPRINTF4@DECC$GXFPRINTF4pG|DECC$GXFPRINTF4tb#DECC$GXFPRINTF4x@|DECC$GXFPRINTF4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVAR4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4(G4 CGILIBVAR4,b# CGILIBVAR40@4 CGILIBVAR4PG\ DECC$STRNCMP4Tb# DECC$STRNCMP4X@\ DECC$STRNCMP4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVAR40G<DECC$GXFPRINTF44b#DECC$GXFPRINTF48@<DECC$GXFPRINTF4XGdDECC$GXFPRINTF4\b#DECC$GXFPRINTF4`@dDECC$GXFPRINTF4pG| CGILIBVAR4tb# CGILIBVAR4x@| CGILIBVAR4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTFDGCGILIBCGIPLUSSETVARSTRUCTDb#CGILIBCGIPLUSSETVARSTRUCTD@CGILIBCGIPLUSSETVARSTRUCTD(G4CGILIBCGIPLUSSETVARRECORDD,b#CGILIBCGIPLUSSETVARRECORD 4 D0@4CGILIBCGIPLUSSETVARRECORD4lGxDECC$GXFPRINTF4pb#DECC$GXFPRINTF4t@xDECC$GXFPRINTF4GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$GETENV4b#x DECC$GETENV4@ DECC$GETENV4 G$ DECC$FOPEN4 b#x DECC$FOPEN4  @$ DECC$FOPEND0G<CMA$TIS_VMSERRNO_GET_ADDRD4b#xCMA$TIS_VMSERRNO_GET_ADDRD8@<CMA$TIS_VMSERRNO_GET_ADDR4DGT DECC$EXIT4Hb#x DECC$EXIT4P@T DECC$EXIT4 dGt DECC$FGETS4 hb#x DECC$FGETS4 p@t DECC$FGETSD|GCMA$TIS_VMSERRNO_GET_ADDRDb#xCMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4G DECC$EXIT4b#x DECC$EXIT4@ DECC$EXIT4GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4 G DECC$FGETS4 b#x DECC$FGETS4  @ DECC$FGETSD G CMA$TIS_VMSERRNO_GET_ADDRD b#xCMA$TIS_VMSERRNO_GET_ADDRD @ CMA$TIS_VMSERRNO_GET_ADDR4 G, DECC$EXIT4$ b#x DECC$EXIT4( @, DECC$EXIT4 G DECC$STRNCMP4 b#x DECC$STRNCMP4 @ DECC$STRNCMP4 G DECC$GXFPRINTF4 b#xDECC$GXFPRINTF4 @ DECC$GXFPRINTF4 G DECC$GXFPRINTF4 b#xDECC$GXFPRINTF4 @ DECC$GXFPRINTF4  G DECC$FCLOSE4 b#x DECC$FCLOSE4  @ DECC$FCLOSE =0";=0 ;0DECC$GXFPRINTF7DECC$GA_STDOUT7 USAGECOUNTER DECC$GETENV7DEBUG7FIRSTUSEDDATETIME7 NOWDATETIME=0";=@   DECC$EXIT(CMA$TIS_VMSERRNO_GET_ADDR DECC$FGETS DECC$FOPEN DECC$FCLOSE DECC$STRNCMP=0",;=0  CGILIBVAR7USECGIPLUSVARSTRUCT@(CGILIBCGIPLUSSETVARSTRUCT7 CGIPLUSEOFPTR`(CGILIBCGIPLUSSETVARRECORD=0";=  7 UNIXTMPTR7UNIXTIME7 ISCGIPLUS DECC$__UTC_TIME DECC$__UTC_STRFTIME DECC$__UTCTZ_LOCALTIME(CGILIBENVIRONMENTSETDEBUG=0P";=p  7DECC$$SHELL_HANDLER= DECC$MAIN L= [error][error]=STRUCT =RECORD(=*0=|%s| 8= @=%s H=rP=|%s| X= CGIPLUSDEMO$DBUGp= CGIPLUSDEMO$STRUCT=(%a, %d %b %Y %TCGIPLUSEOF=0#%a, %d %b %Y %TCgiStandardDemo() =0!WWW_REMOTE_ADDRRemote-Addr: %s =(Remote-Addr: NOT FOUND! =CgiPlusDemo() (= WWW_REMOTE_HOST=@= Remote-Host: %s X=0!WWW_REMOTE_ADDRRemote-Addr: %s =(Remote-Addr: NOT FOUND! = WWW_BOGUS_VARIABLE= Bogus-Variable: %s =(Bogus-Variable: NOT FOUND! = CgiPlusReader() = CGIPLUSIN= WWW_REMOTE_HOST=0= Remote-Host: %s H=Content-Type: text/plain Expires: Thu, 01 Jan 1970 00:00:01 GMT Number of times used: %d (standard CGI) First used: %s Now: %s =Content-Type: text/plain Expires: Thu, 01 Jan 1970 00:00:01 GMT Number of times used: %d (CGIplus) First used: %s Now: %s Using: CgiLibVar() in %s mode p=xmContent-Type: text/plain Number of times used: %d (CGIplus) First used: %s Now: %s Using: CgiPlusReader() =  A=1)( CGIPLUSDEMOVSI C V7.4-002 ?= p4=TRANSFER$BREAK$GO = 4p4= main4=KCB    = @ = 44=CgiStandardDemo4=(     = ( = ,44= CgiPlusDemo,4=[SR  (  , # = h = 4x4= CgiPlusReader4=E=< W m , w =  s= 44= __main4=  =  =  DECC$GA_STDOUT DECC$FCLOSEDECC$GXFPRINTF DECC$FOPEN DECC$FGETS DECC$EXIT DECC$GETENV DECC$STRNCMP(CMA$TIS_VMSERRNO_GET_ADDRDECC$__UTC_TIME DECC$__UTC_STRFTIME DECC$__UTCTZ_LOCALTIME CGILIBVAR(CGILIBCGIPLUSSETVARRECORD(CGILIBCGIPLUSSETVARSTRUCT(CGILIBENVIRONMENTSETDEBUG DECC$MAIN DECC$$SHELL_HANDLER C$GA