( defun asi_vorbereiten ( lidsessionup csqlbef
                          /      
                          csqlbefgbst cstmtype 
			  ikontrolle
			  lidbefehl )



(meldung_befehlszeile "Anfang asi_vorbereiten" t)


  
; Den SQL-Befehl vorbereiten


  
(meldung_befehlszeile "csqlbef = " t)
(meldung_befehlszeile csqlbef nil)

  
  
  (setq csqlbefgbst (strcase csqlbef))


  
(meldung_befehlszeile "lidsessionup = " t)
(meldung_befehlszeile lidsessionup nil)
(meldung_befehlszeile "csqlbefgbst = " t)
(meldung_befehlszeile csqlbefgbst nil)

  
  
  (setq lidbefehl (asi_prepare lidsessionup csqlbefgbst)) 



(meldung_befehlszeile "nach asi_prepare" t)
(meldung_befehlszeile "1" t)


  
; Die Vorbereitung kontrollieren
  (if (/= lidbefehl nil)
    (progn		



(meldung_befehlszeile "2" t)


  
      (if (= (setq cstmtype (asi_stmtype lidbefehl)) "CURSOR") ; Typ des SQL-Befehls
        (setq ikontrolle 1)  ; Select-Befehl
        (setq ikontrolle -1) ; Modifizieren-Befehl
      )



(meldung_befehlszeile "3" t)


  
    )
    (progn		



(meldung_befehlszeile "4" t)


  
      (setq ikontrolle 0)    ; Befehl kann nicht vorbereitet werden 
    )
  ) ; if
  


(meldung_befehlszeile "Ende asi_vorbereiten" t)


  
; Rückgabewert
  lidbefehl

) ; Modulende