Πώς να διαβάσετε ένα μεταβλητού μήκους αρχείου σε COBOL

Κοινή Business της IBM Oriented Language ( COBOL ) γλώσσα προγραμματισμού επιτρέπει στους χρήστες να επεξεργάζονται διάφορα είδη των δεδομένων στις οικονομικές και επιχειρηματικές εφαρμογές λογισμικού . COBOL υποστηρίζει τον τύπο δεδομένων μεταβλητού μήκους για χρήση σε αρχεία δεδομένων που αποθηκεύονται σε σκληρούς δίσκους ? Ο χρήστης καθορίζει το μέγιστο και το ελάχιστο μήκος ρεκόρ για την περιγραφή των αρχείων του δίσκου με τα αρχεία μεταβλητού μήκους . Ανάγνωση δεδομένων μεταβλητού μήκους από το αρχείο σας επιτρέπει να επεξεργάζεται τις πληροφορίες της βάσης δεδομένων χωρίς να καθορίζει το ακριβές μέγεθος μιας εγγραφής στο πρόγραμμα COBOL σας . Οδηγίες
Η 1

Τύπος " Επεξεργασία" στο z/OS360 mainframe κονσόλα του συστήματος διαχείρισης και πατήστε το πλήκτρο "Enter" για να επεξεργαστείτε το πρόγραμμα COBOL σας . 2

Προσθέστε το ακόλουθο κώδικα στην αρχή του προγράμματός σας :

DIVISION ΑΝΑΓΝΩΡΙΣΗ

ΠΡΟΓΡΑΜΜΑ -ID . . COBVAR .

ΠΕΡΙΒΑΛΛΟΝ DIVISION .

ΕΙΣΟΔΟΥ - ΕΞΟΔΟΥ ΤΜΗΜΑ .

FILE - CONTROL .

SELECT iFile ΑΝΑΘΕΣΗ TO " iFile " .

DATA DIVISION .

ΑΡΧΕΙΟ ΤΜΗΜΑ .

FD iFile

RECORD ποικίλει από 10 έως 50 ΑΝΑΛΟΓΑ ΜΕ LEN .

01 IREC .

05 FILLER PIC X εμφανίζεται 10 έως 50 φορές, ανάλογα με LEN .

ΔΙΑΔΙΚΑΣΙΑ DIVISION .

P1 .

DISPLAY " ΠΑΡΑΔΕΙΓΜΑ 1 ΕΜΦΑΝΙΖΕΤΑΙ ΑΝΑΛΟΓΑ ΜΕ REC "

OPEN ΕΙΣΟΔΟΣ iFile

σκηνή μέχρι LEN = -1

ΔΙΑΒΑΣΤΕ iFile

ΣΤΟ ΤΕΛΟΣ MOVE -1 ΤΟ ΛΕΝ

ΟΧΙ ΣΤΟ ΤΕΛΟΣ

DISPLAY IREC

DISPLAY LEN

ΤΕΛΟΣ - ΔΙΑΒΑΣΤΕ

ΤΕΛΟΣ ΕΚΤΕΛΕΙ

ΚΛΕΙΣΙΜΟ iFile

DISPLAY SPACE

DISPLAY " ΠΑΡΑΔΕΙΓΜΑ ΣΤΑΘΕΡΑ REC "

OPEN ΕΙΣΟΔΟΣ iFile

MOVE ALL " Χ " ΤΟ IREC

ΔΙΑΒΑΣΤΕ iFile ΣΤΟ ΤΕΛΟΣ MOVE -1 TO LEN

DISPLAY IREC

SPACE DISPLAY
εικόνων 3

Πληκτρολογήστε "Αποθήκευση" στην κονσόλα και πατήστε το πλήκτρο "Enter" για να επιτρέψει το πρόγραμμά σας για την επεξεργασία μεταβλητής αρχεία μήκους .
Η
εικόνων