cobol - COBOL 显示文件中的所有重复项

Question

我有一个文件，其中包含不同名称的列表。有些人出现两次或更多。

我想显示在此列表中出现两次或更多的所有艺术家。

我该如何进行？

提前致谢，

仕龙

Answer 1

如果文件很小，你可以将数据存储在 WS 中并编写一个简单的排序，例如对具有重复数据的字段进行冒泡排序。如果文件很大（可能不是您的情况），您应该使用外部排序或内部排序，然后选择重复项。如果您不关心资源，请创建一个 KSDS 并从文件中加载它。

Answer 2

在 JCL SORT 中更容易做到这一点：

//SORT30 EXEC PGM=SYNCSORT,COND=(8,LT),            
//             PARM=('INCORE=OFF,DYNALLOC=SYSDA',EQ
//*                                                
//STEPLIB INCLUDE MEMBER=SYSTEP00                  
//        INCLUDE MEMBER=SYSORT00                  
//*                                                
//SORTIN   DD DISP=SHR,DSN=AA.YOUR.INPUT.FILE  
//SORTOUT  DD DISP=SHR,DSN=AA.YOUR.OUTPUT.FILE   
//SORTXSUM DD  SYSOUT=*  
//SYSOUT   DD  SYSOUT=*                            
//SYSPRINT DD  SYSOUT=*                            
//SORTMSG  DD  SYSOUT=*  
//SYSIN   DD   *          
  SORT  FIELDS=(1,26,CH,A)
  SUM FIELDS=NONE,XSUM    
/*                        
//*

SORTXSUM SYSOUT 将在其中包含重复项。只需修改FIELD=艺术家数据的位置