Cobol gestire le eccezioni DECLARATIVES nei processi batch

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

La gestione delle declaratives nei processi batch.

Ho parecchie applicazioni che girano in modo batch.
Si tratta di programmi che vengono eseguiti ad intervalli regolari secondo un specifico schema prestabilito senza immissione manuale di dati.
Essi vengono eseguiti in modo Unattended.
Il protocollo di elaborazione viene inviato ad un Syslog Server.
In genere invio le seguenti informazioni al Syslog Server:

Data e ora di inizio del processo.
Descrizione del processo / nome del programma / versione del programma.
Numero dei record elaborati.
Status finale del processo.
Data e ora di fine del processo.

Le eccezioni e gli errori di I-O vengono trattati in modo particolare.
Non sarebbe possibile limitarsi a generare un messaggio di errore, ma ho previsto un numero massimo di errrori dopo il quale il processo viene interrotto o meglio detto abortito.
Errori ed eccezioni vengono inviate al Syslog Server il quale genera i seguenti eventi:

Messaggio e-mail in caso di errore.
Messaggio e-mail e messaggio SMS in caso di abort del processo.

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.
000024  2   FILEN      PIC X(11).  *> Nome del file
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
000037*
000038*      Campi specifici ogni ogni file
000039*
000040 1    ERF01      PIC   XX.
000041*
000042*
000043*           Campi per gestione errori I-O nel processi batch
000044*
000045 1   ERROR-COUNT   PIC 9(4).                    *> Contatore errori
000046*
000047 1   MAX-IO-ERRORSX.
000048  2  MAX-IO-ERRORS PIC 9(3)        VALUE 3.     *> Errori massimi
000049*
000050*
000051*
000052*               Campi per Syslog Server
000053*
000054*
000055 1   KLG-PAR.
000056  2  KLG-FUNZ                 PIC 9.
000057  2  KLG-LEVEL                PIC 9.
000058  2  KLG-PROGRAMMA            PIC X(11).
000059  2  KLG-EVENTO               PIC X(12).
000060  2  KLG-PROCESSO             PIC X(20).
000061  2  KLG-TESTO                PIC X(60).
000062*
000063*
000064*    FUNZ:   1 = Setup programma
000065*            2 = Scrivi log
000066*        
000067*    LEVEL:  0 = EMERGENZA
000068*            1 = ALTER
000069*            2 = CRITICO
000070*            3 = ERRORE
000071*            4 = WARN
000072*            5 = NOTICE
000073*            6 = INFO
000074*            7 = DEBUG        
000075*
000076*
000077*
000078*

La prima sezione della procedure division

(Rimane invariata rispetto alla gestione con dialogo)

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 di programmi che vengono eseguiti in modo batch

000001*              Routine controllo status file I-O
000002*
000003 TR.
000004      MOVE 0 TO SLF.
000005      IF FILEST = WC                 GO TRE.  *> Nessun errore
000006      CALL "c$rerr"  USING  FILESTEX.
000007      IF FILEST = "99" MOVE 1 TO SLF.         *> Record lock
000008*
000009*
000010     MOVE  2                              TO KLG-FUNZ.
000011     MOVE  3                              TO KLG-LEVEL.
000012     MOVE "ERROR"                         TO KLG-EVENTO.
000013     MOVE SPACES                          TO KLG-TESTO.
000014*
000015     STRING "File: "       DELIMITED SIZE
000016            FILEN          DELIMITED " "
000017            " Status: "    DELIMITED SIZE 
000018            FILESTEX       DELIMITED SIZE INTO KLG-TESTO.
000019*                  
000020     CALL "FEKLOG1" USING KLG-PAR.
000021*
000022     ADD 1 TO ERROR-COUNT.
000023     IF ERROR-COUNT NOT > MAX-IO-ERRORS  GO TRE.
000024*
000025*
000026*            Messaggio di abort nel syslog Server
000027*
000028*
000029     MOVE  2                                  TO KLG-FUNZ.
000030     MOVE  0                                  TO KLG-LEVEL.
000031     MOVE PROGRAMMAL                          TO KLG-PROGRAMMA.
000032     MOVE "ABORT"                             TO KLG-EVENTO.
000033     MOVE "Numero massimo errori superato !"  TO KLG-TESTO.
000034*                            
000035     CALL   "FEKLOG1" USING KLG-PAR.
000036     CANCEL "FEKLOG1".
000037*
000038*
000039*
000040*
000041     GOBACK.
000042*                  
000043*
000044 TRE.
000045      EXIT.
000046*

