Chinaunix

标题: AS400上发邮件(即FOLDER应用) [打印本页]

作者: caomangyu 时间: 2007-05-21 16:50
标题: AS400上发邮件(即FOLDER应用)
主要用途:现实使用中,很多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

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)