$!
$! Create and install shareable image p10gks on sys$share from object library
$!
$!
$! Step 1: build and link shareable image
$!
$ lib/ext=(*)/out=*.obj set_default.olb                                         ! create object file from object library
$ del/nocon setdef.exe;*							! delete any old executables
$ macro transfer								! compile transfer vectors
$ link/share'p1'/exe=setdef.exe set_default +setdef/opt	         ! link shareable image 
$ del/nocon transfer.obj;*							! delete compiled transfer vectors
$!
$! Step 2: de-install old shareable image and old shareable image file
$!
$ set proc/priv=all								! invoke special privileges
$ set noon									! turn off error handling so that if 
										! setdef.exe  isn't there we dont exit
$ run sys$system:install							! invoke install utility
sys$common:[syslib]setdef.exe/del						! delete old installed shareable image
/exit
$ set on									! turn on error handling
$ del/nocon sys$common:[syslib]setdef.exe;*					! delete old shareable image file
$!
$! Step 3: copy new shareable image file and install new image
$!
$ cop setdef.exe sys$common:[syslib]          					! place new sharable image into sys$share
$ set file/prot=(G:RWE,W:RWE) sys$common:[syslib]setdef.exe			! set protection on file for easy access
$ del/nocon setdef.exe;*							! delete file in current directory
$ run sys$system:install							! invoke install utility
sys$common:[syslib]setdef.exe/share/write					! install it
/exit										! exit install utility
$ set proc/priv=none
$ exit