如何将 *MSGF 下载到本地硬盘

smile-wz

各位，小弟又有问题请教。
请问如何将 *MSGF 通过FTP命令下载到本地硬盘。
我试过将它存为*SAVF.
倒是下载下来了。但打开都是乱码。
请指教。  

zzzddd

先转成PF,然后下来！
转PF可以用CLP+COBOL
命令是RTVMSGD

smile-wz

zzzddd, 能说的具体点吗？
我没用过RTVMSGD, COBOL也不很熟。
最好能给个例子。
谢了！

zzzddd

PGM        PARM(&V1 &V2)                              
DCL        VAR(&V1) TYPE(*CHAR) LEN(7)               
DCL        VAR(&V2) TYPE(*CHAR)                       
RTVMSG     MSGID(&V1) MSGF(BMDGEN/QBMDUSRMSG) MSG(&V2)
ENDPGM

zzzddd

PROCEDURE DIVISION   .               
PROGRAM-BEGIN.                        
    OPEN OUTPUT 01FL.                 
    MOVE 61 TO STR1.                  
    MOVE 930 TO END1                  
    MOVE STR1 TO CHAR1.               
    PERFORM ADDREC UNTIL STR1 >; END1.
    CLOSE 01FL.                       
PROGRAM-DONE.                                   
    EXIT PROGRAM.                              
    STOP RUN.                                   
********************SUBROUTINE*****************
ADDREC.                                         
    CALL 'RTVMSGD' USING MSGID11               
                         MSGD11.               
    MOVE MSGID11 TO MSGID OF 01FL.              
    MOVE MSGD11 TO MSGD OF 01FL.               
   WRITE 01FL-REC.         
  COMPUTE STR1 = STR1 + 1.
  MOVE STR1 TO CHAR1.

smile-wz

管理员在做备份，现在还不能试。
不过还是有些东东不明。
MSGID11和MSGD11各指什么？
哪一个指的的是信息文件的文件名？

zzzddd

MSGID11=&v1 是msgid
MSGD11=&v2  是msgdescription

smile-wz

RTVMSG MSGID(&V1) MSGF(BMDGEN/QBMDUSRMSG) MSG(&V2)
这个命令要求MSGID不能为空。
但你在COBOL中并没有给它赋值。
我用RPGLE程序代替了你的COBLOL。在调用RTVMSGDC时传递参数MSGID为空时程序调用出错。
是否有办法解决。

红像

use the following:

DSPMSGD RANGE(*FIRST *LAST) MSGF(QCPFMSG) DETAIL(*BASIC) OUTPUT(*PRINT)

DETAIL参数可以选BASIC或者FULL
另外, 如果里面有中文, 我也不知道怎么输出... 呵呵

zzzddd

先看一下你的msgf，里面第一条msg的id是多少阿，假设是msg01,然后+1，循环，依次读出就好了阿！

01 MSGD11               PIC X(132).              
01 MSGID11.                                      
   03  PRE                 PIC X(3) VALUE 'BMS'.
   03  CHAR1               PIC X(4) VALUE '0000'.