Как написать jcl, чтобы сделать dbdgen

Question

Я пишу jcl 4 dbdgen:

//C      EXEC PGM=ASMA90,REGION=8M,                              
//            PARM=(OBJECT,NODECK,NODBCS,'SIZE(MAX,ABOVE)')      
//SYSIN    DD DSN=USER19.DBDSRC(LIBDBD),DISP=SHR                 
//SYSLIB   DD DSN=DFSD10.SDFSMAC,DISP=SHR                        
//SYSLIN   DD UNIT=SYSDA,DISP=(,PASS),                           
//            SPACE=(80,(100,100),RLSE),                         
//            DCB=(BLKSIZE=80,RECFM=F,LRECL=80)                  
//SYSPRINT DD SYSOUT=*                                           
//SYSUT1   DD UNIT=SYSDA,DISP=(,DELETE),                         
//            SPACE=(CYL,(10,5))                                                                                               
//L      EXEC PGM=HEWL,PARM='XREF,LIST',                         
//            COND=(0,LT,C),REGION=120K                          
//SYSLIN   DD DSN=*.C.SYSLIN,DISP=(OLD,DELETE)                   
//SYSPRINT DD SYSOUT=*                                           
//SYSLMOD  DD DISP=SHR,                                          
//            DSN=USER19.DBDLIB(LIBDBD)                          
//SYSUT1   DD UNIT=(SYSDA,SEP=(SYSLMOD,SYSLIN)),                 
//            SPACE=(1024,(100,10),RLSE),DISP=(,DELETE)        

И есть 8 RC.

Я думаю, что это проблема с асмой, я прав? У кого-нибудь есть идеи по ремонту моей программы?>