- Code: Select all
****** ***************************** Top of Data **********************
000001 //CPANTXJ JOB (12345678),CPANTX,MSGCLASS=H,
000002 // MSGLEVEL=(1,1),CLASS=A,NOTIFY=&SYSUID
000003 //STEP1 EXEC PGM=SORT
000004 //SYSOUT DD SYSOUT=*
000005 //SYSPRINT DD SYSOUT=*
000006 //SORTIN DD DSN=CPANTX.FILE.LIST,
000007 // DISP=SHR
000008 //SORTOUT DD DSN=CPANTX.FILE.LISTS,
000009 // DISP=(NEW,CATLG,DELETE),
000010 // UNIT=UNIT1,
000011 // SPACE=(CYL,(2,1),RLSE),
000012 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000013 //SORTWK01 DD UNIT=SYSDA,
000014 // SPACE=(CYL,(20,20),RLSE)
000015 //SORTWK02 DD UNIT=SYSDA,
000016 // SPACE=(CYL,(20,20),RLSE)
000017 //SYSIN DD *
000018 SORT FIELDS=(2,4,CH,A)
000019 /*
000020 //
****** **************************** Bottom of Data ********************
and I am getting this error msg:
- Code: Select all
********************************* TOP OF DATA **********************************
1ICE000I 1 - CONTROL STATEMENTS FOR 5694-A01, Z/OS DFSORT V1R5 - 10:56 ON MON AU
0 SORT FIELDS = (2,4,CH,A)
$
ICE005A 0 STATEMENT DEFINER ERROR
ICE010A 0 NO SORT OR MERGE CONTROL STATEMENT
ICE751I 0 C5-BASE C6-BASE E7-Q91626
ICE052I 3 END OF DFSORT
******************************** BOTTOM OF DATA ********************************
Is there any problem with DFSORT?