AS400上发邮件(即FOLDER应用)

caomangyu

主要用途:现实使用中,很多AS400上的信息(如SPLFILE等),需要以MAIL的形式发送给 出去,本文以将一个报表文件发送给指定 MAIL 为例 进行介绍

前提条件:1、需要 创建一个  FOLDER  ---   设本例 创建 FOLDER : TEST

             2、可以有多种方式 ，本文介绍  CPYTOPCD  和 CVTSPLSTMF 两种方式


CODE：

        PGM
        
DCL        VAR(&JOB) TYPE(*CHAR) LEN(10)                  
DCL        VAR(&USER) TYPE(*CHAR) LEN(10)                  
DCL        VAR(&NBR) TYPE(*CHAR) LEN(10)  // 获取作业属性保证SPLF最新              
DCL        VAR(&FOLDER) TYPE(*CHAR) LEN(10) VALUE('TEST')  
DCL        VAR(&TOFILE) TYPE(*CHAR) LEN(12)               
DCL        VAR(&FILE) TYPE(*CHAR) LEN(10)        

/* 生成SPLF 的程序*/ 设 SPLF 为 TESTMT         
/* DCL        VAR(&PATH) TYPE(*CHAR) LEN(30)   */
RTVJOBA    JOB(&JOB) USER(&USER) NBR(&NBR)         
CHGVAR     VAR(&FILE) VALUE(TESTMT)                 
CHGVAR     VAR(&TOFILE) VALUE('TESTM' *TCAT '.xls')  /EXECL 为附件格式
/*CHGVAR     VAR(&PATH) VALUE('\QDLS\' *CAT &FOLDER)        */

CRTPF      FILE(QTEMP/TESTM) RCDLEN(256) IGCDTA(*YES)   /创建临时PF存放SPLF
CPYSPLF    FILE(TESTMT) TOFILE(QTEMP/TESTM) +     
              JOB(&NBR/&USER/&JOB) SPLNBR(*LAST)   
CPYTOPCD   FROMFILE(TESTM) TOFLR(&FOLDER) +        
                TODOC(&TOFILE) REPLACE(*YES) +        
                TRNTBL(*NONE) TRNIGC(*SCGS)  */      
/* CVTSPLSTMF FROMFILE(&FILE) TOSTMF(&TOFILE) +      
                TODIR(&PATH) JOB(&NBR/&USER/&JOB) +   
                SPLNBR(*LAST)          */           
SNDDST     TYPE(*DOC) TOINTNET((MAILADDRESS)) +
              DSTD(TEST) DOC(&TOFILE) FLR(&FOLDER)        
  
        ENDPGM