在 JCL 中的数据集开头添加日期

Question

我想实现以下目标。 我需要在开始时将以下格式（YYYYMMDD）的日期添加到我的数据集（长度为300字节）中。

因此，我已经实现了这个：

//STEP01 EXEC SORTDYN
//SYSIN DD *
    OPTION COPY
    OUTREC BUILD=(001:CYMD,10:001,290)
/*
//SORTIN   DD  DSN=FILE.TEST.WORK.SOME.FA,
//             DISP=SHR
//SORTOUT  DD  DSN=FILE.TEST.OUT.SOME.FA,
//             DISP=(MOD,CATLG),
//             SPACE=(CYL,(90,60),RLSE),VOL=(,,,9),
//             RECFM=FB,LRECL=300

但是，它总是向我指出这个地方的错误：

OUTREC BUILD=(001:CYMD,10:001,290)
                   $

我的DFSORT版本是V2R4。

感谢您的帮助。

Answer 1

我正在回答我自己的问题:)

我通过这样重写解决了它：

//STEP035 EXEC SORTDYN
//SYSIN DD *
SORT FIELDS=COPY
OUTREC FIELDS=(1:DATE1,X,01,300)
/*
//SORTIN DD DSN=FILE.TEST.WORK.SOME.FA,
// DISP=SHR
//SORTOUT DD DSN=FILE.TEST.OUT.SOME.FA,
// DISP=(MOD,CATLG),
// SPACE=(CYL,(90,60),RLSE),VOL=(,,,9),
// RECFM=FB,LRECL=300

条目 OUTREC FIELDS=(1:DATE1,X,01,300) 即可完成这项工作。