ILINK IP1X IP2X IOPTX IGEN2X CSERV01X PUTX .END P0Y IMODIFY P0Y SATISFY REFS .ALL SATISFY DATA .ALL SUPPRESS .ALL RETAIN ICL9CEZIBMIMP,PGENERATEOBJECT SUPPRESS DATA .ALL CLOSE NEWGEN P0Y,IBMX DISCONNECT .ALL