XSCREEN should be done before you call SPSET. Try moving "XSCREEN 2" to between "ACLS" and "@KJ".