← Back to branch summary

~ubuntu-branches/ubuntu/wily/eso-midas/wily-proposed

« back to all changes in this revision

Viewing changes to system/vms/midexport.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/midexport.com
 
1
$ ! @(#)midexport.com   19.1 (ESO-IPG) 02/25/03 14:32:20 
 
2
$ !+++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 
3
$ !
 
4
$ ! command procedure MIDEXPORT.COM
 
5
$ ! IPG         ESO-Garching            880301
 
6
$ ! IPG         ESO-Garching            881215  C.Guirao
 
7
$ ! IPG         ESO-Garching            890426  C.Guirao
 
8
$ !             New parameter: MIDASHOME
 
9
$ !                                     900417  M.Peron
 
10
$ ! save the directory ['MIDASHOME'...] on magtape or disk
 
11
$ !
 
12
$ ! the release version is reflected in the label of the backup tape
 
13
$ ! right now it is     MIDVERS
 
14
$ !
 
15
$ !----------------------------------------------------------
 
16
$ !
 
17
$ ! get necessary input
 
18
$ !
 
19
$ INQUIRE MIDAS_DEVICE  "From what disk do you take the version of MIDAS ''version'($1$DUA7) ? "
 
20
$ INQUIRE MIDASHOME "Which is the Midas home directory (e.g. PMIDAS) ? "
 
21
$ INQUIRE MIDVERS "Which version do you want to export (e.g. 93NOV) ? "
 
22
$ !
 
23
$ BLKSIZE :==
 
24
$ TAPE :==
 
25
$ BCKFILE :== MIDAS.BCK
 
26
$ SAVE :== 
 
27
$ !
 
28
$ INQUIRE BCK_DEV "Backup on tape or disk (default: disk)? " 
 
29
$ IF BCK_DEV .eqs. "TAPE" THEN GOTO BCK_TAPE
 
30
$ !
 
31
$ SAVE :== /SAVE_SET
 
32
$ INQUIRE BCKFILE "Enter backup file, (e.g. 93NOV.BCK) "
 
33
$ INQUIRE BLOCK_SIZE "enter block size (e.g. 2048-ftp, CR-default) "
 
34
$ IF BLOCK_SIZE .nes. "" THEN BLKSIZE :== /BLOCK_SIZE='BLOCK_SIZE'
 
35
$ GOTO CONT1
 
36
$ !
 
37
$ BCK_TAPE:
 
38
$ INQUIRE TAPE "enter magtape unit, (e.g. MTA0/MTA1) "
 
39
$ NN = 'F$LOCATE(":",TAPE)'
 
40
$ IF NN .EQ. F$LENGTH(TAPE) THEN TAPE = TAPE+":"
 
41
$ INQUIRE DENS "density of the tape, (800/1600/6250) "
 
42
$ !
 
43
$ INIT/DENSITY='DENS' 'TAPE' 'MIDVERS'
 
44
$ MOUNT/DENSITY='DENS'/FOR 'TAPE'
 
45
$ !
 
46
$ CONT1:
 
47
$ INQUIRE CLEANY "do you want to clean up first ? (Y/N)"
 
48
$ !
 
49
$ !
 
50
$ SET NOON              !make sure BACKUP goes all the way...
 
51
$ !
 
52
$ ASSIGN 'MIDAS_DEVICE': MID_DISK
 
53
$ !
 
54
$ IF BCK_DEV .eqs. "TAPE" THEN GOTO BCK_MIDFILL
 
55
$ GOTO CONT2
 
56
$ !
 
57
$ BCK_MIDFILL:
 
58
$ WRITE SYS$OUTPUT " "
 
59
$ WRITE SYS$OUTPUT "Put MIDFILL.COM at the beginning of the tape in the"
 
60
$ WRITE SYS$OUTPUT "               save set MIDFILL.BCK"
 
61
$ WRITE SYS$OUTPUT " "
 
62
$ !
 
63
$ SET DEF MID_DISK:['MIDASHOME'.'MIDVERS'.SYSTEM.VMS]
 
64
$ BACKUP/IGNORE=INTER/LABEL='MIDVERS' MIDFILL.COM 'TAPE'MIDFILL.BCK
 
65
$ !
 
66
$ !
 
67
$ CONT2:
 
68
$ ! Here for ['MIDASHOME'...] 
 
69
$ IF CLEANY .NES. "Y" THEN GOTO B_MIDAS
 
70
$ !
 
71
$ !     cleanup ['MIDASHOME']
 
72
$ !
 
73
$ WRITE SYS$OUTPUT " "
 
74
$ WRITE SYS$OUTPUT "               Cleaning of MID_DISK:['MIDASHOME'.''MIDVERS'...]"
 
75
$ WRITE SYS$OUTPUT " "
 
76
$ !
 
77
$ SET DEF MID_DISK:['MIDASHOME'.'MIDVERS']
 
78
$ @ MID_DISK:['MIDASHOME'.'MIDVERS'.SYSTEM.VMS]CLEANUP
 
79
$ !
 
80
$ B_MIDAS:
 
81
$ !
 
82
$ ! Here for ['MIDASHOME'.'MIDVERS']
 
83
$ WRITE SYS$OUTPUT " "
 
84
$ WRITE SYS$OUTPUT "               Backup of MID_DISK:['MIDASHOME'.''MIDVERS'...]"
 
85
$ WRITE SYS$OUTPUT " "
 
86
$ !
 
87
$ !
 
88
$ SET DEF MID_DISK:['MIDASHOME']
 
89
$ BACKUP'BLKSIZE'/INTERCHANGE/IGNO=INTER/EXCL=(-
 
90
   ['MIDASHOME'.'MIDVERS'.PRIM.PROC]INTERNAL.COD,-
 
91
   ['MIDASHOME'.'MIDVERS'.LIBSRC.OS.UNIX]*.*,-
 
92
   ['MIDASHOME'.'MIDVERS'.STDRED.ASTRO...]*.*,-
 
93
   ['MIDASHOME'.'MIDVERS'.STDRED.CCD...]*.*,-
 
94
   ['MIDASHOME'.'MIDVERS'.STDRED.HSP...]*.*,-
 
95
   ['MIDASHOME'.'MIDVERS'.STDRED.MMF...]*.*,-
 
96
   ['MIDASHOME'.'MIDVERS'.STDRED.PROC...]*.*,-
 
97
   ['MIDASHOME'.'MIDVERS'.CONTRIB.XSTUFF...]*.*,-
 
98
   ['MIDASHOME'.'MIDVERS'.CONTRIB.ESOLV...]*.*,-
 
99
   ['MIDASHOME'.'MIDVERS'.CONTRIB.STELLA...]*.*,-
 
100
   ['MIDASHOME'.'MIDVERS'.CONTRIB.PROC...]*.*,-
 
101
   ['MIDASHOME'.'MIDVERS'.INSTALL.UNIX...]*.*,-
 
102
   ['MIDASHOME'.'MIDVERS'.GUI...]*.*,-
 
103
   ['MIDASHOME'.'MIDVERS'.DOC...]*.*,-
 
104
   ['MIDASHOME'.'MIDVERS'...]*.EXE,-
 
105
   ['MIDASHOME'.'MIDVERS'...]*.LOG,-
 
106
   ['MIDASHOME'.'MIDVERS'...]*.OBJ,-
 
107
   ['MIDASHOME'.'MIDVERS'.SYSTAB.BIN]*.LUT,-
 
108
   ['MIDASHOME'.'MIDVERS'.SYSTAB.BIN]*.ITT,-
 
109
   ['MIDASHOME'.'MIDVERS'.SYSTAB.BIN]*.AUX,-
 
110
   ['MIDASHOME'.'MIDVERS'...]*.OLB)-
 
111
   MID_DISK:['MIDASHOME'.'MIDVERS'...]*.* 'TAPE''BCKFILE''SAVE'
 
112
$ !
 
113
$ BYBY:
 
114
$ IF BCK_DEV .eqs. "TAPE" THEN DISMOUNT 'TAPE'
 
115
$ SET DEF MID_DISK:['MIDASHOME'.'MIDVERS'.SYSTEM.VMS]
 
116
$ SET ON
 
117
$ EXIT