Πώς να διαβάσετε απλό αρχείο πολλές φορές σε COBOL

Διαβάζοντας μια επίπεδη αρχείο πολλές φορές στην τρίτη γενιά γλώσσα προγραμματισμού ηλεκτρονικών υπολογιστών Κοινή Oriented Business Language ( COBOL ) είναι μια απλή διαδικασία . Απαιτεί κάποια δεξιότητα προγραμματισμού , ωστόσο, καθώς και κάποια γνώση της COBOL . Αναπτύχθηκε το 1960 περίπου από τον Δρ Murray επιείκειας Hooper , COBOL εξακολουθεί να χρησιμοποιείται ευρέως , κυρίως από την επιχειρηματική κοινότητα . Σχεδιάστηκε, εν μέρει , να επεξεργάζονται μεγάλες ποσότητες δεδομένων με ελάχιστη ή απλούς υπολογισμούς των επιχειρήσεων . Τα πράγματα που θα χρειαστείτε οδηγίες Τρέχων χρήστης
για COBOL περιβάλλον Σελίδα Τρέχον COBOL εγχειρίδιο
Η Εμφάνιση Περισσότερες οδηγίες
Η 1

Συνδεθείτε με το περιβάλλον του υπολογιστή , όπου θα κώδικα , μεταγλώττιση και να εκτελέσει το πρόγραμμα COBOL σας . Φέρτε τον επεξεργαστή όπου θα πληκτρολογήσετε και να επεξεργαστείτε το πρόγραμμά σας . Εκπλήρωση αυτής της αποστολής ποικίλλει ανάλογα με τον τύπο του περιβάλλοντος . Ελέγξτε το εγχειρίδιο του τρέχοντος χρήστη για το περιβάλλον COBOL 2

Πληκτρολογήστε αυτό το πρότυπο του προγράμματος , για το οποίο οι πληροφορίες θα πρέπει να συμπληρωθεί κατά τα επόμενα βήματα : .

ΠΡΟΣΔΙΟΡΙΣΜΟΣ DIVISION.Program -ID . Πρόγραμμα ID here.Author . Όνομα Here.Installation σας . Η εταιρεία μου computer.Date γραπτή . MM /DD /περιγραφή YYYY.REMARKS.Program εδώ

ΠΕΡΙΒΑΛΛΟΝ SECTION.INPUT - ΕΞΟΔΟΣ SECTION.FILE - CONTROL.SELECT εισόδου - FileASSIGN TO " C : \\ TMP \\ SAMPIN.TXT " . ΟΡΓΑΝΩΣΗ ΕΙΝΑΙ LINE SEQUENTIAL .

SELECT Print- fileASSIGN TO " C : \\ TMP \\ SAMPOUT.TXT " ΟΡΓΑΝΩΣΗ ΕΙΝΑΙ LINE SEQUENTIAL

DATA DIVISION.FILE SECTION.FD RECORD εισόδου - αρχείου ΠΕΡΙΕΧΕΙ 10 ΧΑΡΑΚΤΗΡΕΣ .01 . INPUT - REC.05 LAST -NAME pIC X ( 10 ) . FD RECORD Print -File ΠΕΡΙΕΧΕΙ 10 ΧΑΡΑΚΤΗΡΕΣ .01 ΕΞΟΔΟΣ - REC pIC X ( 10 ) .WORKING ΑΠΟΘΗΚΕΥΣΗ SECTION.01 Διαβάστε CNT - pic 9 ( 9 ) η τιμή ισούται με το μηδέν . Διαβάστε 01 - LMT pic 9 ( 9 ) η τιμή ισούται με μηδέν .

ΔΙΑΔΙΚΑΣΙΑ DIVISION.OPEN ΕΙΣΟΔΟΣ εισόδου - fileOUTPUT Print - file.Set Διαβάστε - CNT για 0.Set Διαβάστε - LMT να 5.Read - file.READ input - αρχείο σΤΟ ΤΕΛΟΣ Πηγαίνετε στο End -of PGM . Προσθέστε 1 έως Διαβάστε - CNT . MOVE INPUT - RECORD για την έξοδο - RECORD . WRITE ΕΞΟΔΟΣ - RECORD.Add 1 Διαβάστε - lmt.If Διαβάστε - LMT = 5 Πηγαίνετε στο End -of - PGMElseGo να διαβάζω - file.End -of - PGM.If Διαβάστε - cnt = 0 Display "Input - αρχείο είναι κενό " . CLOSE εισόδου - αρχείου , εκτύπωσης file.STOP RUN .
εικόνων 3

