Chinaunix

标题: I表中记录名后加01有何作用 [打印本页]

作者: aps01 时间: 2012-06-19 21:37
标题: I表中记录名后加01有何作用
请问下:
IIPH400PO 01
I PECST XPECST
上面I输入表中记录名IPH400PO后面加01有何用处及作用???
多谢!!

作者: cuilei286 时间: 2012-06-20 21:10
就是个排序的玩意。我们这两位都随便写的。

作者: aps01 时间: 2012-06-21 20:26
排序???应该不是的,不过愿闻其详!!!

作者: cuilei286 时间: 2012-06-21 21:31
额，具体是啥意思，我也不懂，其他知道的大侠说说。

作者: uxyzp 时间: 2012-06-22 11:17
是说rpg3里面用的？

作者: aps01 时间: 2012-06-23 11:47
是rpg3中用的

作者: q疯哥p 时间: 2012-06-24 12:50
the indicator will be set on when the corresponding file is process in a program cycle.

作者: majorw 时间: 2012-07-26 10:53
rpg程式有二種寫法,此01屬cycle寫法中detail time使用的indicator
以此例看較完整程式應如下:
   FIPH400POIP  E          K       DISK                <--- 其中檔名後之I-唯讀 ,P-設為primary file
**
   IIPH400PO 01                                           <--- 對映讀取record之indicator設定為01,每讀到一筆 01 就*ON
   I             PECST                         XPECST    <--- 將IPH400PO檔案中PECST欄位名稱變更為XPECST
   **
   C 01             EXSR DTL01                      <--- 01 *ON 時就執行 DTL01 Subroutine
   **-----------------------------------------------
   C    DTL01    BEGSR
   **----------------------------------------------------
   C    'PECST=  '  DSPLY    XPECST
   C                         .
   C                         .
   C                      ENDSR

作者: yayuyo 时间: 2012-07-27 08:42
我见过的一种用法好像是这样的

FFILEA  IP
FFILEB  IS

IFILEA  01
...
IFILEB  02
...

C  01    EXSR @FILEA
C  02    EXSR @FILEB
......

我是这么理解的：因为这里有Primary和Second File，记录的读取是系统控制的
而我们一般想要知道当前读到的到底是哪个file的记录，所以可以通过设置01,02这些indicator来识别
C表里面根据不同的indicator来处理不同的recorder

上面的实例应该还有对FILEA和FILEB设置M指示器的，具体有点忘了：）

作者: franliu 时间: 2013-06-14 16:07
有些逻辑文件会有多个记录格式,来自不同的物理文件,

用这个方法程序就知道读到的记录来自那个物理文件啦.

作者: passthru 时间: 2013-06-16 17:00
本帖最后由 passthru 于 2013-06-16 21:14 编辑

是cyle中的用法。文件顺序读，如果有记录且有数据，01为*on，就执行相应的代码处理。

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