De fleste virksomheder opretholde computersystemer , der passerer kritisk information mellem forskellige platforme. Mainframe-systemer understøtter legacy kode og store centrale systemer , mens mindre klient-server systemer, der kører Unix, Linux eller Windows baserede operativsystemer bruges til klient-server og web applikationer. At integrere systemerne , kernen computersystem plads formatering forskelle, når passerer data til andre platforme. COBOL er det foretrukne sprog for mange ældre systemer . Med et par kommandoer, der bruges i rækkefølge, oversætter det en dato Unix tidsstempel . Ting du skal
COBOL -system
interface metode
Vis Flere Instruktioner
1
Definer felter i at arbejde til lagring værdier.
01. NUMBER -Of- DAGE PIC 9 (09) VÆRDI nuller .
01 CURRENT-DA TE- FIELDS .
05 CURRENT-DA TE -VÆRDI .
10 CURRENT-YY PIC 9 ( 04) VÆRDI nuller .
10 CURRENT-MM PIC 9 (02) VÆRDI nuller .
10 CURRENT-DD PIC 9 (02) VÆRDI nuller .
05 STRØM - tidsværdi .
10 CURRENT-HO UR PIC 9 (02) VÆRDI nuller .
10 CURRENT-MI N PIC 9 (02) VÆRDI nuller .
10 STRØM - SEC PIC 9 ( 02) VÆRDI nuller .
10 CURRENT-MS PIC 9 (02) VÆRDI nuller .
01 SECONDS-IN -A- DAY PIC 9 (05) VALUE 86400 .
01 SECONDS-IN -A- TIMERS PIC 9 (05) VÆRDI 3600 .
01 SECONDS-IN -A- MIN PIC 9 (02) VÆRDI 60 år.
01 UNIX-TIMES TAMP PIC 9 (10 ) VÆRDI nuller .
2
Find den aktuelle dato og tid ved hjælp af denne COBOL -funktion .
flytte funktionen sTRØM - dATE TO aKTUEL - dATE -felter .
3
Unix timestamp repræsenterer antallet af sekunder, der er gået siden 1. januar 1970. Find forskellen mellem den aktuelle dato og den 1. januar 1970 af at bruge compute kommando, og integer -of- date funktion i et COBOL program.
COMPUTE NUMMER -of- DAGE = FUNKTION INTEGER -OF - DATE ( STRØM - DATE -VÆRDI ) - .
FUNKTION INTEGER -OF - DATE ( " 19.700.101 " )
4
Find det antal sekunder , der er gået siden 1. januar 1970 af beregne det antal sekunder efter dag, time og minut og tilføje dem sammen.
COMPUTE UNIX - TIMESTAMP =
( NUMBER -of- DAGE * sEKUNDER -IN -A- DAY) + < br >
(AKTUEL TIMERS * SEKUNDER -IN -A- time) + Online
(AKTUEL -MIN * SEKUNDER -IN -A- MIN) + Online
STRØM - SEC. < br >