Hola, tenes que tener una biblioteca añadida (especifica para esto que obviamente depende de la instalacion) pero basicamente aca te envio un CL en el cual lo copias y reemplazas lo que corresponda
*************** Principio de datos ************************************
001.00 PGM
002.00 SNDEMAIL RECIPADDR(
[email protected]) +
003.00 SENDERADDR(
[email protected]) +
004.00 ATTACHMENT('/qdls/riesgos/car.zip') +
005.00 SUBJECT('Archivos zip') +
006.00 MESSAGE('Adjuntamos archivo zip +
007.00 conteniendo progama206.')
008.00 ENDPGM
****************** Fin de datos ***************************************
espero te sea util, y un abrazo!!