! @(#)tablop.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:46:22
!++++++++++++
! Midas Procedure for Tables
! 	Adapted by F. Ochsenbein, 18-Dec-1990
!
! Implements the following commands
! ---------------------------------
! CREATE/TABLE
! READ/TABLE
! WRITE/TABLE
! COPY/TK
! COPY/KT
!-----------------------
!
DEFINE/LOCAL TACT/C/1/5		! Used to identify the program
WRITE/KEYW TACT {MID$CMND(1:3)}{MID$CMND(11:12)}
WRITE/KEYW HISTORY "{MID$CMND(1:4)}/{MID$CMND(11:14)} "
!
!
!	A table is required as first argument, except for COPY/KT
!
IF TACT(4:4) .EQ. "K" THEN	! Keyword
	DEFINE/PARAM P1 ? CHAR  "Enter keyword name: "
	DEFINE/PARAM P2 ? TABLE "Enter table: "
ELSE
	DEFINE/PARAM P1 ? TABLE "Enter Table: "
ENDIF

WRITE/KEYW IN_A {P1}
!
!	Execute the general program tdatatbl
!
RUN MID_EXE:tdatanew