PROC
u01a2 user exit
.mdUser 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