ESTE SITE UTILIZA COOKIES: Ao continuar navegando neste site, você dá o seu consentimento para que os cookies sejam usados.
Para mais detalhes, leia nossa Política de Privacidade e Política de Cookies.

Migração e Modernização
Automatizada e Personalizada
de Bancos de Dados e Aplicações


Conversão de COBOL para VB.NET

Ispirer MnMTK é capaz de converter os aplicativos de COBOL para aplicativos VB.NET.


Por que Ispirer MnMTK

Ispirer MnMTK automatiza todo o processo de migração do seu aplicativo atual para VB.NET. Além disso, escolhendo a nossa ferramenta de conversão - Ispirer MnMTK - você elimina a maioria dos riscos associados e reduz consideravelmente os esforços internos. Todos esses benefícios estão disponíveis a custos muito razoáveis e competitivos, o que faça Ispirer MnMTK o conversor ainda mais atraente para este tipo de projeto.

Nossos benefícios principais:

  • Suporte técnico altamente qualificado e experiente: nossa equipe técnica tem uma enorme experiência em projetos de migração de diferentes níveis de complexidade.
  • Abordagem orientada para o cliente e Personalização Rápida: nós personalizamos nossa ferramenta de migração de tal forma que uma versão personalizada pode satisfazer plenamente as necessidades empresariais de nossas clientes, conversões personalizadas e otimizações são feitas no prazo de 1-2 dias úteis;
  • Cooperação de Pre-Venda: demonstramos uma conversão completa durante a avaliação antes você toma uma decisão.
  • Preços flexíveis: podemos oferecer uma ampla gama de opções, entre as quais você vai certamente encontrar o que lhe convier;
  • Conversão Otimizada: após a conversão você recebe um código inteligente e sustentável, sem a utilização de qualquer middleware de Ispirer.

Processo de Avaliação

Por favor, complete o questionário para iniciar discussões de colaboração para o seu projeto ou obter alguma estimativa aproximada:


Apresentação ao Vivo

Solução de Migração de Ispirer

Conversão de COBOL para VB.NET

Solicitar

Solicite uma Cotação

Solução de Migração de Ispirer

Conversão de COBOL para VB.NET

Serviço Ferramenta

Características de Conversão


Estrutura do Programa COBOL

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


