Es gibt viele Möglichkeiten, um mit unsicheren Satzlängen in Datei-und Datenverarbeitung beschäftigen. COBOL hat einer der eloquent und unverwechselbaren Möglichkeiten, um dies zu erreichen. Sie können eine Datei mit vielen Datensätzen zu lesen, jeder von unbestimmter Größe, indem Sie eine der nativen Befehle COBOL ist . Vorausgesetzt Sie haben eine Datei, in der Größe eines Datensatzes innerhalb von einem Charakter auf 400 Zeichen variieren kann , können Sie Ihre COBOL-Anwendung es für Sie erledigen . Verwenden Sie diese Technik , um den Datensatz Länge bekommen, geben Sie eine Anzahl von Zeichen und bewegen Sie die variable Datensätze in einer anderen Datei , wenn dies gewünscht wird. Anleitung
1
Beginn durch die Beurteilung der maximalen Länge der Datensätze in der Datei. In dem Beispiel hier , kann es bis zu 400 Bytes sein und so niedrig wie ein Byte , Qualifying die Datei als variabler Länge .
2
Gehen Sie zu " File Section " des Programms und Satz bis der Dateistruktur für die Datensätze Ihr Programm wird aus dem ankommenden Datei lesen . Ihre "File Descriptor" Struktur sollte wie folgt aussehen : " FD In-File " "Record enthält 1 bis 400 Zeichen je On WS- Character - Zähler"
3
Geben Sie den folgenden Beneath . die FD : " . In 01 - Rec" "05 Eingang - Feld -01 X Pic (98) . " "05 Eingang - Feld -02 Pic S9 (9) V99 Comp -3 . " Das ist einfach die Eingabe Rekord im Beispiel zitiert. Die Felder müssen mindestens eine und nicht mehr als 400 Bytes in diesem Beispiel
4
Typ der Working- Storage- Variable für die Datei Charakter Zähler als: . "05 WS- Character - Zähler Pic 9 ( 5). " Diese Variable wird die Länge des eingegebenen Datensatz nach jedem "Read "-Anweisung zu halten und sollte ein unsigned numerisches Feld sein . Im Anschluss an die "abhängig von " Statement, wird dieses Feld zurückgeben den numerischen Wert des Datensatzes Länge . Nach jedem " Lesen ", COBOL füllt automatisch in dieser Nummer.
5
Zum Vorgehen der Division und geben Sie den "Read" -Anweisung nach der entsprechenden Datei Öffnen "Öffnen" -Anweisungen. Sie können die Variable " WS- Character - Zähler" , um den Datensatz Länge abzurufen.
6
Kompilieren Sie das Programm und stellen Sie sicher, dass das Angebot ist frei von Syntax-Fehler .
7
Führen Sie das Programm als Test-und untersuchen Sie die Ausgabe .
