File: install_image.com

package info (click to toggle)
unixodbc 2.1.1-8
  • links: PTS
  • area: main
  • in suites: woody
  • size: 12,668 kB
  • ctags: 12,486
  • sloc: ansic: 107,685; cpp: 33,663; sh: 13,300; makefile: 2,926; yacc: 499; lex: 241; sed: 93; 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
$