[0001]
[0002]
[0003]
[0004]
[0005]
[0006]
[0007]
[0008]
[0009]
[0010]
[0011]
[0012]
[0013]
[0014]
[0015]
[0016]
[0017]
[0018]
[0019]
[0020]
[0021]
[0022]
[0023]
[0024]
[0025]
[0026]
[0027]
[0028]
[0029]
[0030]
[0031]
[0032]

$!'f$verify(0)
$ set on
$ on error then goto endCGIplusLoop
$ CGIplusLoop:
$    delete /symbol /local /global /all
$    cgiutl == "$CGI-BIN:[000000]CGIUTL"
$    cgiutl /plus /prefix="WWW_"
$    type = f$edit(f$parse(WWW_SCRIPT_FILENAME,,,"type"),"upcase")
$    if type .eqs. ".COM" then verb = "@" + WWW_SCRIPT_FILENAME
$    if type .eqs. ".EXE" then verb = "$" + WWW_SCRIPT_FILENAME
$    if f$type(verb) .eqs. "" then exit 676
$    verb
$!   'f$verify(0)
$    set on
$    on error then goto endCGIplusLoop
$    write sys$output f$trnlnm("CGIPLUSEOF")
$    goto CGIplusLoop
$ endCGIplusLoop:
$ exit $status
$!-----------------------------------------------------------------------------
$! COMRTEXE.COM
$!
$! An RTE wrapper for .COM and .EXE so they can be located anywhere, e.g.
$!
$!    exec /**.com (@cgi-bin:[000000]comrtexe.com)/web/*.com
$!    exec /**.exe (@cgi-bin:[000000]comrtexe.com)/web/*.exe
$!
$! Can be modified for other file types and execution environments.
$! CGI variables are present as global DCL symbols as per standard CGI.
$!
$! 06-NOV-2011  MGD  initial
$!-----------------------------------------------------------------------------