//*
// JCLLIB ORDER=(CIINS.CICSTS51.CICS.SDFHPROC)
//*
//VALEMAIL  EXEC DFHZITCL,OUTC=*,COND=(4,LT),
// LNGPRFX=IGY,
// INDEX=CICSTS51.CICS,
// PROGLIB=CICS.LOADLIB,
// CBLPARM=('SIZE(4000K)')
//COBOL.SYSIN DD DISP=SHR,DSN=XXXXXXXX.SRC.COBOL(VALEMAIL)
//LKED.SYSIN DD *
  NAME VALEMAIL(R)
/*