LINK
IP1X
IP2X
IOPTX
IGEN2X
CSERV01oX
ercs12:ibmsce2_trputy
.END
P0Y
MODIFY P0Y
SATISFY REFS
.ALL
SATISFY DATA
.ALL
SUPPRESS
.ALL
RETAIN
ICL9CEZIBMIMP,PGENERATEOBJECT
SUPPRESS DATA
.ALL
CLOSE
NEWGEN P0Y,IBMX