OPTION COPY
OUTFIL REMOVECC,
TRAILER1=('FT',DATE,55X,COUNT=(EDIT=(IIITT)),
299X,TOTAL=(370,13,SFF,EDIT=(STTTTTTTTT.TT),
SIGNS=(+,-),
LENGTH=13))
我有一个带有上述选项的预告片记录。在这种情况下,日期以格式显示,但我希望日期仅以 2014-10-21 格式显示。我的预告片记录如下所示。
FT10/21/14 04 +000000192.21
它应该如下所示。FT2014-10-21 04 +000000192.21
另外,在这一个中,我找到了所有记录的计数和所有记录的总数。我的输入文件在第 2 列中有 A 或 L,在第 370 列中有相应的金额。我还想找到第 2 列中有 A 或 L 的记录的计数以及这些记录的总数。我也必须在预告片记录中显示这个计数和总和。
注意:在我的预告片中,我需要以 yyyy-mm-dd 格式显示当前日期,并且我已经显示了所有输入记录的计数和总数,我还想用 A 显示记录的计数和总数或第 2 栏中的 L 以及第 370 栏中的相应金额的总和。
根据比尔提供的答案,这就是我所拥有的。
//SORTA EXEC PGM=SORT
//SORTIN DD DSN=TESTIBN.MYFILE.CHGHIS.SAMP,
// DISP=SHR
//SORTOUT DD DSN=TESTIBN.MYFILE.CHGHIS.NEW,
// DISP=(NEW,CATLG,DELETE),
// UNIT=SYSDA,
// RECFM=FB
//SORTWK01 DD SPACE=(CYL,(364)),
// UNIT=SYSDA
//SORTWK02 DD SPACE=(CYL,(364)),
// UNIT=SYSDA
//SORTWK03 DD SPACE=(CYL,(364)),
// UNIT=SYSDA
//SORTWK04 DD SPACE=(CYL,(364)),
// UNIT=SYSDA
//SORTWK05 DD SPACE=(CYL,(364)),
// UNIT=SYSDA
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SYSIN DD *
OPTION COPY
OUTFIL REMOVECC,
TRAILER1=('FT',DATE=(4MD-),55X,COUNT=(EDIT=(IIITT)),
299X,TOTAL=(370,13,SFF,EDIT=(STTTTTTTTT.TT),
SIGNS=(+,-),
LENGTH=13))
是的,记录长度是 500。输入文件的位置 2 有 A 或 L 仅用于少数记录。这些是调整记录。他们可能在位置 2 中有 C 用于收费记录。我已经把所有记录的总数(费用+调整)放在了预告片中,现在我必须把调整记录的计数和总数也放进去。