! @(#)tablop.prg	14.1.1.1 (ES0-DMD) 09/16/99 09:27:14
!++++++++++++
! 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