# Directives

RETRY | Re-Execute Failing Instruction

## Format

RETRY

## Description

The RETRY directive returns control to the statement on which the last error transfer occurred. This allows you to take corrective action and retry the statement.

Use *RETRY to emulate this directive in a statement reference. See Labels/Logical Statement References.

If an error occurs on a statement where you have used any of the ERR=, DOM= or END= options, or where you have used a SETERR directive, PxPlus does the following:

- Saves the statement number and directive where the error occurred (as a retry address).
- Passes control to the file option or SETERR statement reference to handle the error.
- Returns control to the RETRY directive using the retry address.

You can find the currently saved retry address or line reference in TCB(11). PxPlus returns an Error #27: Unexpected or incorrect WEND, RETURN, or NEXT (i.e. no return address on an error) if it encounters a RETRY directive with no previous statement saved.

The saved statement number and directive are cleared by any of the following directives: BEGIN, CLEAR, LOAD, RESET or START. You can also clear the retry address by executing a RUN directive with a program name specified. When you use it in a compound statement, the RETRY directive must be the final directive.

If you set the 'RR' system parameter, PxPlus will also perform a reset for RUN directives. (as of PxPlus version 4.20)

## See Also

RESET Reset Program State
TCB( ) Return Task Information
'RR' Reset on RUN

## Example

0010 open (1)"CUSTFL"
0020 input (0,err=1000)"Enter customer number: ",C
0030 read (1,err=1010,key=str(C:"000000"))C$,N$
0040 print C$," ",N$
0050 stop
1000 print 'RB','LF',"Invalid customer. "; retry ! Ring bell, retry 0020
1010 print 'RB',"Cannot find customer: "; goto 0020
->run
Enter customer number: 123987
Cannot find customer:
Enter customer number: ABC
Invalid customer.
Enter customer number: 123456
123456 ABC MFG