LINK TIMP01Y TSUP01Y P1Y TOPT01Y .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