Pseudocódigo del ejemplo de examen tomado el 17/08

[Shizus]

PROCEDIMIENTOS INICIALES
PROCESAMIENTO HASTA FIN-ARCHIVO-CSDOSEMP
PROCEDIMIENTOS FINALES


ACCION PROCEDIMIENTOS INICIALES

CONT-LEIDOS-CSDOSEMP:=0
CONT-LEIDOS-MOVISDOS:=0
CONT-LEIDOS-EMPDESCR:=0
CONT-ESCRITOS-SDOSEFEC:=0
CONT-ESCRITOS-SDOSCONT:=0
CONT-ESCRITOS-SDOSEMPR:=0

ABRIR CSDOSEMP
ABRIR MOVISDOS
ABRIR EMPDESCR

ARBIR SDOSEFEC
ABRIR SDOSCONT
ABRIR SDOSEMPR

FIN-ARCHIVO-CSDOSEMP := 'NO'
FIN-ARCHIVO-MOVISDOS := 'NO'
FIN-ARCHIVO-EMPDESCR := 'NO'

LEER CSDOSEMP
LEER MOSVISDOS
LEER EMPDESCR

I:=1
PASAR EMPDESCR A TABLA
FACCION

LEER ARCHIVO
LEER REGISTRO
SI FS-ARCHIVO = 0
INCREMENTAR CONTADOR
FSI
SI FS-ARCHIVO =10
FIN-DE-ARCHIVO:='SI'
SINO
MOSTRAR NOMBRE DEL PROGRAMA
MOSTRAR NUMERO DE PARRAFO
MOSTRAR 'ERROR' NOMBRE-ARCHIVO
MOSTRAR LEER
FSI


ACCION PASAR EMPDESCR A TABLA
MIENTRAS I<= 150 HACER Y NO ES FIN DE ARCHIVO EMPDESCR
VECTOR(I):=REG-EMPDESCR
LEER EMPDESCR
FMIENTRAS

SI NO ES FIN DE ARCHIVO EMPDESCR ENTONCES
INFORMAR ERROR
TERMINAR PROGRAMA
FSI
FACCION

ACCION PROCESAMIENTO
SI R-CSDOSEMP-CLAVE = R-MOVISDOS-CLAVE ENTONCES
TRATAR REGISTRO
SINO
SI R-CSDOSEMP-CLAVE < R-MOVISDOS-CLAVE ENTONCES
GRABAR SDOSEMPR
LEER CSDOSEMP
SINO

LEER MOVISDOS
FSI
FSI
FACCION

ACCION TRATAR REGISTRO

CLAVE-ANTERIOR := R-CSDOSEMP-CLAVE
SDOS-SUELDO-BRUTO:=EMPR-SUELDO-BASE

MIENTRAS CLAVE-ANTERIOR = R-CSDOSEMP-CLAVEHACER

SI MOVI-TIPO-MOVI = A
SDOS-SUELDO-BRUTO := SDOS-SUELDO-BRUTO + MOVI-SUELDO-BASE
SINO
SDOS-SUELDO-BRUTO := SDOS-SUELDO-BRUTO - MOVI-SUELDO-BASE
FSI

LEER MOSVISDOS
FMIENTRAS

BUSCAS DESCRIPCIONES EN TABLA

SI R-MOVISDOS-CLAVE-TIPO-EMPLE = 'E' ENTONCES
GRABAR SDISEFEC
SINO
GRABAR SDOSCONT
FSI
FACCION

ACCION PROCEDIMIENTOS FINALES
MOSTRAR CONT-LEIDOS-CSDOSEMP
MOSTRAR CONT-LEIDOS-MOVISDOS
MOSTRAR CONT-LEIDOS-EMPDESCR
MOSTRAR CONT-ESCRITOS-SDOSEFEC
MOSTRAR CONT-ESCRITOS-SDOSCONT
MOSTRAR CONT-ESCRITOS-SDOSEMPR

CERRAR ARCHIVOS

FACCION