Can't get this loop to run.

The While statement is giving me syntax errors.

What am I doing wrong.

Long day.

Thanks





While vStopProcessing <> stop

PRINT AP_Internal_Detail WHERE pon = .vpo_number +

LABEL loop1
CLEAR VAR vpo_number
DIALOG 'Enter Job# or ESC to exit (AP_Internal_Detail):' vpo_number=10
vkey 1

IF vkey = '[esc]' THEN
  GOTO finish
ENDIF


IF vkey = '[enter]' AND vpo_number IS NULL THEN
  RUN errmsg.rmd USING 'No PO# Number Entered - Press Any Key to Enter
One'
  GOTO loop1
ENDIF


CLEAR VAR vpon
SET VAR vpon = pon FROM master WHERE pon = .vpo_number
IF vpon IS NULL THEN
  RUN errmsg.rmd USING 'CDI Job# Not found'
  GOTO loop1
ENDIF

endwhile



LABEL finish



RETURN




 
 
 
Stephen 

Reply via email to