請教飛天小神豬大哥

sater84

原程式如下：在運行一個ＣＬ程式轉(zhuǎn)ＥＸＣＥＬ的時候調(diào)用到它．程式在轉(zhuǎn)成ＥＸＣＥＬ后會直接發(fā)到本機(jī)的郵箱里去～

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                                            


從ＡＳ４００發(fā)出來到本機(jī)的ＭＡＩＬ就變亂碼，ＡＳ４００裝在遠(yuǎn)端上（繁體系統(tǒng)的，沒連網(wǎng)），本機(jī)是簡體系統(tǒng)（連網(wǎng)）～
我按照輕舟大哥上面說的方式CPYTOPCD用DBCS code page 里的所有參數(shù)我都試過拉，還是不行～

我又把程式中生成的　ARLIST.TXT　文件改成　　ARLIST.ＸＬＳ，ARLIST.ＤＯＣ(exceL和word類型文件)還是不行，請問，我到底應(yīng)該怎么樣才能讓發(fā)出來的ＭＡＩＬ不出現(xiàn)亂碼呢？只要不亂碼，簡體，繁體都行．．．

希望飛天小神豬大哥告訴我一個詳細(xì)的方法，謝謝大哥了！