//EZAIMSCZ JOB (accounting,information),programmer.name,
//            MSGLEVEL=(1,1),MSGCLASS=A,CLASS=A
//***************************************************************
//*NOTE: ANY ZONE UPDATED WITH THE LINK COMMAND OR CROSS-ZONE   *
//*      INFORMATION CANNOT BE PROCESSED BY SMP/E R6 OR EARLIER.*
//***************************************************************
//*
//*   5694-A01 Copyright IBM Corp. 1997, 2007
//*   Licensed Materials - Property of IBM
//*   This product contains "Restricted Materials of IBM"
//*   All rights reserved.
//*   US Government Users Restricted Rights -
//*   Use, duplication or disclosure restricted by
//*   GSA ADP Schedule Contract with IBM Corp.
//*   See IBM Copyright Instructions.
//*
//*
//*    Function: Perform SMP/E LINK for IMS module
//*
//*    Instructions:
//*         Change all lower case characters to values
//*         suitable for your installation.
//*
//*    targetzone:   z/OS Target Zone
//*      imszone :   IMS Target Zone
//*
//*
//*   Change the high-level qualifier 'imshlq' to match the
//*   high-level qualifier for your installation's IMS target
//*   data set.
//*
//*   Beginning with IMS V1R7 the target lib has changed from
//*   RESLIB to SDFSRESL. If you are running IMS V1R7 or higher,
//*   you must comment or delete the RESLIB DD card and uncomment
//*   the SDFSRESL DD card.
//*
//EZAIMSCZ EXEC PGM=GIMSMP,REGION=4096K
//***************************************************************
//RESLIB   DD DISP=SHR,DSN=imshlq.RESLIB
//*SDFSRESL DD DISP=SHR,DSN=imshlq.SDFSRESL
//***************************************************************
//*
//SMPCSI     dd  dsn=zos.global.csi,disp=old
//*
//SYSUT1   DD UNIT=SYSDA,SPACE=(1700,(900,200))
//SYSUT2   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT3   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SYSUT4   DD UNIT=SYSDA,SPACE=(1700,(600,100))
//SMPWRK1  DD UNIT=SYSDA,SPACE=(8800,(75,0,216)),
//         DCB=(BLKSIZE=8800,LRECL=80)
//SMPWRK2  DD UNIT=SYSDA,SPACE=(8800,(75,0,216)),
//         DCB=(BLKSIZE=8800,LRECL=80)
//SMPWRK3  DD UNIT=SYSDA,SPACE=(3200,(75,0,216)),
//         DCB=(BLKSIZE=3200,LRECL=80)
//SMPWRK4  DD UNIT=SYSDA,SPACE=(3200,(75,0,216)),
//         DCB=(BLKSIZE=3200,LRECL=80)
//SMPWRK6  DD UNIT=SYSDA,SPACE=(3200,(75,0,216))
//*
//SMPLIST     DD  SYSOUT=*
//SMPOUT      DD  SYSOUT=*
//SMPRPT      DD  SYSOUT=*
//SMPSNAP     DD  SYSOUT=*
//SMPHOLD     DD  DUMMY
//SYSPRINT    DD  SYSOUT=*
//*
//***************************************************************
//*
//SMPCNTL   DD  *
SET BDY(targetzone).      /* z/OS target zone  */
LINK MODULE(DFSLI000)
FROMZONE(imszone)         /* IMS target zone     */
INTOLMOD(EZAIMSLN)
RC(LINK=00).