[daip] maxtab

[Lorant Sjouwerman]

look here: line 20 in maxtab 
AIPS 3: 20     RETURN VBA_VER

so you get what you want if you type 
i=maxtab('cc');print i 
or
print maxtab('cc')


On Mon, 20 Jun 2005, Craig Walker wrote:

#The procedure MAXTAB, defined in VLBAUTIL, doesn't seem to work on
#linux or macosx.  Here is what happens:
#
# >inp maxtab
#AIPS 3: MAXTAB:   Procedure to return highest table version number
#AIPS 3: Adverbs     Values                 Comments
#AIPS 3: ----------------------------------------------------------------
#AIPS 3: USERID        0                    User ID.
#AIPS 3:                                      0 => current user
#AIPS 3:                                      32000 => any user
#AIPS 3: INNAME     '3C120 L97   '          Name of data file
#AIPS 3: INCLASS    'ICL003'                Class of data file
#AIPS 3: INSEQ        74                    Sequence number of data file
#AIPS 3: INDISK        2                    Disk number of data file
#AIPS 3:
#AIPS 3:           Give the two-letter code for the table type as an
#AIPS 3:           immediate argument. For example, MAXTAB('CL')
#AIPS 3:
#AIPS 3:           MAXTAB is defined in the VLBAUTIL run file.
#
#
# >maxtab('cc')
#AIPS 3: INTERP: STACKS NOT EMPTY WHEN LINE DONE
#
#
# From IMH on this file:
#
#AIPS 3: Maximum version number of extension files of type CC is   1
#AIPS 3: Maximum version number of extension files of type HI is   1
#
#
#Here is MAXTAB
#
# >list maxtab
#AIPS 3:  1 PROCEDURE MAXTAB (VBA_TYPE)
#AIPS 3:  2     SCALAR VBA_SLOT
#AIPS 3:  3     SCALAR VBA_VERS
#AIPS 3:  4     VBA_KEYW = KEYWORD
#AIPS 3:  5     VBA_KEYV = KEYVALUE
#AIPS 3:  6     VBA_KEYS = KEYSTRNG
#AIPS 3:  7     VBA_SLOT = 0
#AIPS 3:  8     KEYSTRNG = '  '
#AIPS 3:  9     WHILE VBA_SLOT <> 50 & KEYSTRNG <> VBA_TYPE
#AIPS 3: 10         VBA_SLOT = VBA_SLOT + 1; KEYWORD = 'EXTYPE' !! CHAR(V
#         BA_SLOT)
#AIPS 3: 11         GETHEAD
#AIPS 3: 12     END
#AIPS 3: 13     IF KEYSTRNG = VBA_TYPE THEN
#AIPS 3: 14         KEYWORD = 'EXTVER' !! CHAR(VBA_SLOT); GETHEAD
#AIPS 3: 15     ELSE
#AIPS 3: 16         KEYVALUE(1) = 0
#AIPS 3: 17     END
#AIPS 3: 18     VBA_VER = KEYVALUE(1)
#AIPS 3: 19     KEYWORD  = VBA_KEYW; KEYVALUE = VBA_KEYV; KEYSTRNG = VBA_
#         KEYS
#AIPS 3: 20     RETURN VBA_VER
#AIPS 3: 21 FINISH
#
#
#Is there some way to invoke a procedure to cause it to reflect the lines 
#being executed so that one can find a problem?
#
#Meanwhile, maxtab seems to need help.  I would think this would be seen 
#by others because it is used a lot in the vlba utilities.  Or is there 
#something that doesn't let me use it outside another procedure?
#
#Cheers,
#
#Craig
#
#
#-- 
#---------------------------------------------------------------------
#     R. Craig Walker            Array Operations Center
#     cwalker at nrao.edu           National Radio Astronomy Observatory
#     Phone  505 835 7247        P. O. Box O
#     Fax    505 835 7027        Socorro NM 87801   USA
#---------------------------------------------------------------------
#
#_______________________________________________
#Daip mailing list
#Daip at listmgr.cv.nrao.edu
#http://listmgr.cv.nrao.edu/mailman/listinfo/daip
#



Regards,

Loránt Sjouwerman - Scientific Services - lsjouwerman at nrao.edu
--------------------------------------------------------------
c/o NRAO Array Operations Center       Phone:  +1-505-835-7332
    P.O. Box 0 (1003 Lopezville Rd)    Switch: +1-505-835-7000
    Socorro NM 87801                   Fax:    +1-505-835-7027