Cobol

ine

Ik moet gegevens uit Cobol overzetten naar Navision.
Kan iemand mij daarbij helpen? Heeft misschien iemand dit al gedaan?

tvandongen

Bij onze cobol versie hadden we de beschikking over een ODBC driver. Hiermee is (relatief) eenvoudig uiteraard een datakoppeling te maken.

Mogelijk kan je cobol leverancier hierin voorzien ?

Luc_VanDyck

Ik weet niet of je hier wat aan hebt, maar ik heb nog wat oude Cobol code gevonden (1989!) om een export te doen naar een tekst-bestand. Je moet dan wel de layout kennen van de *.DAT files.

       IDENTIFICATION DIVISION.
       PROGRAM-ID.    BB008X.
      *               EXPORT POSTNUMMERS.
      *               11 FEBRUARI 1989.
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.    BMX.
       OBJECT-COMPUTER.    BMX.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT POSTF ASSIGN TO RANDOM "HBPOST.DAT"
               ORGANIZATION INDEXED ACCESS DYNAMIC
               RECORD PKEY.
           SELECT BESTAND ASSIGN TO OUTPUT "POST.TXT".
       DATA DIVISION.
       FILE SECTION.
      ********************************************
      *
      *   P O S T N U M M E R B E S T A N D
      *
      ********************************************
      *
       FD  POSTF BLOCK 24 RECORDS RECORD 21 LABEL RECORD STANDARD.
       01  POSTREC.
           02 PKEY       PIC   X(4).
           02 GEMEEN     PIC   X(17).
       FD  BESTAND.
       01  BESTANDREC.
           02 VELD2      PIC   X(4).
           02 VELD4      PIC   X(20).
       WORKING-STORAGE SECTION.
       77 CX     PIC   X.
       01 Z-DETAIL.
          02  DETAIL1      PIC   XXXX.
          02  FILLER       PIC   X    VALUE " ".
          02  DETAIL2      PIC   X(17).
       PROCEDURE DIVISION.
       Z-START.
           OPEN INPUT POSTF.
           OPEN OUTPUT BESTAND.
           DISPLAY "DIT PROGRAMMA LOPEN?  (J)A  (N)EEN" 
               LINE 10 POSITION 5.
           ACCEPT CX LINE 10 POSITION 50.
           IF CX = "J" OR CX = "j" GO Z-BEGIN.
           GO E-O-J.
       Z-BEGIN.
           DISPLAY "BEZIG MET POSTNR :                            "
              LINE 10 POSITION 5.
           MOVE SPACES TO PKEY.
       Z-BEG1.
       Z-READ.
           READ POSTF NEXT RECORD AT END GO E-O-J.
           DISPLAY PKEY LINE 10 POSITION 27.
           MOVE PKEY TO VELD2.
           MOVE GEMEEN TO VELD4.
           WRITE BESTANDREC.
           GO Z-READ.
       E-O-J.
           CLOSE POSTF.
           CLOSE BESTAND.
           STOP RUN.

ine

het probleem is dat wij zelf hier geen Cobol hebben, en ik ken de layout van de .dat bestanden ook niet. We hebben deze bestanden enkel van hun vorige programma (zelfstandige programmeur heeft dit gemaakt), om de gegevens over te zetten

Waldo

Misschien kan je het over een andere boeg gooien:

Zoek naar een xml-parser, die datafiles van cobol aankan, en lees die xml-data in navision in.

Ik heb even aan het zoeken geweest, en blijkbaar is er wel iets over te vinden.

Succes!