Cobol

ineine Member Posts: 6
edited 2003-06-20 in NAV Dutch speaking only
Ik moet gegevens uit Cobol overzetten naar Navision.
Kan iemand mij daarbij helpen? Heeft misschien iemand dit al gedaan?

Comments

  • tvandongentvandongen Member Posts: 78
    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_VanDyckLuc_VanDyck Member, Moderator, Administrator Posts: 3,633
    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.
    
    No support using PM or e-mail - Please use this forum. BC TechDays 2024: 13 & 14 June 2024, Antwerp (Belgium)
  • ineine Member Posts: 6
    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
  • WaldoWaldo Member Posts: 3,412
    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!

    Eric Wauters
    MVP - Microsoft Dynamics NAV
    My blog
Sign In or Register to comment.