! @(#)identigcur.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:12:25
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
!
! MIDAS procedure  identify.prg
!    IDENTIFY/CURSOR  table :ident :x [:y] [error]
!
! +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
! 
DEFINE/PARAM P1 ? TABLE "Enter input table:"
DEFINE/PARAM P2 ? C     "Enter input for the identification column:"
DEFINE/PARAM P3 ? C     "Enter input for the abscissa column:"
!
RUN APP_EXE:IDENTIGCUR