000100 *===================================================================== 000000 000200 * Test STREMLSPLF ... STREMLSPLF ... SENDEREP(MMAIL/TSTSENDERE) 000000 000300 *===================================================================== 000000 000400 D TSTSENDERE pr 000000 000500 D xsplfname 10 spooled file name 000000 000600 D xsplfjob 10 job name 000000 000700 D xsplfjobusr 10 job user name 000000 000800 D xsplfjobnbr 6 job number 000000 000900 D xsplfnbr 10u 0 spooled file number 000000 001000 D xsplfusrdta 10 user-specified data 000000 001100 D xsndemail 100 returned e-mail addr 000000 001200 D TSTSENDERE pi 000000 001300 D xsplfname 10 spooled file name 000000 001400 D xsplfjob 10 job name 000000 001500 D xsplfjobusr 10 job user name 000000 001600 D xsplfjobnbr 6 job number 000000 001700 D xsplfnbr 10u 0 spooled file number 000000 001800 D xsplfusrdta 10 user-specified data 000000 001900 D xsndemail 100 returned e-mail addr 000000 002000 /free 000000 002100 000000 002200 clear xsndemail; 000000 002300 000000 002400 if xsplfjobusr='GIOVANNI' and xsplfname='QPDSPLIB'; 000000 002500 xsndemail='gb_perotti@easy400.net'; 000000 002600 endif; 000000 002700 000000 002800 return; 000000