icetool读取一个包含日期的输入文件，并将其叠加到另一个文件中。

以下是一个用icetool读取包含日期的输入文件，并将其叠加到另一个文件中的示例代码：

// JOBNAME JOB (ACCOUNT),'JOB DESCRIPTION',CLASS=class,MSGCLASS=class,NOTIFY=&SYSUID
//STEP1   EXEC PGM=ICETOOL
//TOOLMSG DD SYSOUT=*
//DFSMSG  DD SYSOUT=*
//INFILE   DD DSN=input.file.with.date,DISP=SHR
//OUTFILE  DD DSN=output.file,DISP=(NEW,CATLG),UNIT=SYSDA,SPACE=(TRK,(10,10),RLSE)
//TOOLIN   DD *
  COPY FROM(INFILE) TO(OUTFILE) USING(CTL1)
/*
//CTL1CNTL DD *
  INREC IFTHEN=(WHEN=(1,8,CH,EQ,C'YYYYMMDD'), 
                OVERLAY=(9:1,8,CH),
                IFTHEN=(WHEN=NONE, 
                        BUILD=(9:9,8,CH)))
/*

在这个示例中，我们假设输入文件包含一个8位的日期字段，位置在每行的前8个字符。我们将使用ICETOOL将输入文件的内容复制到输出文件中，并在每一行的前面叠加日期字段。

在JOB卡中，你需要根据你的需求修改JOBNAME、ACCOUNT、JOB DESCRIPTION、CLASS、MSGCLASS和NOTIFY参数。

在STEP1中，我们指定了ICETOOL程序作为PGM，并将TOOLMSG和DFSMSG输出到SYSOUT类别的输出。INFILE指定了包含日期的输入文件的位置和访问权限。OUTFILE指定了输出文件的位置、访问权限和空间分配。

TOOLIN是ICETOOL的控制卡输入，其中我们使用COPY命令将输入文件复制到输出文件，并使用CTL1作为控制卡。

在CTL1CNTL中，我们定义了CTL1控制卡的内容。在INREC语句中，我们使用IFTHEN函数来检查第1到8个字符是否等于'YYYYMMDD'，如果是，则将其叠加到第9个位置，并使用IFTHEN的NONE条件来构建输出记录。这样，输入文件的每一行都将在前面添加日期字段，然后复制到输出文件中。

请注意，你需要根据你的实际需求修改输入文件的位置、访问权限、日期字段位置和输出文件的位置、访问权限。还可以根据需要调整ICETOOL控制卡的内容。

希望这个示例能帮助到你！