问个关于RPG程序的问题

Question

比如在PF文件增加一个字段,可原来PF文件已经放了数据,这样从新编译原来的数据就会丢失,请问如何解决,可以增加新的字段,而原来的数据不会丢失.
先谢谢各位了!

Answer 1

明白了,谢谢各位

Answer 2

本帖最后由 shibuya1212 于 2011-02-21 18:07 编辑

For Example:

PF TEST1 in LIB1 has 2 fields(FLDA and FLDB), and now you want to add FLDC(between FLA and FLDB) into TEST1, Below step for your reference:

1 Use below command create a duplicate obj.

CRTDUPOBJ OBJ(TEST1)  FROMLIB(LIB1)
          OBJTYPE(*FILE)   TOLIB(LIB1)   
          NEWOBJ(TEST2)    DATA(*YES)

2 Once you created duplicate obj, delete LIB1/TEST1
DLTF FILE(LIB1/TEST1)

3 Compile new TEST1 (now 3 fields) into LIB1

4 Perform below command

CPYF FROMFILE(LIB1/TEST2)
     TOFILE(LIB1/TEST1)    MBROPT(*REPLACE)        FMTOPT(*MAP)  

Or maybe you want to excute below SQL statement      

Insert into LIB1/TEST1 select FLDA, "Constant Value", FLDB from LIB1/TEST2;

But there are still many other methods, just FYI

Answer 3

过来学习

Answer 4

CPYF  + F4  --- + F9   下翻

Answer 5

谢谢哦..二楼的方法行了

Answer 6

回复 2# CGXLC

    怎么找不到这个FMTOPT属性

Answer 7

新手 能否详细点 最好有个例子.谢谢

Answer 8

如果你要追加的字段放在最后面的话，还可以用 CHGPF命令

Answer 9

DB:  A     DB:  A@     

CPYF       FROMFILE(&DBLIB/A) TOFILE(&DBLIB/A@) MBROPT(*REPLACE)   
               FMTOPT(*MAP *DROP)