cobol发生算法

我需要清点文件中的数字，有人能帮我吗

假设这是我的cobol文件

A blabla 123 05/05/19
A blabla 223 05/05/19
E blabla 153 05/05/19
C blabla 110 05/05/19
C blabla 185 05/05/19
B blabla 963 05/05/19
C blabla 743 05/05/19

我希望这样：

---

您有2个A、1个E、3个C和1个B。如果您纯粹是使用该初始标识字符查找记录计数，JCL排序和可能会更容易。。 分类卡将是这样的

INREC字段=（1,1,2:C'000001'）排序字段=（1,1，CH，A）和字段=（2,6，ZD）

假设每次事件少于一百万次；否则，调整INREC和SUM字段

---

结果应该是A000123，B002323…

如果您纯粹是在寻找带有该初始标识字符的记录计数，JCL排序和可能会更容易。。 分类卡将是这样的

INREC字段=（1,1,2:C'000001'）排序字段=（1,1，CH，A）和字段=（2,6，ZD）

假设每次事件少于一百万次；否则，调整INREC和SUM字段

---

结果应该是A000123，B002323…

我定义了两个表，一个用于字母，一个用于计数。我使用

SEARCH ALL

匹配字母，并使用该索引添加到适当的计数中。因为我知道文件中没有无效的值，所以我在末尾写了

短语来使用“CONTINUE”

我还添加了一行，给出读取的首字母（行）总数

为了测试这个程序，我使用了一个超过2000个字符的文本文件。使用记事本++为每行指定一个字符，并将所有字母转换为大写。然后我过滤了文件，删除了所有标点和空格

根据需要修改

---

---

输出：

A  141
B   32
C   81
D   60
E  206
F   53
G   19
H   77
I  174
J    1
K    8
L   88
M   38
N  114
O  142
P   49
Q    1
R  108
S  143
T  193
U   49
V   28
W   29
X    2
Y   35
Z    3

  1874

---

我定义了两个表，一个用于字母，一个用于计数。我使用

SEARCH ALL

匹配字母，并使用该索引添加到适当的计数中。因为我知道文件中没有无效的值，所以我在末尾写了

短语来使用“CONTINUE”

我还添加了一行，给出读取的首字母（行）总数

为了测试这个程序，我使用了一个超过2000个字符的文本文件。使用记事本++为每行指定一个字符，并将所有字母转换为大写。然后我过滤了文件，删除了所有标点和空格

根据需要修改

---

---

输出：

A  141
B   32
C   81
D   60
E  206
F   53
G   19
H   77
I  174
J    1
K    8
L   88
M   38
N  114
O  142
P   49
Q    1
R  108
S  143
T  193
U   49
V   28
W   29
X    2
Y   35
Z    3

  1874

---

考虑使用一个数组，其中每个条目都是一个组级条目，包含两部分：匹配的字母和计数器。考虑使用一个数组，其中每个条目都是一个组级条目，包含两部分：匹配的字母和计数器。