Gestire le eccezioni di MySQL in Cobol

Altre pagine:	1] MySQL	4] Gestione completa dei dati
	2] Preparazione	5] Le eccezioni
	3] Replica dati in MySQL	6] Accedere i dati

Approfondimenti su MySQL con RM/COBOL.

In questa pagina vorrei presentare alcuni dettagli realativi alla gestione di un database MySQL tramite RM/COBOL.

Gestione delle eccezioni

Come per l'accesso ai file, anche per l’accesso ai database è neccesario gestire le eccezioni, ossia gli errori.
Abbiamo due fonti distinte di eccezioni:

immagine Da ODBC.
Da SQL.

Nel programma di esempio presentato nella pagina precedente ho incluso una possibile soluzione per la cattura e la gestione delle eccezioni.

Ecco la routine:

000488*
000489*                 Gestione errori SQL
000490*                 -------------------
000491 TQ.
000492     IF sql-OK      GO TQE.
000493*           
000494     SQL DESCRIBE ERROR
000495     sql-Error-Description.
000496*
000497     IF sql-ErrType  = "O" MOVE "ODBC" TO TXQ-TYPE
000498        ELSE               MOVE "SQL"  TO TXQ-TYPE.
000499     MOVE sql-ErrNo                    TO TXQ-ST.
000500*              
000501     DISPLAY TXS    LINE 22 POSITION 1  
000502             TXQ    LINE 22 POSITION 1.                 
000503     ACCEPT  A1     LINE 22 POSITION 79 PROMPT.
000504     DISPLAY TXS    LINE 22 POSITION 1.
000505     IF A1     = "$"  STOP RUN.
000506     IF A1 NOT = "?" GO TQE.
000507*
000508     MOVE SPACES TO QWIN-CONTROL.
000509     STRING "WINDOW-CREATE," DELIMITED SIZE
000510            "FCOLOR=BLACK BCOLOR=BROWN"
000511            DELIMITED BY SIZE
000512             INTO QWIN-CONTROL.
000513     DISPLAY QWCB LINE QWIN-LINE POSITION QWIN-POSITION
000514             CONTROL QWIN-CONTROL.
000515     ACCEPT QWIN-STATUS FROM EXCEPTION STATUS.
000516     IF QWIN-STATUS NOT = 0 GO TQE.
000517     DISPLAY SPACES LINE 1 POSITION 1 ERASE.
000518     DISPLAY Sql-ErrMsg.
000519     ACCEPT A1 LINE 7 POSITION 79.
000520     DISPLAY QWCB CONTROL "WINDOW-REMOVE".                       
000521     IF A1     = "$"  STOP RUN.
000522 TQE.
000523     EXIT. 
000524*

In caso si eccezione viene dapprima visualizzata l'origine seguita dal codice di errore (simile ad un file status).
Impostando ? viene aperta una finestra pop-up con il dettaglio dell'errore.

Per generare questa eccezione ho rinominato il campo Nazione in Nazione1 della tabella indirizzi.
Ecco come si presenta all'operatore una simile situazione.

Esempio visualizzazione eccezione SQL

Impostando ? appare la spiegazione dell'errore.

Esempio visualizzazione eccezione SQL

Come prelevare questi codici

Pagina precedente

Pagina successiva

Cobol in pratica

Approfondimenti su MySQL con RM/COBOL.

Gestione delle eccezioni