这是续行格式吗？怎么出不来呢

yhjnet

.....F......................Ext-record........................RcdnbrKOptionEntry+++....

yhjnet

FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++++++

pantierui

什么意思啊

yhjnet

格式行出不来啊
有一行老是不对，
F                                   FMYPF KRENAMEFMYLF      
在rpgle应该怎么与格式对啊

yhjnet

FMYPF      O     E                     DISK                           
FMYLF      IF    E           K        DISK                           
F                      FMYPF                               KRENAMEFMYLF      
C                                         MOVE 'RCD1'         PFFLD1                       
C                                         Z-ADD1                 PFFLD2                       
C                                         WRITEFMYPF                                 
C                      *LOVAL       SETLLFMYLF                                 
C                                         READ FMYLF                                    90            
C                      *IN90          IFEQ '0'                                    
C                      PFFLD1        DSPLY                                       
C                      PFFLD2        DSPLY                                       
C                                         ENDIF                                       
C                                         SETON                                            LR
按这个写的，第三行老是格式不对

yhjnet

格式提示行.....F......................Ext-record........................RcdnbrKOptionEntry+++.... 也出不来。

yhjnet

ILE RPG/400:    H,F,FX,I,IX,J (I cont),JX,D,DX,C,CX,OD,P (O cont),PR,PX
                * (Comment)                                            
都代表什么意思啊？
帮助看到了，但上面的问题还没解决。

[ 本帖最后由 yhjnet 于 2006-10-24 16:24 编辑 ]

yhjnet

*RNF2013 20      1 The Device entry is not PRINTER, DISK, SEQ, WORKSTN or     
                   SPECIAL; defaults to DISK.                                 
*RNF2015 20      1 The File-Addition entry is not blank or A; defaults to blan
*RNF2080 20      1 The File-Designation entry is not valid; defaults to F.   
*RNF2121 30      1 Record-format name in externally-described file already   
                   defined; record format ignored.                           
*RNF2293 30      1 The File Name (positions 7 - 16) is already specified as   
                   something else; specification ignored.                     
*RNF5183 30      1 The file does not have Input specifications and the        
                   Result-Field is blank.                                    
*RNF7030 30      1 The name or indicator is not defined.                     
*RNF2109 40      1 All Record Formats for externally-described file ignored or

pantierui

RPGLE的RECORDE RENAME如下:
FWINDB     IF   E           K DISK                    
F                                     RENAME(原RECORD:RENAME后的RECORD)

你可以把RPG转化成RPGLE看看有什么区别
用命令CVTRPGSRC来转换.格式如下:
CVTRPGSRC FROMFILE(PTRLIB/QRPGSRC) FROMMBR(DD) TOFILE(PTRLIB/QRPGLESRC) TO
MBR(DD) LOGFILE(*NONE)                                                         

其他的我也不怎么明白,自己漫漫理解吧.

[ 本帖最后由 pantierui 于 2006-10-24 16:53 编辑 ]

yhjnet

Record length of TOFILE YHSRCPF in library QGPL is less than the recommen.
这是什么原因？