Konvertera ett datum till Unix Timestamp i COBOL

De flesta företag underhålla datorsystem som passerar kritisk information mellan olika plattformar . Stordatorsystem stödjer äldre kod 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 kärnan datorsystem formatering skillnader när de passerar data till andra plattformar . COBOL är det önskade språket för många äldre system . Med några få kommandon som används i sekvens , översätter det en dag till Unix tid – stämpel . Saker du behöver
COBOL -system
Gränssnittsmetoden
Visa fler instruktioner
1

definiera fält i arbetsminne för att lagra värden .

01 -antals- DAGAR PIC 9 ( 09 )-värdet nollor .

01 CURRENT-DA TE -Fields .

05 CURRENT-DA TE – VÄRDE .

10 CURRENT-YY PIC 9 ( 04 )-värdet nollor.

10 CURRENT-MM PIC 9 ( 02 )-värdet nollor.

10 CURRENT-DD PIC 9 ( 02 )-värdet nollor.

05 aktuell tid – VÄRDE .

10 CURRENT-HO UR PIC 9 ( 02 )-värdet nollor .

10 CURRENT-MI N PIC 9 ( 02 )-värdet nollor .

10 STRÖM – SEC PIC 9 ( 02 )-värdet nollor.

10 CURRENT-MS PIC 9 ( 02 )-värdet nollor.

01 SECONDS-IN – A – DAY PIC 9 ( 05 ) VALUE 86400 .

01 SECONDS-IN – A – HOUR PIC 9 ( 05 ) VALUE 3600 .

01 SECONDS-IN – A – MIN PIC 9 ( 02 ) VALUE 60 .

01 UNIX-TIMES TAMP PIC 9 ( 10 )-värdet nollor.
2

Hitta aktuellt datum och tid med hjälp av denna COBOL funktionen .

Flyttningsfunktion sTRÖM – DATE TO aKTUELLT – DATE -Fields . Addera 3

Unix timestamp representerar antalet sekunder som gått sedan 1 januari 1970. Hitta skillnaden mellan dagens datum och 1 januari 1970 genom att använda beräkna kommandot och heltalet – of-date funktion i ett COBOL -program .

COMPUTE -antals- DAGAR = FUNKTION INTEGER – of-date ( CURRENT – DATE – VÄRDE ) – .

FUNKTION INTEGER – of-date ( ” 19.700.101 ” )
4

Hitta antalet sekunder som gått sedan 1 januari 1970 av beräkning antalet sekunder efter dag , timme och minut och lägga ihop dem .

COMPUTE UNIX – TIMESTAMP =

( -antals- dAGAR * sEKUNDER – IN – A – DAY ) +

( CURRENT – HOUR * SEKUNDER – IN – A – HOUR ) + Review

( CURRENT – MIN * SEKUNDER – IN – A – MIN ) + Review

STRÖM – SEC .
Addera ditt

Lämna ett svar