1 dcl       pl_stat$token_list(0:3000) ptr based(token_list_pointer),
2           tree_$ ptr ext static,
3           token_list_pointer ptr init(addr(tree_$)),
4           pl_stat$statement_id fixed bin(31) ext static,
5           token_list_length fixed bin(15) int static initial(3000);