LINK
IP1Y
IP2Y
IOPTY
IGEN2Y
CSERV01Y
ERCS12.IPUT_IPUTOPTY
ERCC10.IBMRECODEY
ERCS12.XAOPT_OPTPUTY
.END
P0Y
MODIFY P0Y
SATISFY REFS
.ALL
SATISFY DATA
.ALL
SUPPRESS
.ALL
RETAIN
ICL9CEZIBMIMP,PGENERATEOBJECT
SUPPRESS DATA
.ALL
CLOSE
NEWGEN P0Y,IBM02Y
RESETLOADER
DISCONNECT .ALL