Chinaunix

标题: 这是续行格式吗？怎么出不来呢 [打印本页]

作者: yhjnet 时间: 2006-10-24 15:56
标题: 这是续行格式吗？怎么出不来呢
.....F......................Ext-record........................RcdnbrKOptionEntry+++....

作者: yhjnet 时间: 2006-10-24 15:57
标题: 只有这个啊
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++++++

作者: pantierui 时间: 2006-10-24 16:02
什么意思啊

作者: yhjnet 时间: 2006-10-24 16:05
格式行出不来啊
有一行老是不对，
F FMYPF KRENAMEFMYLF
在rpgle应该怎么与格式对啊

作者: yhjnet 时间: 2006-10-24 16:07
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 时间: 2006-10-24 16:08
格式提示行.....F......................Ext-record........................RcdnbrKOptionEntry+++.... 也出不来。

作者: yhjnet 时间: 2006-10-24 16:12
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 时间: 2006-10-24 16:31
*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 时间: 2006-10-24 16:51
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 时间: 2006-10-25 12:43
标题: CVTRPGSRC FROMFILE(QGPL/YHSRCPF) FROMMBR(MYRPG2) TOFILE(QGPL/YHSRCPF) TOMB
Record length of TOFILE YHSRCPF in library QGPL is less than the recommen.
这是什么原因？

作者: pantierui 时间: 2006-10-25 12:59

原帖由 yhjnet 于 2006-10-25 12:43 发表
Record length of TOFILE YHSRCPF in library QGPL is less than the recommen.
这是什么原因？

原因是你创建的QRPGLESRC的RECORD的长度短
创建QRPGLESRC是把下面的记录长度改为110就可以了

创建源物理文件 (CRTSRCPF)
输入选择，并按“执行”键。
文件 . . . . . . . . . . . . . qrpglesrc 名称
库 . . . . . . . . . . . . . ptrlib 名称 , *CURLIB
记录长度 . . . . . . . . . . . 110 编号
成员（如果需要的话） . . . . . *NONE 名称 , *NONE, *FILE
用户指定的 DBCS 数据 . . . . . *yes *NO, *YES
文本描述 . . . . . . . . . . . rpgle source

复制代码

[ 本帖最后由 pantierui 于 2006-10-25 13:00 编辑 ]

作者: yhjnet 时间: 2006-10-25 13:15

原帖由 yhjnet 于 2006-10-25 12:43 发表
Record length of TOFILE YHSRCPF in library QGPL is less than the recommen.
这是什么原因？

这个已明白，新建了个PF112的。
但转换还是有错
Conversion terminated.

作者: pantierui 时间: 2006-10-25 13:29
看一下JOBLOG
是什么错误.

作者: yhjnet 时间: 2006-10-25 14:08
log里什么也没有啊？

作者: pantierui 时间: 2006-10-25 14:26
按F1的时候没有错误提示吗?

欢迎光临 Chinaunix (http://bbs.chinaunix.net/)