比较两个文件并将其写入“匹配”。并且“无与伦比”文件

我有两个输入文件，每个文件的长度为5200字节。七个字节的密钥用于比较两个文件，如果有匹配则需要将其写入“匹配”文件，但在写入匹配文件时，我需要来自infile1的几个字段和来自infile2的所有其他字段。如果没有匹配则写入no match文件。是否可以在sort中进行？我知道可以使用COBOL程序轻松完成，但只想知道SORT/ICETOOL/Easytrieve Plus (EZTPA00)。

已邀请:

5 个回复

勺的驴吓识

由于有12,200人查看了这个问题而未得到答案： DFSORT和SyncSort是主要的大型机分拣产品。他们的控制卡有许多相似之处，也有一些差异。

JOINKEYS FILE=F1,FIELDS=(key1startpos,7,A)              
JOINKEYS FILE=F2,FIELDS=(key2startpos,7,A)              
JOIN UNPAIRED,F1,F2
REFORMAT FIELDS=(F1:1,5200,F2:1,5200)                         
SORT FIELDS=COPY

“JOINKEYS”由三个任务组成。子任务1是第一个JOINKEYS。子任务2是第二个JOINKEYS。主要任务如下，是处理连接数据的位置。在上面的示例中，它是一个简单的COPY操作。连接的数据将简单地写入SORTOUT。 JOIN语句定义了匹配的记录，UNPAIRED F1和F2记录将被呈现给主任务。 REFORMAT语句定义将呈现给主任务的记录。一个更有效的例子，想象F2需要三个字段，是：

 REFORMAT FIELDS=(F1:1,5200,F2:1,10,30,1,5100,100)

F2上的每个字段都定义有起始位置和长度。然后由Main任务处理的记录长5311字节，F2的字段可以由5201,10,5211,1,5212,100引用，F1记录为1,5200。实现相同目标的更好方法是使用JNF2CNTL减小F2的大小。

//JNF2CNTL DD *
  INREC BUILD=(207,1,10,30,1,5100,100)

一些SyncSort安装不支持JNF2CNTL，即使支持（从Syncsort MFX for z / OS版本1.4.1.0开始），SyncSort也没有记录。对于1.3.2或1.4.0的用户，可以从SyncSort获得更新以提供JNFnCNTL支持。应该注意的是，JOINKEYS默认使用选项EQUALS对数据进行排序。如果JOINKEYS文件的数据已按顺序排列，则应指定SORTED。对于DFSORT，如果不需要序列检查，也可以指定NOSEQCHK。

 JOINKEYS FILE=F1,FIELDS=(key1startpos,7,A),SORTED,NOSEQCHK

虽然请求很奇怪，但由于无法确定源文件，所有不匹配的记录都将转到单独的输出文件。使用DFSORT时，有一个匹配标记，用？指定？在REFORMAT中：

 REFORMAT FIELDS=(F1:1,5200,F2:1,10,30,1,5100,100,?)

这会将REFORMAT记录的长度增加一个字节。的？可以在REFORMAT记录的任何位置指定，无需指定。的？由DFSORT解析为：B，来自两个文件的数据; 1，来自F1的无与伦比的记录; 2，来自F2的无与伦比的记录。 SyncSort没有匹配标记。 REFORMAT记录中数据的缺失或存在必须由值确定。在两个输入记录上选择一个不包含特定值的字节（例如，在一个数字内，决定一个非数字值）。然后将该值指定为REFORMAT上的FILL字符。

 REFORMAT FIELDS=(F1:1,5200,F2:1,10,30,1,5100,100),FILL=C'$'

如果F1上的位置1自然不能有“$”而F2上的位置20也不能，那么这两个位置可以用来确定匹配的结果。如有必要，可以测试整个记录，但会占用更多的CPU时间。明显的要求是将所有来自F1或F2的不匹配记录写入一个文件。这将需要REFORMAT声明，其中包括两个完整的记录： DFSORT，输出不匹配的记录：

  REFORMAT FIELDS=(F1:1,5200,F2:1,5200,?)

  OUTFIL FNAMES=NOMATCH,INCLUDE=(10401,1,SS,EQ,C'1,2'),
        IFTHEN=(WHEN=(10401,1,CH,EQ,C'1'),
                    BUILD=(1,5200)),
        IFTHEN=(WHEN=NONE,
                    BUILD=(5201,5200))

SyncSort，输出不匹配的记录：

  REFORMAT FIELDS=(F1:1,5200,F2:1,5200),FILL=C'$'

  OUTFIL FNAMES=NOMATCH,INCLUDE=(1,1,CH,EQ,C'$',
                          OR,5220,1,CH,EQ,C'$'),
        IFTHEN=(WHEN=(1,1,CH,EQ,C'$'),
                    BUILD=(1,5200)),
        IFTHEN=(WHEN=NONE,
                    BUILD=(5201,5200))

SyncSort的编码也适用于DFSORT。获得匹配的记录很容易。

  OUTFIL FNAMES=MATCH,SAVE

SAVE确保所有未由其他OUTFIL写入的记录都将写入此处。需要重新格式化，主要从F1输出数据，但从F2中选择一些字段。这适用于DFSORT或SyncSort：

  OUTFIL FNAMES=MATCH,SAVE,
     BUILD=(1,50,10300,100,51,212,5201,10,263,8,5230,1,271,4929)

