データストラクチャー(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