RPG

461. 組込み関数 %LEN の使用上の注意

ILE-RPGの組込み関数 %LENはフィールド内の含まれるブランクでない
文字数を調べる関数であるがそのままでは正しく動作しない場合がある。
例えば 80バイトのフィールド: VALUE に対して

   /FREE
       VALUE = 'TEST';
       LEN   = %LEN(VALUE);
   /END-FREE

とすると LEN の値は TEST を示す 4ではなく 80 となってしまう。
%LEN を正しく機能させるには %TRIMR を使って

   /FREE
       VALUE = 'TEST';
       LEN   = %LEN(%TRIMR(VALUE));
   /END-FREE

とすると LEN には正しく 4 という値が入る。