Aunque los expertos han predicho desde hace tiempo la desaparición de COBOL, el lenguaje orientado a los negocios comunes de la programación de computadoras , sigue siendo ampliamente utilizado a principios de 2011 . La capacidad de resistencia de la lengua , que se remonta a 1959 , es más que notable . Si usted trabaja con COBOL, la empresa informa que cree necesitar información sobre la fecha actual para partidas de impresión y recuperación de datos . Un mecanismo incorporado en COBOL permite recuperar la fecha actual con una sola instrucción ACCEPT. Después de recuperar la información de fecha prima , lo puso en un formato adecuado para su informe. Instrucciones
1

Crear un registro de datos de nivel 01 en la sección "Almacenamiento de Trabajo " para recibir la fecha del sistema . El registro debe dejar de lado ocho dígitos decimales dedicadas a la fecha actual , con un año de cuatro dígitos, seguido por el mes y el día con dos dígitos cada uno . Usted puede llamar a este disco " de hoy - actual -Date ", por ejemplo . Dar el año , el mes y nombres subcampos día como " el año en curso ", "Current - Month" y " actual -día . "
2

Crear un registro de la fecha en el informe se dirige a mes , día y año subcampos dispuestos en su formato de fecha preferido . Los tipos de campo deben ser carácter o numérico. Entre los campos de día y mes , inserte un carácter con un guión o una barra en una cláusula de "Valor". Haga lo mismo con los campos de año y día . Usted puede llamar a los campos del informe " La partida del Día ", "Título - Mes " y " Heading años . "
3

Añada las siguientes líneas a una rutina de limpieza de de su programa de "Procedimiento " división:

Acepta el de hoy - actual - Fecha Desde Fecha

Move del año en curso a la rúbrica años

Move actual mes a la rúbrica meses < br . . . >

movimiento actual en el día de partida en el día .

Esto coloca la información de fecha en su informe de partidas . El informe se imprimirá la fecha correcta con su formato preferido.