A maioria das empresas manter sistemas informáticos que passam informações críticas entre diferentes plataformas. Sistemas Mainframe apoiar código legado e grandes sistemas centrais , enquanto os sistemas de servidores menores cliente executando Unix , Linux ou sistemas operacionais baseados em Windows são usados para aplicações cliente-servidor e web . Para integrar os sistemas , o sistema de computador central acomoda diferenças de formatação ao passar dados para outras plataformas. COBOL é a linguagem preferida para muitos sistemas legados. Com alguns comandos usados em seqüência , traduz uma data para o carimbo de tempo Unix. Coisas que você precisa
interface método
Show Mais instruções
sistema COBOL
1
Definir campos de armazenamento de trabalho para armazenar valores
01. NÚMERO DE DIAS - PIC 9 zeros (09) valor.
01 CURRENT-DA TE- CAMPOS .
05 CURRENT-DA TE- VALUE.
10 PIC CURRENT-YY 9 (04) zeros VALOR
10 CURRENT-MM PIC 9 (02) zeros valor.
10 CURRENT-DD PIC 9 (02) zeros valor.
05. CURRENT- TIME- VALUE.
10 CURRENT-HO UR PIC 9 (02) zeros valor.
10 CURRENT-MI N zeros PIC 9 (02) valor.
10 CURRENT -SEC PIC 9 (02) zeros valor.
10 CURRENT-MS PIC 9 (02) zeros valor.
01 SECONDS-IN -A - DIA PIC 9 (05) 86400 VALOR .
01 SECONDS-IN -A- HOUR PIC 9 (05 ) VALOR 3600 .
01 SECONDS-IN -A MIN- PIC 9 (02 ) VALOR 60 .
01 UNIX-TIMES TAMP PIC 9 (10) zeros valor.
2
Encontre a data e hora atual usando esta função COBOL.
função MOVE CURRENT -DATE TO CURRENT -Date- CAMPOS .
3
o timestamp Unix representa o número de segundos que se passaram desde 1 de Janeiro de 1970. Encontre a diferença entre a data e 01 de janeiro de 1970 atual usando o comando de computação ea função inteiro -of-date em um programa COBOL.
COMPUTE NÚMERO DE - DIAS = FUNÇÃO INTEGER - OF- DATE ( CURRENT -DATE - VALUE) -
FUNÇÃO INTEIRO -of-date ( " 19700101 " )
4
Encontre o número de segundos que se passaram desde 1 de Janeiro de 1970 por cálculo . o número de segundos por dia, hora e minuto e adicioná-los juntos.
COMPUTE unix-timestamp =
( nÚMERO DE - DIAS * sEGUNDOS -IN- a- dIA ) +
( CURRENT- HOUR * SEGUNDOS -IN- A- hora) +
( CURRENT- MIN * SEGUNDOS -IN- A- MIN ) +
CURRENT- SEC .
