Πώς να μετατρέψετε μια ημερομηνία στο Unix Timestamp σε COBOL

Οι περισσότερες επιχειρήσεις να συντηρεί συστήματα πληροφορικής που περνούν κρίσιμες πληροφορίες μεταξύ διαφορετικών πλατφορμών. Mainframe συστήματα υποστηρίζουν κώδικα κληρονομιά και μεγάλο πυρήνα των συστημάτων , ενώ τα συστήματα διακομιστή μικρότερο client τρέχει Unix , Linux , ή που βασίζεται σε Windows λειτουργικά συστήματα που χρησιμοποιούνται για client-server και web εφαρμογών . Για την ενοποίηση των συστημάτων , ο πυρήνας του συστήματος του υπολογιστή φιλοξενεί μορφοποίησης διαφορές κατά το πέρασμα των δεδομένων σε άλλες πλατφόρμες . COBOL είναι η προτιμώμενη γλώσσα για πολλά συστήματα κληρονομιά . Με λίγες εντολές που χρησιμοποιούνται στη σειρά , αυτό μεταφράζεται μια ημερομηνία στο Unix χρόνο - σφραγίδα . Τα πράγματα που θα χρειαστείτε ανταλλακτικών σύστημα COBOL
μέθοδο Interface

Παρουσίαση Περισσότερες οδηγίες
Η 1

Ορισμός πεδίων στην αποθήκευση εργασίας για την αποθήκευση τιμών .

01 ΑΡΙΘΜΟΣ - OF- ΗΜΕΡΕΣ PIC μηδενικά 9 ( 09 ) VALUE .

01 CURRENT-DA TE - ΤΟΜΕΙΣ .

05 CURRENT-DA TE - VALUE .

10 CURRENT-YY ΣΜΕ 9 ( 04 ) μηδενικά ΑΞΙΑ .

10 CURRENT-MM PIC 9 ( 02 ) μηδενικά ΑΞΙΑ .

10 CURRENT-DD PIC 9 ( 02 ) μηδενικά ΑΞΙΑ .

05 CURRENT- ΩΡΑ - ΤΙΜΗ .

10 CURRENT-HO UR PIC 9 ( 02 ) μηδενικά ΑΞΙΑ .

10 CURRENT-MI N PIC μηδενικά 9 ( 02 ) VALUE .

10 ΤΡΕΧΟΥΣΕΣ - SEC PIC 9 ( 02 ) μηδενικά ΑΞΙΑ .

10 CURRENT-MS PIC 9 ( 02 ) μηδενικά ΑΞΙΑ .

01 SECONDS-IN - A- DAY PIC 9 ( 05 ) ΤΙΜΗ 86400 .

01 SECONDS-IN - A- ΩΡΑ PIC 9 ( 05 ) VALUE 3600 .

01 SECONDS-IN - A- MIN PIC 9 ( 02 ) ΑΞΙΑΣ 60 .

01 UNIX-TIMES tamp PIC 9 ( 10 ) μηδενικά ΑΞΙΑ . 2

Βρείτε την τρέχουσα ημερομηνία και την ώρα χρησιμοποιώντας αυτή τη λειτουργία COBOL .

MOVE ΛΕΙΤΟΥΡΓΙΑ CURRENT- ΗΜΕΡΟΜΗΝΙΑ CURRENT- ΗΜΕΡΟΜΗΝΙΑ - ΤΟΜΕΙΣ .
εικόνων 3

το timestamp Unix αντιπροσωπεύει τον αριθμό των δευτερολέπτων που έχουν περάσει από την 1η Ιανουαρίου 1970 . Βρείτε τη διαφορά μεταξύ της σημερινής ημερομηνίας και 1η Ιανουαρίου του 1970 , χρησιμοποιώντας την εντολή υπολογιστική και τη λειτουργία ακέραιο -of - ημερομηνία σε ένα πρόγραμμα COBOL .

Ηλεκτρονικ ΑΡΙΘΜΟΣ - OF- ΗΜΕΡΕΣ = ακέραιος λειτουργία - OF- DATE ( CURRENT- ΗΜΕΡΟΜΗΝΙΑ - VALUE) -

ακέραιος λειτουργία - of-date ( " 19700101 " )
Η 4

Βρείτε τον αριθμό των δευτερολέπτων που έχουν περάσει από την 1η Ιανουαρίου 1970 από τον υπολογισμό . ο αριθμός των δευτερολέπτων με τη μέρα , την ώρα και τα λεπτά και την προσθήκη τους μαζί .

COMPUTE UNIX - TIMESTAMP =

( NUMBER- oF- ΗΜΕΡΕΣ * ΔΕΥΤΕΡΟΛΕΠΤΑ -IN -A - DAY ) +

( CURRENT- ΩΡΑ * ΔΕΥΤΕΡΟΛΕΠΤΑ -IN -A - HOUR ) +

( CURRENT- MIN * ΔΕΥΤΕΡΟΛΕΠΤΑ -IN -A - MIN ) +

CURRENT- SEC .


Η