[daip] Exporting and Import DATA areas
Karim Elatov
Karim.Elatov at colorado.edu
Sun Feb 14 17:38:48 EST 2010
Dear Aips Help,
I have been having some trouble exporting and importing data areas
from one install of aips to another. Here is what I have done to export
the data.
Here is exactly what I did:
>
> START AIPS:
> ===========================================================
> kea:ab[ 1 ] source /usr/local/aips/LOGIN.CSH
> kea:ab[ 2 ] cd /kea1/casa/ab/AIPSDUMP
> kea:AIPSDUMP[ 3 ] aips notv
>
> You have a choice of 13 printers. These are:
>
> No. [ type ] Description
> -------------------------------------------------------------
> 1. [ PS] coshp2
> 2. [ PS] coshp
> 3. [ PS] coshpcolor2
> 4. [ PS] coshpcolor
> 5. [ PS] CASA Duane HP 8100DN
> 6. [ PS] CASA Stadium HP Duplex
> 7. [ PS] CASA Stadium HP
> 8. [PS-CMYK] CASA Stadium HP Color 4500
> 9. [ PS] CASA Duane HP 8100DN Duplex
> 10. [ PS] CASA ARL HP8100DN
> 11. [PS-CMYK] CASA Duane HP Color 4550N
> 12. [ PS] CASA ARL HP8100DN Duplex
> 13. [ PS] CASA HP 2100 Duane Tower 512
> -------------------------------------------------------------
>
> START_AIPS: Enter your choice, or the word QUIT [default is 1]:
> START_AIPS: Your initial AIPS printer is the coshp2
> START_AIPS: - system name coshp2, AIPS type PS
>
> START_AIPS: User data area assignments:
> (Using KEA-specific file
> /usr/local/aips_31DEC05/DA00/KEA/DADEVS.LIST for
> DADEVS.PL)
> /origins/data1/ORIGINS_1 is currently unavailable.
> /origins/cs2/AIPS is currently unavailable.
> Disk 1 (1) is /kea1/KEA_1
> Disk 2 (2) is /data1/ECHIDNA_1
> Disk 3 (3) is /data2/ECHIDNA_2
> Disk 4 (4) is /data3/ECHIDNA_3
> Disk 5 (5) is /data4/ECHIDNA_4
> Disk 6 (6) is /work4/ECHIDNA_5
> Disk 7 (7) is /work/ECHIDNA_WORK
>
> Tape assignments:
> Tape 1 is
> TAPE2=REMOTE; export TAPE2
> echo Tape 2 is REMOTE
> TAPE3=REMOTE; export TAPE3
> echo Tape 3 is REMOTE
> NAIPST=3; export NAIPST
>
>
> START_AIPS: Starting TPMON daemons on KEA asynchronously...
> Starting up 31DEC05 AIPS with normal priority
> Begin the one true AIPS number 2 (release of 31DEC05) at priority =
> 0
> AIPS 2: You are NOT assigned a TV device or server
> AIPS 2: You are NOT assigned a graphics device or server
> AIPS 2: Enter user ID number
> ?1025
> AIPS 2: 31DEC05 AIPS:
> AIPS 2: Copyright (C) 1995-2005 Associated Universities, Inc.
> AIPS 2: AIPS comes with ABSOLUTELY NO WARRANTY;
> AIPS 2: for details, type HELP GNUGPL
> AIPS 2: This is free software, and you are welcome to redistribute it
> AIPS 2: under certain conditions; type EXPLAIN GNUGPL for details.
> AIPS 2: Previous session command-line history recovered.
> AIPS 2: TAB-key completions enabled, type HELP READLINE for details.
> AIPS 2: Recovered POPS environment from last exit
> ===========================================================
>
> NOW PREPARE THE DATA TO BE EXPORTED:
>
> ===========================================================
> > >recat
>
> AIPS 2: Disk 1 No files needed renumbering
> > >inp wrtdisk
>
> AIPS 2: WRTDISK: procedure to write maps or uv data to disk
> AIPS 2: Adverbs Values Comments
> AIPS 2:
> ----------------------------------------------------------------
> AIPS 2: type RUN WRTPROCS first!
> AIPS 2: INDISK 1 UV file disk drive #
> AIPS 2: NFILES 1 First catalog number
> AIPS 2: NCOUNT 153 Last catalog number
> AIPS 2: OUTFILE ''
> AIPS 2: Logical directory name
> AIPS 2: DOSTOKES -1 > 0 => Convert to true
> AIPS 2: Stokes (Formal I)
> AIPS 2: ******** Changed 12/2/93 ***********************
> AIPS 2: DONEWTAB 1 >0 standard FITS binary
> AIPS 2: tables (15JAN94 or later)
> AIPS 2: <= 0 AIPS FITS binary tables
> AIPS 2: ************************************************
> AIPS 2: FORMAT 0 tape format: 0 => 3.
> AIPS 2: 1 for 16-bit integer
> AIPS 2: 2 for 32-bit integer
> AIPS 2: 3 for 32-bit IEEE
> AIPS 2: floating point
> AIPS 2: ** press RETURN for more, enter Q or next line to quit print **
> #
> AIPS 2: BLOCKING 10 tape blocking factor (<= 10)
> > >indisk 1
> > >nfiles 1
> > >ncount 153
> > >outfile 'PWD'
>
> ====================================================================
>
> NOW EXPORT THE DATA (this took a bit):
>
> ====================================================================
>
> > >go wrtdisk
>
> AIPS 2: Got(1) disk= 1 user=1025 type=MA ZAURAUG98X.IBEM.1
> FITTP2: Task FITTP (release of 31DEC05) begins
> FITTP2: Writing to disk file: PWD:DISK01C0001
> FITTP2: Writing image: User 1025 Disk 1 Name ZAURAUG98X.IBEM.1
> FITTP2: Writing HI file
> FITTP2: Now writing the image
> FITTP2: Writing end-of-file marks
> FITTP2: Appears to have ended successfully
> FITTP2: kea 31DEC05 TST: Cpu= 0.1 Real= 0
> AIPS 2: Resumes
> AIPS 2: Got(1) disk= 1 user=1025 type=MA 0423JUN98X.IBEM.1
> FITTP2: Task FITTP (release of 31DEC05) begins
> FITTP2: Writing to disk file: PWD:DISK01C0002
> FITTP2: Writing image: User 1025 Disk 1 Name 0423JUN98X.IBEM.1
> FITTP2: Writing HI file
> FITTP2: Now writing the image
> FITTP2: Writing end-of-file marks
> FITTP2: Appears to have ended successfully
> ..
> ..
> ...
> ...
> ...
> ...
>
> IPS 2: Got(1) disk= 1 user=1025 type=MA ZETAURJAN98X.ICL001.2
> FITTP2: Task FITTP (release of 31DEC05) begins
> FITTP2: Writing to disk file: PWD:DISK01C0153
> FITTP2: Writing image: User 1025 Disk 1 Name ZETAURJAN98X.ICL001.2
> FITTP2: Writing HI file
> FITTP2: Now writing the image
> FITTP2: FOLLOWING ONLY READ BY 15JAN94 OR LATER AIPS
> FITTP2: Writing binary table of type CC
> FITTP2: FOLLOWING ONLY READ BY 15JAN94 OR LATER AIPS
> FITTP2: Writing binary table of type MF
> FITTP2: Writing end-of-file marks
> FITTP2: Appears to have ended successfully
> FITTP2: kea 31DEC05 TST: Cpu= 0.2 Real= 0
> AIPS 2: Resumes
>
> ===================================================================
>
> EXIT & CHECK IF THE FILE HAVE BEEN EXPORTED:
>
> ===================================================================
>
> > >exit
>
> AIPS 2: Begin check for any 'standard' scratch files
> AIPS 2: Scratch files -- destroyed: 0 still active: 0
> AIPS 2: User 1025: 3963 messages, oldest written 04-FEB-2010 14:49:52
> AIPS 2: Deleted 0 messages
> AIPS 2: Saved POPS environment in area named 'LASTEXIT'
> AIPS 2: Session command-line history saved.
> AIPS 2: kea 31DEC05 TST: Cpu= 3.1 Real= 984
> kea:AIPSDUMP[ 4 ] ls
> DISK01C0001 DISK01C0032 DISK01C0063 DISK01C0094 DISK01C0125
> DISK01C0002 DISK01C0033 DISK01C0064 DISK01C0095 DISK01C0126
> DISK01C0003 DISK01C0034 DISK01C0065 DISK01C0096 DISK01C0127
> DISK01C0004 DISK01C0035 DISK01C0066 DISK01C0097 DISK01C0128
>
> ===================================================================
I think that worked exactly as expected. I then copy the whole AIPSDUMP directory to the new machine and here is what happens:
bears:~/AIPSDUMP>source /usr/local/aips/LOGIN.CSH
BEARS:~/AIPSDUMP>aips notv
You have a choice of 12 printers. These are:
No. [ type ] Description
-------------------------------------------------------------
1. [ PS] stadiumps2
2. [ PS] casa-hp4500
3. [ PS] duaneps2
4. [ PS] duaneps
5. [PS-CMYK] duanehpcolor
6. [ PS] stadiumps
7. [ PS] coshp2
8. [ PS] coshp
9. [ PS] coshpcolor2
10. [ PS] coshpcolor
11. [ PS] arlps
12. [ PS] arlps2
-------------------------------------------------------------
START_AIPS: Enter your choice, or the word QUIT [default is 1]:
START_AIPS: Your initial AIPS printer is the stadiumps2
START_AIPS: - system name stadiumps2, AIPS type PS
START_AIPS: User data area assignments:
(Using BEARS-specific file /usr/local/aips/DA00/BEARS/DADEVS.LIST for DADEVS.PL)
Disk 1 (1) is /data/data4/ECHIDNA_4
Disk 2 (2) is /data/work/ECHIDNA_WORK
Disk 3 (3) is /data/data1/ECHIDNA_1
Disk 4 (4) is /data/data2/ECHIDNA_2
Disk 5 (5) is /data/work4/ECHIDNA_5
Disk 6 (6) is /data/data3/ECHIDNA_3
Disk 7 (7) is /data/kea1/KEA_1
Disk 8 (8) is /arlstorage/data/faculty/ab/cs2/AIPS
Tape assignments:
Tape 1 is REMOTE
Tape 2 is REMOTE
START_AIPS: Starting TPMON daemons on BEARS asynchronously...
Starting up 31DEC09 AIPS with normal priority
Begin the one true AIPS number 1 (release of 31DEC09) at priority = 0
AIPS 1: You are NOT assigned a TV device or server
AIPS 1: You are NOT assigned a graphics device or server
ZMSGOP: FILE DA01:MSD001000.001; NOT FOUND
MSGWRT ERROR 2 AT OPEN
AIPS 1: Enter user ID number
?1025
AIPS 1: 31DEC09 AIPS:
AIPS 1: Copyright (C) 1995-2009 Associated Universities, Inc.
AIPS 1: AIPS comes with ABSOLUTELY NO WARRANTY;
AIPS 1: for details, type HELP GNUGPL
AIPS 1: This is free software, and you are welcome to redistribute it
AIPS 1: under certain conditions; type EXPLAIN GNUGPL for details.
AIPS 1: Previous session command-line history *not* recovered.
AIPS 1: TAB-key completions enabled, type HELP READLINE for details.
LOGFILE FOR USER 1025 GETTING LARGE: USE PRTMSG AND CLRMSG NOW!
AIPS 1: Recovered POPS environment from last exit
>run wrtprocs
AIPS 1: $---------------------------------------------------------------
AIPS 1: $! Procedures for easy-to-learn VLBA data reduction
AIPS 1: $# RUN POPS FITS UV IMAGE-UTIL
AIPS 1: $---------------------------------------------------------------
--------
AIPS 1: $; Copyright (C) 2002-2003, 2008
AIPS 1: $; Associated Universities, Inc. Washington DC, USA.
AIPS 1: $;
AIPS 1: $; This program is free software; you can redistribute it/or
AIPS 1: $; and/or modify it under the terms of the GNU General Public
AIPS 1: $; License as published by the Free Software Foundation; either
AIPS 1: $; version 2 of the License, or (at your option) any later
AIPS 1: $; version.
AIPS 1: $;
AIPS 1: $; This program is distributed in the hope that it will be
AIPS 1: $; useful, but WITHOUT ANY WARRANTY; without even the implied
AIPS 1: $; warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
AIPS 1: $; PURPOSE. See the GNU General Public License for more
AIPS 1: $; details.
AIPS 1: $;
AIPS 1: $; You should have received a copy of the GNU General Public
AIPS 1: $; License along with this program; if not, write to the Free
AIPS 1: $; Software Foundation, Inc., 675 Massachusetts Ave, Cambridge,
AIPS 1: $; MA 02139, USA.
AIPS 1: $;
AIPS 1: $; Correspondence concerning AIPS should be addressed as
AIPS 1: $; follows:
AIPS 1: $; Internet email: aipsmail at nrao.edu.
AIPS 1: $; Postal address: AIPS Project Office
AIPS 1: $; National Radio Astronomy Observatory
AIPS 1: $; 520 Edgemont Road
AIPS 1: $; Charlottesville, VA 22903-2475 USA
AIPS 1: $---------------------------------------------------------------
--------
AIPS 1: *
AIPS 1: PROCEDURE FITDISK
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: * Write files to disk using (with FITTP) an automatically g
AIPS 1: * enerated name based on the AIPS file name.
AIPS 1: *
AIPS 1: * Inputs:
AIPS 1: * INNAME input file name
AIPS 1: * INCLASS input file class
AIPS 1: * INSEQ input file sequence number
AIPS 1: * INDISK input file disk number
AIPS 1: * DATAOUT logical name for output directory
AIPS 1: * DOSTOKES FITTP input
AIPS 1: * DONEWTAB FITTP input
AIPS 1: * FORMAT FITTP input
AIPS 1: * BLOCKING FITTP input
AIPS 1: *
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: scalar jinna
AIPS 1: scalar jincl
AIPS 1: scalar jout
AIPS 1: scalar oldwait
AIPS 1: scalar inp_ok
AIPS 1: *
AIPS 1: tput fitdisk
AIPS 1: oldwait=dowait
AIPS 1: dowait=1
AIPS 1: inp_ok=1
AIPS 1: if substr(dataout,1,1) = ' ' then
AIPS 1: inp_ok=-1
AIPS 1: type 'DATAOUT MUST BE SET TO A LOGICAL DIRECTORY NAME'
AIPS 1: type 'RESET DATAOUT AND RUN AGAIN'
AIPS 1: end
AIPS 1: if substr(inname,1,1) = ' ' then
AIPS 1: inp_ok=-1
AIPS 1: type 'INNAME MUST BE SET, SET INNAME AND TRY AGAIN'
AIPS 1: end
AIPS 1: if substr(inclass,1,1) = ' ' then
AIPS 1: inp_ok=-1
AIPS 1: type 'INCLASS MUST BE SET, SET INCLASS AND TRY AGAIN'
AIPS 1: end
AIPS 1: if inp_ok > 0 then
AIPS 1: task 'FITTP'; default; tget 'FITDISK'; task 'FITTP'
AIPS 1: outna=inname; outcl=inclass; outseq=inseq
AIPS 1: jinna=length(inname)
AIPS 1: for j=jinna to 1 by -1
AIPS 1: if substr(inname,j,j)=' ' then
AIPS 1: substr(inname,j,j)='_'
AIPS 1: end
AIPS 1: end
AIPS 1: jincl=length(inclass)
AIPS 1: for j=jincl to 1 by -1
AIPS 1: if substr(inclass,j,j)=' ' then
AIPS 1: substr(inclass,j,j)='_'
AIPS 1: end
AIPS 1: end
AIPS 1: jout=length(dataout)
AIPS 1: if substr(dataout,jout,jout) <> ':' then
AIPS 1: dataout=dataout!!':'
AIPS 1: jout=jout+1
AIPS 1: tput 'FITDISK'
AIPS 1: end
AIPS 1: dataout=substr(dataout,1,jout)!!substr(inname,1,jinna)!!'.'
AIPS 1: jout=length(dataout)
AIPS 1: dataout=substr(dataout,1,jout)!!substr(inclass,1,jincl)!!'.'
AIPS 1: jout=length(dataout)
AIPS 1: dataout=substr(dataout,1,jout)!!char(inseq)
AIPS 1: inna=outname; incl=outclass; inseq=outseq
AIPS 1: go fittp
AIPS 1: end
AIPS 1: dowait=oldwait; tget fitdisk;clrtemp
AIPS 1: return; finish
AIPS 1: *
AIPS 1: PROCEDURE WRTDISK
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: * Write files to disk (with FITTP) using an automatically
AIPS 1: * generated name based on disk and cno, to be read in with
AIPS 1: * READISK.
AIPS 1: *
AIPS 1: * Inputs:
AIPS 1: * INDISK input file disk number
AIPS 1: * NFILES first cno
AIPS 1: * NCOUNT last cno
AIPS 1: * DATAOUT logical name for output directory
AIPS 1: * DOSTOKES FITTP input
AIPS 1: * DONEWTAB FITTP input
AIPS 1: * FORMAT FITTP input
AIPS 1: * BLOCKING FITTP input
AIPS 1: *
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: scalar oldwait
AIPS 1: scalar inp_ok
AIPS 1: scalar catnum
AIPS 1: scalar jout
AIPS 1: *
AIPS 1: tput wrtdisk
AIPS 1: oldwait=dowait
AIPS 1: dowait=1
AIPS 1: inp_ok=1
AIPS 1: if substr(dataout,1,1) = ' ' then
AIPS 1: inp_ok=-1
AIPS 1: type 'DATAOUT MUST BE SET TO A LOGICAL DIRECTORY NAME'
AIPS 1: type 'SET DATAOUT AND RUN AGAIN'
AIPS 1: end
AIPS 1: if indisk = 0 then
AIPS 1: inp_ok=-1
AIPS 1: type 'DATAIN MUST BE SET'
AIPS 1: type 'SET DATAIN AND RUN AGAIN'
AIPS 1: end
AIPS 1: if nfile <= 0 then; nfile=1; end
AIPS 1: if ncount <= 0 then; ncount=nfile; end
AIPS 1: jout=length(dataout)
AIPS 1: if substr(dataout,jout,jout) <> ':' then
AIPS 1: dataout=dataout!!':'
AIPS 1: jout=jout+1
AIPS 1: tput 'WRTDISK'
AIPS 1: end
AIPS 1: if inp_ok > 0 then
AIPS 1: for catnum=nfiles to ncount
AIPS 1: task 'FITTP'; default; tget 'WRTDISK'; task 'FITTP'
AIPS 1: egetname catnum
AIPS 1: if ^ error then
AIPS 1: dataout=dataout!!'DISK'
AIPS 1: if indisk < 10 then
AIPS 1: dataout=dataout!!'0'
AIPS 1: end
AIPS 1: dataout=dataout!!char(indisk)!!'C'
AIPS 1: if catnum < 1000 then;
AIPS 1: dataout=dataout!!'0'
AIPS 1: end
AIPS 1: if catnum < 100 then;
AIPS 1: dataout=dataout!!'0'
AIPS 1: end
AIPS 1: if catnum < 10 then;
AIPS 1: dataout=dataout!!'0'
AIPS 1: end
AIPS 1: dataout=dataout!!char(catnum)
AIPS 1: go fittp
AIPS 1: end
AIPS 1: clrtemp
AIPS 1: end
AIPS 1: end
AIPS 1: dowait=oldwait; tget wrtdisk
AIPS 1: return; finish
AIPS 1: *
AIPS 1: PROCEDURE READISK
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: * Read files from disk (with FITLD) using an automatically gen
erated
AIPS 1: * name based on OLD disk and cno written by WRTDISK
AIPS 1: * Inputs:
AIPS 1: * OLDVOL input file disk number
AIPS 1: * DATAIN logical name for input directory
AIPS 1: * NFILES first number to load
AIPS 1: * NCOUNT last number to load
AIPS 1: * OUTDISK AIPS disk to write file
AIPS 1: * DOUVCOMP FITLD input
AIPS 1: *---------------------------------------------------------------
--------
AIPS 1: scalar oldwait, inp_ok, catnum, jout, OLDVOL, cat1, cat2
AIPS 1: *
AIPS 1: oldwait=dowait
AIPS 1: dowait=-1
AIPS 1: tput readisk
AIPS 1: inp_ok=1
AIPS 1: if substr(datain,1,1) = ' ' then
AIPS 1: inp_ok=-1
AIPS 1: type 'DATAIN MUST BE SET TO A LOGICAL DIRECTORY NAME'
AIPS 1: type 'SET DATAIN AND RUN AGAIN'
AIPS 1: end
AIPS 1: if OLDVOL = 0 then
AIPS 1: inp_ok=-1
AIPS 1: type 'OLDVOL MUST BE SET'
AIPS 1: type 'SET OLDVOL AND RUN AGAIN'
AIPS 1: end
AIPS 1: if nfile <= 0 then; nfile=1; end
AIPS 1: if ncount <= 0 then; ncount=nfile; end
AIPS 1: jout=length(datain)
LOGFILE FOR USER 1025 GETTING LARGE: USE PRTMSG AND CLRMSG NOW!
AIPS 1: if substr(datain,jout,jout) <> ':' then
AIPS 1: datain=datain!!':'
AIPS 1: tput 'READISK'
AIPS 1: end
AIPS 1: if inp_ok > 0 then
AIPS 1: cat1=nfiles; cat2=ncount
AIPS 1: for catnum=cat1 to cat2
AIPS 1: task 'FITLD'; default; tget 'READISK'; task 'FITLD'
AIPS 1: ncount = 0; nfiles = 0
AIPS 1: datain=datain!!'DISK'
AIPS 1: if OLDVOL < 10 then
AIPS 1: datain=datain!!'0'
AIPS 1: end
AIPS 1: datain=datain!!char(OLDVOL)!!'C'
AIPS 1: if catnum < 1000 then;
AIPS 1: datain=datain!!'0'
AIPS 1: end
AIPS 1: if catnum < 100 then;
AIPS 1: datain=datain!!'0'
AIPS 1: end
AIPS 1: if catnum < 10 then;
AIPS 1: datain=datain!!'0'
AIPS 1: end
AIPS 1: datain=datain!!char(catnum)
AIPS 1: go fitld; wait fitld
AIPS 1: clrtemp
AIPS 1: end
AIPS 1: end
AIPS 1: dowait=oldwait; tget readisk
AIPS 1: return; finish
>inp readisk
AIPS 1: READISK: procedure to read maps or uv data to disk
AIPS 1: Adverbs Values Comments
AIPS 1: ----------------------------------------------------------------
AIPS 1: type RUN WRTPROCS first!
AIPS 1: OLDVOL 1 Disk # input to WRITDISK
AIPS 1: DATAIN 'PWD:'
AIPS 1: Logical directory name
AIPS 1: NFILES 1 First catalog number
AIPS 1: NCOUNT 153 Last catalog number
AIPS 1: OUTDISK 7 Output UV file disk drive #
AIPS 1: DOUVCOMP 0 >0 => compressed data (FITS)
>run readisk
AIPS 1: TEXT FOR READISK UNAVAILABLE
================================================================
I tried to look up the error "TEXT FOR READISK UNAVAILABLE" but I couldn't find, would you happen to know why I am getting this error?
Any help is much appreciated :)
-Karim
More information about the Daip
mailing list