C言語では

 memset(buff, 0, sizeof(buff));

のように変数 buffに 0を 指定した個数の分だけ
埋めるというよく使う関数がある。

RPGでもこのような作業をするには
どうのよにすれば良いのか考えてみた。

  0031.00 D ZEROS           C                   CONST('00000000000000000000'
  :
　/FREE
    VALUE = %SUBST(ZEROS:1:KETA); 
  /END-FREE

このようにすれば変数 VALUE に KETAの個数分だけの
0 を埋めることができる。