LINK
IP1Y
IP2Y
IOPTY
IGENY
CSERV01Y
ERCC10.IBMRECODEY
ERCS12.IPUT_IPUT01Y
.END
P0Y
MODIFY P0Y
SATISFY REFS
.ALL
SATISFY DATA
.ALL
SUPPRESS
.ALL
RETAIN
ICL9CEZIBMIMP
SUPPRESS DATA
.ALL
CLOSE
NEWGEN P0Y,IBM01Y