学大型机的朋友能帮帮看这程序吗

000100 //ibmuserA JOB (ibmuser),              
000200 // MSGCLASS=T,CLASS=L,NOTIFY=ibmuser   
000300 //** * * * * * * * * * * * * * * * * * *
000400 //** DELETE DATASET                    
000500 //** * * * * * * * * *                 
000600 //STEP1 EXEC PGM=IDCAMS                
000700 //SYSPRINT DD SYSOUT=*                 
000800 //SYSIN DD *                           
000900 DELETE ibmuser.jcl.output              
001000 //** * * * * * * * * * * * * * * * * * *
001100 //** ALLOCATE AND COPY INTO DATASET    
001200 //** * * * * * * * * *                 
001300 //STEP2 EXEC PGM=IEBGENER              
001400 //SYSPRINT DD SYSOUT=*                 
001500 //SYSUT1 DD DSN=ibmuser.jcl.sds,DISP=OLD
001600 //SYSUT2 DD DSN=ibmuser.jcl.output,    
001700 // DISP=(NEW,CATLG),LIKE=ibmuser.jcl.sds
001800 //SYSIN DD DUMMY          

错误显示是 1 IEFC662I INVALID LABEL  ，急啊！