Steve,

 

2 things:

 

I am not sure where 'stop' is coming from but it probably should have quotes
around the word 'stop' and you have a '+' at the end of your Print command.

 

Steve

 

Steve Vellella

Office: 520-498-2256

Cell: 520-250-6498

From: [email protected] [mailto:[email protected]] On Behalf Of Steve Breen
Sent: Monday, April 26, 2010 5:45 PM
To: RBASE-L Mailing List
Subject: [RBASE-L] - While loop issue

 

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