Cobol le DECLARATIVES - gestione delle eccezioni

Altre pagine:
	1] Le declaratives
	2] Uso in processi batch

La gestione delle declaratives.

Ogni programma Cobol che accede a dei files dovrebbe prevedere una gestione degli errori e delle eccezioni includendo nel programma la divisione DECLARATIVES.
Solo in questo modo potremo evitare l’interruzione del programma dovuta ad eccezioni o errori derivanti dall’accesso ai file.
Il mio motto: Un programma senza DECLARATIVES non è un programma !
Gli esempi di programmi Cobol pubblicati in rete, forse per questione di semplificazione, ne sono generalmente privi.

In questa pagina vorrei illustrare in modo semplice l’uso.

Definizione necessarie per il controllo dello status I-O di un file

(Per semplicità ho indicato solo degli spezzoni di programma)

000001 INPUT-OUTPUT SECTION.
000002*
000003 FILE-CONTROL.
000004*
000005*
000006*
000007*                       FD DEL FILE
000008*
000009     SELECT F01 ASSIGN TO DISC
000010            "FIBU07.FAF"
000011                         ORGANIZATION    INDEXED
000012                         ACCESS          DYNAMIC
000013                         RECORD KEY      F01KEY
000014                         FILE STATUS     ERF01.
000015*
000016 WORKING-STORAGE SECTION.
000017*
000018*
000019*
000020*      Campi riservati per la gestione degli status files.
000021*
000022 1    TXE.
000023  2   FILLER     PIC X(14)       VALUE "Error on file ".
000024  2   FILEN      PIC X(11).  *> Nome del file
000025*
000026 1    TXE1.
000027  2   FILLER     PIC X(14)       VALUE "Status is  ".
000028  2   FILESTEX.
000029  3   FILEST     PIC XX.     *> Status primario
000030  3   FILLER     PIC XX.     *> Status secondario
000031*
000032*      Costanti & campi di lavori
000033*
000034 1    WC         PIC XX          VALUE "00".
000035 1    SLF        PIC  9.      *> Per la gestione del record lock
000036 1    A1         PIC  X.
000037*
000038*      Campi specifici ogni ogni file
000039*
000040 1    ERF01      PIC   XX.
000041*
000042*
000043*
000044*

La prima sezione della procedure division

000044*
000045 PROCEDURE DIVISION.
000046*
000047 DECLARATIVES.
000048*
000049*
000050*
000051 DEC01 SECTION.
000052     USE AFTER ERROR PROCEDURE F01.
000053 DEC0101.
000054      MOVE ERF01 TO FILEST.  MOVE "FIBU07.FAF"      TO FILEN.
000055 END DECLARATIVES.
000056*
000057*
000058 HAUPT SECTION.
000059*
000060*
000061*             
000062 A-1.
000063*

Per ogni file deve essere definita una SECTION.
Dovranno essere adattati i campi ERF01 e la costante che verrà copiata nel campo FILEN.
Alle fine delle varie section deve essere definito il tag di chiusura END DECLARATIVES.

Questa è la routine per il controllo dello status di I-O

000070*        Routine controllo status file I-O
000071*
000072 TR.
000073      MOVE 0 TO SLF.
000074      IF FILEST = WC GO TRE.
000075      CALL "c$rerr"  USING FILESTEX.
000076*
000077      DISPLAY TXS LINE 18 POSITION 2 SIZE 25
000078              TXS LINE 19 POSITION 2 SIZE 25
000079              TXE LINE 18 POSITION 2 TXE1 LINE 19 POSITION 2.
000080*
000081      ACCEPT A1 LINE 19 POSITION 30 PROMPT.
000082*
000083      DISPLAY TXS LINE 18 POSITION 2 SIZE 25
000084              TXS LINE 19 POSITION 2 SIZE 25.
000085*
000086      IF A1 = "$" GOBACK.
000087      IF FILEST = "99" MOVE 1 TO SLF GO TRE. 
000088      IF A1 NOT = "#" GO TR.
000089 TRE.
000090      EXIT.

Si potrà notare il CALL al programma c$rerr il quale ha il compito di restituire lo status esteso a quattro digit.
Questo è molto utile per i codici di errori primari generici.
Se prendiamo come esempio lo status primario 94 esso viene generato per più di 50 differenti motivi.

Dopo la visualizzazione del messaggio di errore, l’utente può interrompere l’esecuzione del programma (far abortire) impostando il carattere $.
L’immissione del carattere # è riservata a scopo di debug ignorando lo status di errore.
Il flag SLF viene utilizzato per ripetere l’operazione di I-O nel caso si presentasse una situazione di record lock.

Questo potrebbe essere un utilizzo pratico della routine di verifia dello status di I-O del file F01

000061*             
000062 A-1.
000063*
000064     MOVE WC TO FILEST.
000065     OPEN INPUT F01.
000066     PERFORM TR THRU TRE.
000067 A-2.
000068*
000069     MOVE LOW-VALUES TO F01KEY.
000070*
000071     MOVE WC TO FILEST.
000072     START F01 KEY NOT < F01KEY.
000073     IF FILEST = "23" GO A-50.
000074     PERFORM TR THRU TRE.
000075*
000076 A-3.
000077     MOVE WC TO FILEST.
000078     READ F01 NEXT.
000079     IF FILEST = "10" GO A-9.
000080     PERFORM TR THRU TRE.  IF SLF = 1 GO A-3.
000081*
000082 A-4.
000083*
000084*

Ecco come viene visualizzato un errore di I-O

Status file

Come prelevare questi codici

Pagina successiva

Cobol in pratica

La gestione delle declaratives.