请教subfile程序编写

Question

Bom Table  
  A          R STRREC                                                        ,
  A            PINBR         10          TEXT('PITEM NUMBER')                ,
  A            CINBR         10          TEXT('COMPONENT ITEM')              ,
  A            QTYPR          6  2       TEXT('QUANTITY PER UNIT')           ,
  A          K PINBR                                                         ,

item balance
A          R BLREC
A            ITNBR         10          TEXT('ITEM NUMBER')
A            ONHAND         8  2       TEXT('OH HAND QTY')
A            WHS            4          TEXT('WHOUSE')
A          K ITNBR
A          K WHS
一个BOM：IBM1001下有两个料：10001   
                                                10002
在库存表里：仓库   物料编码 数量
              1      10001     5
                     2      10001     10
                     1      10002     5
                     2      10002     9
要求：如输入IBM1001 和仓库 1
查询在子文件中显示。     
仓库   物料编码 数量         
1         10001     5
1         10002     5
输入IBM1001 和仓库 2
仓库   物料编码 数量         
2         10001     10
2         10002     9
在rpg中如何实现。谢谢！

Answer 1

原帖由 huangxkst 于 2009-12-29 10:41 发表
思路：
1.写一个dspf文件，该文件需要带subfile，需要有两个定位条件。
2.rpg：每次显示的内容根据你的定位条件来决定，当定位条件为输入IBM1001 和仓库 1显示你的内容，等，当定位条件都为空时可以显示全部。 ...

谢谢你的回复！

Answer 2

思路：
1.写一个dspf文件，该文件需要带subfile，需要有两个定位条件。
2.rpg：每次显示的内容根据你的定位条件来决定，当定位条件为输入IBM1001 和仓库 1显示你的内容，等，当定位条件都为空时可以显示全部。具体自己定义。
（建议，您这个功能比较简单，您得自己找书看看。）