Dezhi Systems support site

I am using this JCL for sort:

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?

SORT processing statements need to start in column 2.