000100 *===================================================================== 000000 000200 * Test STREMLSPL2 ... BODYEP(MMAIL/TSTBODYEP) 000000 000300 *===================================================================== 000000 000400 D TSTBODYEP 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 xbodystmf 100 returned body stmf 000000 001200 D TSTBODYEP 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 xbodystmf 100 returned body stmf 000000 002000 /free 000000 002100 000000 002200 clear xbodystmf; 000000 002300 000000 002400 if xsplfjobusr='GIOVANNI' and xsplfname='QPDSPLIB'; 000000 002500 xbodystmf='/mmaildata/tstbodyep.txt'; 000000 002600 endif; 000000 002700 000000 002800 return; 000000