E CSPREPORTV1.0 4-NOV-2021 10:12 VSI C V7.4-002  $READONLY$  REPORTSIZEMAX DELTA100MSi$CODE$~ $LITERAL$@$LINK$$DATA$$BSS$ DBUG(DBUG  ISCGIPLUS0 ISCGIPLUS0  REPORTSIZEMAX0  DELTA100MS BINTIME( BINTIME NUMTIME( NUMTIME   REPORTFILEPTR0 REPORTFILEPTR0Jx OUTPUTREPORT0J(@ POSTREPORT0JPROCESSREQUEST0JxpREPORTFILENAME0J REPORTLIST(J8MAIN(J__MAIN @6= $=  (= =#G8^~ _#0"@^4GHcGG#]("@[Hb "G@Zk(=0Hb#@0BG4G8b@ZkcG8]@]HP#k///#4G^([~^ GG >X"0b@Zkp"CHB4GPb ///@Zk"TGBb`!"@Zk(B4G8"0b@Zk"hB"x""pbTG @Zk"TGBb@!"@Zk2(B4G0bh"@ZkB// G4G b@Zk"_"AB =GtGb@ZkBGb@Zk "////B4Gbx"@Zkxb#@ӈBGb@Zkxb# @G]]4G 0#k///#;TG~^[^~ GGb( "@Zk@B 4GHb/@Zk0BTG "8b@ZkB4Gb"@ZkBGG(""b@Zkxb#G]]} 0#<BGbp""4G@ZkBx"b@ZkPBGGTGTGXb@ZkGb#@Gb#6@G]]} 0#k///G//Bb"""bTG@ZkG`""b]TG]} 0#k/#;TG^~ ^(~[08@޴HG#G8;"b@ZkB4G b"@Zk(BG4G0b@Zk "xB"""bTG! @ /@Zk"TGBb!"@Zk//HBTG"="Pb@Zk="""xBbTG@ @D @Zk"TGBb!"@Zk/B4G$ bGH "@Zk"xBGb!"/@Zkv//#1`@Pb#@(BGh""B"tG0b@ZkBG+Gb/@ZkBGGGbGGD/@ZkBGb@ZkxB"""TGbb@ZkBcGb@ZkBG@h$"tGb@Zk3/H,H/WG.% JV Ge.E"rJU@G."J/SE/EKGS , e HS`G=BG>>GG~05"GG4Gb@ZkBG4Gb@ZkxBG""btGE"@Zk/xB"TG""b¤/@ZkB$"TGb@ZkXB4G`b/@ZkG] ](}08@ݤHP#k/,@ HD!.Q !JF.T JtF/X KF e/[ eK[G.P JD0;#HG^~tG^~1[ (0޴8@HGGG bX "@ZkB`"4Gb@Zk ,(B"8""0bTG H /@ZkHTGBb8$"/@Zk//`, b#HC@F@ ,="]"QBH HCF9`//e/p%HD [eK @pGe?.J CyeJF%/XKG @? , H Cu%H[G@.VJF>`.`JC @ zeJG e/[eK @zGe? , HCF@"G@:` ]#ZBECF/+///,DH @U@F/(. JBUBF/ e. eJkBUgBF/`. J+@U'@!G/ @/@ /.J BUBpG @.JBEB@@t@.JJCF;//%/teH`G{#DY%K @4G%?;,;H{#Cv%HG&.PJF>{,{H @{#CxeHF/.UJF @>,H{#CyHF e.SeJyFe>.JC @F%,A%H} %<//b#@G$G⤊ /BGX""HB"tGb%1@/@ZkBGG/b//@ZkBGGGbGGD/@ZkBGb@Zk(B8"""TG0bH¤@ZkBGb@ZkxB4Gb@ZkBGG &"GGb@Zks(BGTG""0bH¤@ZkB&"F"GGb@ZkB?"G"tGb@ZkP/ D/!///, DH`. JE. EJ@. J . J/ KE/ EK_ @e,% fHCaHXD/e<=?FHbB]"tGbx/F/ `3"@ZkøB""]"tGb@ZkB?"G"tGb@ZkH¤BTGb &"@ZkBG4Gb@ZkG]]} (0ݤ8@HP# =@ 8 k/# ;G^~tG^ ~(08޴@[HP>X^`~hpxG{G#b/ !"//@Zk(0B"TG8b /@ZkB"""TGb@ZkB "h""TGb@Zk//G/ ,G H/ ///Q.1" FQJ@.1"J.1"J 1/1"1K q/1"qK1,1"1H? B"TF B"@B3G/'///Q/ FQK%G' .1"JF"1,1"1H%D/ .1"J؅F/1"KF1"5B_ B/ `///1/1KeF/`1" B/ B//@Gs/.TGx HTJ F>.J/// /sJ F1"DY K 3G ?.J1".xJVJ F>.J1".yJUJ F>q/qK @.t@JPJ1" F>.J/`.S`J"Bx""]"`>tGb@ZkP`"G@`P1!B@ p"`/?4G BbPp"@ZkX"=D"G!?F F =/Բ5B! "/'$}"GtG`"Բ][Gb]=B F =}G@ZkB"4Gb@ZkBG"""TGbb/@ZkB@""TGb@Zk ///0BGG`"tG8bb%G;_%%tGMk!@ZkG//+w`IJ!@B! "/=BtGb!.Q!J!>C@ ""]"@ZkpB"="TGxb@ZkBgG""TG b@Zk BG}" b "@"/@Zk$]B0@@"btG"" @Zk-$ݠBtG@"b1C @D +N6%J2CD`""@Zk$ݠBtG""b0C @D NvJ2CD@"@Zk $ݠB@"""btG CDLH2CD@Zk "G@"B GbG!"/@Zkݠ0BGG8btG&,pHA&H0D`"&<@ZkG///pBGxb/@Zkc""tGBb`G/@Zk%?%B"!ʂ)!""TG@@b E/@Zkb ]"GBbG ,"@Zk /// bTGBb p#"@ZkGG]] }(08ݤ@HP=X]`}hpx#k/0#G(^~P;[ {0^8~@HPGGH;Ab@Zkb#,  H/C.#"QJ G(Ԣ5D PXBG`b TGG6FF484@ZkBG""TGb@ZkBGTG""b@Zk C.CJ`GB"tGbx""G@Zk =G .r H"@#Q J2F@" >.0JwJVJF>=`/P Ka:K[zKaG`?=`.p JBt2JSrJTGb""tF`>@ZkBGTG""b@Zk#"C.QJ GB"tGb8""G@Zk= .r H"Q J2F >.0JwJVJF>BGTG""b@ZkBGTGh""b@Zk#"C.QJk GB"tGb8""G@Zk= .r H"Q J2F >.0JwJVJF>BGTG""b@ZkBGTGp""b@ZkC.CJ/C`GB"tGb8""G@Zke.qHc"PJF>].0@JuSJTJF>0¦֢⦸BG""tGb@ZkGG(]0]8}@HP`#k///.P J0D q.S qJSF c.S cJSF2q.S qJSFjq.S qJSF c.S cJSF4?HGd DECC$MAIN4@Lb# DECC$MAIN4?`@d DECC$MAIN4=tG DECC$EXIT4>b# DECC$EXIT4=@ DECC$EXIT43G DECC$GETENV44b#8 DECC$GETENV43@ DECC$GETENVD5GCGILIBENVIRONMENTSETDEBUGD6b#8CGILIBENVIRONMENTSETDEBUGD5@CGILIBENVIRONMENTSETDEBUG 4 G4DECC$GXFPRINTF4$b#8DECC$GXFPRINTF40@4DECC$GXFPRINTF434GH DECC$GETENV44@b#8 DECC$GETENV43D@H DECC$GETENV<LGlCGILIBRESPONSEHEADER<Xb#8CGILIBRESPONSEHEADER<h@lCGILIBRESPONSEHEADER4xGDECC$GXFPRINTF4|b#8DECC$GXFPRINTF4@DECC$GXFPRINTF43G DECC$GETENV44b#8 DECC$GETENV43@ DECC$GETENV4%G DECC$ATOL4&b#8 DECC$ATOL4%@ DECC$ATOL<9GCGILIBENVIRONMENTINIT<:b#8CGILIBENVIRONMENTINIT<9@CGILIBENVIRONMENTINITD;GCGILIBENVIRONMENTISCGIPLUSD<b#8CGILIBENVIRONMENTISCGIPLUSD;@CGILIBENVIRONMENTISCGIPLUS4 G4 CGILIBVAR4(b#8 CGILIBVAR40@4 CGILIBVAR<7<GLCGILIBCGIPLUSEOF<8Db#8CGILIBCGIPLUSEOF<7H@LCGILIBCGIPLUSEOF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4/G SYS$GETTIM40b# SYS$GETTIM4/@ SYS$GETTIM4-G SYS$NUMTIM4.b# SYS$NUMTIM4-@ SYS$NUMTIM4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVAR4+G, DECC$STRCMP4,$b# DECC$STRCMP4+(@, DECC$STRCMP4+PGh DECC$STRCMP4,Xb# DECC$STRCMP4+d@h DECC$STRCMP4hG| CGILIBVAR4tb# CGILIBVAR4x@| CGILIBVAR41|G DECC$STRCHR42b# DECC$STRCHR41@ DECC$STRCHR<G CGILIBRESPONSEHEADER<b#CGILIBRESPONSEHEADER<@ CGILIBRESPONSEHEADER4 G<DECC$GXFPRINTF4b#DECC$GXFPRINTF48<DECC$GXFPRINTF4dGDECC$GXFPRINTF4b#(DECC$GXFPRINTF4@DECC$GXFPRINTF4G CGILIBVAR4b#( CGILIBVAR4@ CGILIBVAR4%G DECC$ATOL4&b#( DECC$ATOL4%@ DECC$ATOL<GCGILIBRESPONSEHEADER<b#(CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#(DECC$GXFPRINTF4@DECC$GXFPRINTF <' G8CGILIBREADREQUESTBODY<(0b#(CGILIBREADREQUESTBODY<'4@8CGILIBREADREQUESTBODY<HGhCGILIBRESPONSEHEADER<Lb#(CGILIBRESPONSEHEADER<d@hCGILIBRESPONSEHEADER4tGDECC$GXFPRINTF4xb#(DECC$GXFPRINTF4@DECC$GXFPRINTF4G CGILIBVAR4b#( CGILIBVAR4@ CGILIBVAR4+G DECC$STRCMP4,b#( DECC$STRCMP4+@ DECC$STRCMP4G DECC$FOPEN4b#( DECC$FOPEN4@ DECC$FOPENDG$CMA$TIS_VMSERRNO_GET_ADDRDb#(CMA$TIS_VMSERRNO_GET_ADDRD @$CMA$TIS_VMSERRNO_GET_ADDR4 (GT SYS$SCHDWK4 8b#( SYS$SCHDWK4 P@T SYS$SCHDWK4TGd SYS$HIBER4\b#( SYS$HIBER4`@d SYS$HIBER<hGCGILIBRESPONSEHEADER<xb#(CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADERDGCMA$TIS_VMSERRNO_GET_ADDRDb#(CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4GDECC$GXFPRINTF4b#(DECC$GXFPRINTF4@DECC$GXFPRINTF4@GtDECC$GXFPRINTF4lb#(DECC$GXFPRINTF4p@tDECC$GXFPRINTF4 tG DECC$FCLOSE4b#( DECC$FCLOSE4 @ DECC$FCLOSE<GCGILIBRESPONSEHEADER<b#(CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER<GCGILIBRESPONSEHEADER<b#(CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#(DECC$GXFPRINTF4@DECC$GXFPRINTF4)G DECC$FREE4*b#( DECC$FREE4)@ DECC$FREE4GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4G CGILIBVAR4 b#x CGILIBVAR4 @ CGILIBVAR< G4 CGILIBRESPONSEHEADER< b#xCGILIBRESPONSEHEADER<0 @4 CGILIBRESPONSEHEADER4@ GT DECC$GXFPRINTF4D b#xDECC$GXFPRINTF4P @T DECC$GXFPRINTF4 G DECC$FOPEN4 b#x DECC$FOPEN4 @ DECC$FOPEND G4 CMA$TIS_VMSERRNO_GET_ADDRD$ b#xCMA$TIS_VMSERRNO_GET_ADDRD0 @4 CMA$TIS_VMSERRNO_GET_ADDR4 8 Gd SYS$SCHDWK 4 H b#x SYS$SCHDWK4 ` @d SYS$SCHDWK4d Gt SYS$HIBER4l b#x SYS$HIBER4p @t SYS$HIBER<x G CGILIBRESPONSEHEADER< b#xCGILIBRESPONSEHEADER< @ CGILIBRESPONSEHEADER<  G CMA$TIS_ERRNO_GET_ADDR<  b#xCMA$TIS_ERRNO_GET_ADDR<  @ CMA$TIS_ERRNO_GET_ADDR4 G DECC$STRERROR4 b#x DECC$STRERROR4 @ DECC$STRERROR4 G DECC$GXFPRINTF4 b#xDECC$GXFPRINTF4 @ DECC$GXFPRINTF< G CGILIBRESPONSEHEADER< b#xCGILIBRESPONSEHEADER< @ CGILIBRESPONSEHEADER4 GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4G8 DECC$FGETS40b#x DECC$FGETS44@8 DECC$FGETS4G<DECC$GXFPRINTF4$b#xDECC$GXFPRINTF48@<DECC$GXFPRINTF4@G\DECC$GXFPRINTF4Tb#xDECC$GXFPRINTF4X@\DECC$GXFPRINTF4\Gx DECC$FGETS4pb#x DECC$FGETS4t@x DECC$FGETS4GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4 G DECC$FCLOSE4b#x DECC$FCLOSE4 @ DECC$FCLOSE4GdDECC$GXFPRINTF4Hb#DECC$GXFPRINTF4`@dDECC$GXFPRINTF4hG DECC$STRCPY4tb# DECC$STRCPY4@ DECC$STRCPY4G DECC$STRSTR4b# DECC$STRSTR4@ DECC$STRSTR4G DECC$STRSTR4b# DECC$STRSTR4@ DECC$STRSTR4PGxDECC$GXFPRINTF4lb#DECC$GXFPRINTF4t@xDECC$GXFPRINTF4G DECC$STRLEN4b# DECC$STRLEN4@ DECC$STRLEN4 \b# SYS$PARSE4hG SYS$PARSE4@ SYS$PARSE4G CGILIBVAR4b# CGILIBVAR4@ CGILIBVAR<GCGILIBRESPONSEHEADER<b#CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4!G$ SYS$SEARCH4"b# SYS$SEARCH4! @$ SYS$SEARCH4TGDECC$GXFPRINTF4\b#DECC$GXFPRINTF 4@DECC$GXFPRINTF<#GDECC$__LONG_GID_STAT<$b#DECC$__LONG_GID_STAT<#@DECC$__LONG_GID_STAT<GCGILIBRESPONSEHEADER<b#CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G DECC$GXSPRINTF4b#DECC$GXSPRINTF4@ DECC$GXSPRINTF4GLDECC$GXSPRINTF4 b#DECC$GXSPRINTF4H@LDECC$GXSPRINTF4TGDECC$GXSPRINTF4`b#DECC$GXSPRINTF4@DECC$GXSPRINTF4GDECC$GXSPRINTF4b#DECC$GXSPRINTF4@DECC$GXSPRINTF4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4!G( SYS$SEARCH4"b# SYS$SEARCH4!$@( SYS$SEARCHD@GTCMA$TIS_VMSERRNO_GET_ADDRDHb#CMA$TIS_VMSERRNO_GET_ADDRDP@TCMA$TIS_VMSERRNO_GET_ADDR4hGDECC$GXFPRINTF4lb#DECC$GXFPRINTF4@DECC$GXFPRINTF<GCGILIBRESPONSEHEADER<b#CGILIBRESPONSEHEADER<@CGILIBRESPONSEHEADER4GDECC$GXFPRINTF4b#DECC$GXFPRINTF4@DECC$GXFPRINTF4G$DECC$GXFPRINTF4b#DECC$GXFPRINTF4 @$DECC$GXFPRINTF4GDECC$GXFPRINTF4b#xDECC$GXFPRINTF4@DECC$GXFPRINTF4GD DECC$STRCPY4b#x DECC$STRCPY4@@D DECC$STRCPY4DGl DECC$STRSTR4db#x DECC$STRSTR4h@l DECC$STRSTR4lG DECC$STRSTR4b#x DECC$STRSTR4@ DECC$STRSTR4GDECC$GXSPRINTF4b#xDECC$GXSPRINTF4@DECC$GXSPRINTF44GX DECC$STRSTR4Db#x DECC$STRSTR4T@X DECC$STRSTR4XGx DECC$STRSTR4lb#x DECC$STRSTR4t@x DECC$STRSTR4GDECC$GXSPRINTF4b#xDECC$GXSPRINTF4@DECC$GXSPRINTF4G DECC$STRSTR4b#x DECC$STRSTR4@ DECC$STRSTR4G( DECC$STRSTR4b#x DECC$STRSTR4$@( DECC$STRSTR4HGdDECC$GXSPRINTF4Tb#xDECC$GXSPRINTF4`@dDECC$GXSPRINTF t4G DECC$STRSTR4b#x DECC$STRSTR4@ DECC$STRSTR4G DECC$STRSTR4b#x DECC$STRSTR4@ DECC$STRSTR4GDECC$GXSPRINTF4b#xDECC$GXSPRINTF4@DECC$GXSPRINTF4\G|DECC$GXFPRINTF4tb#xDECC$GXFPRINTF4x@|DECC$GXFPRINTF =(ReportFileName() |%s|%s|  =H; `=pg = CSPREPORT AXP-1.0.0=H;
%s %s
 =@1Report fopen() %s %s.
Must be authenticated!
X= OutputReport() |%s|
p=(
=0!Report $parse() %s %%X%08.08X. =(%s %s = ReportList() |%s| =H=Content not "application/csp-report"! Content-Length: 0 0=@5%04.04u-%02.02u-%02.02u %02.02u:%02.02u:%02.02u %s h=(Report fopen() %%X%08.08X! =8*application/csp-reportWWW_CONTENT_TYPE=(No report in the POST! =(Report exceeds maximum size! = WWW_CONTENT_LENGTH= WWW_REQUEST_METHOD(= ProcessRequest() @=(CSPREPORT_FILE not defined! `=&Content-Type: text/plain =MM=yyyy=DD=|%s|  =HH(=YYYY0DECC$GXFPRINTF7DECC$GA_STDOUTPDECC$GXSPRINTF DECC$STRSTR7NUMTIME=0("p;=`@< ;;7DBUG= %02.02u;7 REPORTFILEPTR DECC$STRCPY=dd=hh=%4.4u=mm CMA$TIS_ERRNO_GET_ADDR SYS$SCHDWK DECC$FCLOSE= text/html@ CGILIBVAR DECC$FOPEN DECC$FGETS;=0 ;=PH  CGILIBRESPONSEHEADER= text/plain= shr=get,put=r= WWW_REMOTE_USER DECC$STRERROR=%s (CMA$TIS_VMSERRNO_GET_ADDR SYS$HIBER=(FileName |%s| %%X%08.08X P=%uMBX=%uB` DECC$STRLEN SYS$PARSE= WWW_SCRIPT_NAME=B_p=0";= \? 7! SYS$SEARCH=Script name? 7DECC$GA_RMS_FAB7DECC$GA_RMS_NAM=%ukB #DECC$__LONG_GID_STAT=%uGB(=0 @;=P<| ;% DECC$ATOL=PostReport() p 'CGILIBREADREQUESTBODY) DECC$FREE=a++ DECC$STRCMP=0 ;=04 7BINTIME=POST- SYS$NUMTIM/ SYS$GETTIM1 DECC$STRCHR= Hmmm...  =GET(=WWW_PATH_INFO8=0";=0  7 ISCGIPLUS3 DECC$GETENV=CSPREPORT_FILE(5CGILIBENVIRONMENTSETDEBUG=(CSPREPORT_DBUGCSPREPORT_MAX= 7CGILIBCGIPLUSEOF 9CGILIBENVIRONMENTINIT(;CGILIBENVIRONMENTISCGIPLUS=08";=P0 7DECC$$SHELL_HANDLER== DECC$EXIT? DECC$MAIN (=  CMA$TIS_ERRNO_GET_ADDR(CMA$TIS_VMSERRNO_GET_ADDR DECC$__LONG_GID_STATDECC$GA_STDOUT DECC$FCLOSEDECC$GXFPRINTFDECC$GXSPRINTF DECC$FOPEN DECC$FGETS DECC$ATOL DECC$FREE DECC$GETENV DECC$STRCHR DECC$STRCPY DECC$STRSTR DECC$STRCMP DECC$STRLEN DECC$STRERRORDECC$GA_RMS_FABDECC$GA_RMS_NAM SYS$GETTIM SYS$HIBER SYS$NUMTIM SYS$PARSE SYS$SCHDWK SYS$SEARCH CGILIBVAR CGILIBCGIPLUSEOF CGILIBENVIRONMENTINIT(CGILIBENVIRONMENTISCGIPLUS(CGILIBENVIRONMENTSETDEBUG CGILIBREADREQUESTBODY CGILIBRESPONSEHEADER DECC$MAIN DECC$EXIT DECC$$SHELL_HANDLER  $TIS