=?iso-8859-1?Q?Re:_=28linux-br=29_s=F3_para_GURUS_converter_cobol_para_my?==?iso-8859-1?Q?sql?=

Fri, 10 May 2002 09:56:17 -0700 

Alexandre,

A muito tempo n�o utilizo cobol, mas j� precisei converter COBOL -> TEXTO e
� muito simples, mas tem que escrever um codigo cobol que contenha a
estrutura atual dos dados e uma estrutura identica porem com um parametro
que informa ao cobol que � arquivo texto sequencial ( LINE SEQUENCIAL ).
� partir do arquivo texto fica f�cil importar para MySQL, OK ?

Abaixo um exemplo de gravacao sequencial -> sequencial:

       ENVIRONMENT      DIVISION.
       CONFIGURATION    SECTION.
       SPECIAL-NAMES.   DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT     SECTION.
       FILE-CONTROL.
           SELECT   ARQ-I   ASSIGN   TO   DISK
                    ORGANIZATION     IS   LINE   SEQUENTIAL.
           SELECT   ARQ-O   ASSIGN   TO   DISK
                    ORGANIZATION     IS   LINE   SEQUENTIAL.
      *
       DATA             DIVISION.
       FILE             SECTION.
       FD  ARQ-I
           LABEL   RECORD       IS     STANDARD
           BLOCK   CONTAINS     0      RECORDS
           RECORD  CONTAINS     160    CHARACTERS
           VALUE   OF FILE-ID   IS     "2VIA.TXT"
           DATA    RECORD       IS     REG-ARQ-I .
       01  REG-ARQ-I .
           03  I-ID                    PIC 9(11).
           03  I-NOME                  PIC X(30).
           03  I-GUI                   PIC X(12).
           03  I-ENDERECO              PIC X(50).
           03  I-BAIRRO                PIC X(30).
           03  I-CIDADE                PIC X(15).
           03  I-UF                    PIC X(02).
           03  I-CEP                   PIC X(09).
      *
       FD  ARQ-O
           LABEL   RECORD       IS     STANDARD
           RECORD  CONTAINS     200    CHARACTERS
           VALUE   OF FILE-ID   IS     "CARTA.LSR"
           DATA    RECORD       IS     REG-ARQ-O.
       01  REG-ARQ-O.
           03  O-CANAL                 PIC X(02).
           03  O-NOME                  PIC X(248).

Lincoln
----- Original Message -----
From: "Alexandre Riveira" <[EMAIL PROTECTED]>
To: "linux-br" <[EMAIL PROTECTED]>
Sent: Thursday, May 09, 2002 11:30 AM
Subject: (linux-br) s� para GURUS converter cobol para mysql


> Pessoal preciso desenvolver uma intranet(PHP/MySQL), transferindo os
> dados de uma base cobol para MySQL.
> J� tentei de tudo procurar driver odbc para fazer conex�o com o PHP mas
> s� acho coisa paga. At� tentei olhar o arquivo .dat e .idx pra ver se
> consigo atrav�s do PHP fazer uma convers�o simples para CVS , TXT,
> qualquer coisa.
> Algu�m tem alguma id�ia !!!!
>
> Valeu
>
>
> Alexandre Riveira
>
>


Assinantes em 10/05/2002: 2267
Mensagens recebidas desde 07/01/1999: 166274
Historico e [des]cadastramento: http://linux-br.conectiva.com.br
Assuntos administrativos e problemas com a lista: 
            mailto:[EMAIL PROTECTED]

Responder a