Lesen einer flachen Datei mehrfach in der dritten Generation Programmiersprache Gemeinsame Oriented Business Language ( COBOL ) ist ein einfacher Prozess . Es erfordert einige Programmierkenntnisse jedoch sowie einige Kenntnisse der COBOL . Entwickelt um 1960 von Dr. Grace Murray Hooper, ist COBOL immer noch weit verbreitet , vor allem durch die Wirtschaft. Es wurde entwickelt , teilweise große Mengen an Daten mit minimalen oder einfach Geschäftsberechnungen verarbeiten . Things You
Aktuelle Benutzerhandbuch für COBOL Umgebung
Aktuelle COBOL manuelle
brauchen anzeigen Weitere Anweisungen
1
Log auf die Computer-Umgebung , wo Sie codieren , kompilieren und führen Sie Ihre COBOL-Programm . Öffnen Sie den Editor, in dem Sie eingeben und bearbeiten Sie Ihr Programm. Das Erreichen dieser Aufgabe variiert je nach Art der Umwelt . Überprüfen Sie die aktuelle Bedienungsanleitung für die COBOL -Umgebung
2
Typ dieses Programm Vorlage , für die Informationen, die in während der nachfolgenden Schritte gefüllt werden : .
GEFAHREN DIVISION.Program - ID . Programm-ID here.Author . Ihr Name Here.Installation . Meine Firma computer.Date geschrieben. . MM /DD /YYYY.REMARKS.Program Beschreibung hier
UMWELT SECTION.INPUT - OUTPUT SECTION.FILE - Control.Select Eingabegeräte FileAssign TO " C: \\ TMP \\ SAMPIN.TXT " ORGANISATION IST LINE SEQUENTIAL .
SELECT Print - FileAssign TO " C: \\ TMP \\ SAMPOUT.TXT " ORGANISATION IST LINE SEQUENTIAL
DATA DIVISION.FILE SECTION.FD Eingabe -File Datensatz enthält 10 Zeichen .01 . INPUT - REC.05 LAST -NAME PIC X (10). FD Print -File -Datensatz enthält 10 Zeichen .01 OUTPUT REC - PIC X (10) .WORKING STORAGE SECTION.01 Read- cnt pic 9 (9) Wert gleich Null ist. 01 Read- lmt pic 9 (9) Wert gleich Null ist.
VERFAHREN DIVISION.OPEN INPUT - Eingang FileOutput Print - file.Set Read- CNT 0.Set Read- lmt zu 5.Read - File.read Input- Datei am Ende wieder zur End-of PGM gehen . 1 to Read -CNT . MOVE INPUT -RECORD TO OUTPUT -RECORD . Write Output - RECORD.Add 1 bis Read- lmt.If Read- lmt = 5 bis End -of- PGMElseGo Gehe zum Lesen - file.End -of- PGM.If Read- cnt = 0 Anzeige "Input - Datei ist leer " . Close Input - Datei , Print - file.STOP RUN .
3
Sammeln von Informationen aus verschiedenen Quellen zur Identifizierung der Division des Programms Vorlage, die Sie eingegeben haben. Löschen Sie den Text in der Bezeichnung der Division Felder , und ersetzen Sie es mit den Informationen , die Sie sammeln . Ändern Sie den Namen des Programms , das richtige Programm Name sollte in das Programm der Spezifikationen sein . Fügen Sie Ihren Namen als Autor . Für das Datum geschrieben , das aktuelle Datum mit zwei Zeichen für Monat und Tag und vier Zeichen für das Jahr . Für die Installation Feld geben Sie die Umgebung, in der Sie das Programm , das in der Bedienungsanleitung sollte ausgeführt werden . Key in einer Beschreibung des Programms unter der Rubrik "Bemerkungen" . Überprüfen Sie den aktuellen COBOL Handbuch und die Bedienungsanleitung , und geben Sie alle anderen Informationen, die das Programm auf die spezifischen Rahmenbedingungen zu identifizieren. Für diesen Schritt und die nachfolgenden Schritte ,
4
Geben Sie in der Programm-Vorlage für Umwelt Abschnitt Felder . Die Umwelt Sektion erste Abschnitt ist der Configuration Section . Für die Zwecke dieses Beispiels wird jedoch angenommen, dass die Quelle - Ziel - Computer und Computer identisch sind. Aus diesem Grund wird der Abschnitt Konfiguration eliminiert.
Ersetzen Sie die Daten für die Input-Output- Section , die der zweite Abschnitt der Umwelt Abschnitt ist . Durch die Verwendung von "Select" -Anweisungen in der identifizierenden Informationen für die Ein-und Ausgabe -Dateien verwendet geben . Hier finden Sie die Informationen und Spezifikationen in der Bedienungsanleitung . Die Daten für die Klausel " zuweisen " hängt von der jeweiligen Umgebung.
5
Blick auf die Spezifikationen und bestimmen, wie oft die flache Datei gelesen werden. Wenn die Daten eine bestimmte Anzahl von Malen, die Datei ist zu lesen geben , dann ändern Sie die Read- lmt Variable in der Data Division aus "Null " an die Nummer in den Ausschreibungsunterlagen . Ändern Sie auch den Read- lmt = 5 Zähler von " 5 " auf den angegebenen Wert in den Spezifikationen in der PROCEDURE DIVISION .
Wenn die Datei gelesen werden , bis "End -of -File ", dann löschen Sie den Read- lmt Variable aus dem Datenteil . Löschen Sie die beiden Zeilen Code in der PROCEDURE DIVISION "Wenn Read- lmt = 5 bis End -of- PGM anders hingehen . "
