我正在尝试使用 DFSORT 实用程序对文件进行排序,JCL 使用代码 maxcc=00 成功运行,但我得到的输出文件为空,请帮助我,
我的输入文件
02AAP000000701050000190116200116012013173000 01R300118
03PC PIFIXSYS20111800FIX FOR 12LA UPDATE
03PC PIFIXSYS20050700ORG DATE FIX
03PC PIFIXSYS1911270012AI LINE1 AND SORT FIX
Run Code Online (Sandbox Code Playgroud)
我只想输入的第一行进入输出文件但获得空文件。我的 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')
/*
Run Code Online (Sandbox Code Playgroud)
线轴错误日志
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
Run Code Online (Sandbox Code Playgroud)
| 归档时间: |
|
| 查看次数: |
124 次 |
| 最近记录: |