RPG

5. 外部記述ファイルのレコードの中身を1つのフィールドに収めるには?

RPG内部ではCHAINREADの直前/直後でレコードの内容ほ保管/復元したいときがある。

このような場合にすべてのフィールドを 1つ1つSAVEしたり、RESTOREするのでは大変である。

まとめてSAVE/RESTOREができないものだろうか?

このようなときに、外部ファイルの DS記述が効果を発揮する。

しかもファイルのレイアウトが変わった場合でも、再コンパイルするだけで良い。

0001.00      E                    DSPDTA   1024  1                入力 DATA
0002.00      E                    SAVDTA   1024  1                SAVE-DATA
0003.00      ISAVEDS    E DSTOKMAS
0004.00      I                                        11024 DSPDTA
0005.00      C                     MOVE DSPDTA    SAVDTA
0006.00      C                     SETOF                     90
0007.00      C           KEY       CHAINTOKMAS               90
0008.00      C                     MOVE SAVDTA    DSPDTA