← Back to branch summary

~ubuntu-branches/debian/jessie/eso-midas/jessie

« back to all changes in this revision

Viewing changes to monit/setmidas.com

  • Committer: Package Import Robot
  • Author(s): Ole Streicher
  • Date: 2014-04-22 14:44:58 UTC
  • Revision ID: package-import@ubuntu.com-20140422144458-okiwi1assxkkiz39
Tags: upstream-13.09pl1.2+dfsg
Import upstream version 13.09pl1.2+dfsg

Show diffs side-by-side

added added

removed removed

Lines of Context:
monit/setmidas.com
 
1
$ ! @(#)setmidas.com    19.1 (ESO-IPG) 02/25/03 13:58:47 
 
2
$ !---------------------------------------------------------------------------
 
3
$ !
 
4
$ !     New procedure SETMIDAS.COM
 
5
$ !     K. Banse     ESO - Garching        910218
 
6
$ !
 
7
$ !---------------------------------------------------------------------------
 
8
$ !
 
9
$ ! handle MIDOPTION
 
10
$ !
 
11
$ TYPR := 'F$TYPE(MIDOPTION)'
 
12
$ IF TYPR .EQS. "" THEN MIDOPTION:==NOPARALLEL
 
13
$!
 
14
$ WRITE SYS$OUTPUT "MIDAS option: PARALLEL, NOPARALLEL"
 
15
$ IF MIDOPTION .EQS. "PARALLEL" THEN GOTO PARA
 
16
$ !
 
17
$ NOPARA:
 
18
$ MIDOPTION:==NOPARALLEL
 
19
$ INQUIRE/NOPUNCT MIDOPTION "Enter MIDAS option (default= NOPARALLEL)"
 
20
$ GOTO JOIN_2
 
21
$ !
 
22
$ PARA:
 
23
$ MIDOPTION:==PARALLEL
 
24
$ INQUIRE/NOPUNCT MIDOPTION "Enter MIDAS option (default= PARALLEL)"
 
25
$ !
 
26
$ JOIN_2:
 
27
$ TYPE := 'F$EXTRACT(0,1,MIDOPTION)'
 
28
$ IF TYPE .EQS. "P" THEN GOTO PARALLEL
 
29
$ MIDOPTION :== NOPARALLEL
 
30
$ GOTO AFTER_P
 
31
$ !
 
32
$ PARALLEL:
 
33
$ MIDOPTION :== PARALLEL
 
34
$ !
 
35
$ AFTER_P:
 
36
$ ASSIGN/NOLOG _NL: SYS$ERROR
 
37
$ ASSIGN/NOLOG _NL: SYS$OUTPUT
 
38
$ SHO LOGI MID_WORK
 
39
$ MV = '$STATUS'
 
40
$ DEASSIGN SYS$ERROR
 
41
$ DEASSIGN SYS$OUTPUT
 
42
$ IF MV .EQ. %X10000001 THEN GOTO END1
 
43
$ !
 
44
$ TYPR := 'F$LOGICAL("SYS$LOGIN")'
 
45
$ KSTR := 'F$EXTRACT(0,F$LOCATE("]",TYPR),TYPR)'
 
46
$ ASSIGN 'KSTR'.MIDWORK] MID_WORK
 
47
$ END1:
 
48
$ WRITE SYS$OUTPUT "Current startup directory for Midas:"
 
49
$ SHO LOGI MID_WORK
 
50
$ INQUIRE/NOPUNCT MIDV "Enter startup directory:"
 
51
$ IF MIDV .EQS. "" THEN GOTO END
 
52
$ ASSIGN 'MIDV' MID_WORK
 
53
$ !
 
54
$ END:
 
55
$ IF P1 .EQS. "" THEN EXIT
 
56
$ SHO SYMB MIDOPTION
 
57
$ SHO LOGI MID_WORK
 
58
$ EXIT