Πώς να πάρει Ημερομηνίες συστήματος σε COBOL

Αν και οι εμπειρογνώμονες έχουν προβλέψει εδώ και καιρό την κατάρρευση της COBOL , η κοινή Business- Oriented Language για τον προγραμματισμό ηλεκτρονικών υπολογιστών , αυτό εξακολουθεί να χρησιμοποιείται ευρέως από τις αρχές του 2011 . Η αντοχή της γλώσσας , που χρονολογείται από το 1959 , δεν είναι τίποτα λιγότερο από αξιοσημείωτη . Εάν εργάζεστε με COBOL , οι εκθέσεις των επιχειρήσεων που δημιουργείτε πρέπει τρέχουσες πληροφορίες ημερομηνίας για την εκτύπωση τίτλους και την ανάκτηση δεδομένων . Ένα μηχανισμό που είναι ενσωματωμένος σε COBOL σας επιτρέπει να ανακτήσετε την τρέχουσα ημερομηνία με μια ενιαία δήλωση ACCEPT . Αφού ανακτήσετε τα στοιχεία των πρώτων ημερομηνία , το βάζουμε σε μια μορφή κατάλληλη για την αναφορά σας . Οδηγίες
Η 1

Δημιουργήστε ένα αρχείο δεδομένων 01 - επίπεδο στην ενότητα " Αποθήκευση Εργασίας " για να λαμβάνετε την ημερομηνία του συστήματος . Το αρχείο πρέπει να αναιρέσει οκτώ δεκαδικά ψηφία αφιερωμένο στην τρέχουσα ημερομηνία , με τετραψήφιο έτος ακολουθείται από το μήνα και την ημέρα που έχει δύο ψηφία το καθένα . Μπορείτε να καλέσετε αυτό το ρεκόρ " Todays- Current -Date ", για παράδειγμα . Δώστε το έτος , το μήνα και την ημέρα υποκλάδων ονόματα όπως "Current -Year ", " Current -Μήνας " και "Current - Day". 2

Δημιουργήστε μια ημερομηνία καταγραφής στο τίτλο της έκθεσής σας με το μήνα , ημέρα και το έτος υπο-πεδία τοποθετημένα σε προτιμώμενη μορφή ημερομηνίας σας . Οι τύποι πεδίων πρέπει να είναι αριθμητικό χαρακτήρα ή . Μεταξύ των πεδίων μήνα και την ημέρα , τοποθετήστε έναν χαρακτήρα με μια παύλα ή κάθετος σε μια ρήτρα " Value" . Κάντε το ίδιο για τα πεδία ημέρας και του έτους . Μπορείτε να καλέσετε την έκθεση πεδία σας " Ονομασία - Day ", "Επικεφαλίδα - Μήνας " και " Ονομασία -Year ".
Εικόνων 3

Προσθέστε τις παρακάτω γραμμές σε μια ρουτίνα καθαριότητας στο πρόγραμμά σας " Διαδικασία « διαίρεση : .

Αποδοχή Todays- Current - Ημερομηνία Από Ημερομηνία

Μετακίνηση Τρέχουσα έτος σε έτος Ονομασία -

Μετακίνηση ρευμάτων Μήνα έως Ονομασία - Μήνας

Μετακίνηση Τρέχουσα ημέρες την κλάση - Day .

Αυτό τοποθετεί τις πληροφορίες ημερομηνίας σε τίτλο έκθεσή σας . Η έκθεση θα εκτυπώσει τη σωστή ημερομηνία με την προτιμώμενη μορφοποίηση σας .
Η
εικόνων