Cómo convertir una fecha que marca de tiempo Unix en COBOL

La mayoría de las empresas a mantener los sistemas informáticos que pasan información crítica entre las distintas plataformas. Sistemas Mainframe apoyan código heredado y sistemas centrales de gran tamaño, mientras que los sistemas cliente-servidor más pequeños corriendo Unix , Linux o sistemas operativos basados ​​en Windows se utilizan para aplicaciones cliente-servidor y web. Integrar los sistemas , el sistema informático central acomoda diferencias de formato al pasar los datos a otras plataformas. COBOL es el idioma preferido por muchos sistemas heredados. Con unos pocos comandos que se utilizan en la secuencia , traduce una fecha para la marca de tiempo Unix . Cosas que necesitará
COBOL sistema
Interface método
Ver Más instrucciones
1

definir campos de almacenamiento de trabajo para almacenar valores .

01 número-de- DAYS PIC 9 ( 09 ) CEROS DE VALOR .

01 CURRENT-DA TE -Fields.

05 CURRENT-DA TE- VALUE.

10 CURRENT-YY PIC 9 ( 04 ) CEROS valor.

10 CURRENT-MM PIC 9 ( 02 ) CEROS valor.

10 CURRENT-DD PIC 9 ( 02 ) CEROS valor.

05 CORRIENTE - TIEMPO - VALUE.

10 CURRENT-HO UR PIC 9 ( 02 ) CEROS DE VALOR .

10 CURRENT-MI N PIC 9 ( 02 ) CEROS DE VALOR .

10 ACTUAL - SEC PIC 9 ( 02 ) CEROS valor.

10 CURRENT-MS PIC 9 ( 02 ) CEROS valor.

01 SECONDS-IN -A- DAY PIC 9 ( 05 ) VALOR 86.400 .

01 SECONDS-IN -A HORAS PIC 9 ( 05 ) VALOR 3600 .

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

01 UNIX-TIMES TAMP PIC 9 ( 10 ) CEROS valor.
2

Encuentra la fecha y la hora de utilizar esta función COBOL .

MOVER función actual - fECHA DE cORRIENTE - fECHA -FIELDS .
3

la marca de tiempo Unix representa el número de segundos que han pasado desde el 1 de enero de 1970. Encuentre la diferencia entre la fecha actual y el 1 de enero de 1970 por utilizar el comando de cálculo y la función de número entero de fecha en un programa COBOL.

COMPUTE número-de- DAYS = INTEGER FUNCIÓN DE LA FECHA ( ACTUAL - FECHA - VALUE) - .

INTEGER FUNCIÓN dE LA FECHA ( " 19700101 ")
4

encuentra el número de segundos que han pasado desde el 1 de enero de 1970 por el cálculo el número de segundos por día , hora y minuto y sumándolos .

COMPUTE unix =

( número-de- DAYS * sEGUNDOS - IN-A - DAY) +

( CURSO HORAS * SEGUNDOS - IN-A - HORA) +

( CORRIENTE MIN * SEGUNDOS - IN-A -MIN ) +

ACTUAL -SEC .