Πώς η αναφορά σε Byte στην αποθήκευση εργασίας σε COBOL

Η κοινή Business- Oriented Language , COBOL , προσφέρει μια ποικιλία από τρόπους για να έχουν πρόσβαση στα δεδομένα στη μνήμη . Στην COBOL , να ορίσετε τα στοιχεία δεδομένων, όπως αρχεία , πάγκοι και προσωρινές μεταβλητές μαθηματικά σε μια περιοχή που ονομάζεται Αποθήκευση Τμήμα Εργασίας του τμήματος δεδομένων . Μόλις οριστεί , μπορείτε να χρησιμοποιήσετε τις μεταβλητές απλά με αναφορά στην ονομασία τους . Εάν πρέπει να γίνει αναφορά σε ένα byte μέσα σε μια μεταβλητή , που έχει συσταθεί μια επακόλουθη μεταβλητή χρησιμοποιώντας COBOL του " επαναπροσδιορίζει " ρήτρα . Εάν δημιουργήσετε τη νέα μεταβλητή ως μια σειρά , μπορείτε να αναφερθείτε οποιοδήποτε μεμονωμένο byte στην πρώτη μεταβλητή . Οδηγίες
Η 1

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

ΕΡΓΑΣΙΑΣ - ΑΠΟΘΗΚΕΥΣΗ SECTION.01 DISPLAY - VARIABLES.05 DISPLAY -AREA PIC X ( 30 ) .

Αυτό δημιουργεί μια μεταβλητή που ονομάζεται "ΟΘΟΝΗ -AREA ». 2

Ορίστε μια νέα μεταβλητή μετά την πρώτη χρήση της ρήτρας επαναπροσδιορίζει . Αυτή η μεταβλητή είναι ένας πίνακας . Θα αναφέρει τα ίδια στοιχεία με την πρώτη μεταβλητή χρησιμοποιώντας το νέο όνομα .

05 DISPLAY-BY TES επαναπροσδιορίζει DISPLAY - AREAOCCURS 30 ΦΟΡΕΣ αναπροσαρμόζονται από DISPLAY - INDEXPIC X ( 1 ) .

Η " ΣΥΝΤΑΓΜΕΝΟ ΑΠΟ " ρήτρα ορίζει μια μεταβλητή δείκτη . Μπορείτε δεν την ορίζουν αλλού στην αποθήκευση εργασίας ? Αυτόν τον τρόπο θα δημιουργήσει ένα σφάλμα . Το μέγεθος του αρχικού πεδίου , DISPLAY -AREA , είναι το ίδιο με το DISPLAY - BYTES που επαναπροσδιορίζει . Ένα πεδίο που έχει ένα byte εμφανίζεται 30 φορές είναι το ίδιο με ένα πεδίο 30 - byte .
Εικόνων 3

Δημιουργήστε ένα one- byte τομέα αποθήκευσης εργασίας στην οποία να λαμβάνει τα δεδομένα , όπως αυτό το παράδειγμα επεξηγεί :

05 SINGLE-BYT E - ΠΕΔΙΟ PIC X ( 1 )
Η 4

Μετακίνηση κάποια στοιχεία στην πρώτη μεταβλητή στο " Διαδικασία Division " του προγράμματός σας , όπως το . ακόλουθο παράδειγμα :

MOVE INPUT - RECORD για να εμφανίσετε -AREA
5

Ρυθμίστε την τιμή του δείκτη πίνακα για να επιλέξετε το byte που θέλετε . . Αυτή η γραμμή πρέπει να ακολουθήσει την προηγούμενη στην Διαδικασία Division του προγράμματός σας . Σε COBOL , σε αντίθεση με τις περισσότερες άλλες γλώσσες εκτός Fortran , το πρώτο στοιχείο έχει δείκτη ένα, όχι μηδέν. Έτσι, εάν θέλετε να παραπέμψετε το πρώτο byte στο πεδίο , που το δείκτη σε ένα, όπως φαίνεται στο ακόλουθο παράδειγμα : .

SET DISPLAY -INDEX ΣΕ 1
Η 6

Move η λέξη που έχετε επιλέξει μόνο στο πεδίο που έχει συσταθεί για να λάβει τα δεδομένα . Για να το κάνετε αυτό , μπορείτε να καθορίσετε το πεδίο πίνακα και σχετίζεται δείκτη του, όπως στην ακόλουθη δήλωση :

MOVE DISPLAY - byte ( DISPLAY -INDEX ) ΤΟ SINGLE - BYTE - ΠΕΔΙΟ
εικόνων .
Η