Il programma FEKLOG1.COB che viene richiamato in questa routine è un modulo che invia i messaggi al Syslog Server.
Questo modulo viene utilizzato in tutti quei programmi che inviano messaggi al Syslog Server.
Se non si desidera utilizzare un Syslog Server è sempre possibile modificare il programma per fare in modo che il protocollo venga ad esempio memorizzato in un file di testo.

Il modulo FEKLOG1.COB

000001 IDENTIFICATION DIVISION.
000002*
000003*
000004*
000005 PROGRAM-ID.         FEKLOG1.
000006*
000007 ENVIRONMENT DIVISION.
000008*
000009*
000010 CONFIGURATION SECTION.
000011*
000012 SOURCE-COMPUTER.           RMC80.
000013 OBJECT-COMPUTER.           RMC80.
000014*
000015 SPECIAL-NAMES.
000016     SWITCH-1 ON IS SW1 SWITCH-2 ON IS SW2
000017     SWITCH-3 ON IS SW3 SWITCH-4 ON IS SW4
000018     SWITCH-5 ON IS SW5 SWITCH-6 ON IS SW6
000019     SWITCH-7 ON IS SW7 SWITCH-8 ON IS SW8.
000020*
000021*
000022*             SCOPO DEL PROGRAMMA :
000023*             ---------------------
000024*
000025*
000026*
000027*
000028*             MODULO PER INVIO MESSAGGI AL LOGSERVER
000029*
000030*
000031* STORICO VERSIONE    ULTIMA MODIFICA: 13.lug.2004 20:43
000032* ----------------
000033*
000034* 01 HS 12.07.2004 VERSIONE INIZIALE
000035*
000036* 
000037/
000038 INPUT-OUTPUT SECTION.
000039*
000040 FILE-CONTROL.
000041*
000042*
000043*                 SCHEDARIO TEXTFILE
000044*
000045*
000046     SELECT F90 ASSIGN TO DISC
000047            "FETEXTE.510"
000048                        ORGANIZATION INDEXED
000049                        ACCESS       DYNAMIC
000050                        RECORD   KEY F90KEY
000051                        STATUS       ERF90.
000052*
000053/
000054 DATA DIVISION.
000055 FILE SECTION.
000056*
000057*
000058*                  TEXTFILE 510
000059*
000060 FD    F90
000061                   RECORD 11 TO 510
000062                   LABEL RECORD STANDARD.
000063*
000064*
000065 1    F90REC.
000066  2   F90KEY.
000067   3  F90APL    PIC XX.
000068   3  F90PR     PIC XX.
000069   3  F90SP     PIC 9.
000070   3  F90TY     PIC XX.
000071   3  F90LIX.
000072   4  F90LI     PIC 99.
000073   3  F90LIXX     REDEFINES F90LIX.
000074   4  F90LIA    PIC 9.
000075   4  F90LIB    PIC 9.
000076  2   F9001     PIC 99.
000077  2   F90TXT.
000078   3  F90CRT    PIC X(80).
000079   3  FILLER    PIC X(419).
000080  2   F90TXT-1  REDEFINES F90TXT.
000081   3  F90CRT-N3 PIC 9(3).
000082   3  FILLER    PIC X(496).
000083*
000084 1    F90MIN    PIC X(11).
000085*
000086*
000087*
000088/
000089 WORKING-STORAGE SECTION.
000090*
000091*
000092 1      PROGRAMMA.
000093  2     FILLER    PIC  X(08)     VALUE "FEKLOG1-".
000094  2     VE        PIC  XX        VALUE "01".
000095  2     FILLER    PIC  X         VALUE "-".
000096  2     COMPILATO PIC 9(6).
000097*
000098 78     DATE-COMP                VALUE IS DATE-COMPILED.
000099*
000100*
000101*         STATUS FILES.
000102*
000103 1    TXE.
000104  2   FILLER     PIC X(14)       VALUE "Error on file ".
000105  2   FILEN      PIC X(12).
000106 1    TXE1.
000107  2   FILLER     PIC X(14)       VALUE "Status is  ".
000108  2   FILESTEX.
000109  3   FILEST     PIC XX.
000110  3   FILLER     PIC XX.
000111*
000112*
000113 1    WC         PIC XX          VALUE "00".
000114 1    SLF        PIC  9.
000115 1    ERF90      PIC   XX.
000116*
000117*
000118/
000119*    CAMPI PER DISPLAY
000120*
000121 1   TXS     PIC X(80) VALUE SPACES.
000122 1   TXR     PIC X(80) VALUE ALL "-".
000123*
000124*
000125*    CAMPI ACCEPT AD USO GENERALE
000126*    ----------------------------
000127  1   A0.
000128   2   A1  PIC X.
000129   2    A2  PIC XX.
000130   2     A3  PIC XXX.
000131   2      A4  PIC XXXX.
000132   2       A5  PIC XXXXX.
000133   2        A6  PIC XXXXXX.
000134   2         A7  PIC XXXXXXX.
000135   2          A8  PIC XXXXXXXX.
000136   2           A9  PIC XXXXXXXXX.
000137 1     N0 REDEFINES A0.
000138   2    N1  PIC 9.
000139   2     N2  PIC 99.
000140   2      N3  PIC 999.
000141   2       N4  PIC 9999.
000142   2        N5  PIC 99999.
000143   2         N6  PIC 999999.
000144   2          N7  PIC 9999999.
000145   2           N8  PIC 99999999.
000146   2            N9  PIC 999999999.
000147*
000148*
000149*     CAMPI PER ACCEPT ESTESI
000150*     -----------------------
000151*
000152  1   A10     PIC X(10).
000153  1   A11     PIC X(11).
000154  1   A12     PIC X(12).
000155  1   A13     PIC X(13).
000156  1   A14     PIC X(14).
000157  1   A15     PIC X(15).
000158  1   A16     PIC X(16).
000159  1   A17     PIC X(17).
000160  1   A18     PIC X(18).
000161  1   A19     PIC X(19).
000162  1   A20     PIC X(20).
000163  1   A21     PIC X(21).
000164  1   A22     PIC X(22).
000165  1   A23     PIC X(23).
000166  1   A24     PIC X(24).
000167  1   A25     PIC X(25).
000168  1   A26     PIC X(26).
000169  1   A27     PIC X(27).
000170  1   A28     PIC X(28).
000171  1   A29     PIC X(29).
000172  1   A30     PIC X(30).
000173  1   A31     PIC X(31).
000174*
000175*
000176*
000177 1   P1       PIC 9(3).
000178*
000179*
000180 1   TAB-IN.
000181  2  CH-IN    PIC X OCCURS 130.
000182*
000183 1   WLEVEL.
000184  2  NLEVEL   PIC 9.
000185*        
000186 1   SEP                      PIC X VALUE H"22".
000187*
000188 1   COMANDO  PIC X(130).
000189 1   COMAND1  PIC X(60).
000190*
000191*        RIGA MESSAGGIO
000192 1   MESSAGGIO.
000193  2  FILLER                   PIC X VALUE H"22".
000194  2  MSG.
000195  3  MSG-PROGRAMMA            PIC X(10).
000196  3  FILLER                   PIC X VALUE SPACES. 
000197  3  MSG-EVENTO               PIC X(12).
000198  3  FILLER                   PIC X VALUE SPACES. 
000199  3  MSG-PROCESSO             PIC X(20).
000200  3  FILLER                   PIC X VALUE SPACES. 
000201  3  MSG-TESTO                PIC X(60).
000202  
000203*
000204/
000205 LINKAGE SECTION.
000206*
000207*
000208*
000209 1   KLG-PAR.
000210  2  KLG-FUNZ                 PIC 9.
000211  2  KLG-LEVEL                PIC 9.
000212  2  KLG-PROGRAMMA            PIC X(11).
000213  2  KLG-EVENTO               PIC X(12).
000214  2  KLG-PROCESSO             PIC X(20).
000215  2  KLG-TESTO                PIC X(60).
000216*
000217*
000218*    FUNZ:   1 = Setup programma
000219*            2 = Scrivi log
000220*        
000221*    LEVEL:  0 = EMERGENZA
000222*            1 = ALTER
000223*            2 = CRITICO
000224*            3 = ERRORE
000225*            4 = WARN
000226*            5 = NOTICE
000227*            6 = INFO
000228*            7 = DEBUG  
000229/
000230 PROCEDURE DIVISION USING KLG-PAR.
000231*
000232 DECLARATIVES.
000233*
000234*
000235*
000236 DEC90 SECTION.
000237     USE AFTER ERROR PROCEDURE F90.
000238 DEC9090.
000239      MOVE ERF90 TO FILEST.  MOVE "FETEXTE.510"      TO FILEN.
000240*
000241*
000242 END DECLARATIVES.
000243/
000244 HAUPT SECTION.
000245*
000246*
000247 A-0.
000248*
000249     IF KLG-FUNZ = 1 GO A-1.
000250     IF KLG-FUNZ = 2 GO A-2.
000251     GO A-99.
000252*
000253*                OPEN
000254 A-1. 
000255     PERFORM IN1 THRU IN9.
000256     GO A-99.
000257*
000258*                SCRIVI LOG
000259 A-2.
000260     PERFORM EL1 THRU EL99.
000261     GO A-99.
000262*
000263*
000264*          
000265 A-99.
000266     GOBACK.
000267*
000268*
000269/
000270*               Scrittura nel log
000271 EL1.
000272*
000273     MOVE KLG-LEVEL     TO NLEVEL.
000274     MOVE KLG-PROCESSO  TO MSG-PROCESSO.
000275     MOVE KLG-PROGRAMMA TO MSG-PROGRAMMA.
000276     MOVE KLG-EVENTO    TO MSG-EVENTO.
000277     MOVE KLG-TESTO     TO MSG-TESTO.
000278*
000279*
000280 EL2.
000281*       
000282     MOVE SPACES TO COMANDO.
000283     STRING COMAND1   DELIMITED "$"
000284            MESSAGGIO DELIMITED SIZE INTO COMANDO.
000285*
000286     INSPECT COMANDO REPLACING ALL "#" BY  WLEVEL.
000287*
000288     MOVE COMANDO TO TAB-IN.
000289     MOVE 130     TO P1.           
000290*
000291     
000292*
000293*        Cerca fine comando
000294 EL3.
000295     IF CH-IN(P1) NOT = SPACES       GO EL4.
000296     SUBTRACT 1 FROM P1.
000297     IF P1 = 0 
000298         MOVE 1 TO P1                GO EL4.
000299     GO EL3.
000300*
000301*       Metti quotes chiusura
000302 EL4.
000303     ADD 1       TO P1.
000304     IF P1 > 130 MOVE 130 TO P1.
000305     MOVE SEP    TO CH-IN(P1).
000306     MOVE TAB-IN TO COMANDO.
000307*
000308*
000309     CALL "SYSTEM" USING COMANDO.           
000310*
000311 EL99.
000312     EXIT.
000313/
000314*
000315*             Lettura textfile.
000316*
000317*
000318 RE90.
000319      MOVE SPACES TO F90TXT.
000320      MOVE WC TO FILEST.
000321      READ F90   INVALID MOVE SPACES TO F90TXT
000322                         GO RE90E.
000323      PERFORM TR THRU TRE. IF SLF = 1 GO RE90.
000324 RE90E.
000325      EXIT.
000326*
000327/
000328*             Test file status
000329*
000330 TR.
000331      MOVE 0 TO SLF.
000332      IF FILEST = WC GO TRE.
000333      CALL "c$rerr"  USING
000334                         FILESTEX.
000335      DISPLAY TXS  LINE 18 POSITION 2 SIZE 25
000336              TXS  LINE 19 POSITION 2 SIZE 25
000337              TXE  LINE 18 POSITION 2 
000338              TXE1 LINE 19 POSITION 2.
000339      ACCEPT A1 BEFORE TIME 6000 LINE 19 POSITION 30 PROMPT.
000340      DISPLAY TXS LINE 18 POSITION 2 SIZE 25
000341              TXS LINE 19 POSITION 2 SIZE 25.
000342      IF A1 = "$" GOBACK.
000343      IF FILEST = "99" MOVE 1 TO SLF GO TRE.
000344      IF A1 NOT = "C"                GO TR.
000345 TRE.
000346      EXIT.
000347/
000348*                   Inizializzare
000349*
000350 IN1.
000351     MOVE WC TO FILEST.
000352     OPEN INPUT F90
000353     PERFORM TR THRU TRE.
000354*
000355*
000356*      Carico parametro dal testfile
000357*
000358 IN2.
000359     MOVE "FEKW0BA01" TO F90KEY.
000360     PERFORM RE90 THRU RE90E.
000361     MOVE F90TXT      TO COMAND1.
000362*
000363     MOVE WC TO FILEST.
000364     CLOSE F90.
000365     PERFORM TR THRU TRE.  IF SLF = 1 GO IN1.
000366*
000367 IN9.
000368     EXIT.
000369*
000370*                     ****   END FEKLOG1  ****

Nel file usato in questo modulo sono memorizzati tutti i parametri usati dai vari programmi e moduli.
Una specie di registro di sistema di Windows.
Di regola includo mai nel codice programma variabili, maschere video, intestazioni di liste, testi di dialogo, costanti,eccetera.
Questo per evitare di dover intervenire sui programmi sources in caso di mutazioni e lasciare all’utilizzatore la possibilità di adattarli alle proprie esigenze.

Il contenuto del parametro FEKW0BA01 utilizzato contiene la riga di comando necessaria per il richiamo del programma ossia: U:\KLOG\KLOGWIN.EXE -F LOCAL7 -l # -m $ che avrà il compito di inviare al Syslog il messaggio.

Come prelevare questi codici

Pagina precedente

Cobol in pratica

La gestione delle declaratives nei processi batch.