Seite 1 von 2

Cobol-80 (MS)

Verfasst: 15. Dez 2021, 21:36
von kurt_cpm
Hi Leute,

wer hat mit Cobol-80 gearbeitet.
Microsoft MS-COBOL Version 4.65 nutze ich zur Zeit.
Cobol-80.pdf ist im Netz zu finden.

Da ich mit BASCOM, M80, L80, FORTRAN80 und auch Hi-Tech C arbeite
und die Möglichkeit der Einbindung von REL Dateien nutze.

Beispiel:
l80 start,trainer,vokabel,start/n/e
start = bascom
trainer = m80
vokabel = m80

Funktioniert gut. :D

Beispiel werde ich noch zeigen und Quellprogramme hochladen.

Jetzt zu Cobol 80.
Ich konnte einige Info's bzw. Anwendungen zu Cobol 80 finden.
Zu Cobol gibt es genug Informationen. Bei Cobol 80 (CPM) wird es eng.

Was brauchen wir:
Cobol80 (cpm) Compiler von MS.
[M80 und L80 sind dabei]

Die Datei 'CDANSI' (RCANSI.MAC) musste für mein rc2014 System angepasst werden.
Ich arbeite mit Linux - minicom VT102.

Im Beispiel habe ich die CDANSI.MAC nach RCANSI.MAC kopiert.
Siehe Anhang.

Wer es probieren möchte der installiere Cobol-80 auf sein System.
M80 rcansi=rcansi/l
Kopiere dir Datei rcansi.rel nach crtdrv.rel.
Somit braucht die rcansi.rel auch nicht mit l80,crtest,rcansi,crtest/n/e angewendet werden.
Cobol und l80 machen es automatich(crtdrv.rel).

cobol crtest,crtest/l
l80 crtest,crtest/n/e

Cobol ist 60 Jahre - ich bin 73. :lol:

Re: Cobol-80 (MS)

Verfasst: 15. Dez 2021, 21:56
von kurt_cpm
Mein erstes Programm:

Code: Alles auswählen

       IDENTIFICATION DIVISION.<
       PROGRAM-ID. HALLO.<
       ENVIRONMENT DIVISION.<
       CONFIGURATION SECTION.<
       SOURCE-COMPUTER. CPM.<
       OBJECT-COMPUTER. CPM.<
       DATA DIVISION.<
       WORKING-STORAGE SECTION.<
       01  BENUTZER-ALTER           PIC 99.<
       SCREEN SECTION.<
       PROCEDURE DIVISION.<
       MAIN.<
             PERFORM INITIAL-SCREEN.<
             ACCEPT (3, 29) BENUTZER-ALTER.<
             DISPLAY " ". 
             DISPLAY "Du bist  " BENUTZER-ALTER. 
             STOP RUN.<
<
       INITIAL-SCREEN.<
             DISPLAY ( 1,  1) ERASE.<
             DISPLAY "Hallo USER ".<
             DISPLAY " ".<
Kurt
:D

Re: Cobol-80 (MS)

Verfasst: 16. Dez 2021, 11:37
von Alfred
Hallo Kurt,
hallo zusammen,

also mit Cobol hatte ich vor langer Zeit Berührungen als Anwender, aber selbst nie programmiert.
Gespielt habe ich mit Assembler, Basic, TP, C und diversen Datenbanken, das hat mir gereicht ;-)!

Gruß
Alfred

Re: Cobol-80 (MS)

Verfasst: 17. Dez 2021, 08:42
von kurt_cpm
Hi,

ich habe noch zwei Dateien erstellt. :oops:

Hier geht es um Index.

Die Cobol Programme stammen im Prinzip von einer DOS Version.
Mussten aber auf den MS Cobol-80 angepasst werden.

Kurt
:D

Re: Cobol-80 (MS)

Verfasst: 18. Dez 2021, 12:35
von kurt_cpm
Hi,

diese Nacht war eine lange Nacht. Es hat sehr viel Spaß gemacht. :D
Cobol 80 von MS hat meine Neugierde geweckt.

Das Buch vom IWT Verlag (K.-H.Regel) war mir eine gute Hilfe. ;)

Ich finde nach ca. 35 Jahren wird es auch mal Zeit sich der Programmiersprache anzunehmen.

Schwierig ist es nicht. Nur eben lernen! Ich habe viel Zeit. und überlege ob ich kleine Druckprogramme für meine
Finanzbuchhaltung schreibe. Summen- und Saldenliste,, Journal, Buchungsprotokoll etc.

Im Anhang ist eine Demo mit einem Beispiel der indexsequentiellen Dateivervewaltung.
test.com (ansi) für rc2014 oder cp/m Rechner etc. Demo9.cob für eigene Anwendung.


Gruß
Kurt

Re: Cobol-80 (MS)

Verfasst: 18. Dez 2021, 12:37
von kurt_cpm
Hier das Quellprogramm.

Viel Spaß.

Kurt
:D

Re: Cobol-80 (MS)

Verfasst: 20. Dez 2021, 11:28
von genie3s
;) Einen Kobold hatte ich auch mal.

Re: Cobol-80 (MS)

Verfasst: 20. Dez 2021, 12:37
von Alfred
Der war aber von Vorwerk ;-)!

Re: Cobol-80 (MS)

Verfasst: 20. Dez 2021, 15:38
von kurt_cpm
Cobol 80 ist staubig.

OK - hab den Witz verstanden.
Fritz nimmt diesen. :lol:
vorwerk_vk117.jpg
vorwerk_vk117.jpg (21.79 KiB) 9703 mal betrachtet
Kurt

Re: Cobol-80 (MS)

Verfasst: 28. Dez 2021, 08:29
von kurt_cpm
Hi.

Leider hat niemand wirklich Interesse an Cobol.
Egal, hier ein Programm.
Zins2.jpg
Zins2.jpg (69.78 KiB) 9486 mal betrachtet
Zins1.jpg
Zins1.jpg (69.71 KiB) 9486 mal betrachtet
Kurt