Sample assemble and link-edit JCL
A sample JCL is provided in the member AGMSMP1 in the library SAGMSAM to assemble and link-edit your IMS Connect message exits.
In this sample, the value of exit AGMSMPL1x is AGMSMPL1F (IMS V15) or AGMSMPL1E (IMS V14); the value of IMS.SDFSMAC is the name and version of your IMS macro library.
Sample message exits can be assembled and link-edited and used AS-IS or can be used as load
modules for your own IMS Connect message
exits.
//ASM EXEC PGM=ASMA90,COND=(4,LT),
// PARM='OBJECT,XREF(SHORT),RENT,FLAG(NOPUSH),TERM'
//SYSLIB DD DISP=SHR,DSN=SYS1.AMODGEN
// DD DISP=SHR,DSN=SYS1.MACLIB
// DD DISP=SHR,DSN=IMS.SDFSMAC
//SYSTERM DD SYSOUT=*
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(10,5))
//SYSPUNCH DD DUMMY
//SYSLIN DD DISP=SHR,DSN=ZAPMCONN.OBJ(AGMSMPL1)
//SYSPRINT DD DISP=SHR,DSN=ZAPMCONN.LIST(AGMSMP1x)
//SYSIN DD DISP=SHR,DSN=ZAPMCONN.ASM(AGMSMP1x)
//*
//LINK EXEC PGM=IEWL,PARM='MAP,LET,LIST,CALL,TEST',
// REGION=2000K,COND=(8,LE,ASM)
//SYSLMOD DD DISP=SHR,DSN=ZAPMCONN.LOAD
//SYSOBJ DD DISP=SHR,DSN=ZAPMCONN.OBJ
//SYSLIN DD DISP=SHR,DSN=ZAPMCONN.OBJ(AGMSMPL1)
// DD DDNAME=SYSIN
//SYSUT1 DD UNIT=VIO,SPACE=(CYL,(3,2)),DSN=&SYSUT1
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=FB,BLKSIZE=3509)
//SYSIN DD *
ENTRY AGMSMPL1
NAME AGMSMPL1(R)
//