预告片中的日期格式

Question

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格式显示当前日期，并且已经在显示所有输入记录的计数和总计，我还想显示记录的计数和总计。在第2列中包含A或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，以进行收费记录。我已经将所有记录（费用+调整）的总计放入了预告片中，现在我还必须将调整记录的数量和总计也放入。

Answer 1

摘自DFSORT应用程序编程指南