G SET_DCL_ENVV1.0 4-NOV-2021 10:10 VSI C V7.4-002  $READONLY$p!$BSS$$DATA$i3$CODE$c $LITERAL$$LINK$(JMAIN(J`__MAIN @6= ==== =P%d(=0=WWW_8=@=%dH=%dP=X=POST`=0h==p=GETx===0=0=%d===%d===,=,=%d=%d=`TToo many arguments, this program must be run from a DCL script HTTP_ACCEPT8= %sHTTP_ACCEPT_%dP=0'Error defining %s symbol. status: %d x= %sHTTP_ACCEPT_%d=0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d = HTTP_ACCEPT_LANGUAGE=(%sHTTP_ACCEPT_LANGUAGE_%d=0'Error defining %s symbol. status: %d @=(%sHTTP_ACCEPT_LANGUAGE_%d`=0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d (=0'Error defining %s symbol. status: %d P=REQUEST_METHOD`= CONTENT_TYPEp=0"application/x-www-form-urlencoded=CONTENT_LENGTH= QUERY_STRING=0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d = QUERY_STRING= %sKEY_%d(=0'Error defining %s symbol. status: %d P= %sKEY_%d`=0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d = %sKEY_%d=0'Error defining %s symbol. status: %d = %sKEY_%d=0'Error defining %s symbol. status: %d  = %sKEY_%d_%d0=0'Error defining %s symbol. status: %d X= %sKEY_%d_%dh=0'Error defining %s symbol. status: %d =%sKEY_%d_COUNT=0'Error defining %s symbol. status: %d =0'Error defining %s symbol. status: %d =8)Error redefining %s symbol. status: %d  =XOError extending %s symbol. status: %d Error defining %s symbol. status: %d p=0'Error defining %s symbol. status: %d =/'Error defining %s symbol. status: %d =#G8^~ _#0"@^4GHcGG#]("0[8b "G@Zk(=0@b#@BG4Gb@ZkcG8]@]HP#k/// #$4G&X^~F("`^h~X>#px޴>^~޵G GPE#^G`"H GGG }`@ $X @^j >1?JT FG4>! 4G >~>$޲0//`BG %"("tGhb@ZkB "="H]"HtGb@ZkH=B4Gb0 @@ZkH=BGX=" TGbCX.TJX>@Zk/( 0@A@A)!B0="GTGb/@Zk=`@/ D/0E"BBtGGGb b "@Zkd**!0B4G "8b(k!?Dd*/@ZkpB4G "xb @Zk]`@G`D8E"BGtGGGbb @Zkd0B4G8bDd@Zk0B4G8b(" @Zk ,BGGGbTG H G@Zk`// .!Q J >M"/ @d.StJgJSuBsaF/ `//.@B4G"HbVJJ/@Zk B`B0@8%"GhbGX"J"@Zk0BX"4G8b@Zk0B vH4G8b0JF G@Zk=0vH3vIB!?H0DC=2_JSF]B"tGb="@]"@Zk@BP%"X]"GGHb@ZkBGGTGbG@Zk-b IT / cD"/ $.Q2J'JQ3B1!F/ //.@B4G"HbTJJ/@Zk B`B0@x%"GhbGX"J"@Zk0BX"4G8b@Zk}0B vHG8b4G#H`D} @Zk}.vH!vIA#HnDC}$HDB"tGb="@]"@Zkb@B%"GGX]"Hb@ZkB0B4G!8b*"ߪ!.FP=G@ZkPBX"P=G BtGXb@ZkBBG4G4G PR"@Zk,,0BX"8bA H,<@Zk`B vH@%"GhbtG0JFG@Zk0BG4G8b @ZkB vH"="btG@]"'HD@Zk@B%"X]"GGHb@Zk0B4G"8bG¥ b@Zk ,B GGGbTG H/ G@Zk/a/// .!Q J >C"/ @l.StJgJSuBsaF/ `//.@B4G"HbVJJ/@Zk!B`B0@%"GhbGX"J"@Zk0BX"4G8b@Zk0B vH4G8b0JF G@Zk=0vH3vIB!?H0DC=2_JSF]B"tGb="@]"@Zk@B%"X]"GGHb@ZkBGGTGb G@Zk-b IT / cL"/ ,.Q2J'JQ3B1!F/ //.@B4G"HbTJJ/@Zk!B`B0@@%"GhbGX"J"@Zk0BX"4G8b@Zk}0B vHG8b4G#H`D} @Zk}/vH!vIA#HoD C},I EB"tGb="@]"@Zkb@B`%"GGX]"Hb@Zk0BP4G8bB@ZkPBP=X"GBtGXbߪ!o @ZkBBGTG4G0R"@Zk-0BX"8bNI=@Zk`B vHH%"GGhbtG/IE@Zk0BG4G8b /@ZkݡB vH"b="@]"tG.IEݱ@Zk@B%"GGX]"Hb@Zk0BP4G G8b/@ZkPBP=X"GBtGXb !@ZkBB"G4G4G/@Zk g,BX"bClH g</@Zk0B//P4G8b@ZkPBP=X"GBtGXb!@ZkBBGTG4GR"@Zk-BX"bLI=/@ZkB//GGGTGb@Zk/-NI=0BG4G8b@Zk@!/-LI=///P 0BP4G8b!@ZkPBP=GX" BtGXb l /@ZkBGB"4G4G@Zk ,0BX"8b@H <@Zk}G0B vHD4G8b#H GG`D}@ZkPBGGX!GGtGXb/@ZkC0BX"4GX-8bOIX= ݱ@ZkB vH"="btG@]"b/IE/@Zk@B%"GGX]"Hb@Zk0BP4G8b@ZkPBP=GX"BtGXbn /@ZkBGpB"G4G@Zk-BX"bLI=@Zk0BX""4G8b/@Zk} vHBX= tG="@]"b#H`D}XݡEbXݱ0J" =@Zk@B%"GX]"GHb =@Zk0BP4G8bb@ZkPBP=X"G BtGXb @ZkBB"GG4G/@Zk -BX"bOI =/@Zk0B"X"4G8b@Zk vHBX= ="tGb@]"'HDXEX0J ="@Zk@B%"X]"GGHb/@Zk0BP4G8bb@ZkPBP=GX" BtGXb !/@ZkBG`B"tG4G@Zk ,BX"bGH <@Zk0BX"!4G8b/@Zk vHBX= tG="@]"b'HDXݡEXݱ0J ="@Zk@B(%"X]"GGHb@Zk0BP"4G8bB/@Zk0B@GP4G8b/@ZkPBP=X"GBtGXb!@ZkBGB4G4G/@Zk,BX"b@H<`e @ZkCX%"0b#GF@0B`"4G8b/@ZkGp%"0b#:@0B"4G8bC@Zk GB4GbDGG@ZkBGGbj!/@ZkG!PBG4GXbGG@Zk? @B4G a@4GbD/Q@ZkG/B AG4Gb@Zk*.r HDBGj"TGbQ*J2F*> .TJ 0@>/@ZkG.1APBG A4GXb*,*HC$D @Zk@ D0@/A. J $@G8 D@A.TJ>@Gpb#s@GGb#@BGh%"TG b@Zk0@k!!0`@_ Gb# @E/@ӌ/G Gb#h@ӆ///Gp%"0b# @0B"4G8bGC@Zk@-BGGGbTG@I@/@Zk///-I////0BG4G8b@ZkB0@GGTGb/@Zk0B//G4G8b@Zk/AB4GbGG/@ZkC- GGGGCID@///. DJJ1" FDFxJ6@.WJ0A! F>q-qIqI1"+ dEs!K(`A-JAI0A! SEA=.JJ1"zAJ@؄F///XK0A! G?.JJ1"sH dE `-NI0A! E=1/1K/AH.o@GRHJH>-ICAh@/w-EFKKwI!`K" `Ew=)-7,IA7H!qI"1D7</..JVJ!oWJ"F>@H/w-HKKwI!pWK" pEw= @H-7,HIqWIA7H"!1D7<_G@Gpb#|@GGb#@BGTGx%"b/@Zk-0@0@ !IE;) ?EG @b#/@ӑ//G Gb#l@ӊ///ɥ"4G 0B8bE$F4G}GG@ZkPBGX"GBtGXb @ZkBpB"GG4G/@Zk -0BX"8bNI =/@Zk] vHk="B@]"tGb*_I#v`H @E]ݠ&HP!"4Dݰ)!?H#D¤) ]@Zk@B%"X]"GGHb/@Zk0BG4G8b$vH@ZkPBGGX"BtGXb !/@ZkBGB"4G4G@Zk ,0BX"8bFH <@Zk vHk"B="b@]"tG'H+v`ID/IEɠ&HDɰ ]@Zk@B%"GX]"GHb@Zk0B4G8b""@Zk-BGGGbTGI`/@ZkB//GtGTGb@ZkG/-G@!pb# 0ALI=@`B%"X"H"GGhb@Zk0B4GX"8b@Zk0B vHG8b4G/IE ݰ@Zk},vHA+I lEC}$HDB"="@]"tGb@Zk@B(%"X]" GGHb/@ZkBGtGTGbG/@Zkf,Gpb#¥fH/8` 0Aa@`BP%"X"N"GGhb@Zk0B4G8bX"/@Zk0B vHG8b4G'HD ݰ/@Zk])vH?A*_I IE C],I EB"="@]"tGb@Zk¥@B`%"X]"GGHb@Zk0BP4G8b@ZkPBP=GX"BtGXb! '!@ZkBGB"4G4G@Zk G-0BX"8bJII" G=@Zk`B vH%"GGhbtG,I E@Zk0BG4G8b @ZkB vH"b="@]"tG'HD@Zk@B// %"X]"GGHb/@Zk4GGX]`]h}pxݤ=]}ݥ#k///`B4Ghb G@ZkBG4Gb@Zk/#4G~^@[^~ (GGGGHb@Zk B0@4G(b/@ZkC,GGGCH7 / =. F"R SJJR"@FgJyJdF(`/XK0Br"1"G?.JTJR"J@dFwQK`.UJF0B1">r/rK[bKR"gK DDsK @.TJF0B1">.J@w/p@G[wKw?.JCBp@///#,.`D@D#HVJc d"HB F> C.b/CJ[bKc zBJB zGb?/@..JTJc dJB F> .",JA"Hc uJB 5D"<G]]} (0#k///p/P"QrKpK'JDpK9(B   p/ H0 QaKP"'JrK9(@DF R"@B HHk//0."0J"@ HH/k///0,GGGGGGGTG0H0H/. ///B?D8.z8H$DQ8J:F8>PB"/_8,DBpHDA8H0D"8<Q.QJDF@_XD51B8,pJA8H0D8<0BB@.0B@J?B/XK?Gk///0.G0J/ ///x%FrH p/[pKrGp?0."0J?/k///#~^^~ (0GGGGP.PJ@/,4Gc#HC/Z[K(b c GK B@Zk$, BG4G(bA$H'H@Zk @ #,#H?#.#J4G`D.DJC CG]]} (0@#k/p#?& ^~ > (^0~8@H޴PX`>h^p~xG`8[G4G >GJ! GGG0;> >D`///B0@$" "GGGb@ZkpB4G "xb@Zk] vH4GpBxb2_J@F] @Zk1vH4vI?B0JFC3JtF} B"="tG(b]"/@ZkB $" ]" GGb@Zk BTGTG(b/@ZkB90@H$"GG "Gb@ZkpB4Gxb "/@Zk] vH4GpBxb2_J@F] /@Zk1vH4vI?B0JFC3JtF} B"="tG(b]"/@ZkBX$" ]" GGb@Zk/g BTGTG(b0@ GG@ZkK G/ .B 0A$"GGGbGP J > "@ZkpB4G "xb@ZkpB vH4Gxb0JF }G@Zk=0vH3vIB!?H0DC=2_JSF] B"="tG(b]"/@ZkB//$" ]" GGb/@Zk BTGm!TGG(b/@Zk G//+,B$"GG "Gb+H/ 0AG@ZkpB "4Gxb@Zk=pB vHGxb4G!?H D= }@Zk}!vH2vI?@+I aEC}1?J2F= B"tG(b="]"@ZkB$" ]" GGb@ZkB$"G "GGbj!@ZkpB4Gxb "/@ZkB vH$"GbtG0JFG@ZkpBG4Gxb }@Zk B vH"="(btG]",I E@ZkB$" ]" GGb/@Zk0@ @G ](]0}8@HݤPX`=h]p}x#k//@#8^~_'8 @^H~8>"PX`޴hpx>^~8޵G G^GG^ //aC1"{"bB#4G8b4G G GG$ GGzE0B "Gk!(=G G@ZkPB(=C8"0tG,)!Xb@Zk0=8 D_&FL"@a.A. JtJ"S aJRAJuFTFa>A>.WJ>4=9>K4=`///I,tG8 b@2AB@Zk 8=  @.J/D.B4Gd"bRSJGJ/@Zk.DtIqHDPJFd>SdJtFd>. J0B4G8"8b@Zk= vHGG!?H D=@//B",b@Zk//0B B/ B0B4GO 8b @Zk!vH2vI?@$HDC1?J2F=B"="tGb ]"@Zk@BG$"G8]"GHb@Zk ݠ0B4G 8b0@ ݰ/@Zk8=TG@ BBGTGb?DC4 D0B2""/h8" 0@@ZkB,8"TGb@/@Zk$0@$X///B4Gb8"@Zk0B G4G8b@Zk0BGG4G8b@Zk/ BG8"@TGb ¤ .//@ZkB&"8"TGb@ZkB,TG8"b@Zk0B8 8"4G 8b/@ZkB vH"b="]"tG$HD@Zk@BG8&"G /= 8]"GHb@Zk ¤@BG8]"HbGh&"@Zk 0@A! CA0B(4G8b@ZkPB(=G8"BtGXb! @ZkBGB"4G4G@Zk ,0B8"8bGH <@Zk} ¤ vHG`BhbtG+I&" `E} ]/@Zk0BG4G8b @ZkB vH"="btG]"$HD@Zk@B&"8]"GGHb/@Zk0B(4Gb!8b!/I@ZkPB(=8"GBtGXbIoI@Zk"--4G' ,-0B8b+ILI ,EDE"IHfHDE ¤<=.PJ>8"@Zk0B vH8"8b4G,I E/@Zk}B vH"b="]"tG#H`D8 } @Zk@B&"8]"GGHb/@Zk0B(4G8b@ZkPB8"(=G BtGXb I!@ZkBGGpB"4G@Zk ,0B8"8bGH < "@Zk`B vH )"GhbtG-I E$]@Zk0BG4G8b /@ZkݡB vH"b="]"tG.IEݱ@Zk@B//)"8]"GGHb/@ZkG8]@]H}PX`ݤhpx=]}ݥ#/k47HGd DECC$MAIN48Lb#` DECC$MAIN47`@d DECC$MAIN4'tG DECC$EXIT4(b#` DECC$EXIT4'@ DECC$EXIT4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4%GLIB$GET_SYMBOL4&b#LIB$GET_SYMBOL4%@LIB$GET_SYMBOL4G DECC$MALLOC4b# DECC$MALLOC4@ DECC$MALLOC4G( DECC$STRCPY4b# DECC$STRCPY4$@( DECC$STRCPY4#HGdCGI_INIT4$Xb#CGI_INIT4#`@dCGI_INIT4G DECC$STRNCPY4b# DECC$STRNCPY4@ DECC$STRNCPY4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN41GCGI_SET_DCL_ENV42b#CGI_SET_DCL_ENV41@CGI_SET_DCL_ENV4G, DECC$STRNCPY4b# DECC$STRNCPY4(@, DECC$STRNCPY4 0GL DECC$STRLEN4 <b# DECC$STRLEN4 H@L DECC$STRLEN4)LGdCGI_INFO4*Tb#CGI_INFO4)`@dCGI_INFO4lG DECC$STRCHR4|b# DECC$STRCHR4@ DECC$STRCHR4+G DECC$ISSPACE4,b# DECC$ISSPACE4+@ DECC$ISSPACE4$GHDECC$GXSPRINTF44b#DECC$GXSPRINTF4D@HDECC$GXSPRINTF4 HG\ DECC$STRLEN4 Tb# DECC$STRLEN4 X@\ DECC$STRLEN4 `G DECC$STRLEN4 lb# DECC$STRLEN4 @ DECC$STRLEN4 GLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL 4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4+tG DECC$ISSPACE4,b# DECC$ISSPACE4+@ DECC$ISSPACE4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 8GTLIB$SET_SYMBOL4 Db#LIB$SET_SYMBOL4 P@TLIB$SET_SYMBOL4 XG|DECC$GXFPRINTF4pb#DECC$GXFPRINTF4 x@|DECC$GXFPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$MEMCPY4b# DECC$MEMCPY4@ DECC$MEMCPY4GOTS$MOVE4@OTS$MOVE4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G4DECC$GXSPRINTF4b#DECC$GXSPRINTF40@4DECC$GXSPRINTF4 4GL DECC$STRLEN4 @b# DECC$STRLEN4 H@L DECC$STRLEN4 PG|LIB$SET_SYMBOL4 `b#LIB$SET_SYMBOL4 x@|LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4)GCGI_INFO4*b#CGI_INFO4)@CGI_INFO4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4+dG DECC$ISSPACE4,pb# DECC$ISSPACE4+@ DECC$ISSPACE4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 ( GD LIB$SET_SYMBOL4 4 b#LIB$SET_SYMBOL4 @ @D LIB$SET_SYMBOL4 D Gh DECC$GXFPRINTF4` b#DECC$GXFPRINTF4 d @h DECC$GXFPRINTF4h G DECC$STRCHR4x b# DECC$STRCHR4 @ DECC$STRCHR4+ G DECC$ISSPACE4, b# DECC$ISSPACE4+ @ DECC$ISSPACE4 G8 DECC$GXSPRINTF 4$ b#DECC$GXSPRINTF44 @8 DECC$GXSPRINTF4 8 GL DECC$STRLEN4 D b# DECC$STRLEN4 H @L DECC$STRLEN4 P Gx DECC$STRLEN4 \ b# DECC$STRLEN4 t @x DECC$STRLEN4  G LIB$SET_SYMBOL4  b#LIB$SET_SYMBOL4  @ LIB$SET_SYMBOL4  G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4  @ DECC$GXFPRINTF4  G DECC$STRLEN4  b# DECC$STRLEN4  @ DECC$STRLEN4 G, DECC$MEMCPY4 b# DECC$MEMCPY4( @, DECC$MEMCPY40 GH OTS$MOVE4D @H OTS$MOVE4 L Gd DECC$STRLEN4 T b# DECC$STRLEN4 ` @d DECC$STRLEN4h G DECC$GXSPRINTF4| b#DECC$GXSPRINTF4 @ DECC$GXSPRINTF4  G DECC$STRLEN4  b# DECC$STRLEN4  @ DECC$STRLEN4  G LIB$SET_SYMBOL4  b#LIB$SET_SYMBOL4  @ LIB$SET_SYMBOL4  G DECC$GXFPRINTF4 b#DECC$GXFPRINTF4  @ DECC$GXFPRINTF4  G$ DECC$STRLEN4  b# DECC$STRLEN4  @$ DECC$STRLEN4$ GH DECC$MEMCPY4< b# DECC$MEMCPY4D @H DECC$MEMCPY4H Gd OTS$MOVE4` @d OTS$MOVE4h G DECC$GETENV4p b# DECC$GETENV4 @ DECC$GETENV4  G DECC$STRLEN4  b# DECC$STRLEN4  @ DECC$STRLEN4 G DECC$MEMCPY4 b# DECC$MEMCPY4 @ DECC$MEMCPY4 G OTS$MOVE4 @ OTS$MOVE4 G DECC$GETENV4 b# DECC$GETENV4 @ DECC$GETENV4 G, DECC$STRCHR4$ b# DECC$STRCHR4( @, DECC$STRCHR4 @ GT DECC$STRLEN4 L b# DECC$STRLEN4 P @T DECC$STRLEN4  G DECC$STRLEN4  b# DECC$STRLEN4  @ DECC$STRLEN4 G DECC$MEMCPY4 b# DECC$MEMCPY4 @ DECC$MEMCPY4 G OTS$MOVE4 @ OTS$MOVE4  G DECC$STRLEN4  b# DECC$STRLEN4  @ DECC$STRLEN4 G, DECC$STRLEN4 b# DECC$STRLEN 4 (@, DECC$STRLEN4,GT DECC$MEMCPY4Hb# DECC$MEMCPY4P@T DECC$MEMCPY4 XG| DECC$STRLEN4 hb# DECC$STRLEN4 x@| DECC$STRLEN4 GLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$MEMCPY4b# DECC$MEMCPY4@ DECC$MEMCPY4G,OTS$MOVE4(@,OTS$MOVE40GH DECC$GETENV48b# DECC$GETENV4D@H DECC$GETENV4 HGd DECC$STRLEN4 Xb# DECC$STRLEN4 `@d DECC$STRLEN4 lGLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$MEMCPY4 b# DECC$MEMCPY4@ DECC$MEMCPY4G4OTS$MOVE40@4OTS$MOVE48GT DECC$GETENV4@b# DECC$GETENV4P@T DECC$GETENV4 TGl DECC$STRLEN4 db# DECC$STRLEN4 h@l DECC$STRLEN4 tGLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G$ DECC$MEMCPY4b# DECC$MEMCPY4 @$ DECC$MEMCPY4$G<OTS$MOVE48@<OTS$MOVE4@GX DECC$GETENV4Hb# DECC$GETENV4T@X DECC$GETENV4 XGt DECC$STRLEN4 hb# DECC$STRLEN4 p@t DECC$STRLEN4 |GLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4)GCGI_INFO4*b#CGI_INFO4)@CGI_INFO4 G$ DECC$STRLEN4 b# DECC$STRLEN 4  @$ DECC$STRLEN4$GH DECC$MEMCPY4<b# DECC$MEMCPY4D@H DECC$MEMCPY4HGdOTS$MOVE4`@dOTS$MOVE4hG DECC$GETENV4pb# DECC$GETENV4@ DECC$GETENV4)GCGI_INFO4*b#CGI_INFO4)@CGI_INFO4)GCGI_INFO4*b#CGI_INFO4)@CGI_INFO45G DECC$ATOI46b# DECC$ATOI45@ DECC$ATOI<!G$CGI_CONTENT_FILE<"b#CGI_CONTENT_FILE<! @$CGI_CONTENT_FILE4-0GL DECC$FEOF4.<b# DECC$FEOF4-H@L DECC$FEOF4TGx DECC$MALLOC4db# DECC$MALLOC4t@x DECC$MALLOC43G DECC$FGETC44b# DECC$FGETC43@ DECC$FGETC4G DECC$REALLOC4 b# DECC$REALLOC4@ DECC$REALLOC4-G DECC$FEOF4.b# DECC$FEOF4-@ DECC$FEOF4G DECC$STRCAT4b# DECC$STRCAT4@ DECC$STRCAT4)G4CGI_INFO4*$b#CGI_INFO4)0@4CGI_INFO4<Gd DECC$STRCHR4Lb# DECC$STRCHR4`@d DECC$STRCHR4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$MALLOC4b# DECC$MALLOC4@ DECC$MALLOC4`G DECC$STRCAT4xb# DECC$STRCAT4@ DECC$STRCAT4 G$ DECC$STRLEN4 b# DECC$STRLEN4  @$ DECC$STRLEN4$GH DECC$MEMCPY4<b# DECC$MEMCPY4D@H DECC$MEMCPY4HGdOTS$MOVE4`@dOTS$MOVE4 hG DECC$STRLEN4 pb# DECC$STRLEN4 @ DECC$STRLEN4 GLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4 G, DECC$STRLEN 4  b# DECC$STRLEN4 (@, DECC$STRLEN4,GT DECC$MEMCPY4Db# DECC$MEMCPY4P@T DECC$MEMCPY4TGlOTS$MOVE4h@lOTS$MOVE4 pG DECC$STRLEN4 xb# DECC$STRLEN4 @ DECC$STRLEN4 GLIB$SET_SYMBOL4 b#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL4 G DECC$GXFPRINTF4b#DECC$GXFPRINTF4 @ DECC$GXFPRINTF4) G$CGI_INFO4*b#CGI_INFO4) @$CGI_INFO4,GT DECC$STRCHR4<b# DECC$STRCHR4P@T DECC$STRCHR4TGx DECC$STRCHR4pb# DECC$STRCHR4t@x DECC$STRCHR4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 0GLLIB$SET_SYMBOL4 Db#LIB$SET_SYMBOL4 H@LLIB$SET_SYMBOL4 LGtDECC$GXFPRINTF4hb#DECC$GXFPRINTF4 p@tDECC$GXFPRINTF4tG DECC$STRCHR4b# DECC$STRCHR4@ DECC$STRCHR4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4 G$ DECC$STRLEN4 b# DECC$STRLEN4  @$ DECC$STRLEN4 PGlLIB$SET_SYMBOL4 db#LIB$SET_SYMBOL4 h@lLIB$SET_SYMBOL4 pGDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4 G DECC$STRLEN4 b# DECC$STRLEN4 @ DECC$STRLEN4G DECC$MEMCPY4b# DECC$MEMCPY4@ DECC$MEMCPY4GOTS$MOVE4@OTS$MOVE4 G  DECC$STRLEN4 b# DECC$STRLEN4 @  DECC$STRLEN4G<DECC$GXSPRINTF4$b#DECC$GXSPRINTF48@<DECC$GXSPRINTF4 <GT DECC$STRLEN4 Hb# DECC$STRLEN4 P@T DECC$STRLEN4 XGLIB$SET_SYMBOL4 db#LIB$SET_SYMBOL4 @LIB$SET_SYMBOL 4 GDECC$GXFPRINTF4b#DECC$GXFPRINTF4 @DECC$GXFPRINTF4/G( DECC$GXPRINTF40b# DECC$GXPRINTF4/$@( DECC$GXPRINTF4'(G< DECC$EXIT4(4b# DECC$EXIT4'8@< DECC$EXIT4 PG| DECC$STRLEN4 tb# DECC$STRLEN4 x@| DECC$STRLEN4|G DECC$MALLOC4b# DECC$MALLOC4@ DECC$MALLOC4 $b# DECC$TOLOWER4$G$$ DECC$TOLOWER4 $@$$ DECC$TOLOWER4($GD$ DECC$TOLOWER44$b# DECC$TOLOWER4@$@D$ DECC$TOLOWER4@%Gd%DECC$GXSPRINTF4\%b#`DECC$GXSPRINTF4`%@d%DECC$GXSPRINTF4 d%Gx% DECC$STRLEN4 p%b#` DECC$STRLEN4 t%@x% DECC$STRLEN4 %G% DECC$STRLEN4 %b#` DECC$STRLEN4 %@% DECC$STRLEN4 %G%LIB$SET_SYMBOL4 %b#`LIB$SET_SYMBOL4 %@%LIB$SET_SYMBOL4 %G&DECC$GXFPRINTF4&b#`DECC$GXFPRINTF4 &@&DECC$GXFPRINTF4&G4& DECC$STRCHR4(&b#` DECC$STRCHR40&@4& DECC$STRCHR44&G\&DECC$GXSPRINTF4T&b#`DECC$GXSPRINTF4X&@\&DECC$GXSPRINTF4 \&Gt& DECC$STRLEN4 d&b#` DECC$STRLEN4 p&@t& DECC$STRLEN4 &G& DECC$STRLEN4 &b#` DECC$STRLEN4 &@& DECC$STRLEN4 &G&LIB$SET_SYMBOL4 &b#`LIB$SET_SYMBOL4 &@&LIB$SET_SYMBOL4 &G'DECC$GXFPRINTF4'b#`DECC$GXFPRINTF4 '@'DECC$GXFPRINTF4$'GD' DECC$STRCHR40'b#` DECC$STRCHR4@'@D' DECC$STRCHR4T'G'DECC$GXSPRINTF4l'b#`DECC$GXSPRINTF4'@'DECC$GXSPRINTF4 'G' DECC$STRLEN4 'b#` DECC$STRLEN4 '@' DECC$STRLEN4 'G' DECC$STRLEN4 'b#` DECC$STRLEN4 '@' DECC$STRLEN4 'G(LIB$SET_SYMBOL4 (b#`LIB$SET_SYMBOL4 (@(LIB$SET_SYMBOL4 (GD(DECC$GXFPRINTF48(b#`DECC$GXFPRINTF4 @(@D(DECC$GXFPRINTF4D(Gd( DECC$STRCHR4X(b#` DECC$STRCHR4`(@d( DECC$STRCHR4x(G(DECC$GXSPRINTF4(b#`DECC$GXSPRINTF4(@(DECC$GXSPRINTF 4 (G( DECC$STRLEN4 (b#` DECC$STRLEN4 (@( DECC$STRLEN4 (G( DECC$STRLEN4 (b#` DECC$STRLEN4 (@( DECC$STRLEN4 )G4)LIB$SET_SYMBOL4 $)b#`LIB$SET_SYMBOL4 0)@4)LIB$SET_SYMBOL4 4)GX)DECC$GXFPRINTF4P)b#`DECC$GXFPRINTF4 T)@X)DECC$GXFPRINTF4X)G|)DECC$GXSPRINTF4p)b#`DECC$GXSPRINTF4x)@|)DECC$GXSPRINTF4 |)G) DECC$STRLEN4 )b#` DECC$STRLEN4 )@) DECC$STRLEN4)G)DECC$GXSPRINTF4)b#`DECC$GXSPRINTF4)@)DECC$GXSPRINTF4 )G) DECC$STRLEN4 )b#` DECC$STRLEN4 )@) DECC$STRLEN4 )G *LIB$SET_SYMBOL4 )b#`LIB$SET_SYMBOL4 *@ *LIB$SET_SYMBOL4  *G4*DECC$GXFPRINTF4(*b#`DECC$GXFPRINTF4 0*@4*DECC$GXFPRINTF4 D+b# DECC$STRLEN4 p+G+ DECC$STRLEN4 +@+ DECC$STRLEN4+G+ DECC$MEMCPY4+b# DECC$MEMCPY4+@+ DECC$MEMCPY40,b# DECC$STRNCPY4<,GD, DECC$STRNCPY4@,@D, DECC$STRNCPY4d,G, DECC$TOUPPER4p,b# DECC$TOUPPER4,@, DECC$TOUPPER4 ,G, DECC$STRLEN4 ,b# DECC$STRLEN4 ,@, DECC$STRLEN4-G- DECC$STRCMP4-b# DECC$STRCMP4-@- DECC$STRCMP4 8-GT- DECC$STRLEN4 H-b# DECC$STRLEN4 P-@T- DECC$STRLEN4 -G-LIB$SET_SYMBOL4 -b#LIB$SET_SYMBOL4 -@-LIB$SET_SYMBOL4 -G-DECC$GXFPRINTF4-b#DECC$GXFPRINTF4 -@-DECC$GXFPRINTF4 -G- DECC$STRLEN4 -b# DECC$STRLEN4 -@- DECC$STRLEN4.GD. DECC$STRCAT4.b# DECC$STRCAT4@.@D. DECC$STRCAT4D.Gd. DECC$STRCAT4T.b# DECC$STRCAT4`.@d. DECC$STRCAT4.G. DECC$GETENV4.b# DECC$GETENV4.@. DECC$GETENV4 .G. DECC$STRLEN4 .b# DECC$STRLEN4 .@. DECC$STRLEN4 .G. DECC$STRLEN4 .b# DECC$STRLEN4 .@. DECC$STRLEN4.G/ DECC$STRCPY4.b# DECC$STRCPY4/@/ DECC$STRCPY 4/G/ DECC$STRCAT4/b# DECC$STRCAT4/@/ DECC$STRCAT4/G4/ DECC$STRCAT4,/b# DECC$STRCAT40/@4/ DECC$STRCAT4 4/GT/ DECC$STRLEN4 H/b# DECC$STRLEN4 P/@T/ DECC$STRLEN4 X/G/LIB$SET_SYMBOL4 d/b#LIB$SET_SYMBOL4 /@/LIB$SET_SYMBOL4 /G/DECC$GXFPRINTF4/b#DECC$GXFPRINTF4 /@/DECC$GXFPRINTF4 /G/DECC$GXFPRINTF4/b#DECC$GXFPRINTF4 /@/DECC$GXFPRINTF4 /G/ DECC$STRLEN4 /b# DECC$STRLEN4 /@/ DECC$STRLEN4/G$0 DECC$MEMCPY40b# DECC$MEMCPY4 0@$0 DECC$MEMCPY4$0G<0OTS$MOVE480@<0OTS$MOVE4 @0G\0 DECC$STRLEN4 H0b# DECC$STRLEN4 X0@\0 DECC$STRLEN4l0G0DECC$GXSPRINTF4p0b#DECC$GXSPRINTF40@0DECC$GXSPRINTF4 0G0 DECC$STRLEN4 0b# DECC$STRLEN4 0@0 DECC$STRLEN4 0G0LIB$SET_SYMBOL4 0b#LIB$SET_SYMBOL4 0@0LIB$SET_SYMBOL4 0G1DECC$GXFPRINTF40b#DECC$GXFPRINTF4 1@1DECC$GXFPRINTF4 1G$1 DECC$STRLEN4 1b# DECC$STRLEN4  1@$1 DECC$STRLEN4$1GL1 DECC$MEMCPY4<1b# DECC$MEMCPY4H1@L1 DECC$MEMCPY4 d1G1 DECC$STRLEN4 h1b# DECC$STRLEN4 1@1 DECC$STRLEN4 1G1 DECC$STRLEN4 1b# DECC$STRLEN4 1@1 DECC$STRLEN4 1G2LIB$SET_SYMBOL4 1b#LIB$SET_SYMBOL4 2@2LIB$SET_SYMBOL4 2GD2DECC$GXFPRINTF482b#DECC$GXFPRINTF4 @2@D2DECC$GXFPRINTF4 D2GX2 DECC$STRLEN4 P2b# DECC$STRLEN4 T2@X2 DECC$STRLEN4X2G|2 DECC$MEMCPY4p2b# DECC$MEMCPY4x2@|2 DECC$MEMCPY4|2G2OTS$MOVE42@2OTS$MOVE4 2G2 DECC$STRLEN4 2b# DECC$STRLEN4 2@2 DECC$STRLEN42G2DECC$GXSPRINTF42b#DECC$GXSPRINTF42@2DECC$GXSPRINTF4 2G3 DECC$STRLEN4 2b# DECC$STRLEN4 3@3 DECC$STRLEN4 3G43LIB$SET_SYMBOL4 3b#LIB$SET_SYMBOL 4 03@43LIB$SET_SYMBOL4 43Gd3DECC$GXFPRINTF4X3b#DECC$GXFPRINTF4 `3@d3DECC$GXFPRINTF = APPEND_EQUAL_SIGN= HTTP_AUTHORIZATION0=(HTTP_ACCEPT_LANGUAGE_COUNTP=HTTP_ACCEPT_COUNT =0!;= 0 @";=0 DECC$TOUPPER DECC$GETENV= FLD_COUNT`=FIELDS8OTS$MOVE DECC$STRCAT LIB$SET_SYMBOL7DECC$GA_STDERRp ;=08 *;=h ; DECC$STRLEN DECC$GXFPRINTF DECC$MEMCPYDECC$GXSPRINTF=FIELDS_COUNT =(null)0 DECC$STRCPY DECC$STRNCPY DECC$STRCMP=0  $;=L?  DECC$STRCHR=0"@;=0(  DECC$MALLOC=0P#;=0"#;=@$<  DECC$TOLOWER= REMOTE_USER= PATH_TRANSLATED0 DECC$REALLOC !CGI_CONTENT_FILE#CGI_INIT%LIB$GET_SYMBOL' DECC$EXIT= AUTH_TYPE;7DECC$$GA___CTYPET=0X";=d 7DECC$$GL___CTYPEA)CGI_INFO+ DECC$ISSPACE- DECC$FEOF/ DECC$GXPRINTF 1CGI_SET_DCL_ENV3 DECC$FGETC= KEY_COUNT@=REMOTE_IDENTP5 DECC$ATOI=08";=P0 7DECC$$SHELL_HANDLER=7 DECC$MAIN A=1)( SET_DCL_ENVVSI C V7.4-002 ?= 4=TRANSFER$BREAK$GO = 44= main4=? 7       !                                                                                $ $ $ $ % % ' ( ( ( * , 2 2 3 4 4 5 8 = = = > > > ? ? A A C F F G J H I J M P P P Q T R T W Z Z Z [ ^ \ ^ a h h l l  m p p p  v v v w { { { { 5 3 5 ; | } } }  {             p p p p                                                                             X   :=  4=  ='v4= 4= 4= 4= $D :=  @4= } =?v@4= T4= `4= t4= <4= D4= L4= $ =  !=getword =  = @44=makeword@4=                 , = ` #= fmakeword =  = !44= x2c!4=& G H I =  = @"44= unescape_url@"4=ogf Q N N Q Q S S S S Q  =  y= P#44= plustospaceP#4= f = ` = #44= strcasecomp#4=;32 j j n n n( =  &=" strncasecomp =  H= $4`4=do_dcl_form_env$4=        E                                K        RL =  = *44=do_cgi_form_env*4=1)                    )   I           ! # " " % % & + 4 5 5 6 7 : D E F J J K K L M S S W _ _ _ _ _ ` ` ` b c c e k k k k l l m m m p x x y y y { | | ~P = $ s= 4`4= __main4=  =  | E e4 " e4 =  (DECC$GA_STDERRDECC$GXFPRINTF DECC$GXPRINTFDECC$GXSPRINTF DECC$FEOF DECC$FGETC DECC$ATOI DECC$EXIT DECC$GETENV DECC$MALLOC DECC$REALLOC DECC$ISSPACE DECC$TOLOWER DECC$TOUPPER DECC$$GA___CTYPET DECC$$GL___CTYPEA DECC$MEMCPY DECC$STRCAT DECC$STRCHR DECC$STRCPY DECC$STRNCPY DECC$STRCMP DECC$STRLENCGI_INITCGI_INFOCGI_SET_DCL_ENV CGI_CONTENT_FILELIB$GET_SYMBOLLIB$SET_SYMBOL DECC$MAIN DECC$$SHELL_HANDLEROTS$MOVE `C$GA