LINK P1Y P2Y POPTY PGENY .END P0Y MODIFY P0Y SATISFY REFS .ALL SATISFY DATA .ALL RENAME ICL9CEZPERQIMP,S#PERQIMP .END SUPPRESS .ALL RETAIN S#PERQIMP SUPPRESS DATA .ALL CLOSE NEWGEN P0Y,TI01Y