无法获取已排序的记录获取空文件

如何解决无法获取已排序的记录获取空文件

我正在尝试使用 dfsort 实用程序对文件进行排序，JCL 使用代码 maxcc=00 成功运行，但我得到的输出文件为空，请帮助我，

我的输入文件

02AAP000000701050000190116200116012013173000  01R300118
03PC PIFIXSYS20111800FIX FOR 12LA UPDATE               
03PC PIFIXSYS20050700ORG DATE FIX                      
03PC PIFIXSYS1911270012AI LINE1 AND SORT FIX

我只想输入的第一行进入输出文件但获得空文件。我的 JCL 排序

//STEP030  EXEC pgm=SORT                                      
//SORTIN    DD disP=SHR,DSN=T.CAOS.PE8523.PIF.MSTEXT.EXPAND   
//*                                                           
//SORTOUT   DD DSN=T.CAOS.PE8523.PIFFIX.soRTED,//             disP=(NEW,CATLG,DELETE),//             STORCLAS=SCTSO,//             MGMTCLAS=MCTSO,//             RECFM=VB,LRECL=304,BLKSIZE=0,//             SPACE=(CYL,(10,5),RLSE)                        
//SYSOUT    DD SYSOUT=*                                       
//SYSIN    DD    *                                            
  SORT FIELDS=copY                                            
  INCLUDE COND=(1,2,CH,EQ,C'02')                              
/*

spool 中的错误日志

SYSIN :                                                                       
  SORT FIELDS=copY                                                      008800
  INCLUDE COND=(1,C'02')                                        008900
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED                
WER276B  SYSDIAG= 13300297,21826883,21059935                      
WER164B  7,908K BYTES OF VIRTUAL STORAGE AVAILABLE,MAX REQUESTED,WER164B     0 BYTES RESERVE REQUESTED,488K BYTES USED                      
WER146B  32K BYTES OF EMERGENCY SPACE ALLOCATED                               
WER108I  SORTIN   : RECFM=VB   ; LRECL=   304; BLKSIZE= 27998                 
WER073I  SORTIN   : DSNAME=T.CAOS.PE8523.PIF.MSTEXT.EXPAND                    
WER110I  SORTOUT  : RECFM=VB   ; LRECL=   304; BLKSIZE= 27998                 
WER074I  SORTOUT  : DSNAME=T.CAOS.PE8523.PIFFIX.soRTED                        
WER410B  5,856K BYTES OF VIRTUAL STORAGE AVAILABLE ABOVE THE 16-MEGABYTE LINE,WER410B     0 BYTES RESERVE REQUESTED,344K BYTES USED                      
WER055I  INSERT          0,DELETE         37                                 
WER211B  SYNCSMF  CALLED BY SYNCSORT; RC=0000                                 
WER449I  SYNCSORT GLOBAL DSM SUBSYstem ACTIVE                                 
WER416B  SORTIN   : EXCP'S=1,UNIT=3390,DEV=C679,CHP=(BCC1CDCED0D3,1),VOL=TALF0A
WER416B  SORTOUT  : EXCP'S=0,DEV=C49A,VOL=TASF06
WER416B  TOTAL OF 1 EXCP'S ISSUED FOR copYING                                 
WER054I  RCD IN         37,OUT          0                                    
WER169I  RELEASE 2.1 BATCH 0539 TPF LEVEL 3.0                                 
WER052I  END SYNCSORT - PE8523AP,STEP030,DIAG=CE00,51C2,E2AC,006E,8652,68EB,26A8,2460,0100,0300

解决方法

您正在对 RECMF=VB 数据集进行排序，因此记录中的第一个数据字节位于位置 5。相应地调整 INCLUDE 语句：

INCLUDE COND=(5,2,CH,EQ,C'02')