De fleste bedrifter vedlikeholde datasystemer som passerer kritisk informasjon mellom ulike plattformer . Stormaskin systemer støtter eldre kode og store kjernesystemer , mens mindre klient-server -systemer som kjører Unix , Linux eller Windows-baserte operativsystemer brukes for klient-server og web-applikasjoner . Å integrere systemene , rommer kjernen datasystem formateringsforskjeller når du passerer data til andre plattformer . COBOL er det foretrukne språket for mange eldre systemer . Med noen få kommandoer som brukes i rekkefølge , så betyr dette en dato til Unix tidsstempel . Du trenger
COBOL system
Grensesnittmetode
Vis flere instruksjoner
en
definere felt i arbeidslivet lagringsplass til å lagre verdier.
01 NUMBER -of- DAGER PIC 9 ( 09 ) VERDI nuller .
01 CURRENT-DA TE - FELT .
05 CURRENT-DA TE - VERDI .
10 CURRENT-YY PIC 9 ( 04 ) VERDI nuller .
10 CURRENT-MM PIC 9 ( 02 ) VERDI nuller .
10 CURRENT-DD PIC 9 ( 02 ) VERDI nuller .
05 Strøm-tids - VERDI .
10 CURRENT-HO UR PIC 9 ( 02 ) VERDI nuller .
10 CURRENT-MI N PIC 9 ( 02 ) VERDI nuller .
10 ØYEBLIKKET - SEC PIC 9 ( 02 ) VERDI nuller .
10 CURRENT-MS PIC 9 ( 02 ) VERDI nuller .
01 SECONDS-IN -A - DAY PIC 9 ( 05 ) VERDI 86400 .
01 SECONDS-IN -A - HOUR PIC 9 ( 05 ) VERDI 3600 .
01 SECONDS-IN -A - MIN PIC 9 ( 02 ) VERDI 60 år.
01 UNIX-TIMES TAMP PIC 9 ( 10 ) VERDI nuller .
2
Finn gjeldende dato og klokkeslett ved hjelp av denne COBOL funksjon.
MOVE fUNKSJON sTRØM - DATO fOR sTRØM - DATE -felt .
3
Unix timestamp representerer antall sekunder som har gått siden 1. januar 1970. Finne forskjellen mellom dagens dato og 1 januar 1970 ved å bruke beregne kommandoen og heltall -of -date -funksjonen i et COBOL -programmet.
COMPUTE nummer- AV - DAGER = FUNKSJON INTEGER -of-date ( STRØM - DATE - VERDI ) - .
FUNKSJON INTEGER -of-date ( " 19700101 ")
4
Finn antallet sekunder som har gått siden 1. januar 1970 av beregning antall sekunder etter dag , time og minutt og legge dem sammen .
COMPUTE UNIX - TIMESTAMP =
( nummer- aV - dAGER * sEKUNDER -IN -A - dAY) +
( STRØM - HOUR * SEKUNDER -IN -A - HOUR ) + Online
( STRØM - MIN * SEKUNDER -IN -A - MIN) + Online
STRØM - SEC .
