       IDENTIFICATION DIVISION.
       PROGRAM-ID.                     KONVERT.  
       AUTHOR.                         NEUTRASOFT
                                       SOFTWARE ENTWICKLUNGS UND
                                       VERTRIEBSGESELLSCHAFT
                                       F]R DATENTECHNIK MBH
                                       HANSARING 106
                                       
                                       4402 GREVEN 1
                                       TEL.: 02571 / 53091-5
                                       PROGRAMMIERER: UDO KIEL.
       DATE-WRITTEN.                   FEBRUAR 1985.
      *ORGANISATION                    HOLZ- UND BAUSTOFFHANDEL.

      *PROGRAMM                        CONVERTIERUNG IN WS DATEI
      /
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.                P-3500.
       OBJECT-COMPUTER.                P-3500.
       SPECIAL-NAMES.
           DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.
           SELECT DAT1               
               ASSIGN TO RANDOM, NAMEI,          
	       ORGANIZATION IS RELATIVE  
               ACCESS MODE IS RANDOM    
	       RELATIVE KEY IS REL-KEY
               FILE STATUS IS FST-DAT1.
      *
           SELECT DAT2 
               ASSIGN TO OUTPUT, NAMEO,        
               ORGANIZATION IS LINE SEQUENTIAL 
               ACCESS MODE IS SEQUENTIAL 
               FILE STATUS IS FST-DAT2.
      /
       DATA DIVISION.
       FILE SECTION.
       FD      DAT1
               DATA RECORD IS DAT1-SATZ  
               LABEL RECORD IS STANDARD.
      *
       01           DAT1-SATZ          PIC X(128).
      *
       FD      DAT2 
	       RECORD CONTAINS 1 TO 72 CHARACTERS
               LABEL RECORD IS STANDARD.
      *
       01      DAT2-SATZ           PIC X(72).
      /
       WORKING-STORAGE SECTION.
      *
      *    *****     BESCHREIBUNG DER HILFSFELDER     *****
      *
       01           FST-DAT1       PIC XX.
       01           FST-DAT2       PIC XX.
       01           ZW-BEREICH.              
	   03       ZW1            PIC X(6).
           03       ZW2            PIC X(66).
       01           REL-KEY        PIC 9(4).
       01           NAME           PIC X(7).
       01           NAMEI.
           03       FILLER         PIC XX       VALUE "B:".
           03       N1             PIC X(7).
           03       FILLER         PIC X(4)     VALUE ".CBL".
       01           NAMEO.
           03       FILLER         PIC XX       VALUE "A:".
           03       N2             PIC X(7).    
           03       FILLER         PIC X(4)     VALUE ".CBL".
      /
       PROCEDURE DIVISION.
       B10000 SECTION.
      *
      *    *****     PROGRAMMSTEUERUNG     *****
      *
       B10001.
	       DISPLAY "PROGRAMM-NAME: ".
               ACCEPT NAME.
	       MOVE NAME TO N1 N2.
               OPEN INPUT DAT1.
               IF FST-DAT1 NOT EQUAL "00"
                   STOP RUN.
               OPEN OUTPUT DAT2.
               IF FST-DAT2 NOT EQUAL "00"
                   STOP RUN.
               DISPLAY "START KONVERTIERUNG".
	       MOVE 0 TO REL-KEY.
      *
       B10010.
               ADD 1 TO REL-KEY.
 	       READ DAT1 INVALID KEY
                   GO TO B10900.
      *
               MOVE DAT1-SATZ TO ZW-BEREICH.
               MOVE SPACE TO ZW1.
               MOVE ZW-BEREICH TO DAT2-SATZ.
      *
               WRITE DAT2-SATZ.
      *
               GO TO B10010.
      *
       B10900.
               CLOSE DAT1 DAT2.
               DISPLAY "KONVERTIERUNG BEENDET".
               STOP RUN.
