RPG

4.作業変数の定義と初期設定の方法

データストラクチャー(DS)で作業変数を定義した場合はプログラムの起動の直後に初期設定が必要である。
初期設定していないと数字フィールドは 0に設定されない。
作業変数を 1つの DS にまとめておくと 1回のCLEAR命令で初期設定することができる。

ソースコード
0001.00      ISPCBIN      DS
0002.00      I                                    B   1   40WRTLEN
0003.00      I                                    B   5   80RCVLEN
0004.00      I                                    B   9  120DSPLEN
0005.00      I                                    P  13  150DTQLEN
0006.00      C******************************************************
0007.00      C           *INZSR    BEGSR
0008.00      C******************************************************
0009.00      C*  初期のみの実行
0010.00      CSR                   CLEARSPCBIN
0011.00      CSR         INZEND    ENDSR