Rutina COBOL hecha en MicroFocus que calcula varias cosas:
Código:
*----------------------------------------------------------------------------- *
| CALL "PBDMR001" |
| ---------------------------------------------------------------------------- |
| 01. Validar una Fecha [Formato AAAA-MM-DD] |
| 02. Validar una Hora. |
| 03. Validar TIMESTAMP. |
| 04. Sumar un numero de dias a una fecha. |
| 05. Sumar un numero de meses a una fecha. |
| 06. Sumar un numero de anios a una fecha. |
| 07. Sumar un numero de horas a la hora proporcionada. |
| 08. Sumar un numero de minutos a la hora proporcionada. |
| 09. Sumar un numero de segundos a la hora proporcionada. |
| 10. Sumar un numero de dias a TIMESTAMP. |
| 11. Sumar un numero de meses a TIMESTAMP. |
| 12. Sumar un numero de anios a TIMESTAMP. |
| 13. Sumar un numero de horas a TIMESTAMP. |
| 14. Sumar un numero de minutos a TIMESTAMP. |
| 15. Sumar un numero de segundos a TIMESTAMP. |
| 16. Calcular la diferencia en dias entre dos fechas. |
| 17. Calcular la diferencia entre dos horas en segundos. |
* ---------------------------------------------------------------------------- *
Hay que incluir la
PBDMR001.lib en el proyecto y hacer:
Código COBOL:
CALL "PBDMR001" USING VA-PBDM001R
En el ZIP van:
- La DLL
- La LIB
- La lista de opciones en TXT
- La COPY de LINKAGE