← Back to branch summary

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

« back to all changes in this revision

Viewing changes to system/vms/midfillbck.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:
system/vms/midfillbck.com
 
1
$ @(#)midfillbck.com    19.1 (ESO-IPG) 02/25/03 14:32:20
 
2
$ !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
$ !
 
4
$ ! command procedure MIDFILLBCK.COM
 
5
$ !
 
6
$ ! IPG                 ESO - Garching          870706, 910312  K. Banse
 
7
$ ! IPG                 ESO - Garching          881215 C.Guirao
 
8
$ ! IPG                 ESO - Garching          931007 C.Guirao
 
9
$ !
 
10
$ ! fill the MIDAS directories from the export backup file
 
11
$ ! which has been written with MIDEXPORT.COM
 
12
$ !
 
13
$ !----------------------------------------------------------
 
14
$ !
 
15
$ ! get logical assignments for MIDAS stuff
 
16
$ IF P1 .NES. "" THEN GOTO P1_OK
 
17
$ IF MIDVERS .NES. "" THEN GOTO CHECK_P2
 
18
$ WRITE SYS$OUTPUT "We need the MIDAS version (e.g. 93NOV) as 1. Parameter ..."
 
19
$ WRITE SYS$OUTPUT "or MIDVERS must be defined previously"
 
20
$ EXIT
 
21
$ !
 
22
$ P1_OK:
 
23
$ MIDVERS :== 'P1'
 
24
$ !
 
25
$ CHECK_P2:
 
26
$ !
 
27
$ IF P2 .NES. "" THEN GOTO P2_OK
 
28
$ IF MIDASHOME .NES. "" THEN GOTO START
 
29
$ WRITE SYS$OUTPUT "We need the MIDAS home (e.g. MIDAS) as 2. Parameter ..."
 
30
$ WRITE SYS$OUTPUT "or MIDASHOME must be defined previously"
 
31
$ EXIT
 
32
$ !
 
33
$ P2_OK:
 
34
$ MIDASHOME :== 'P2'
 
35
$ !
 
36
$ START:
 
37
$ !
 
38
$ INQUIRE/NOPUNCT BCKFILE "enter backup file, (e.g. 93N08.BCK) "
 
39
$ !
 
40
$ SET VERIFY
 
41
$ SET NOON
 
42
$ !
 
43
$ SET PROTECTION=(G:RWE,W:RWE)/DEFAULT
 
44
$ !
 
45
$ MIDAS:
 
46
$ !
 
47
$ ! fill the directories MID_DISK:['MIDASHOME'.'MIDVERS'...]
 
48
$ !
 
49
$ SET DEF MID_DISK:['MIDASHOME'.'MIDVERS']
 
50
$ !
 
51
$ BACKUP/NEW_VERSION/SELECT=([PMIDAS.'MIDVERS'...]*.*) 'BCKFILE'/SAV -
 
52
  MID_DISK:['MIDASHOME'.'MIDVERS'...]*.*
 
53
$ !
 
54
$ !  get the logical assignments
 
55
$ SET DEF MID_DISK:['MIDASHOME'.'MIDVERS']
 
56
$ @ MID_DISK:['MIDASHOME'.'MIDVERS'.MONIT]MIDLOGS
 
57
$ !
 
58
$ !
 
59
$ PURGE/LOG MID_DISK:['MIDASHOME'.'MIDVERS'...]
 
60
$ !
 
61
$ SET NOVERI
 
62
$ EXIT