Db2 如果使用DSNMTV01进行806 CC,该怎么办

Db2 如果使用DSNMTV01进行806 CC,该怎么办,db2,jcl,ims-db,Db2,Jcl,Ims Db,我尝试从IMSDB中读取一些数据,并使用DSNMTV01将其写入db2表。 但我有806 CC(未找到请求的模块DSNMTV01) 有人知道怎么回事吗? 我尝试在dfsd10中为DSNMTV设置srchf,我可以在dfsd10.sdsfresl中找到它。。那么,为什么我有806ccUPD:我在steplib中添加了更多的1个lib,现在rc=0。但不幸的是,数据没有放入db2表(我使用pl/1 pgm)。db2没有更新可能是您的程序中的一个错误。谢谢您的帮助,比尔。我解决了我的问题。我没有助学金

我尝试从IMSDB中读取一些数据,并使用DSNMTV01将其写入db2表。 但我有806 CC(未找到请求的模块DSNMTV01)

有人知道怎么回事吗?
我尝试在dfsd10中为DSNMTV设置srchf,我可以在dfsd10.sdsfresl中找到它。。那么,为什么我有806cc

UPD:我在steplib中添加了更多的1个lib,现在rc=0。但不幸的是,数据没有放入db2表(我使用pl/1 pgm)。db2没有更新可能是您的程序中的一个错误。谢谢您的帮助,比尔。我解决了我的问题。我没有助学金
//USER19    JOB NOTIFY=&SYSUID,MSGCLASS=A,MSGLEVEL=(1,1),REGION=360M
//DLIBATCH PROC MBR=TEMPNAME,PSB=,BUF=7,                            
//            SPIE=0,TEST=0,EXCPVR=0,RST=0,PRLD=,                   
//            SRCH=0,CKPTID=,MON=N,LOGA=0,FMTO=T,                   
//            IMSID=,SWAP=,DBRC=,IRLM=,IRLMNM=,                     
//             BKO=N,IOB=,SSM=,APARM=,                              
//            RGN=1024K,                                            
//*           SOUT=A,LOGT=2400,SYS2=,                               
//            SOUT=A,SYS2=,                                         
//            LOCKMAX=,GSGNAME=,TMINAME=                            
//S0 EXEC PGM=IEFBR14                                               
//IEFRDER  DD DSN=DFSD10.IMSLOG,DISP=(OLD,DELETE),VOL=SER=H1SYS1,   
//         UNIT=SYSDA                                               
//*----------------------------------------------------------       
//G      EXEC PGM=DFSRRC00,REGION=&RGN,                             
//            PARM=(DLI,&MBR,&PSB,&BUF,                             
//            &SPIE&TEST&EXCPVR&RST,&PRLD,                          
//            &SRCH,&CKPTID,&MON,&LOGA,&FMTO,                       
//            &IMSID,&SWAP,&DBRC,&IRLM,&IRLMNM,                     
//            &BKO,&IOB,&SSM,'&APARM',                              
//            &LOCKMAX,&GSGNAME,&TMINAME)                           
//STEPLIB  DD DSN=DFSD10.&SYS2.SDFSRESL,DISP=SHR                    
//         DD DSN=DFSD10.&SYS2.PGMLIB,DISP=SHR                      
//         DD DSN=USER19.LOAD,DISP=SHR                              
//DFSRESLB DD DSN=DFSD10.&SYS2.SDFSRESL,DISP=SHR                    
//IMS      DD DSN=DFSD10.PSBLIB,DISP=SHR                            
//         DD DSN=DFSD10.DBDLIB,DISP=SHR                            
//PROCLIB  DD DSN=DFSD10.&SYS2.PROCLIB,DISP=SHR                     
//IEFRDER  DD DSN=DFSD10.IMSLOG,DISP=(NEW,KEEP),VOL=SER=H1SYS1,     
//         DCB=(RECFM=VB,BLKSIZE=1920,                              
//         LRECL=1916,BUFNO=2),SPACE=(TRK,(1,1)),UNIT=SYSDA         
//SYSUDUMP DD SYSOUT=&SOUT,                                         
//         DCB=(RECFM=FBA,LRECL=121,BLKSIZE=1024),                  
//         SPACE=(605,(500,500),RLSE,,ROUND)                        
//IMSMON   DD DUMMY                              
// PEND                                          
//STEP1 EXEC DLIBATCH,MBR=DSNMTV01,PSB=DFSIVP11, 
//          DBRC=N,BKO=Y                         
//G.SYSPRINT DD SYSOUT=*                         
//G.DFSVSAMP DD *                                
VSRBF=16384,80                                   
/*                                                
//*                                              
//G.DFSIVD1 DD DSN=DFSD10.DFSIVD1,DISP=SHR       
//G.DFSIVD1I DD DSN=DFSD10.DFSIVD1I,DISP=SHR     
//*                                              
//G.DDOTV02 DD SYSOUT=*,RECFM=V,LRECL=4092       
//G.DDITV02 DD *                                 
DBBG,SYS1,DSNMIN10,,A,-,,USR19PL,READIMS         
/*                                               
//* THIS IS THE FOR LOAD OR UPDAT DATA           
//                                               
**************************** Bottom of Data *****