//LINKIMS JOB (accounting,information),programmer.name,
//           MSGLEVEL=(1,1),MSGCLASS=A,CLASS=A
//**************************************************************
//*                                                            *
//*   THIS JOB SERVES AS AN ALTERNATIVE TO THE CROSS ZONE LINK *
//*   PERFORMED BY RUNNING EZAIMSCZ.                           *
//*                                                            *
//*   UPDATE THE JOB, SYSLMOD AND RESLIB DD CARDS TO SUIT YOUR *
//*   INSTALLATION .                                           *
//*                                                            *
//**************************************************************
//LNKIMS   EXEC PGM=IEWL,PARM='XREF,LIST,REUS'
//SYSPRINT  DD SYSOUT=*
//SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSLMOD  DD DSN=tcpip.v3r1.SEZALINK,DISP=SHR
//RESLIB   DD DSN=ims.RESLIB,DISP=SHR
//SYSLIN    DD *
  ORDER CMCOPYR
  INCLUDE RESLIB(DFSLI000)
  INCLUDE SYSLMOD(EZAIMSLN)
  ENTRY EZAIMSLN
  MODE RMODE(24) AMODE(31)
  NAME EZAIMSLN(R)
/*