CWS_ECHOV1.0 4-NOV-2021 11:21 VSI C V7.4-002  $READONLY$i$CODE$  UNUSEDTIMEOUTh $LITERAL$$LINK$($DATA$  CONNECTEDCOUNT0CONNECTEDCOUNT0  UNUSEDTIMEOUT  USAGECOUNT0 USAGECOUNT0J ADDCLIENT0JECHOTHIS0JH  HEARTBEAT0J   HTMLESCAPEDSC0JP NEXTREQUEST0J  REMOVECLIENT(J8MAIN(J__MAIN -6= OnNext!UL:  = (=(!AZHello !AZ;  !AZ at !AZH=ia!AZHello !AZ;  Connected: !ULS;  Timeout: !ULS;  Connected: !UL;  Usage: !UL =#G8^~ _#0"@^4GHcGG#]("8[@b "G@Zk`b#@BG4Gb/@ZkcG8]@]HP#/k///#;H";"~^GX{"[^~ GGAb@Zk"8BG@b@ZkBG4Gb/@ZkBGb@Zk6B4Gb"/@ZkB 4Gb@Zk/hBGpb/@Zk// b///B4Gb"@Zk(BG4G0b@ZkGb#0@4@xBGb/@Zk(B4G4G0b@Zk/B"TGBb82"/@ZkxB4G4Gb@Zk//x#~^^GG{#00 B04G @GbG]] #k/#G(^[~0^8~@HGG#b/@ZkB4G,?"TG b/@ZkBG"4Gp"b@ZkBGTGb/@ZkB""4Gb/@ZkBGTGb@Zk &'?&HB&TGc3~JtFC@cc"G7vJF$c;~KqGC2v_JUF$C(cPb"/@Zk8BGG4G@b@ZkN//(BGGTG0b@ZkB4Gb@Zk \_"tG8B"@b/@Zk$_"b$#"BGXGb0JFG$"b"@Zk8BG_"tG@b @ZkhB4GtGpbx"@Zk#B"C"GXbbG!?H$D(# /@Zkd0`@dG(]0]8}@HP#/k///HB4G`"""tGPb@ZkBGb@ZkB4Gb/@ZkHB`"""GtGPb/@ZkB 4Gb@Zk//#4G~^[^GGb@ZkPBG4GXb/@Zk@ / !1 @ G]] #k///#?&0^0[~1"~"8^@~4GHPGG>G ~8b@Zk BGGGtG(b@ZkBG4Gb@ZkBG Gb@Zk"_"tG!0vK8K@| .J"0vJG"F> T/TKBCUBBaGb4D #/ P"1"@Zk ] 4GB]"bG #cP="0`B"c@ZkBG="tGb@ZkG?"b#0@@ӐBG_"tGb/@Zk7// PBtGBb 2"_"/@Zk#P="]"BbG0 @"c/@ZkB="GtGb/@ZkG?"b#k@ӐBGGtGb/@ZkPB_"tGb "@Zk#B?  GbbG1?J!F# G/@ZkG0]8]@}HP`#k///#G^([~^ ~(GG#0b@Zk(B4G 0b@Zk$ ? "⦈4G8B@b1?J!F"$ `@ բ$ "G3xB5CG~޶Xb"@ZkGGb]_"tG] }(0#k//#~^^~pH (PH8@F0GD@/$$ 0PG2v@JG2@2@"lB5@DW///.pBG"B`FS s"VJJFFFF. G WJJDFDDpCC7G3/Y"K'KFGDDGD.DDpCC6G3#TJJ؇FDWDF.؄FpCC G3#WJJF@DFF.FVJJpCC GFFFFFpCC4GDuBFGrB////3/pBGS Bs"rBY"K'KGDGDDDGF@D/1@! /tBBqFpF բVJW@@ղ@.WJ>`Bt;_$t;&!"Y!#&lB &g".#VJJFFF//@///"B@.T. JW JvJRTJFVF>T>5àB3S./SJXK`TJG?+//"BxTH/$.T. THW JRTJFXF>T>/"%["B/ .$.,JWJF."7JCJJwJHFdHDFD><s""`Bt,tH`///,"FH."J,"H T,"TH@t."tJ`4/"4K?P$B2_J$vHDFP4GG]]} (0@#k/բFղk43HGd DECC$MAIN 44Lb# DECC$MAIN43`@d DECC$MAIN4lG DECC$EXIT4xb# DECC$EXIT4@ DECC$EXIT4'G DECC$FREOPEN4(b#8 DECC$FREOPEN4'@ DECC$FREOPEN4+G  WSLIBINIT4,b#8 WSLIBINIT4+@  WSLIBINIT<% G$WSLIBSETLIFESECS<&b#8WSLIBSETLIFESECS<% @$WSLIBSETLIFESECS4#$G4WSLIBISCGIPLUS4$,b#8WSLIBISCGIPLUS4#0@4WSLIBISCGIPLUS4<GT DECC$GETENV4 Db#8 DECC$GETENV4P@T DECC$GETENV<!TGlWSLIBONNEXTREQUEST<"`b#8WSLIBONNEXTREQUEST<!h@lWSLIBONNEXTREQUEST4-pG SYS$HIBER4.xb#8 SYS$HIBER4-@ SYS$HIBER4G WSLIBCGIVAR4b#8 WSLIBCGIVAR4@ WSLIBCGIVAR4)G SYS$SETAST4*b#8 SYS$SETAST4)@ SYS$SETAST4/GWSLIBCGIPLUSEOF40b#8WSLIBCGIPLUSEOF4/@WSLIBCGIPLUSEOF4)G SYS$SETAST4*b#8 SYS$SETAST4)@ SYS$SETAST41G4DECC$GXFPRINTF42 b#8DECC$GXFPRINTF410@4DECC$GXFPRINTF44GH DECC$EXIT4@b#8 DECC$EXIT4D@H DECC$EXIT4/GWSLIBCGIPLUSEOF40b#WSLIBCGIPLUSEOF4/WSLIBCGIPLUSEOF4 G WSLIBTIME4 b# WSLIBTIME4 @ WSLIBTIME4G DECC$CALLOC4b# DECC$CALLOC4@ DECC$CALLOC4G8 WSLIBCGIVAR40b# WSLIBCGIVAR44@8 WSLIBCGIVAR4 8GT DECC$STRCPY4Hb# DECC$STRCPY4 P@T DECC$STRCPY4TGt WSLIBCGIVAR4hb# WSLIBCGIVAR4p@t WSLIBCGIVAR4 tG DECC$STRCPY4b# DECC$STRCPY4 @ DECC$STRCPY4G WSLIBCREATE4b# WSLIBCREATE4@ WSLIBCREATE4G4 DECC$FREE4,b# DECC$FREE40@4 DECC$FREE<@GXWSLIBSETIDLESECS<Pb#WSLIBSETIDLESECS<T@XWSLIBSETIDLESECS4XGl WSLIBOPEN4db# WSLIBOPEN4h@l WSLIBOPEN 4G WSLIBWRITEDSC4b# WSLIBWRITEDSC4@ WSLIBWRITEDSC,GSYS$FAO,b#SYS$FAO,@SYS$FAO4G WSLIBWRITEDSC4b# WSLIBWRITEDSC4@ WSLIBWRITEDSC<G$WSLIBSETWAKECALLBACK<b#WSLIBSETWAKECALLBACK< @$WSLIBSETWAKECALLBACK4(Gd WSLIBREADDSC4<b# WSLIBREADDSC4`@d WSLIBREADDSC4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTFD GCMA$TIS_VMSERRNO_GET_ADDRD b#CMA$TIS_VMSERRNO_GET_ADDRD @CMA$TIS_VMSERRNO_GET_ADDR4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G DECC$GXPRINTF4b# DECC$GXPRINTF4@ DECC$GXPRINTF4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT<50GLWSLIBGETUSERDATA<6Db#WSLIBGETUSERDATA<5H@LWSLIBGETUSERDATA4LGd DECC$FREE4Xb# DECC$FREE4`@d DECC$FREE49GWSLIBREADSTATUS4:b#WSLIBREADSTATUS49@WSLIBREADSTATUS47G  WSLIBCLOSE48b# WSLIBCLOSE47@  WSLIBCLOSE<5G$WSLIBGETUSERDATA<6b#WSLIBGETUSERDATA<5 @$WSLIBGETUSERDATA4 $G< WSLIBTIME4 4b# WSLIBTIME4 8@< WSLIBTIME4G WSLIBWRITEDSC4b# WSLIBWRITEDSC4@ WSLIBWRITEDSC,GSYS$FAO,b#SYS$FAO,@SYS$FAO4G8 WSLIBWRITEDSC40b# WSLIBWRITEDSC44@8 WSLIBWRITEDSC4TGt WSLIBWRITEDSC4hb# WSLIBWRITEDSC4p@t WSLIBWRITEDSC4G WSLIBWRITEDSC4b# WSLIBWRITEDSC4@ WSLIBWRITEDSC,GSYS$FAO,b#SYS$FAO,@SYS$FAO4G WSLIBWRITEDSC4b# WSLIBWRITEDSC4 @ WSLIBWRITEDSC4 G4 WSLIBWRITEDSC4( b# WSLIBWRITEDSC40 @4 WSLIBWRITEDSC48 GT WSLIBWRITEDSC4H b# WSLIBWRITEDSC4P @T WSLIBWRITEDSC4X G WSLIBREADDSC4l b# WSLIBREADDSC 4 @ WSLIBREADDSC4  G WSLIBTIME4  b#H WSLIBTIME4  @ WSLIBTIME<5 G WSLIBGETUSERDATA<6 b#HWSLIBGETUSERDATA<5 @ WSLIBGETUSERDATA,0 G SYS$FAO,4 b#HSYS$FAO, @ SYS$FAO4 G WSLIBWRITEDSC4 b#H WSLIBWRITEDSC4  WSLIBWRITEDSC $= < = WS_ECHO AXP-1.2.0=(WS_ECHO_ON_NEXT_REQUEST8=80Status: 500 WebSocket needs to be CGIplus!  WSLIBSETIDLESECS DECC$FREE WSLIBCREATE;@ WSLIBSETWAKECALLBACKH;`( CMA$TIS_VMSERRNO_GET_ADDR WSLIBTIME= REMOTE_HOST= WS_ECHO DECC$STRCPY DECC$EXIT WSLIBCGIVAR;=0( ;= P( 7CONNECTEDCOUNT WSLIBWRITEDSC DECC$GXPRINTF;= [%s:%d]H= SERVER_NAME` DECC$CALLOC;SYS$FAO WSLIBREADDSC=; WSLIBOPEN DECC$GETENV !WSLIBONNEXTREQUEST=#WSLIBISCGIPLUS=w %WSLIBSETLIFESECS' DECC$FREOPEN7DECC$GA_STDOUT=0";=04 7 USAGECOUNT) SYS$SETAST+ WSLIBINIT= SYS$OUTPUT= ctx=bin- SYS$HIBER /WSLIBCGIPLUSEOF1DECC$GXFPRINTF;=08";=P0 7DECC$$SHELL_HANDLER=3 DECC$MAIN=0" ;= @4< &H=0  ;=0$ p 5WSLIBGETUSERDATA=00 ;=`4 7 WSLIBCLOSE 9WSLIBREADSTATUS=0  ;=  =0 P;=  =(4=4=`H4=4= 4 ==-%$WS_ECHOVSI C V7.4-002 ?= 84=TRANSFER$BREAK$GO = 484= main4=vnm F> F> F> N> [>  e> i> W> =  = P44= NextRequestP4=5-, > }> > > > = ` = 44= AddClient4=% > > > > > > > > > > > > > > > > > > > > > > > >0 >< = p =  44= RemoveClient 4=.&% > > >$ =  = 44=EchoThis4=bZ > > > > > > ? ?B ? ? ? ? ? ? ? ? ? ? ? #? &? &? &? +?V 7? =? =? =? J? I? J? I?, =   =  4H4= HeartBeat 4= V? V? V? g? p? m? k? k? q? n? r? q? m? m? u? u? u? =  =  4 4= HtmlEscapeDsc 4= ? ?  ?  ? ?  ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ? ?  ? ? ? ? ?0 ?(d ?  ? ? ( ? =  s= 44= __main4= F> =  =  (DECC$GA_STDOUTDECC$GXFPRINTF DECC$GXPRINTF DECC$FREOPEN DECC$FREE DECC$EXIT DECC$GETENV DECC$CALLOC DECC$STRCPY(CMA$TIS_VMSERRNO_GET_ADDR WSLIBCREATE WSLIBGETUSERDATA WSLIBOPEN WSLIBCLOSE WSLIBREADDSCWSLIBREADSTATUS WSLIBWRITEDSC WSLIBSETWAKECALLBACK WSLIBSETIDLESECS WSLIBSETLIFESECS WSLIBCGIVARWSLIBCGIPLUSEOFWSLIBISCGIPLUS WSLIBONNEXTREQUEST WSLIBINIT WSLIBTIME SYS$HIBER SYS$SETASTSYS$FAO DECC$MAIN DECC$$SHELL_HANDLER C$GA