Conference orarep::nomahs::dbintegrator_public_public

1053.0. "DBI bugcheck - MDM_GET_ROUTINE_BLR" by ORAREP::VAXRIO::CSANTOS () Tue Apr 30 1996 16:00

    
    
    	    
            Hi,
        
            We have a customer using DBI to acccess a remote database. When 
            running the following procedure, sometimes DBI bugchecks.
        
        
                            Any hints??
        
                                    Thanks
        
                                            Claudia
        
       
    *************************************************************************
        Procedure
    *************************************************************************
    
SET OUTPUT X.TXT
CREATE MODULE OBJETO LANGUAGE SQL 
       COMMENT IS 'Modulo para incluir objetos e sistemas tecnicos da unidade ... do SE... no bde'
       PROCEDURE P_INCLUI_OBJ (IN :tagmenor char(5), IN :tagmaior char(7),
                               IN :setor char(10), IN :unid integer,
                               INOUT :nr_obj integer, INOUT :nRowCount integer);
       BEGIN
         DECLARE :Tag char(20);
         DECLARE :Servico char(80);
	 DECLARE :Linha char(20);
         DECLARE :Tipoinst char(50);
         DECLARE :sqlcode integer;

   	 SET :nRowCount = 0;
   	 SET :nr_obj = 99000;
         FOR :tag_for AS EACH ROW OF
	     Select TAG from TAGSAIN where TAG > :tagmenor and TAG < :tagmaior

	 DO
	     Select TAG,SERVICO,LINHA,TIPOINST 
             into :Tag,:Servico,:Linha,:Tipoinst
	     from TAGSAIN where tag= :tag_for.tag;
	     Select max(obj_nr_objeto) into :nr_obj from objeto;

             GET DIAGNOSTICS EXCEPTION 1 :sqlcode = RETURNED_SQLCODE;
	     IF :sqlcode = 0 
              THEN

              Set :nr_obj = :nr_obj + 1;
	      Insert into OBJETO (OBJ_NR_OBJETO,TPOB_TP_OBJETO,OBJ_NM_OBJETO,
               OBJ_DS_OBJETO) values (:nr_obj, 'ST', :Tag,
                 :Servico||:Linha||:Tipoinst);
              Insert into SISTEMA_TECNICO (ST_NR_SISTEC,TPST_TP_SISTEC,
               ST_CD_TAG,PRIO_CD_PRIORIDADE,COOP_CD_COND_OPER,
               CLST_NR_CLASSE_ST,UO_CD_UNID_ORGAN,ST_NR_SISTEC_UNID)
                values (:nr_obj,'F',:Tag,null,null,null,:setor,:unid);
!	      Commit;

              SET :nRowCount = :nRowCount + 1;
             END IF;

         END FOR;
	  
       END;
END MODULE;
SET NOOUTPUT
    
    
    *************************************************************************
        Procedure that call the procedure listed
    *************************************************************************
    
! A finalidade desta DCL � inserir tag's de instrumento em SISTEMA_TECNICO
set ver
SET OUTPUT PROC_OBJ.TXT
DECLARE :NUMOBJ INTEGER;
DECLARE :LINHAS INTEGER;
! Inserir tag's de instrumento em SISTEMA_TECNICO
SET TRANSACTION READ WRITE;
CALL P_INCLUI_OBJ('053-Q','053-TZZ','SECOQ',10135,:NUMOBJ,:LINHAS);
UNDECLARE :LINHAS;
SET NOOUTPUT
    
    
    *************************************************************************
      Exception    
    *************************************************************************
    
    
    ***** DUMP START ********** Thu Apr 25 11:59:33.544 1996
    *********************
    
        This file was generated by DBI V3.1-00 upon detection of a fatal,
        unexpected, error.  Please return this file, the query or
        program that produced the bugcheck, the database and any
        other pertinent information with an SPR.
    
    %DBI-F-BUGCHECK: in DBI$CODERESD:[UTL.SRC]UTL_BUGCHECK.C;1 at line 1305
    HARD EXCEPTION ENCOUNTERED: 12
    
    <FF>
    
    
    **********************************************************************
    ******************SECTION HEADER: MINIMAL STACK DUMP******************
    **********************************************************************
    
    #0 Call Frame Information
    ----------------------
       **** Exception at 0137ABCC: MDM_GET_ROUTINE_BLR + 00000654 
    (00001620)
    
    
    #1 Call Frame Information
    ----------------------
       Saved PC 01230898: CDR_COMPILE_BLR_REQUEST + 000000C8  (00000200)
    
    
    #2 Call Frame Information
    ----------------------
       Saved PC 011B33C0: FD_COMPILE_REQUEST + 00000898  (00002200)
    
    
    #3 Call Frame Information
    ----------------------
       Saved PC 011AF484: FD_DISPATCH + 000009A4  (00002468)
    
	...
    
    
    PS: FUll bugcheck avaiable....
    
    

    
    Hi Claudia,
    
    This looks like a problem that was fixed just after we shipped our
    V31 MUP (so a mup won'thelp).  I'll ask one of our support folks to
    contact you and you can try getting an ECO kit.  Please let us know
    if it fixes the problem.
    
    Thanks,
    
    Dan 

    Hi Claudia,
    
    In ORAREP"":: you'll find two DBI$SHR.EXE images called DBI$SHR.EXE_VAX 
    and DBI$SHR.EXE_AXP. Copy the flavor you need into SYS$SHARE: and name
    the image DBI$SHR.EXE. Stop & start DBI and see if this fixes your
    problem.
    
    Please let us know how you make out.
    
    Don