Setting Up User Exits › Communicate with a User from an Exit Routine › Sample TPXDSPL Macro

Sample TPXDSPL Macro

The following sample TPXDSPL macro displays a panel named UENDEMO:

          L   R5,TOKEN 
          TPXDSPL PANEL=PAN, 
                  CURSOR=CURS, 
                  WKAREA=WORK, 
         .        TOKEN=(R5) 
         . 
         . 

WORK  DC  XL24'00' 
PAN   DC  CL8'UENDEMO' 
CURS  DC  CL8'ACCTNO'

In this example, control is given back to the exit routine after the user presses an action key (Enter or a PF key).

On return from the TPXDSPL macro, a return code is placed in R15. A return code of 20 (decimal) indicates that an abort condition has occurred. You must exit your routine and pass an appropriate return code to CA TPX to exit the function.