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