论坛徽章:: 0

电梯直达

1楼 [收藏(0)] [报告]

发表于 2005-11-21 18:32 |只看该作者 |倒序浏览

我是新手。在一个lib里建了一个pf文件，用dds描述如下：
Columns . . . : 1  71          Edit                      P_SUNLEI/PGM_SL
SEU==>                                                             CUSTOMER
FMT PF .....A..........T.Name++++++RLen++TDpB......Functions++++++++++++++++++
   *************** Beginning of data *************************************
001.00    A       R CUSTOMERR
002.00    A          F01TID       2A
003.00    A          F01NAM       10A
004.00    A          F01AGE       4S
005.00    A          F01TEL       14A
006.00    A       K F01TID
   ****************** End of data ****************************************
保存编译，系统消息提示正常。
又作如下rpg程序，文件类型rpgle
Columns . . . : 6  76          Edit                      P_SUNLEI/PGM_SL
SEU==>                                                                RPG49
FMT FX FFilename++IPEASF.....L.....A.Device+.Keywords+++++++++++++++++++++++++
      *************** Beginning of data *************************************
0001.00 FCUSTOMER  IF E          DISK
0002.00 F                                  RENAME(CUSTOMERR:CSTR)
0003.00 DKEY             C                CONST(3)
0004.00 DDS1             DS
0005.00 DF01TID                1    2
0006.00 DF01NAM                3    12
0007.00 DF01AGE                13    16  0
0008.00 DF01TEL          DS
0009.00 DF1                   12    12
0010.00 DF2                   13    13
0011.00 DF3                   14    14
0012.00 C    KEY          CHAIN    CSTR
0013.00 C    DS1          DSPLY
0014.00 C    F1          DSPLY
0015.00 C    F2          DSPLY
0016.00 C    F3          DSPLY
0017.00 C                SETON                                     LR

保存编译没通过。消息提示如下：
   Number ....1....+....2....+....3....+....4....+....5....+....6....+....7....+.
                        S o u r c e L i s t i n g
   1 FCUSTOMER  IF E          DISK
======> aaaaaaaaaa
*RNF2120 40 a    000100  External descriptions for file CUSTOMER not found;
                        ignored.
   2 F                                  RENAME(CUSTOMERR:CSTR)
   3 DKEY             C                CONST(3)
   4 DDS1             DS
                                                                     More...
      Field          Attributes       Defined
      No references in the source.
* * * * * E N D O F E X T E R N A L R E F E R E N C E S * * * *
5722WDS V5R2M0  020719 RN       IBM ILE RPG          P_SUNLEI/RPG49
                        M e s s a g e S u m m a r y
Msg id  Sv Number Message text
*RNF7031 00    5 The name or indicator is not referenced.
*RNF7030 30    1 The name or indicator is not defined.
*RNF2120 40    1 External description not found for file specified as
               externally described; file ignored.
   * * * * * E N D O F M E S S A G E S U M M A R Y * * * * *
5722WDS V5R2M0  020719 RN       IBM ILE RPG          P_SUNLEI/RPG49
                        F i n a l S u m m a r y

我的pf和rpg在一个lib下，不只哪里出问题了。
哪位高手能指点一下。谢谢。