'JN - query for jobnr

external dpath

public   jobnr

global   x

MAIN
single-step off
  screen shortinput jobnr "Enter the Job Nr"
  jobnr = UPPER(jobnr)
'   error off
'   order change index "j1.idx"
'   if cerror
' message "Cannot use j1"
'   end if
  order change key "[Job_Nr]"
  data query execute "job_reqn.dfq" index "j1.idx"
' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
' ³ QUERY is:  [Job_Nr] = jobnr                                        ³
' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ

END MAIN