De flesta företag underhålla datorsystem som passerar kritisk information mellan olika plattformar. Stordatorsystem stöd för gamla koden och stora system kärna , medan mindre klient -server -system som kör Unix, Linux eller Windows baserade operativsystem används för klient-server och webbapplikationer. Att integrera systemen , rymmer det centrala datasystemet formatering skillnader när det passerar data till andra plattformar . COBOL är det språk för många äldre system . Med några få kommandon som används i sekvens , översätter ett datum till Unix tidsstämpel .
Du behöver :
COBOL -system
. Gränssnittsmetoden .
1 .
definiera fält i arbetslivet lagring för att lagra värden .
01 NUMBER-OF- DAGAR PIC 9 ( 09 ) VALUE nollor .
01 CURRENT-DA TE -Fields .
05 CURRENT-DA TE -värde.
10 CURRENT-YY PIC 9 ( 04 ) VALUE nollor .
10 CURRENT-MM PIC 9 ( 02 ) VALUE nollor .
10 CURRENT-DD PIC 9 ( 02 ) VALUE nollor .
05 CURRENT-TI ME -värde.
10 CURRENT-HO UR PIC 9 ( 02 ) VALUE nollor .
10 CURRENT-MI N PIC 9 ( 02 ) VALUE nollor .
10 LÖPANDE-SEC PIC 9 ( 02 ) VALUE nollor .
10 CURRENT-MS PIC 9 ( 02 ) VALUE nollor .
01 SECONDS-IN om dagen PIC 9 ( 05 ) VÄRDE 86. 400 .
01 SECONDS-IN -A-TIMME PIC 9 ( 05 ) VÄRDE 3600.
01 SECONDS-IN-A-MIN PIC 9 ( 02 ) VALUE 60 .
01 UNIX-TIMES TAMP PIC 9 (10 ) VALUE nollor .
2 .
Hitta aktuellt datum och tid med detta COBOL funktion .
Flyttningsfunktion aktuell DATUM GÄLLANDE-DATUM-områden.
3 .
Unix timestamp representerar antalet sekunder som gått sedan den 1 januari 1970. Se skillnaden mellan dagens datum och 1 januari 1970 av använda beräkna kommandot och heltal-of-date funktion i ett COBOL -program.
COMPUTE ANTAL -OF-dagar=FUNKTION INTEGER-of-date ( current- DATE-värde )-
FUNKTION INTEGER-of-date ( " 19700101 " ) .
4 .
Hitta det antal sekunder som gått sedan den 1 januari 1970 av att beräkna antalet sekunder per dag , timme och minut och lägga dem tillsammans .
COMPUTE UNIX-TIMESTAMP=
(NUMBER-OF- dagar * SEKUNDER-in-a-dag) +
( LÖPANDE-timme * SEKUNDER-in-a-timme ) +
( current- MIN * SEKUNDER-in-a-MIN ) +
PÅGÅENDE-SEC .
tips och varningar
heltal funktion är användbar för att lägga till eller dra ifrån dagar från ett datum utan att hålla reda på visst antal dagar i varje månad . koden nyttan eller programmet på Unix -plattform att erkänna området.