LINK PERQYY PERQCSUPY PASSONEY .END PY MODIFY PY SATISFY REFS .ALL SATISFY DATA .ALL RENAME ICL9CEZPERQIMP,S#PERQIMP .END SUPPRESS .ALL RETAIN S#PERQIMP SUPPRESS DATA .ALL CLOSE NEWGEN PY,PERQ01Y