disconnect .all
LINK  
----
IP12y
IP26y
IOPT4y
IGEN5y
CSERV01Y
.END
P0Y
++++
MODIFY P0Y
----
SATISFY REFS
.ALL
SATISFY DATA
.ALL
SUPPRESS
.ALL
RETAIN
ICL9CEZIBMIMP
SUPPRESS DATA
.ALL
CLOSE
++++
NEWGEN P0Y,IBMNASSX
d .all