! @(#)invsearch.prg	17.1.1.1 (ES0-DMD) 01/25/02 17:15:54
!+++++++++++++++++++++++++++++++++++++++++++++++++++++++
!.IDENTIFICATION: INVSEARCH.PRG
!.PURPOSE:        execure the command search/inventory
!.USE:            @c invsearch
!.AUTHOR:         Rein H. Warmels, ESO-IPG
!.VERSION:        910211 RHW change due to new direftory structure
! ----------------------------------------------------------------------
DEFINE/PARAMETER P1 ?  IMA   "Enter input frame:"
DEFINE/PARAMETER P2 ?  TABLE "Enter output table:"
!
WRITE/KEYW IN_A 'P1'
WRITE/KEYW OUT_A 'P2'
RUN CON_EXE:INVSEARCH