如何在RPG中计算字符串中相同字母的数目

Question

我想数一下“奥利维亚”中“我”的数量，但我有这样的印象:我的条件是无效的？

请问如何在RPG 4中做charAt？

FOR i = 1 to %len(name);
  IF %check(name : letter) = 0;
    count += 1;

  ENDIF;

ENDFOR;

以下是完整的代码：

**free

dcl-s name        varchar(50);
dcl-s letter      char(1);
dcl-s count       packed(2:0);
dcl-s i           packed(3:0);
dcl-s waitInput   char(1);
dcl-s message     varchar(50);

name = 'olivia';
letter = 'i';
count = 0;

FOR i = 1 to %len(name);
  IF %check(name : letter) = 0;
    count += 1;

  ENDIF;

ENDFOR;

message = 'The name ' + %char(name) + ' has ' + %char(count) + 'time(s) the letter ' + (letter) ;
dsply message '' waitInput;

*INLR = *on;

Answer 1

IF %check(name : letter) = 0;

=>

 IF %subst(name :i:1) = letter;