変数 &STRINGに実際に含まれている文字数を調べるには

① OS Ver7.1 の場合

　NULL(X’00’)を付加してそのNULLの位置を調べればよい。

               DCL        VAR(&NULL) TYPE(*CHAR) LEN(1) VALUE(X'00')  

               CHGVAR     VAR(%STRING) VALUE(&STRING *TCAT &NULL)
               CHGVAR     VAR(&LEN)   VALUE(%SCAN(&NULL &STRING) - 1)

② OS Ver7.2～の場合

              CHGVAR      VAR(&LEN)  VALUE(%LEN(&TRIMR(&STRING))

必ず %TRIMRしてから　%LENを使うこと (%TRIMRとは右側のブランクを除去する)