[HaBo]

Tec · 28.05.02, 09:51

Preiswerte COBOL-Lösung von theKompany.com

Mit KOBOL bietet theKompany.com jetzt einen ANSI COBOL konformen Multiplattform-Compiler samt IDE an, der auch die kürzlich von der ANSI fertig gestellten objektorientierten Erweiterungen der Common Business Oriented Language (COBOL) unterstützt. Die Implementierung soll sich durch vergleichsweise geringe Kosten auszeichnen.

Mit KOBOL setzt theKompany.com auf einen einheitlichen Ansatz bei der Sprachübersetzung. So erstellt KOBOL native Executables, je nachdem auf welcher Plattform sie erstellt werden. Zudem sind mit KOBOL keine laufenden Kosten verbunden, wie sie andere Implementierungen oft mit sich bringen.

KOBOL unterstützt die Plattformen Windows und Linux und kostet in der Download-Version 39,95 US-Dollar. Darin sind alle Updates auf die Basis-Version der Software enthalten.

Laut Hersteller hat die Software die NIST COBOL85 Test Suite zu 100 Prozent bestanden, wobei Segmentation- und Debugging-Deklarationen allerdings noch nicht implementiert sind.

sieben · 28.05.02, 13:31

Bleibt nur noch die Frage wer eigentlich Cobol programmieren moechte? Wenn man sich nur mal anschaut was das beruehmte "99 bottles of beer on the wall" fuer eine Verrenkung ist kann ich mir kaum vorstellen das damit ernsthaft noch jemand arbeiten moechte. (ausser vieleicht ziemlich extreme Masochisten)

Code:

IDENTIFICATION DIVISION.
 PROGRAM-ID.BOTTLES_OF_BEER.
 AUTHOR.DONALD FRASER.
*
 ENVIRONMENT DIVISION.
 CONFIGURATION SECTION.
 SOURCE-COMPUTER. VAX.
 OBJECT-COMPUTER. VAX.
*
 INPUT-OUTPUT SECTION.
 FILE-CONTROL.
        SELECT OUTPUT-FILE
                ASSIGN TO BEERS_ON_THE_WALL.
*
 DATA DIVISION.
 FILE SECTION.
 FD OUTPUT-FILE
        LABEL RECORDS ARE OMITTED.
 01 BEERS-OUT                                   PIC X(133).
*
 WORKING-STORAGE SECTION.
 01 FLAGS-COUNTERS-ACCUMULATORS.
        05 FLAGS.
                10 E-O-F                                PIC 9.
                        88 END-OF-FILE                VALUE 1.
        05 COUNTERS.
                10 BOTTLES                      PIC 999
                                                VALUE 0.
 01 RECORD-OUT.
        05 LINE1.
                10 NUMBER-OF-BEERS-1                    PIC ZZ9.
                10                                      PIC X(28)
                                VALUE \"BOTTLES OF BEER IN THE WALL \".
                10                                                        PIC
X
                                VALUE \",\".
                        10 NUMBER-OF-BEERS-2            PIC ZZ9.
                10                                                        PIC
X.
                10                                      PIC X(17)
                                VALUE \"BOTTLES OF BEER.\".
        05 LINE2.
                10                                              PIC X(34)
                                VALUE \"TAKE ONE DOWN AND PASS IT ARROUND \".
                10 NUMBER-OF-BEERS-3            PIC ZZ9.
                10                                      PIC X.
                10                                      PIC X(28)
                                VALUE \"BOTTLES OF BEER IN THE WALL\".
*
 PROCEDURE DIVISION.
 DRIVER-MODULE.
      PERFORM INITIALIZATION.
      PERFORM PROCESS UNTIL END-OF-FILE.
      PERFORM TERMINATION.
      STOP RUN.
*
 INITIALIZATION.
        OPEN OUTPUT OUTPUT-FILE.
        ADD 100 TO BOTTLES.
*
 PROCESS.
         IF BOTTLES = 0 THEN
                COMPUTE E-O-F = 1
        ELSE PERFORM WRITE-ROUTINE
        END-IF.
*
 TERMINATION.
        CLOSE OUTPUT-FILE.
*
 WRITE-ROUTINE.
          MOVE BOTTLES TO NUMBER-OF-BEERS-1, NUMBER-OF-BEERS-2.
         COMPUTE BOTTLES = BOTTLES - 1.
         WRITE BEERS-OUT FROM LINE1.
         MOVE BOTTLES TO NUMBER-OF-BEERS-3.
        WRITE BEERS-OUT FROM LINE2.

Anzeige

- Anzeige -

28.05.02, 09:51	#1 (permalink)
Tec Senior Member Registriert seit: 02.10.01 Likes: 1	KOBOL - COBOL-Implementierung für Linux und Windows Anzeige Preiswerte COBOL-Lösung von theKompany.com Mit KOBOL bietet theKompany.com jetzt einen ANSI COBOL konformen Multiplattform-Compiler samt IDE an, der auch die kürzlich von der ANSI fertig gestellten objektorientierten Erweiterungen der Common Business Oriented Language (COBOL) unterstützt. Die Implementierung soll sich durch vergleichsweise geringe Kosten auszeichnen. Mit KOBOL setzt theKompany.com auf einen einheitlichen Ansatz bei der Sprachübersetzung. So erstellt KOBOL native Executables, je nachdem auf welcher Plattform sie erstellt werden. Zudem sind mit KOBOL keine laufenden Kosten verbunden, wie sie andere Implementierungen oft mit sich bringen. KOBOL unterstützt die Plattformen Windows und Linux und kostet in der Download-Version 39,95 US-Dollar. Darin sind alle Updates auf die Basis-Version der Software enthalten. Laut Hersteller hat die Software die NIST COBOL85 Test Suite zu 100 Prozent bestanden, wobei Segmentation- und Debugging-Deklarationen allerdings noch nicht implementiert sind.

Themen-Optionen
Druckbare Version zeigen Jemanden per E-Mail auf dieses Thema hinweisen
Ansicht
Linear-Darstellung Zur Hybrid-Darstellung wechseln Zur Baum-Darstellung wechseln

Ähnliche Themen
Thema	Autor	Forum	Antworten	Letzter Beitrag
Implementierung von Hash Algos	AceKiller73	Cryptography & Encryption	5	09.09.07 11:50
[Python] Hilfe bei Implementierung eines Prim-Alogrithmus [erledigt]	Darillian	Code Kitchen	2	09.06.07 14:38
MD5-Implementierung in Java?	stauder	Cryptography & Encryption	4	04.11.06 13:44
Java implementierung Algorithmen	Wipika	Code Kitchen	2	27.06.06 11:54
cobol-compiler	valentin_olchowski	Code Kitchen	3	19.04.02 21:21

[HaBo]

KOBOL - COBOL-Implementierung für Linux und Windows