User exit u01a2 executes a computed goto branch based on the value in the current output buffer.
Syntax
u01a2 index arg1...argn jump here if index = arg1) : (jump here if index = argn) (continue here if no arguments match) |
Parameter(s)
index |
Value to compare against one or more arguments. |
arg1 ... argn |
Values to compare against the index. If a match is made, control passes to the n +1 line below the user exit call. |
Example(s)
001 |
pq |
002 |
o Demonstration of the computed-goto |
003 |
o Enter: YES, NO, or MAYBE |
004 |
st on |
005 |
h1 |
006 |
in |
007 |
a |
008 |
h3 |
009 |
u01a2 |
010 |
2 YES NO MAYBE |
011 |
g 100 |
012 |
g 200 |
013 |
g 300 |
014 |
x Sorry, only a YES, NO, or MAYBE may be entered. |
015 |
100 x You entered a YES |
016 |
200 x You entered a NO |
017 |
300 x You entered a MAYBE |
See Also