F CGICALLOUTV1.0 4-NOV-2021 10:08 VSI C V7.4-002 iD$CODE$ $LITERAL$0$LINK$$DATA$(J`MAIN(J__MAIN =LD#~P^X^`cG#GLH=D]@}<8 "ݶ0#(=#  >LH=D]@}<84G0B8b@Zkpb# @G4G0B8b@ZkcGP]X]`p#k#~^^ ~(08޴@G#G 4GBb@ZkG "4GBb@ZkG/  "4G0B8b/@Zk4G4GBb@Zk P" "1"TGBb@ZkG/`GBb@Zk  `"4G0B8b@Zk 4GBb@Zk "4G0B8b/@Zk "4GBb@Zk "4GBb@ZkG " .J/ "G BR"G p"GGGGBb@Zk "GTGBb/@ZkG "1"GtGpBxb@Zk "GTGBb@Zk"?"GtGPBXb@Zk"TGTG`Bhb@Zk.PJ>ݢ6JJ7JJ8KKFUB "G "G]_GUFC@ BZ# b0{#G ^ "="GGGGGBb@ZkDXDQ= = ("=TGBb@Zk @"G BPR"}GGBb@Zk"?"GtGPBXb@Zk"TGTG`Bhb@Zk.PJ>ݢ6JJ7JJ8KKFUB "G "G]_GUFC@ BZ# b`{#G ^ "="GGGGGBb@Zk "4GBb@ZkG4G@BHb/@ZkG4G0B8b@ZkG4G@BHb@Zk "4G0B8b@ZkG4G@BHb@ZkG4G0B8b@ZkG4G@BHb@Zk"?"GtGPBXb@Zk4GG]] }(08ݤ@P#/k4G DECC$MAIN4b# DECC$MAIN4@ DECC$MAIN4G DECC$EXIT4b# DECC$EXIT4@ DECC$EXIT4G  DECC$GETENV4b#` DECC$GETENV4@  DECC$GETENV4G( DECC$GETENV4 b#` DECC$GETENV4$@( DECC$GETENV4 DGT DECC$PUTS4 Hb#` DECC$PUTS4 P@T DECC$PUTS4\Gh DECC$EXIT4`b#` DECC$EXIT4d@h DECC$EXIT4|G DECC$FOPEN4b#` DECC$FOPEN4@ DECC$FOPENDGCMA$TIS_VMSERRNO_GET_ADDRDb#`CMA$TIS_VMSERRNO_GET_ADDRD@CMA$TIS_VMSERRNO_GET_ADDR4 G DECC$PUTS4 b#` DECC$PUTS4 @ DECC$PUTS4G DECC$EXIT4b#` DECC$EXIT4@ DECC$EXIT4 G DECC$PUTS4 b#` DECC$PUTS4 @ DECC$PUTS4G  DECC$SYSTEM4b#` DECC$SYSTEM4@  DECC$SYSTEM4G$ DECC$GETENV4b#` DECC$GETENV4 @$ DECC$GETENV4 xG DECC$GXPRINTF4 |b#` DECC$GXPRINTF4 @ DECC$GXPRINTF4 G DECC$GXPRINTF4 b#` DECC$GXPRINTF4 @ DECC$GXPRINTF4GDECC$GXFPRINTF d 4b#`DECC$GXFPRINTF4@DECC$GXFPRINTF4 G DECC$GXPRINTF4 b#` DECC$GXPRINTF4 @ DECC$GXPRINTF4G DECC$FGETS4b#` DECC$FGETS4@ DECC$FGETS4G DECC$STRCHR4b#` DECC$STRCHR4@ DECC$STRCHR4 G DECC$GXPRINTF4 b#` DECC$GXPRINTF4 @ DECC$GXPRINTF4 G  DECC$GXPRINTF4 b#` DECC$GXPRINTF4 @  DECC$GXPRINTF4 ,G8 DECC$GXPRINTF4 0b#` DECC$GXPRINTF4 4@8 DECC$GXPRINTF4HGT DECC$FGETS4Lb#` DECC$FGETS4P@T DECC$FGETS4`Gl DECC$STRCHR4db#` DECC$STRCHR4h@l DECC$STRCHR4 G( DECC$GXPRINTF4 b#` DECC$GXPRINTF4 $@( DECC$GXPRINTF4 8GD DECC$GXPRINTF4 <b#` DECC$GXPRINTF4 @@D DECC$GXPRINTF4 TGd DECC$FFLUSH4Xb#` DECC$FFLUSH4 `@d DECC$FFLUSH4 lGx DECC$PUTS4 pb#` DECC$PUTS4 t@x DECC$PUTS4 G DECC$FFLUSH4b#` DECC$FFLUSH4 @ DECC$FFLUSH4 G DECC$PUTS4 b#` DECC$PUTS4 @ DECC$PUTS4 G DECC$FFLUSH4b#` DECC$FFLUSH4 @ DECC$FFLUSH4 G DECC$PUTS4 b#` DECC$PUTS4 @ DECC$PUTS4 G DECC$FFLUSH4b#` DECC$FFLUSH4 @ DECC$FFLUSH4G DECC$FGETS4 b#` DECC$FGETS4@ DECC$FGETS < DECC$FOPEN DECC$SYSTEM DECC$EXIT DECC$GETENV7DECC$GA_STDOUTP DECC$GXPRINTF=0";=P(| X; DECC$PUTS DECC$FFLUSH DECC$FGETS DECC$STRCHRDECC$GXFPRINTF(CMA$TIS_VMSERRNO_GET_ADDR=0P";=p  7DECC$$SHELL_HANDLER= DECC$MAIN =r===%s  =%s (=successerror8=successerrorH=pathP=NOOP:X= CGIPLUSESCh= CGIPLUSEOTx=8*Error: callout environment not detected! = CGIPLUSIN:=0"Error: opening CGIPLUSIN stream! =@1Content-Type: text/plain CGI variable symbols: = SHOW SYMBOL WWW_*0=WWW_PATH_INFO@=8. (empty path, will be an error)MAP-PATH: %s p= file specification=error message=%s %s: %s %s = MAP-FILE=error message=pd Map path "%s"%s to a file specification. This will be done using a callout of "MAP-PATH: %s" 0= The server responded with: "%s" %c%c%c is a %s code, hence the %s is "%s" Now map this file specification back to a path. This will be done using a callout of "MAP-FILE: %s" =`Q The server responded with: "%s" %c%c%c is a %s code, hence the %s is "%s" H= As an error occured in the first callout, the second, to map it back to a path, will not be done. Append a path to the script URL and see what happens! @=0(' CGICALLOUTVSI C V7.4-002 ?= `4=TRANSFER$BREAK$GO = 4`4= main4=|{   , C   d      0 =  s= 44= __main4=   =  =  p(CMA$TIS_VMSERRNO_GET_ADDRDECC$GA_STDOUT DECC$FFLUSHDECC$GXFPRINTF DECC$GXPRINTF DECC$PUTS DECC$FOPEN DECC$FGETS DECC$STRCHR DECC$GETENV DECC$EXIT DECC$SYSTEM DECC$MAIN DECC$$SHELL_HANDLER  $TIS