使用 SYNCSORT (JOINKEYS) 加入 2 个数据集，是否可以以任何方式通配某些值？

Question

使用 SYNCSORT 连接 2 个数据集，是否可以以任何方式通配 F1 的某些值？

我想搜索 BEER 这个词，但在 F2 中，值可能是 BEER 或 BEER-BLONDE 等。

这是我现在的代码。如果F2包含BEER-BLONDE，则记录没有配对，因为值不是BEER（后面有16个空格），但我仍然需要将代码设置为0000100002。

//STEP01   EXEC PGM=SORT,PARM='DYNALLOC=(SYSDA,255)'
//SORTMSGS DD SYSOUT=*
//SORTJNF1 DD *
0000100001WINE
0000100002BEER
0000100003OTHER
/*
//SORTJNF2 DD DSN=ZZ.MAINDATA,
//            DISP=SHR,DCB=BUFNO=255
//SORTOUT  DD DSN=ZZ.OUTPUT,
//            DISP=(NEW,CATLG,DELETE),
//            UNIT=(SYSDA,59),
//            SPACE=(CYL,(500,100),RLSE)
//SYSIN    DD *
JOINKEYS FILE=F1,FIELDS=(11,20,A)
JOINKEYS FILE=F2,FIELDS=(40,20,A)
JOIN UNPAIRED,F2
REFORMAT FIELDS=(F2:1,10,F1:1,10,F2:21,20)
OPTION COPY
//DFSPARM  DD *
MSGDDN=SORTMSGS

我没有t/can没有列出所有可能性（下面的示例），因为它们会更改得太频繁，它可以设置为任何值。

//SORTJNF1 DD *
0000100001WINE
0000100002BEER
0000100002BEER-BLONDE
0000100002BEER-BROWN
0000100002BEER-WHITE
0000100002BEER-DARK
0000100003OTHER
/*

我可以用 SORT 或 ICETOOL 做些什么来解决这个问题吗？

谢谢

Answer 1

不是使用 JOIN 来更改基于另一个值（在同一行）的值，后来我了解到可以简单地使用 IFTHEN 和 SYNCSORT

//SYSIN    DD *
  OPTION COPY
  INREC IFTHEN=(WHEN=(40,11,CH,EQ,C'BEER-BLONDE'),OVERLAY=(11:C'0000100002')),
    IFTHEN=(WHEN=(40,10,CH,EQ,C'BEER-BROWN'),OVERLAY=(11:C'0000100002')),
    IFTHEN=(WHEN=(40,10,CH,EQ,C'BEER-WHITE'),OVERLAY=(11:C'0000100002')),
    IFTHEN=(WHEN=(40,9,CH,EQ,C'BEER-DARK'),OVERLAY=(11:C'0000100002')),
    IFTHEN=(WHEN=(40,4,CH,EQ,C'BEER'),OVERLAY=(11:C'0000100002')),
    IFTHEN=(WHEN=(40,4,CH,EQ,C'WINE'),OVERLAY=(11:C'0000100001')),
    IFTHEN=(WHEN=(40,5,CH,EQ,C'OTHER'),OVERLAY=(11:C'0000100003'))

使用 SYNCSORT (JOINKEYS) 加入 2 个数据集，是否可以以任何方式通配某些值？

Joining 2 datasets with SYNCSORT (JOINKEYS), is it possible to wildcard some of the values any way?

mainframe

zos

syncsort