Skip to content
Snippets Groups Projects
Commit 7b642a1f1979 authored by Jean-Francois Pieronne's avatar Jean-Francois Pieronne
Browse files

Add OpenVMS/startup.com

parent 460870e614eb
No related branches found
No related tags found
1 merge request!1Topic/open vms/vms1713
$ this = f$environment("PROCEDURE")
$ this_dir = f$parse(this,,,"DEVICE") + f$parse(this,,,"DIRECTORY")
$ define/system/exec/nolog LIBCJSON 'this_dir'
$
$ define/system/exec/nolog CJSONSHR32 LIBCJSON:CJSONshr32.exe
$ define/system/exec/nolog CJSONSHR64 LIBCJSON:CJSONshr64.exe
$
$ if .not. f$file_attributes("CJSONshr32","KNOWN")
$ then
$ install add 'p1' CJSONSHR32
$ else
$ install replace CJSONSHR32
$ endif
$
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment