4 calls to
PSLEVCOD
PRIMARY
PRIMARY
INPUTL
INPUTL