/* xsearch dps 11/10/00 */

DEF VAR srchfor     AS CHAR FORMAT "x(24)"      NO-UNDO.

{rptvar.i}

UPDATE
  SKIP(.3)
  "Search For:" AT 4
  srchfor
  SKIP(.3)
  WITH THREE-D FRAME info CENTERED NO-LABELS WIDTH 48 TITLE "FIELD SEARCHER".

ASSIGN DEFAULT-WINDOW:VIRTUAL-WIDTH-CHARS  = 126
       DEFAULT-WINDOW:VIRTUAL-HEIGHT-CHARS = 25
       DEFAULT-WINDOW:WIDTH-CHARS          = DEFAULT-WINDOW:VIRTUAL-WIDTH-CHARS - 4
       DEFAULT-WINDOW:HEIGHT-CHARS         = DEFAULT-WINDOW:VIRTUAL-HEIGHT-CHARS
       DEFAULT-WINDOW:TITLE                = userid + " -> " + LDBNAME(1) + " (" + PDBNAME(1) + ")"
       DEFAULT-WINDOW:HIDDEN               = NO.

FIND FIRST logon WHERE userlog = userid NO-LOCK NO-ERROR.
parfile = "p:" + (IF AVAIL logon THEN "\" + userlog ELSE "") + "\xsearch.txt".
OUTPUT TO VALUE(parfile) PAGED PAGE-SIZE 80.

DISPLAY "Field and label search for" CAPS(srchfor) SKIP WITH STREAM-IO.

FOR EACH _field NO-LOCK WHERE
  (NOT _field._field-name BEGINS "_" AND INDEX(_field._field-name,srchfor) > 0)
  OR (NOT _field._label BEGINS "_" AND INDEX(CAPS(_field._label),CAPS(srchfor)) > 0),
  EACH _file NO-LOCK OF _field WHERE NOT _file._file-name BEGINS "_" 
  BY _file._file-name BY _field._field-name:
  
  DISPLAY
    _file._file-name    FORMAT "x(16)"
    _field._field-name  FORMAT "x(16)"
    _field._label       FORMAT "x(16)"
    _field._format      FORMAT "x(12)"
    _field._desc        FORMAT "x(32)"
    WITH WIDTH 100 STREAM-IO.
END. /* for each _field */

OUTPUT CLOSE.
HIDE ALL NO-PAUSE.
{rptview.i "SEARCH"}
DOS SILENT DEL VALUE(parfile).

/* end of program */