整个事情，任意的开始和长度是： DFSORT

  JOINKEYS FILE=F1,FIELDS=(1,7,A)              
  JOINKEYS FILE=F2,FIELDS=(20,7,A)    

  JOIN UNPAIRED,F1,F2

  REFORMAT FIELDS=(F1:1,5200,F2:1,5200,?)                         

  SORT FIELDS=COPY    

  OUTFIL FNAMES=NOMATCH,INCLUDE=(10401,1,SS,EQ,C'1,2'),
        IFTHEN=(WHEN=(10401,1,CH,EQ,C'1'),
                    BUILD=(1,5200)),
        IFTHEN=(WHEN=NONE,
                    BUILD=(5201,5200))

  OUTFIL FNAMES=MATCH,SAVE,
     BUILD=(1,50,10300,100,51,212,5201,10,263,8,5230,1,271,4929)

Syncsort公司

  JOINKEYS FILE=F1,FIELDS=(1,7,A)              
  JOINKEYS FILE=F2,FIELDS=(20,7,A)              

  JOIN UNPAIRED,F1,F2

  REFORMAT FIELDS=(F1:1,5200,F2:1,5200),FILL=C'$'                         

  SORT FIELDS=COPY    

  OUTFIL FNAMES=NOMATCH,INCLUDE=(1,1,CH,EQ,C'$',
                          OR,5220,1,CH,EQ,C'$'),
        IFTHEN=(WHEN=(1,1,CH,EQ,C'$'),
                    BUILD=(1,5200)),
        IFTHEN=(WHEN=NONE,
                    BUILD=(5201,5200))

  OUTFIL FNAMES=MATCH,SAVE,
     BUILD=(1,50,10300,100,51,212,5201,10,263,8,5230,1,271,4929)

墩瓣茅械

我在大约2年前使用过JCL，所以不能为你编写代码，但这是想法; 有2个步骤第一步将有ICETOOl，您可以在其中将匹配的记录写入匹配的文件。其次，您可以使用SORT / ICETOOl或仅通过文件操作来编写不匹配的文件。我再次为没有代码的解决方案道歉，但是2年后我已经失去了联系+

校勒魏寡

虽然这个问题已经过了很长时间，但我希望回答，因为它可能对其他人有所帮助。这可以通过单个步骤中的JOINKEYS轻松完成。这里是伪代码：代码JOINKEYS PAIRED(implicit)并通过重新格式化文件获得两个记录。如果任何一个文件都没有匹配，那么追加/前缀一些特殊字符'$' 通过IFTHEN比较'$'，如果存在，那么它没有配对记录，它将被写入未配对文件并休息到配对文件。请回答任何问题。

芦歉竭皑

在Eztrieve中它非常简单，下面是一个如何编写代码的示例：

//STEP01   EXEC PGM=EZTPA00                                        
//FILEA    DD DSN=FILEA,DISP=SHR   
//FILEB    DD DSN=FILEB,DISP=SHR
//FILEC    DD DSN=FILEC.DIF,    
//            DISP=(NEW,CATLG,DELETE),                             
//            SPACE=(CYL,(100,50),RLSE),                           
//            UNIT=PRMDA,                                          
//            DCB=(RECFM=FB,LRECL=5200,BLKSIZE=0)                  
//SYSOUT   DD SYSOUT=*                                             
//SRTMSG   DD SYSOUT=*                                             
//SYSPRINT DD SYSOUT=*                                             
//SYSIN    DD *                                                    
 FILE FILEA                                                        
   FA-KEY       1   7 A                                         
   FA-REC1      8  10 A
   FA-REC2     18   5 A

 FILE FILEB                                                        
   FB-KEY       1   7 A                                         
   FB-REC1      8  10 A                                         
   FB-REC2     18   5 A                                         

 FILE FILEC                                                        

 FILE FILED                                                        
   FD-KEY       1   7 A                                         
   FD-REC1      8  10 A                                         
   FD-REC2     18   5 A                                         


 JOB INPUT (FILEA KEY FA-KEY FILEB KEY FB-KEY)                     
   IF MATCHED            
      FD-KEY   =  FB-KEY                                      
      FD-REC1  =  FA-REC1
      FD-REC2  =  FB-REC2
      PUT FILED
   ELSE
      IF FILEA
         PUT FILEC FROM FILEA                                         
      ELSE
         PUT FILEC FROM FILEB
      END-IF                                         
   END-IF                                                          
/*

臀夯脖锑

//STEP01   EXEC SORT90MB                        
//SORTJNF1 DD DSN=INPUTFILE1,   
//            DISP=SHR                          
//SORTJNF2 DD DSN=INPUTFILE2,   
//            DISP=SHR                          
//SORTOUT  DD DSN=MISMATCH_OUTPUT_FILE, 
//            DISP=(,CATLG,DELETE),             
//            UNIT=TAPE,                        
//            DCB=(RECFM=FB,BLKSIZE=0),         
//            DSORG=PS                          
//SYSOUT   DD SYSOUT=*                          
//SYSIN    DD *                                 
  JOINKEYS FILE=F1,FIELDS=(1,79,A)              
  JOINKEYS FILE=F2,FIELDS=(1,79,A)              
  JOIN UNPAIRED,F1,ONLY                         
  SORT FIELDS=COPY                              
/*

要回复问题请先登录或注册

比较两个文件并将其写入“匹配”。并且“无与伦比”文件

5 个回复

发起人

syncsort

dfsort

easytrieve

问题状态

比较两个文件并将其写入“匹配”。并且“无与伦比”文件

与内容相关的链接

5 个回复

发起人

syncsort

dfsort

easytrieve

问题状态