Chinaunix

标题: 为什么这样啊？ [打印本页]

作者: sater84 时间: 2006-12-08 14:25
标题: 为什么这样啊？
？？？为什么发帖子还要管理员检查啊．我很急啊，要审核到什么时候才行啊？

我又没做什么错事，又没灌水做广告～

欺负人～：－（

作者: sater84 时间: 2006-12-08 14:27
从ＡＳ４００发出来到本机的ＭＡＩＬ就变乱码，ＡＳ４００装在远端上（繁体系统的，没连网），本机是简体系统（连网）～
我按照轻舟大哥上面说的方式CPYTOPCD用DBCS code page 里的所有参数我都试过拉，还是不行～

我又把程式中生成的　ARLIST.TXT　文件改成　　ARLIST.ＸＬＳ，ARLIST.ＤＯＣ(exceL和word类型文件)还是不行，请问，我到底应该怎么样才能让发出来的ＭＡＩＬ不出现乱码呢？只要不乱码，简体，繁体都行．．．

希望飞天小神猪大哥告诉我一个详细的方法，谢谢大哥了！

作者: sater84 时间: 2006-12-08 14:28
原程式如下：在运行一个ＣＬ程式转ＥＸＣＥＬ的时候调用到它．程式在转成ＥＸＣＥＬ后会直接发到本机的邮箱里去～

PGM       PARM(&SMAIL)
DCL       VAR(&SMAIL) TYPE(*CHAR) LEN(70)

DCL       VAR(&JOB@) TYPE(*CHAR) LEN(10)
DCL       VAR(&USER@) TYPE(*CHAR) LEN(10)
DCL       VAR(&NBR@) TYPE(*CHAR) LEN(6)

DCL       VAR(&FILE1) TYPE(*CHAR) LEN(12) /* FLR file +
            name */

CHGLIBL LIBL(QTEMP TPCLIBA QGPL DOCLIB) +
            CURLIB(TPCLIBA)

RTVJOBA JOB(&JOB@) USER(&USER@) NBR(&NBR@)

CHKOBJ    OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)

MONMSG    MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
         RCDLEN(512) IGCDTA(*YES) SIZE(*NOMAX))

CPYSPLF FILE(QPRT19

TOFILE(QTEMP/ESPLF) +
         JOB(&NBR@/&USER@/&JOB@) SPLNBR(*LAST) +
         MBROPT(*REPLACE)

CHGVAR    VAR(&FILE1) VALUE('ARLIST.TXT')

CPYTOPCD FROMFILE(QTEMP/ESPLF) TOFLR('ARLIST') +
            TODOC(&FILE1) REPLACE(*YES) TRNTBL(*NONE) +
            TRNIGC(*SCGS)

SNDPGMMSG  MSGID(CPF989

MSGF(QCPFMSG) +
            MSGDTA(' 资料传送? Internet +
            E-mail, 请稍后．．．') TOPGMQ(*EXT) +
            MSGTYPE(*STATUS)

SNDDST    TYPE(*DOC) TOINTNET((&SMAIL)) DSTD('Excel +
            ARlist') MSG('This is a Excel AR list +
            report, please open the file.') +
            DOC(ARLIST.TXT) FLR('ARLIST')

DLTOVR    FILE(*ALL)
DLTF    FILE(QTEMP/ESPLF)
DLTSPLF FILE(QPRT19

JOB(&NBR@/&USER@/&JOB@) +
SPLNBR(*LAST)

ENDPGM

作者: sater84 时间: 2006-12-08 14:29
接上面的程式～

CHKOBJ    OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)

MONMSG    MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
         RCDLEN(512) IGCDTA(*YES) SIZE(*NOMAX))

CPYSPLF FILE(QPRT19

JOB(&NBR@/&USER@/&JOB@) +
SPLNBR(*LAST)

ENDPGM

作者: sater84 时间: 2006-12-08 14:30
接上面的程式～

CHKOBJ    OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)

MONMSG    MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
         RCDLEN(512) IGCDTA(*YES) SIZE(*NOMAX))

CPYSPLF FILE(QPRT19

MSGF(QCPFMSG) +
            MSGDTA(' 资料传送? Internet +
            E-mail, 请稍后．．．') TOPGMQ(*EXT) +
            MSGTYPE(*STATUS)

作者: sater84 时间: 2006-12-08 14:31
CHKOBJ    OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)

MONMSG    MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
         RCDLEN(512) IGCDTA(*YES) SIZE(*NOMAX))

CPYSPLF FILE(QPRT19

作者: sater84 时间: 2006-12-08 14:32
CHKOBJ    OBJ(QTEMP/ESPLF) OBJTYPE(*FILE)

MONMSG    MSGID(CPF9801) EXEC(CRTPF FILE(QTEMP/ESPLF) +
         RCDLEN(512) IGCDTA(*YES) SIZE(*NOMAX))

CPYSPLF FILE(QPRT19

TOFILE(QTEMP/ESPLF) +
         JOB(&NBR@/&USER@/&JOB@) SPLNBR(*LAST) +
         MBROPT(*REPLACE)

CHGVAR    VAR(&FILE1) VALUE('ARLIST.TXT')

作者: fairyboy 时间: 2006-12-08 14:38
先把你要的发送的文本先用 CPYF 把内容拷贝到一个临时PF中去,参数MBROPT(*REPLACE) RCDFMT(*ALL) FMTOPT(*NOCHK)

这个临时PF
A R RTEST
A TEXT 512O O类型

发E-MAIL的时,就用这个临时的PF的内容发,

如果需要拷贝到WINDOWS下的话,用CPYTOPCD 的时候,有个参数TRNIGC(*SCGS)试一下看看

作者: sater84 时间: 2006-12-08 14:39
好的，谢谢大哥　，我试试先～

作者: sater84 时间: 2006-12-08 14:57
大哥，好象不行啊～～～可能我没理解你的意思吧，我发的那个程式里好象已经设置了这样的功能了啊

我刚刚接触４００，所以很菜，你详细点说说吧，谢谢你了，麻烦了～

作者: fairyboy 时间: 2006-12-08 16:56
CPYSPLF FILE(QPRT19 TOFILE(QTEMP/ESPLF) +
         JOB(&NBR@/&USER@/&JOB@) SPLNBR(*LAST) +
         MBROPT(*REPLACE)

你这不是有个  QTEMP/ESPLF,你自己先建立一个临时PF,名字为AAA然后放在自己的库中，
  CPYSPLF FILE(QPRT19 TOFILE(自己的库/AAA) +
         JOB(&NBR@/&USER@/&JOB@) SPLNBR(*LAST) +
         MBROPT(*REPLACE)
AAA的格式:

A       R RTEST
A          TEXT       512O O

编译的时候,名字为AAA,放在自己的库中,

作者: fairyboy 时间: 2006-12-08 16:57
把程序中的QTEMP/ESPLF,都替换为自己的库/AAA
去试一下看看

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