File: install_image.com

package info (click to toggle)
unixodbc 2.2.11-16
  • links: PTS
  • area: main
  • in suites: lenny
  • size: 17,332 kB
  • ctags: 12,399
  • sloc: ansic: 116,624; cpp: 29,333; sh: 25,024; makefile: 3,002; lex: 241; yacc: 182; perl: 142; sed: 16; sql: 1
file content (24 lines) | stat: -rw-r--r-- 547 bytes parent folder | download | duplicates (12) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
$
$ if p1 .eqs. "" then $goto ERR_NOPARAMS
$
$ install :== $install/command
$
$ if (f$file ("''p1'", "KNOWN"))
$ then install replace/open/header/shared 'p1'
$ else install create/open/header/shared 'p1'
$ endif
$done:
$ exit
$
$ERR_NOPARAMS:
$ write sys$output " "
$ write sys$output "The correct calling sequence is: "
$ write sys$output " "
$ write sys$output "$ @install_server p1
$ write sys$output " "
$ write sys$output "Where: "
$ write sys$output " "
$ write sys$output "    p1 = Image to be installed"
$ write sys$output " "
$ exit 44
$