IDENTIFICATION DIVISION.
       PROGRAM-ID. STAVE01R.
       AUTHOR. MAZZAROLO MATTEO.
       DATE-WRITTEN. 2010-01-10.

       ENVIRONMENT DIVISION.

       DATA DIVISION.

       WORKING-STORAGE SECTION.

      * INFO ROUTINE
        01 NOME-ROUTINE                          PIC X(08) VALUE 'STAVE01R'.

      * COMODI
       01 COMODI.
         02 Z-SQL                                PIC -(4) VALUE ZERO.

      * PER ABEND
       01 DAMP                                   PIC X VALUE SPACE.
       01 DUMP REDIFINES DAMP                    PIC S9.

      * INCLUDE TABELLE DB2
           EXEC SQL INCLUDE SQLCA                END-EXEC.
           EXEC SQL INCLUDE VC00TA06             END-EXEC.

       LINKAGE SECTION.
       COPY STAVE01C.

       PROCEDURE DIVISION USING AREA-STAVE011R.

      *------
       MAIN.
      *------
         PERFORM VERIFICA-DATI-INPUT
         PERFORM ELABORA-AZIONI
         PERFORM FINE-ROUTINE
         .

      *---------------------
       VERIFICA-DATI-INPUT.
      *---------------------
         EVALUATE TRUE
         WHEN AZIONE-INPUT-STAVE01R NOT = 'CER'
           MOVE 'STAVE01R-ERRORE INPUT: AZIONE ERRATA'
        -       'COD_CONS:' COD-CONS-INPUT-STAVE01R
                                                 TO MESSAGE-RC-STAVE01R
           MOVE 04                               TO RETURNCODE-RC-STAVE01R
           PERFORM FINE-ROUTINE
         WHEN COD-CONS-INPUT-STAVE01R = LOW-VALUE
           MOVE 'STAVE01R-ERRORE INPUT: COD-CONS ERRATO'
        -       'COD_CONS:' COD-CONS-INPUT-STAVE01R
                                                 TO MESSAGE-RC-STAVE01R
           MOVE 04                               TO RETURNCODE-RC-STAVE01R
           PERFORM FINE-ROUTINE
         END-EVALUATE
         .

      0----------------
       ELABORA-AZIONI.
      *----------------
        EVALUATE AZIONE-INPUT-STAVE01R
          WHEN 'CON'
            PERFORM SELECT-VC0CONSERVATORIE
            IF SQLCODE = 100
              MOVE 04                            TO RETURNCODE-RC-STAVE01R
              MOVE 'COD_CONS 'COD-CONS' NON TROVATO IN VC0CONSERVATORIE'
                                                 TO MESSAGE-RC-STAVE01R
              PERFORM FINE-ROUTINE
            END-IF
            MOVE TAC7-DES-CONS                   TO DES-CONS-OUTPUT-STAVE01R
        END-EVALUATE
        .

      *-------------------------
       SELECT-VC0CONSERVATORIE.
      *-------------------------
         INITIALIZE VC00TAB06

         MOVE COD-CONS-INPUT-STAVE01R                    TO TAC7-COD-CONS

           EXEC SQL
             SELECT TAC7_DES_CONS
               INTO :TAC7-DES-CONS
               FROM VC0CONSERVATORIE
               WHERE TAC7_COD_CONS = :TAC7-COD-CONS
           END-EXEC

         IF SQLCODE NOT = ZERO AND NOT = 100
           MOVE SQLCODE                          TO Z-SQL
           MOVE 'STAVE01R-ERRORE SELECT VC0CONSERVATORIE'
       -        'SQLCODE: ' Z-SQL
       -        'TAC7_COD_CONS: ' TAC7-COD-CONS
                                                 TO MESSAGE-RC-STAVE01R
           MOVE 12                               TO RETURNCODE-RC-STAVE01R
           PERFORM FINE-ROUTINE
         END-IF
         .

      *--------------
       FINE-ROUTINE.
      *--------------
         GOBACK
         .