Assembling and binding a sample exit routine using SMP/E
The following example demonstrates a technique that you can use to have SMP/E assemble and bind one of the sample exit routines.
++ USERMOD (XYZUMOD) .
++ VER (P115)
FMID(HMK15.200) .
++ JCLIN.
//INJCLIN JOB . . .
//LKED EXEC PGM=IEWL,
// PARM='('SIZE=(880K,64K)',RENT,REFR,NCAL,LET,XREF,LIST)
//ADFSLOAD DD DSN=IMS.ADFSLOAD,DISP=SHR
//SYSPUNCH DD DSN=IMS.OBJDSET,DISP=SHR
//SYSUT1 DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),SPACE=(1024,(200,20))
//SYSPRINT DD SYSOUT=A
//SYSLMOD DD DSN=IMS.SDFSRESL,DISP=SHR
//SYSLIN DD *
INCLUDE ADFSLOAD(DFSCSI00)
INCLUDE SYSPUNCH(DFSGMSG0)
ENTRY DFSGMSG0
NAME DFSGMSG0(R)
++ SRC (DFSGMSG0) SYSLIB(SDFSSMPL) DISTLIB(ADFSSMPL) .
DFSGMSG0 TITLE 'DFSGMSG0 -- GREETING MESSAGES user exit routine routine'
...........................................................................
...........................................................................
...........................................................................