Método de las Décadas ABC

Código fuente COBOL 'TestABC.COB'

1. Seleccione con el mouse el texto disponible más abajo entre las dos líneas rojas.

2. Mediante las opciones de Copiar y Pegar llévelo al Block de Notas y grábelo en su disco duro como TestABC.cob

3. Transfiéralo al host mediante cualquier software de transferencia de archivos.

4. El el host realice las siguientes instrucciones:

   1. COBOL DecadasABC ---------------// Compilación de subprograma (Se genera DecadasABC.obj)

   2. COBOL TestABC--------------------// Compilación de programa llamador (Se genera TestABC.obj)

   3. LINK TestABC,DecadasABC-------// Generación de imagen ejecutable (TestABC.exe)

   4. RUN TestABC

IDENTIFICATION DIVISION.
PROGRAM-ID.	TestABC.
AUTHOR.			Eduardo Navarro P. (1998)
*
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 Varios.
	05 Fecha6.
	   10 AA6		PIC X(02).
	   10 MM6		PIC 9(02).
	   10 DD6		PIC 9(02).
	05 Fecha8.
	   10 AAAA8		PIC 9(04).
	   10 MM8		PIC 9(02).
	   10 DD8		PIC 9(02).

	05 Term			PIC X(02).

PROCEDURE DIVISION.
Inicio.
	initialize Varios.
*	display " " ERASE SCREEN.

Ciclo.
	display "Fecha6 (AAMMDD): " no.
	accept Fecha6
	display "Fecha8 (AAAAMMDD): " no.
	accept Fecha8

	CALL "DecadasABC" USING BY REFERENCE
			FECHA6 FECHA8 "1930".
	display " ".
	display "   Retornos:".
	display "      Fecha6   [" Fecha6 "]".
	display "      Fecha8 ["   Fecha8 "]".
	display " ".
	display " ".
	display "                 Sigue ? (S/N)  [S]:" NO.
	accept term
	if Term = "N" or "n" then
		stop run.
	go to Ciclo.

Otro Código Fuente disponible:

| Cobol (DecadasABC) | DEC Basic (DecadasABC) | JavaScript |

Volver a Página Principal