Πώς να προετοιμαστεί ένα Comp - 3 Μεταβλητή σε COBOL

Ενώ η παροχή αριθμητικών αποτελεσματικότητα και ακρίβεια κατά τον υπολογισμό και την αποθήκευση , COBOL προσφέρει έναν τρόπο για να επιτρέπουν αποτελεσματικά να υπολογίσετε τους αριθμούς σας γρήγορα με την αξιοποίηση της εσωτερικής δομής της . Ένα από τα πιο κοινά είναι το συσκευασμένο σε δεκαδική ή COMP - 3 αριθμητικό πεδίο , το οποίο σας επιτρέπει να αποθηκεύσετε δύο ψηφία σε κάθε byte της αποθήκευσης . Χρησιμοποιώντας αυτό το συμβολισμό , να καθορίσετε πόσα ψηφία ο αποθηκευμένος αριθμός θα είναι με την προσθήκη ενός στην επισημειωμένες τομέα και διαιρώντας το αποτέλεσμα με δύο . Για παράδειγμα, ένα πεδίο του PIC S9 ( 5 ) COMP- 3 έχει μία αποθήκευση 3 bytes . Θα πρέπει να προετοιμάσει αυτό το πεδίο πριν από οποιαδήποτε χειραγώγηση ή υπολογισμός γίνεται για να αποφευχθεί ένα σφάλμα επεξεργασίας . Οδηγίες
Η 1

Προσδιορίστε το πεδίο ( ες) που επιθυμείτε να προετοιμαστεί στον κώδικα COBOL σας . Για παράδειγμα , μπορεί να έχετε ένα πεδίο , όπως " 05 ποσό - έλαβε PIC S9 ( 5v99 ) δείγμα - 3 . " Αυτό είναι ένα υπογεγραμμένο συσκευασμένα δεκαδικά τομέα και θα πρέπει πρώτα να προετοιμαστεί πριν να μπορεί να συμμετέχει σε οποιαδήποτε περαιτέρω επεξεργασία . 2

Πηγαίνετε στην ενότητα Εργασίας - Αποθήκευση του προγράμματός σας και να καθορίσει τη δομή των αρχείων σας μεταβλητών. Εάν οι comp - 3 πεδία είναι υποδεέστερη σε υψηλότερη δομή , απλά πληκτρολογήστε το " Αρχικοποίηση " εντολή στο Τμήμα Διαδικασίας . Ως παράδειγμα , ένα πεδίο όπως " 01 Account - Είδη " Ακολουθούμενη από μια υποδεέστερη πεδίο " 05 Acctype - Fiscal Pic S9 ( 7 ) V99 " θα μπορούσε να προετοιμαστεί και να έχουν μηδενικά εισέλθει στο πεδίο της εκδίδοντας την εντολή COBOL " Αρχικοποίηση Λογαριασμού - Τύποι . " Κάθε άλλο πεδίο κάτω μέσα σε αυτό το " 01 " επίπεδο θα πρέπει να προετοιμαστεί , καθώς και. Το επόμενο βήμα δείχνει έναν άλλο τρόπο για να επιτευχθεί αυτό .
Εικόνων 3

Προχωρήστε στην ενότητα εργασίας - αποθήκευσης σας και περιλαμβάνουν «ρήτρα Value" σε κάθε δείγμα - 3 μεταβλητές . Ως ένα άλλο παράδειγμα , ένα πεδίο που έχει ως " 05 Acctype - σε δεδουλευμένη βάση Pic S9 ( 5 ) V99 Value Zero " θα έχουν το ίδιο αποτέλεσμα . Τα πεδία αυτόματα θα προετοιμαστεί πριν από την πρώτη δήλωση της διαδικασίας Division . Εάν χρησιμοποιήσετε την εντολή Προετοιμασία , βεβαιωθείτε ότι εκτελείται πριν από οποιαδήποτε άλλη εντολή του προγράμματος αναφορά τα δείγμα - 3 πεδία .
Η 4

Εκτελέστε μεταγλωττισμένη έκδοση σας και ελέγξτε τους κωδικούς προϋπόθεση για οποιαδήποτε σφάλματα μεταγλώττισης . Είτε η μέθοδος θα εγγυηθεί συσκευάζονται δεκαδικές τιμές σας θα πρέπει να προετοιμαστεί ανάλογα.
Η
εικόνων