AS400发邮件

通过AS/400将相应的数据信息（如报表）发送到指定的 E-MAIL 中，可以通过以下模式来实现

              PGM        PARM(&SPFILE &FILE &USID &DOCD)               
              DCLF       FILE(PSFCRL6)                                 
              DCL        VAR(&FOLDER) TYPE(*CHAR) LEN(10) +            
                           VALUE('CUSTOM')                             
              DCL        VAR(&USID) TYPE(*CHAR) LEN(7)                 
              DCL        VAR(&PEMNX) TYPE(*DEC) LEN(7 0)               
              DCL        VAR(&SPFILE) TYPE(*CHAR) LEN(10)              
              DCL        VAR(&FILE) TYPE(*CHAR) LEN(8)                 
              DCL        VAR(&TOFILE) TYPE(*CHAR) LEN(12)              
              DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                 
              DCL        VAR(&USR) TYPE(*CHAR) LEN(10)                 
              DCL        VAR(&NO) TYPE(*CHAR) LEN(6)                   
              DCL        VAR(&ADR) TYPE(*CHAR) LEN(30)                 
              DCL        VAR(&PATH) TYPE(*CHAR) LEN(30)                
              DCL        VAR(&DOCD) TYPE(*CHAR) LEN(44)                
              CHGVAR     VAR(&PEMNX) VALUE(&USID)                      
 READ: +                                                               
      RCVF                                                             
      MONMSG MSGID(CPF0864) EXEC(GOTO CMDLBL(OUT1))                    
              IF         COND(&PEMN *EQ &PEMNX  *AND %SST(&PDPT 1 1) *NE

              CHGVAR     VAR(&ADR) VALUE(&PFL2 *TCAT '@mailadr)   
              GOTO       CMDLBL(OUT1)                                  
              ENDDO                                                    
              IF         COND(&PEMN *EQ &PEMNX  *AND %SST(&PDPT 1 1) *EQ
              CHGVAR     VAR(&ADR) VALUE(&PFL2 *TCAT '@mailadr)   
              GOTO       CMDLBL(OUT1)                                  
              ENDDO                                                    
              GOTO       CMDLBL(READ)                                  
 OUT1:                                                                 
              IF         COND(&ADR *EQ ' ') THEN(GOTO CMDLBL(END))     
              RTVJOBA    JOB(&JOB) USER(&USR) NBR(&NO)                 
              CHGVAR     VAR(&PATH) VALUE('\QDLS\' *CAT &FOLDER)       
              CHGVAR     VAR(&TOFILE) VALUE(&FILE *TCAT '.CSV')        
              RMVLIBLE   LIB(TAATOOL)                                  
              MONMSG     MSGID(CPF2110 CPF2104)                        
              ADDLIBLE   LIB(TAATOOL) POSITION(*LAST)                  
              DLTDLO     DLO(&TOFILE) FLR(&FOLDER)                     
              MONMSG     MSGID(CPF8A82 CPF8A16 CPF8A80)                
              CVTSPLSTMF FROMFILE(&SPFILE) TOSTMF(&TOFILE) +           
                           TODIR(&PATH) JOB(&NO/&USR/&JOB) SPLNBR(*LAST)

             MONMSG     MSGID(CPFA097)                               
             CHGDOCD    DOC(&TOFILE) FLR(&FOLDER) DOCD(&DOCD)        
             MONMSG     MSGID(CPF9099)                               
             SNDDST     TYPE(*DOC) TOINTNET((&ADR)) DSTD(XXX) +      
                          DOC(&TOFILE) FLR(&FOLDER)                  
             MONMSG     MSGID(CPF6801)                               
      /*     DLTDLO     DLO(&TOFILE) FLR(&FOLDER)     */             
      /*     MONMSG     MSGID(CPF8A80)    */                         
                          RMVLIBLE TAATOOL                           
                  /*     TOSTMF(P198.TXT) TODIR('\QDLS\CUSTOM') + */ 
 END:        ENDPGM