Conversione da COBOL verso DB2

Il nostro tool Ispirer MnMTK è capace di convertire applicazioni COBOL verso DB2.

Perchè Ispirer MnMTK

Ispirer MnMTK può aiutarvi a convertire la vostra applicazione COBOL automaticamente. Scegliendo Ispirer MnMTK potete anche eliminare i rischi di conversione e ridurre notevolmente la quantità di sforzi interni necessari per la migrazione.

I nostri vantaggi principali:

• ll team esperto e qualificato: i tecnici d’Ispirer hanno grande esperienza in realizzazione di progetti di migrazione di varia complessità.
• Approccio orientato al cliente e Personalizzazione rapida: personalizziamo il nostro strumento di migrazione in modo che permetta di soddisfare pienamente le esigenze di business dei nostri clienti; aggiustamenti gratuiti durante 1-2 giorni lavorativi;
• Collaborazione pre-vendita: dimostriamo la conversione completa durante la fase di valutazione prima che prenderete la decisione finale.
• Buon prezzo: offriamo la politica di prezzatura flessibile;
• Conversione ottimizzata: il codice facilmente gestito senza il middleware di Ispirer usato dopo la conversione.

Valutazione

Valutazione ci aiuta ad estimare gli sforzi e i costi di migrazione. Per iniziare i discorsi di collaborazione e fare la valutazione approssimativa, si prega di riempire:

Struttura di un programma COBOL

 
IDENTIFICATION DIVISION.
PROGRAM-ID. DemoId.
ENVIRONMENT DIVISION.
DATA DIVISION.
PROCEDURE DIVISION.
FIRST-PARAGRAPH.
    DISPLAY "First DEMO".
 

Ci sono quattro divisioni:

• IDENTIFICATION DIVISION: Qui si dà il nome del programma.
• ENVIRONMENT DIVISION: Qui si definiscono i file necessari per il programma.
• DATA DIVISION: Qui si definiscono variabili, record, file, ecc.
• PROCEDURE DIVISION: Qui si scrive il programma. Nell'esempio di sopra c'è solo uno paragrafo. Un paragrafo è una sequenza di istruzioni nominate con un label. Non c'è un segno speciale per marcare la fine di un paragrafo.

Caratteristiche di conversione

DB2:

 
CREATE OR REPLACE PROCEDURE DemoId()
LANGUAGE SQL
BEGIN
   CALL DBMS_OUTPUT.PUT_LINE ('FIRST DEMO');
END
 

COBOL:

 
WORKING-STORAGE SECTION.
01 MY_STRING_1    PIC X(20).
01 MY_STRING_2    PIC X(30).
01 MY_NUMBER    PIC 9(2) VALUE 1.
 

DB2:

 
  DECLARE MY_STRING_1 VARCHAR(20);
  DECLARE MY_STRING_2 VARCHAR(30);
  DECLARE MY_NUMBER INTEGER; 
  SET MY_NUMBER = 1;
 

COBOL:

 
01 MY_DATA_RECORD.
    03 MY_NAME        PIC X(20).
    03 MY_ADDRESS  PIC X(40).
    03 MY_ID               PIC 9(2).
 

DB2:

 
DECLARE SWV_MY_DATA_RECORD_MY_NAME VARCHAR(20);
     DECLARE SWV_MY_DATA_RECORD_MY_ADDRESS VARCHAR(40);
     DECLARE SWV_MY_DATA_RECORD_MY_ID DOUBLE;
 

COBOL:

 
MOVE 5 TO MY_NUMBER.
 

DB2:

 
SET MY_NUMBER=5;
 

COBOL:

 
IF/ELSE/END IF
 

DB2:

 
IF/ELSE/END IF;
 

COBOL:

 
PERFORN UNTIL/END-PERFORM
 

DB2:

 
WHILE <condition> LOOP
 
            <loop_body>
 
      END LOOP;
 

COBOL:

 
EXEC SQL
    SELECT cur_date 
    FROM val_date
    WHERE cur_date < CURRENT
 END-EXEC.
 

DB2:

 
SELECT cur_date 
FROM val_date
WHERE cur_date < CURRENT TIMESTAMP
 

Per ulteriori informazioni si prega di contattarci.