συλλέγει πληροφορίες από διάφορες πηγές για το τμήμα μητρώου του προτύπου προγράμματος που πληκτρολογήσατε . Διαγράψτε το κείμενο στα πεδία Division αναγνώρισης , και να την αντικαταστήσει με τις πληροφορίες που συγκεντρώνουν . Αλλάξτε το όνομα του προγράμματος ? Το σωστό όνομα του προγράμματος θα πρέπει να είναι στις προδιαγραφές του προγράμματος . Προσθέστε το όνομά σας ως συγγραφέας . Για την ημερομηνία που αναγράφεται , χρησιμοποιούν την τρέχουσα ημερομηνία χρησιμοποιώντας δύο χαρακτήρες για το μήνα και την ημέρα και τέσσερις χαρακτήρες για το έτος . Για τον τομέα της εγκατάστασης , πληκτρολογήστε το περιβάλλον στο οποίο θα εκτελέσει το πρόγραμμά σας , το οποίο θα πρέπει να είναι στο εγχειρίδιο του χρήστη . Πληκτρολογήστε μια περιγραφή του προγράμματος στο τμήμα «Παρατηρήσεις» . Ελέγξτε την τρέχουσα εγχειρίδιο COBOL και το εγχειρίδιο του χρήστη , καθώς και το κλειδί σε όλες τις άλλες πληροφορίες που απαιτούνται για την αναγνώριση του προγράμματος για το συγκεκριμένο λειτουργικό περιβάλλον . Για αυτό το βήμα και τα επόμενα βήματα , καλής ποιότητας 4

Πληκτρολογήστε πληροφορίες στα Περιβάλλοντος Τμήμα πεδία του προτύπου προγράμματος . Πρώτο τμήμα του τμήματος Περιβάλλοντος είναι η Διαμόρφωση τμήματος. Για τους σκοπούς αυτού του παραδείγματος , όμως, υποθέτουν ότι η πηγή - υπολογιστή και του αντικειμένου - υπολογιστή είναι τα ίδια. Για το λόγο αυτό , το τμήμα διαμόρφωσης αποβάλλεται .

Αντικαταστήστε τα δεδομένα για το τμήμα εισόδου-εξόδου , ​​το οποίο είναι το δεύτερο τμήμα του Τμήματος Περιβάλλοντος . Με τη χρήση " Επιλογή " δηλώσεις , πληκτρολογήστε τον προσδιορισμό των πληροφοριών για τα αρχεία εισόδου και εξόδου που χρησιμοποιούνται . Βρείτε τις πληροφορίες και τις προδιαγραφές στο εγχειρίδιο του χρήστη . Τα στοιχεία για το " αναθέσει σε " ρήτρα εξαρτάται από το συγκεκριμένο περιβάλλον .
5

Κοιτάξτε τις προδιαγραφές , και να καθορίσει πόσες φορές θα πρέπει να διαβάσει το επίπεδο αρχείο . Εάν οι προδιαγραφές υποδεικνύουν ένα συγκεκριμένο αριθμό των φορών που το αρχείο είναι για να διαβαστεί, στη συνέχεια, αλλάξτε την ανάγνωση LMT μεταβλητή στο τμήμα δεδομένων από το "μηδέν " στον αριθμό που αναφέρεται στη συγγραφή υποχρεώσεων . Επίσης να αλλάξετε την ανάγνωση LMT = 5 counter από " 5 " στην τιμή που αναφέρεται στις προδιαγραφές της Διεύθυνσης διαδικασίας .

Εάν το αρχείο είναι να διαβαστεί μέχρι το "End -of -File , " στη συνέχεια, διαγράψτε το Διαβάστε - LMT μεταβλητή από το τμήμα δεδομένων . Διαγραφή των δύο γραμμές κώδικα στο Τμήμα Διαδικασίας "Αν Read - LMT = 5 Πηγαίνετε στο End -of - PGM Else ».
Η
εικόνων