Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
Definujte poľa v pracovnom ukladania na ukladanie hodnôt .
01 NUMBER - Z - DAYS PIC 9 ( 09 ) Hodnota nuly .
01 CURRENT-DA TE - pOLE .
05 CURRENT-DA TE - VALUE .
10 CURRENT-YY PIC 9 ( 04 ) Hodnota nuly .
10 CURRENT-MM PIC 9 ( 02 ) Hodnota nuly .
10 CURRENT-DD PIC 9 ( 02 ) Hodnota nuly .
05 CURRENT - TIME - VALUE .
10 CURRENT-HO UR PIC 9 ( 02 ) Hodnota nuly .
10 CURRENT-MI N PIC 9 ( 02 ) Hodnota nuly .
10 AKTUÁLNE - SEC PIC 9 ( 02 ) Hodnota nuly .
10 CURRENT-MS PIC 9 ( 02 ) Hodnota nuly .
01 SECONDS-IN - A - DAY PIC 9 ( 05 ) HODNOTA 86400 .
01 SECONDS-IN - A - HOUR PIC 9 ( 05 ) HODNOTA 3600 .
01 SECONDS-IN - A - MIN PIC 9 ( 02 ) HODNOTA 60.
01 UNIX-TIMES TAMP PIC 9 ( 10 ) Hodnota nuly .
2
nájsť aktuálny dátum a čas pomocou tejto funkcie COBOL . klipart
MOVE FUNCTION prúdu Dátum do CURRENT - DATE - Fields .
3
Unix timestamp predstavuje počet sekúnd , ktoré uplynuli od 1. januára 1970 . Nájsť rozdiel medzi aktuálnym dátumom a 1. január roku 1970 pomocou príkazu výpočtovej a funkciu integer - of - data v COBOL programe .
COMPUTE_DIGITAL_SIGNATURE ČÍSLO - OF - DNÍ = FUNKCIE INTEGER - of - data ( CURRENT - DATE - VALUE ) -
FUNKCIE INTEGER - of - data ( " 19700101 " )
4
Nájdite počet sekúnd , ktoré uplynuli od 1. januára 1970 pre výpočet . počet sekúnd , deň , hodinu a minútu a sčítať ich.
COMPUTE_DIGITAL_SIGNATURE UNIX - TIMESTAMP =
( NUMBER - OF - dNÍ * sEKÚND - IN - a - DAY ) +
( CURRENT - HOUR * SEKÚND - IN - A - HOUR ) +
( CURRENT - MIN * SEKÚND - IN - A - MIN ) +
CURRENT - SEC .
Copyright © počítačové znalosti Všetky práva vyhradené