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

Question

我正在尝试使用 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')                              
/*

假脱机中的错误日志

SYSIN :                                                                       
  SORT FIELDS=COPY                                                      008800
  INCLUDE COND=(1,2,CH,EQ,C'02')                                        008900
WER813I  INSTALLATION OPTIONS IN MFX LOAD LIBRARY WILL BE USED                
WER276B  SYSDIAG= 13300297, 21826883, 21826883, 21059935                      
WER164B  7,908K BYTES OF VIRTUAL STORAGE AVAILABLE, MAX REQUESTED,            
WER164B     0 BYTES RESERVE REQUESTED, 2,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, 2,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,UNIT=3390,DEV=C49A,CHP=(BCC1CDCED0D3,1),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

Answer 1

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

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

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

Unable to get sorted records. Getting empty file

mainframe

jcl