Πώς να πάρει το μήκος της εγγραφής σε COBOL

Υπάρχουν πολλοί τρόποι για να ασχοληθεί με αβέβαιες μήκη ρεκόρ στο αρχείο και επεξεργασία δεδομένων. COBOL έχει ένα από τα πιο εύγλωττη και διακριτικό τρόποι για να επιτευχθεί αυτό . Μπορείτε να διαβάσετε ένα αρχείο με πολλές εγγραφές , κάθε μία από απροσδιόριστο μέγεθος , χρησιμοποιώντας ένα από τα εγγενή εντολές COBOL του . Υποθέτοντας ότι έχετε ένα αρχείο όπου το μέγεθος της κάθε εγγραφής σε απόσταση μπορεί να κυμαίνεται από ένα χαρακτήρα σε 400 χαρακτήρες , η εφαρμογή COBOL σας μπορεί να το χειριστεί για σας . Χρησιμοποιούν αυτή την τεχνική για να πάρει το μήκος της εγγραφής , επιστρέφει μια καταμέτρηση των χαρακτήρων και να μετακινήσετε τις εγγραφές μεταβλητού σε ένα άλλο αρχείο , εφόσον το επιθυμούν . Οδηγίες
Η 1

Ξεκινήστε αξιολογώντας το μέγιστο μήκος των εγγραφών στο αρχείο . Στο παράδειγμα εδώ , μπορεί να είναι έως και 400 bytes και τόσο χαμηλά όσο ένα byte , που χαρακτηρίζει το αρχείο ως μεταβλητού μήκους . 2

Πηγαίνετε στο "Αρχείο τμήμα" του προγράμματος και να μέχρι τη δομή του αρχείου για τα αρχεία σας πρόγραμμα διαβάζει από το εισερχόμενο αρχείο . Σας δομή " περιγραφής αρχείου " θα πρέπει να μοιάζει κάπως έτσι : " FD In-File " " Record περιέχει 1 έως 400 χαρακτήρες Ανάλογα με την WS - χαρακτήρων - Counter "
εικόνων 3

Πληκτρολογήστε την ακόλουθη Κάτω . το FD : " . 01 Σε - Rec " " 05 Input -Field - 01 Pic Χ ( 98 ) . " " 05 Input -Field - 02 Pic S9 ( 9 ) V99 Comp - 3 . " Αυτό είναι απλά το αρχείο εισόδου στο παράδειγμα που αναφέρθηκε . Τα πεδία πρέπει να είναι τουλάχιστον ένα και όχι περισσότερα από 400 bytes σε αυτό το παράδειγμα
Η 4

Πληκτρολογήστε τη μεταβλητή εργασίας - αποθήκευσης του αρχείου μετρητές χαρακτήρα, όπως : . " 05 WS - χαρακτήρων - Counter Pic 9 ( 5 ) . " Αυτή η μεταβλητή θα κρατήσει το μήκος της εγγραφής εισόδου μετά από κάθε "Read" δήλωση και θα πρέπει να είναι ένα ανυπόγραφο αριθμητικό πεδίο . Μετά το "Ανάλογα με την " δήλωση , αυτό το πεδίο θα επιστρέψει την αριθμητική τιμή του μήκους της εγγραφής. Μετά από κάθε "Ανάγνωση ", COBOL συμπληρώνει αυτόματα σε αυτόν τον αριθμό .
5

Μεταβείτε στο τμήμα Διαδικασία και πληκτρολογήστε το "Read" δήλωση μετά το κατάλληλο άνοιγμα του αρχείου "Άνοιγμα" δηλώσεις . Μπορείτε να χρησιμοποιήσετε τη μεταβλητή " WS - χαρακτήρων - Counter" για να ανακτήσετε το μήκος της εγγραφής .
Η 6

Συντάξτε το πρόγραμμα και βεβαιωθείτε ότι η λίστα είναι απαλλαγμένο από τυχόν σφάλματα σύνταξης .
Η 7

Εκτελέστε το πρόγραμμα ως μια δοκιμή και να εξετάσει την έξοδο .
Η
εικόνων