イントロダクション
エスペラント語
ナヴィ語
クリンゴン語
PROCEDURE DIVISION.
*> count the number of chars in string, store in ws-cnt1
INSPECT WS-STRING TALLYING WS-CNT1 FOR ALL CHARACTERS.
DISPLAY "WS-CNT1 : "WS-CNT1.
*> count just the A characters
INSPECT WS-STRING TALLYING WS-CNT2 FOR ALL 'A'.
DISPLAY "WS-CNT2 : "WS-CNT2.