1
! @(#)t2namecol.prg 19.1 (ES0-DMD) 02/25/03 14:09:06
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
! MIDAS Command : t2namecol.prg
8
! J.D.Ponz ESO - Garching 5 APR 89
9
! 901108 KB fix WRITE/KEYW HISTORY stuff...
15
! NAME/COLUMN table-name column [column] [unit] [format] [type]
17
! ----------------------------------------------------------------------
19
DEFINE/PARAM P1 ? TABLE "Enter table:"
20
DEFINE/PARAM P2 ? CHAR "Enter column label:"
22
WRITE/KEYW HISTORY "{MID$CMND(1:4)}/{MID$CMND(11:14)} "