IBM Common Business Oriented Language ( COBOL ) Programmiersprache ermöglicht es Benutzern, verschiedene Arten von Daten in Finanz-und Business-Software- Anwendungen zu verarbeiten. COBOL unterstützt die variabler Länge Datensätze Datentyp für den Einsatz in Datenbank-Dateien auf Festplatten gespeichert , der Anwender gibt die maximalen und minimalen Satzlängen zur Beschreibung Festplatte Dateien mit variabler Länge . Lesen variabler Länge Daten aus einer Datei können Sie Datenbank-Informationen ohne zu definieren , die genaue Größe eines Datensatzes in Ihre COBOL-Programm zu verarbeiten. Anleitung
1
Typ "Edit " auf der z/OS360 Mainframe-System - Management-Konsole und drücken Sie die " Enter"-Taste , um Ihre COBOL-Programm bearbeiten.
2
In der folgenden Code an den Anfang des Programms : .
GEFAHREN DIVISION
PROGRAM - ID . COBVAR .
Environment Division .
INPUT - OUTPUT SECTION.
FILE -CONTROL .
SELECT IFILE TO " IFILE " .
ASSIGN < p> DATA DIVISION .
FILE SECTION.
FD IFILE
RECORD von 10 bis 50 JE LEN VARYING .
01 IREC .
05 FILLER PIC X OCCURS 10 bis 50-fache JE LEN .
PROCEDURE DIVISION .
P1 .
DISPLAY " Beispiel 1 OCCURS JE REC"
OPEN INPUT IFILE
PERFORM UNTIL LEN = -1
LESEN IFILE
AT END MOVE -1 TO LEN
NICHT ZUM ENDE
DISPLAY IREC
DISPLAY LEN
END-READ
END - PERFORM
SCHLIESSEN IFILE
Ausstellungsfläche
DISPLAY " Beispiel FIXED REC"
OPEN INPUT IFILE
MOVE ALL " X " TO IREC
LESEN IFILE AT END MOVE -1 TO LEN
DISPLAY IREC
Ausstellungsfläche
3
Typ "Speichern" auf der Konsole und drücken Sie die " Enter"-Taste , damit Sie Ihr Programm mit variabler verarbeiten Länge Datensätze .
