2 calls to
SETPPI
INITGRDVAR
TINTEG