disconnect .all
LINK ,map 
IP1X
IP22X
IOPT3X
IGEN3X
CSERV01X
.END
P0Y
MODIFY P0Y
SATISFY REFS
.ALL
SATISFY DATA
.ALL
SUPPRESS
.ALL
RETAIN
ICL9CEZIBMIMP
SUPPRESS DATA
.ALL
CLOSE
NEWGEN P0Y,IBMNSX
d .all