Exit driver example
Following is an example of a simple exit driver:
ICHPWX01 #SETUP Perform exit driver setup #XITRTN NAME=PWXIT001 Execute the PWXIT001 exit #XITRTN NAME=PWXIT002,COND=8 Execute the PWXIT002 exit * routine if PWXIT001 return code * was 8 or less #XITRTN NAME=PSNCPWX1,COND=0 Execute the PSNCPWX1 exit rtn * if no previous exit had a return * code greater than 0 L R15,HIGHRC Load the max return code #TERM RC=(R15) Return to the security product END