Há as quatro divisões:

  • DIVISÃO DE IDENTIFICAÇÃO: Aqui é o lugar onde você deve digitar o nome do programa.
  • DIVISÃO DE MEIO AMBIENTE: Aqui é onde você define os arquivos as necessidades do programa.
  • DIVISÃO DE DADOS: Aqui é onde você declarar variáveis, registros, arquivos etc.
  • DIVISÃO DE PROCEDIMENTO: Aqui é onde você escreve o programa. No exemplo acima isto é tudo em um parágrafo. Um parágrafo é uma série de declarações nomeados por um rótulo. Não há nenhuma marca específica para o fim de um parágrafo.
  • Migra o aplicativo de banco de dados COBOL ao banco de dados MSSQLServer
  • Converte programas COBOL para classes VB.NET
  •  
    Namespace CobolApplication
        Public Class DemoId
        Public Sub Main()
                  ProcedureDivision()
            End Sub
        Private Sub ProcedureDivision()
                Console.WriteLine(“First Demo”)
            End Sub
        End Class
    End Namespace
     
  • Converte os nomes dos identificadores a camelcase
  • Converte seção WORKING-STORAGE com variáveis de declaração a variáveis de classe
  • 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.

    A:

    Private MyString1 As String
    Private MyString2 As String
    Private MyNumber As Integer = 1

  • Converte registros COBOL para tipos definidos pelo usuário VB.NET
  • 01 MY_DATA_RECORD.
        03 MY_NAME     PIC X(20) VALUE “John Smit”.
        03 MY_ADDRESS  PIC X(40) VALUE “Walt Street”.
        03 MY_ID       PIC 9(2) VALUE 123.

    A:

    Public Class MyDataRecord
        Public MyName As String = “John Smit”
        Public MyAddress As String = “Walt Street”
        Public MyId As Integer = 123
    End Class
        Private _myDataRecord As MyDataRecord = New MyDataRecord()

  • Converte declarações COBOL MOVE TO/COMPUTE para instruções de atribuição VB.NET
  • MOVE 5 TO MY_NUMBER.

    A:

    MyNumber = 5

  • Converte as seções COBOL (grupo de parágrafos ou declarações) a VB.NET subs. SECTION poderia chamado usando declaração PERFORM. PERFORM é convertido para chamar a VB.NET sub.
  • DISPLAY-INFORMATION.
        DISPLAY DISPLAY 'My Number = ' MY_NUMBER.

    A:

    Private Sub DisplayInformation()
                Console.WriteLine(“My Number =+ MyNumber)
    End Sub
  • Converte as estruturas de controle de COBOL para instruções de controle de VB.NET
  • IF MY_NUMBER > 5
          MOVE 12 TO MY_NUMBER.

    A:

    If MyNumber > 5 Then
            MyNumber = 12
     End If
    E
    PERFORM UNTIL WS-NUMBER-1 > 100 AND WS-NUMBER-1 < 1000
                 DISPLAY "Still between 100 and 1000"
    END-PERFORM

    A:

    While MyNumber > 100 And MyNumber < 1000
      Console.WriteLine(“Still between 100 and 1000)
    End While

  • Converte a saída do ecrã (declaração DISPLAY) para o método "Console.WriteLine"
  • Converte EXEC SQL / END-EXEC (declarações select, insert, update, delete, cursor) a consultas VB.NET LINQ
  • EXEC SQL
        SELECT COUNT(*)
        INTO   :MY_NUMBER
        FROM   MY_TABL
        WHERE  CTR_ID       = :MY_STRING_1     AND
                        MOD_CD       = 'ONE'
        WITH UR
         END-EXEC.

    A:

    MyNumber = Aggregate MyTabl In db.MyTabls
                               Where MyTabl.CtrId = MyString1
                                    And MyTabl.ModCd = "ONE"
                               Into Count()
    E
    EXEC SQL
        DECLARE MY_CUR CURSOR FOR
        SELECT  LOC_NO,
                       EFF_DT,
                       XPIR_DT,
                       DET_AMT
        FROM  MY_TABL
        WHERE  CTR_ID    = :MY_STRING_1
        AND  MOD_CD    = 'TWO'
        AND  TRN_ID IS NULL
        ORDER BY  LOC_NO
        WITH UR
           END-EXEC.
     
        EXEC SQL
        OPEN MY_CUR
         END-EXEC.
     
        EXEC SQL
              FETCH MY_CUR
        INTO :MY-LOC-NO,
                    :MY-EFF-DT,
                    :MY-XPIR-DT,
                    :MY-ARO-AMT
         END-EXEC
     
        EXEC SQL CLOSE MY_CUR END-EXEC.

    A:

    Dim MyCur =    From MyTabl In db.MyTabls
         Where MyTabl.CtrId = MyString1
    And MyTabl.ModCd = "TWO"
    And MyTabl.TrnId IS Nothing 
             ORDER BY LocNo Descending
     
    For Each MyTabl In MyCur 
                    MyLocNo = MyCur.LocNo
                    MyEffDt = MyCur.EffDt
                    MyXpirDt = MyCur.XpirDt
                    MyAroAmt = MyCur.DetAmt
    Next
    db.SaveChanges()

Você pode nos contactar através da Página de Contatos.

 
Depoimentos
24.07.2018Decitre, França

Sybase ASE para PostgreSQL

Estávamos procurando uma ferramenta para migrar Sybase para PostgreSQL.

Depois de várias pesquisas, encontramos a ferramenta Ispirer que poderíamos testar...

...

22.06.2018TSS Consultancy, Índia
Migração de Banco de dados
Microsoft SQL Server para Oracle

Nossa empresa iniciou a pesquisa em relação à migração de SQL Server para Oracle. Testamos mais de 10 ferramentas...

...

Estudos de caso
20.06.2018Progress 4GL para .NET C# WinForms, Estados Unidos

Ofertas da empresa incluem gestão do relacionamento com o cliente (CRM), gestão da cadeia de suprimentos(SCM), e software de gestão de capital humano (HCM).

Empresa atende mais de 20.000...

...

28.04.2018Solução de Informix 4GL para Microsoft SQL Server, Estados Unidos

Nosso Cliente é uma empresa de confiança norte-americana que presta serviços de recursos humanos e soluções de negócios para mais de 100.000 empresas de pequeno e médio porte nos Estados Unidos.

...