SETAJTL 
.PROC,SETAJTL.
*CALL     PSRLEV
SETASL(*) 
SETJSL(*) 
SETTL(6000) 
REVERT.  SETAJTL. 
.*
EXIT. 
REVERT(ABORT)  SETAJTL. 
*WEOR 
