1
! @(#)t2creacol.prg 19.1 (ES0-DMD) 02/25/03 14:09:05
2
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++
6
! MIDAS Command : t2creacol.prg
8
! J.D.Ponz ESO - Garching 5 APR 89
9
! 901108 KB fix WRITE/KEYW HISTORY stuff...
15
! CREATE/COLUMN table-name 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)} "
24
WRITE/KEYW MID$CMND/C/1/4 "CCREA"