HWSJAVA0 sample JCL
The following sample JCL is for the HWSJAVA0 user message exit routine.
//HWSJAVA JOB (ACTINF01),'PGMRNAME',
// CLASS=A,MSGCLASS=Z,MSGLEVEL=(1,1),REGION=4M
//JAVA01 EXEC PGM=ASMA90,REGION=32M,
// PARM='DECK,NOOBJECT,SIZE(MAX,ABOVE)'
//SYSLIB DD DSN=IMS.SDFSMAC,DISP=SHR
// DD DSN=SYS1.MODGEN,DISP=SHR
// DD DSN=SYS1.MACLIB,DISP=SHR
//SYSPUNCH DD UNIT=SYSVIO,DISP=(,PASS),SPACE=(TRK,(1,1,1)),
// DSN=&&TEXT(HWSJAVA0)
//SYSPRINT DD SYSOUT=*,
// DCB=(BLKSIZE=605),
// SPACE=(605,(100,50),RLSE,,ROUND)
//SYSUT1 DD UNIT=SYSDA,DISP=(,DELETE),
// DCB=BLKSIZE=13024,
// SPACE=(CYL,(16,15))
//SYSIN DD DSN=IMS.SDFSSMPL(HWSJAVA0),DISP=SHR
//JAVA02 EXEC PGM=IEWL,
// PARM='SIZE=(880K,64K),RENT,REFR,NCAL,LET,XREF,LIST,TEST'
//SYSPRINT DD SYSOUT=A
//SYSLMOD DD DSN=IMS.SDFSRESL,DISP=SHR
//SYSUT1 DD UNIT=SYSVIO,DISP=(,DELETE),SPACE=(CYL,(10,1),RLSE)
//TEXT DD UNIT=SYSVIO,DISP=(OLD,DELETE),DSN=&&TEXT
//SYSLIN DD *
INCLUDE TEXT(HWSJAVA0)
ENTRY HWSJAVA0
NAME HWSJAVA0(R)
//