使用JCL中DFSORT替换变长块XML标签遇ICE007A语法错误求助

原JCL语法错误原因 #

1. WHEN=(%01) 不符合DFSORT语法规则，无法直接将PARSE生成的临时变量作为条件判断依据。
2. OVERLAY=(%01:C'22222222') 语法错误，PARSE生成的%xx变量不能直接作为OVERLAY的位置参数，必须指定明确的列位置或合法的位置表达式。

推荐解决方案（处理所有匹配项） #

使用DFSORT的FINDREP功能，可自动替换记录中所有出现的<D:DATA>标签后的8位内容，适配变长块XML场景：

//SORT01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=X.ABC.REPL.INPUT,DISP=SHR
//SORTOUT  DD DSN=X.ABC.REPL.OUTPUT,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,50),RLSE),
//            DCB=*.SORTIN
//SYSIN    DD *
OPTION COPY
INREC FINDREP=(MASK=C'<D:DATA>XXXXXXXX',
               OUT=C'<D:DATA>22222222',
               COUNT=ALL)
/*

参数说明 #

• MASK=C'<D:DATA>XXXXXXXX'：定义匹配模板，X代表任意字符，精准匹配<D:DATA>后紧跟8位任意字符的模式。
• OUT=C'<D:DATA>22222222'：指定替换后的内容，将原8位字符替换为22222222。
• COUNT=ALL：确保替换记录中所有符合模板的匹配项，而非仅第一个。

备选方案（仅替换第一个匹配项） #

若只需替换每个记录中首次出现的标签，可通过PARSE结合BUILD构造新记录：

//SORT01 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT   DD SYSOUT=*
//SORTIN   DD DSN=X.ABC.REPL.INPUT,DISP=SHR
//SORTOUT  DD DSN=X.ABC.REPL.OUTPUT,
//            DISP=(NEW,CATLG,DELETE),
//            SPACE=(CYL,(50,50),RLSE),
//            DCB=*.SORTIN
//SYSIN    DD *
OPTION COPY
INREC IFTHEN=(WHEN=INIT,
    PARSE=(%POS=(ENDBEFR=C'<D:DATA>',FIXLEN=4)),
    BUILD=(1,4, %POS, C'<D:DATA>', C'22222222', (%POS+16):))
/*

参数说明 #

• PARSE=(%POS=(ENDBEFR=C'<D:DATA>',FIXLEN=4))：解析出<D:DATA>标签前的字符长度（包含VB记录的4字节长度字段）。
• BUILD语句重新构造记录：保留原长度字段，拼接标签前内容、<D:DATA>、新8位内容，最后拼接标签后8位之外的剩余内容。

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