如何通过JCL统计单记录输入数据集内各字母的出现次数？

一、使用DFSORT/Syncsort实现（推荐） #

大型机环境中的DFSORT或Syncsort工具支持通过控制卡完成数据拆分、排序和统计，无需编写COBOL程序，完全基于JCL即可实现需求。

核心思路 #

1. 将单条A-Z字符串拆分为每条仅含一个字母的独立记录；
2. 按字母排序并分组统计每组的出现次数；
3. 格式化输出统计结果。

示例JCL及控制卡 #

//COUNTLET JOB (YOUR-ACCT),'COUNT ALPHABETS',CLASS=A,MSGCLASS=X
//SORTSTEP EXEC PGM=SORT
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=YOUR.INPUT.DATASET,DISP=SHR  // 输入数据集（单条26字符记录）
//SORTOUT  DD DSN=YOUR.OUTPUT.DATASET,DISP=(NEW,CATLG,DELETE),
//            SPACE=(TRK,(1,1),RLSE),RECFM=F,LRECL=20
//SYSIN    DD *
  OPTION COPY
  // 拆分单条记录为26条单字母记录
  OUTFIL FNAMES=SORTOUT,REMOVECC,
         GENERATE=(26,
                   BUILD=(1+((SEQNUM,8,ZD)-1),1,8X)),
         // 按字母升序排序
         SORT=(1,1,A),
         // 分组统计次数，输出格式为"字母: 次数"
         SUMFIELDS=NONE,
         OUTREC=(1,1,': ',COUNT=(M11,LENGTH=2),8X),
         // 输出总字母数
         TRAILER1=('TOTAL LETTERS: ',COUNT=(M11,LENGTH=3))
/*

说明 #

• GENERATE=(26,...)：生成26条记录，依次提取原记录的第1到第26个字符；
• SUMFIELDS=NONE：按排序后的字母分组，配合COUNT统计每组出现次数；
• 输出数据集会包含每个字母的统计结果，末尾附带总计数。

二、File Aid的局限性 #

File Aid主要用于数据浏览、编辑、拷贝等基础操作，没有内置的字符级统计功能，无法仅通过File Aid的JCL调用实现该需求，因此不适用。

内容的提问来源于stack exchange，提问作者saravanannaveen navinsiva