Organizacion line sequential rmcobol 85

RM/COBOL-85

TAREA Nº2

Desarrollo De Aplicaciones I:
Tarea Nº2


Profesor:
Q.

Manuel San Martín

- Mayo 2009 -

Desarrollo de Aplicaciones I, Mayo 2009

0

RM/COBOL-85

TAREA Nº2
Índice

Contenido

Pág.

Índice…………………………………………………………………………..

1

Introducción…………………………………………………………………...

2

Enunciado……………………………………………………………………..

3

Secuencia Teórica:Diagrama de Flujo……………………………………..

4

Diagrama de Bloques…………………………………

5

Código Fuente………………………………………………………………...

6

Pruebas………………………………………………………………………..

17

Análisis de Resultados………………………………………………………. 19
Comentarios de Resultados…………………………………………………

22

Historial de Versiones………………………………………………………..

23

Historial de Errores…………………………………………………………... 24Conclusión…………………………………………………………………….

25

Bibliografía…………………………………………………………………….

26

Desarrollo de Aplicaciones I, Mayo 2009

1

RM/COBOL-85

TAREA Nº2
Introducción

En el presente informe se describe la guía de trabajo ut ilizada para resolver la
Tarea Nº2 del ramo Desarrollo de Aplicaciones, utilizando RM/COBOL -85.
El objetivo es manipular dos archivos secuenciales y posteriormente generar un
archivo líneasecuencial que representara una factura (ver enunciado).El primer
archivo “ENCABEZA.DAT” contendría sólo un registro con los datos de una
factura. El segundo archivo “ITEMES.DAT” contendría al menos un registro con
los datos de itemes. El archivo resultante se llamara “FACTURA.TXT” y deberá
llevar impreso el total de la factura en palabras (según los cálculos realizados).
Durante el procesode planificación de esta tarea, y como lo aconsejo en clase
el profesor, se dividió el código en dos partes:
1. Generar la factura, concentrándose sólo en los aspectos del cálculo y
formato de impresión (datos de los registros y de los cálculos).
2. Generar el total de la factura en palabras, mediante el uso de tablas y
sentencias “STRING”-“INSPECT”
Por otra parte, y como objetivo delprogramador, se trata ra de no abusar de la
sentencia GOTO, siempre que la estructura del programa lo permita, se
reemplazara por la sentencia PERFORM.

Desarrollo de Aplicaciones I, Mayo 2009

2

RM/COBOL-85

TAREA Nº2
Enunciado

Desarrolle un programa RM-COBOL 85 que:
-

A partir de 2 archivos de entrada generar un archivo de organización
LINE SEQUENTIAL que represente una factura.La factura tiene que ser posible de imprimir haciendo un vaciado del
archivo anterior.
Debe validar que el total de la factura corresponda con el valor
calculado.
El total de la factura debe aparecer impreso en letras.

Archivo: Encabeza.dat
Organización: Secuencial
Una factura.
Campos:
Fecha emisión
Rut cliente
DV rut
Razón social
Giro comercial cliente
Dirección cliente
Comunacliente
Total factura

9(6) (AAMMDD).
9(8)
X
X(40)
X(40).
X(40).
X(20).
9(8)

Archivo: Itemes.dat
Organización: Secuencial
1 ó más ítemes.
Campos.
Código item
Descripción item
Cantidad del item
Unidad de medida item
Valor unitario item

X(8)
X(20)
9999.
X(5)
9(6).

Desarrollo de Aplicaciones I, Mayo 2009

3

RM/COBOL-85

TAREA Nº2
Secuencia Teórica:

1. Diagramade Flujo:

Desarrollo de Aplicaciones I, Mayo 2009

4

RM/COBOL-85

TAREA Nº2

2. Diagrama de Bloques:

Desarrollo de Aplicaciones I, Mayo 2009

5

RM/COBOL-85

TAREA Nº2
Código Fuente

identification division.
program-id. TAREA02.
author. Libny Vergara.
date-written. 28/04/2009.
date-compiled. 20/05/2009.
environment division.
configuration section.
special-names.decimal-point is comma.
input-output section.
file-control.
select encabeza assign to disk.
select itemes assign to disk.
select factura assign to disk
organization is line sequential.
data division.
file section.
fd encabeza
label record is standard
value of file-id "encabeza.dat".
01 reg-e.
02 fecha-e.
03 aa-e pic 99.
03 mm-e pic 99.
03 dd-e pic 99.
02 rut-e....