请教飞天小神猪大哥

sater84

原程式如下：在运行一个ＣＬ程式转ＥＸＣＥＬ的时候调用到它．程式在转成ＥＸＣＥＬ后会直接发到本机的邮箱里去～

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                                            


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

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

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