用STRPCO传送数据

caomangyu

日常开发中,很多时候需要把 DB里的数据以 EXECL\TXT 等 指定格式发送给 USER.

经常地我们可以用以下几种方式才传送:FTP\MAIL\EXECL\VBA\STRPCO 或者直接由PGMER发送

今天先介绍下STRPCO 方式,希望对部分朋友有帮助.

1、先将 数据发送 的格式保存 下来： 如附件

2、CL代码：
   
   ************ Beginning of data *************************************
          PGM                                                      
          DCL        VAR(&P) TYPE(*CHAR) LEN(80) +                  
                       VALUE(C:\Documents and Settings\user\桌面\data.dtf)                  
   /* */                                                            
   /*&P  即保存数据传送文件的  PC 位置    */                        
   /*     CODDING      */                                          
   /* 其他处理过程    */                                            
  /* */     

          STRPCO                                                                                                            
          MONMSG     MSGID(IWS4010)                                 
          STRPCCMD   PCCMD(&P) PAUSE(*NO)                           
        ENDPGM                                                   
*************** End of data ****************************************

[ 本帖最后由 caomangyu 于 2007-5-30 14:46 编辑 ]

dave_10

prepare to test on my server...

qingzhou

It seems that it useful for us to transfer data, thanks.

pantierui

在CL中调用PCOMM的PCSFT5.EXE下载SRC
STRPCO     PCTA(*NO)                                 
MONMSG     CPF0000                                    
                                                      
STRPCCMD   PCCMD('"C:\PROGRAM FILES\PERSONAL +        
             COMMUNICATIONS\PCSFT5.EXE""C:\APLS01_H.TTO"')



在CL中调用CA的RTOPCB.EXE下载SRC
STRPCO     PCTA(*NO)         
MONMSG     CPF0000           
STRPCCMD   PCCMD('"D:\SOFTWARE\CLIENT ACCESS\+  
              RTOPCB.EXE""C:\START.TTO"')        
在CL中调用CA的rfrompcb.exe上传SRC
STRPCO     PCTA(*NO)         
MONMSG     CPF0000           
STRPCCMD   PCCMD('"D:\SOFTWARE\CLIENT ACCESS\+
          RFROMPCB.EXE""C:\UP.DTT"')

selinaT

在CL中调用CA的RTOPCB.EXE下载SRC
STRPCO     PCTA(*NO)         
MONMSG     CPF0000           
STRPCCMD   PCCMD('"D:\SOFTWARE\CLIENT ACCESS\+  
              RTOPCB.EXE""C:\START.TTO"')      

不好意思,我是新手才學CLP.
嘗試了,為何沒有結果?而且沒有指定AS400 里的資料,下載什麼?

比如我想自動下載一些QUERY FILE, 該如何處理?