Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
19
     Crea Una cuenta  
Video 1
Video 2
Video 3

Si te ha servido la web
o te han gustado los videos, colabora haciendo click en el botón.

MANUALES
TEMATICOS
BASES DE DATOS
COBOL / WINDOWS
COBOL / UNIX
HISTORIA /DOCS
 
BUSCADOR
PROGRAMANDO-Dos
TRUCOS
AÑO 2.000
TEORIA POWCOB-3
PROG. POWCOB-3
TEORIA POWCOB-5
PROG. POWCOB-5
OCX-ESCOBOL
RUTINAS/MANUALES
OCX / JUEGOS
HERRAMIENTAS
COMPILADORES
ENCUESTAS
ENLACES
FOROS
TOP 10

CHAT   Usuarios: 1
Programando en Ms-Dos (texto)
TEMARIOPaso a paso
1.- Introducción
2.- Empezando
3.- Las variables
4.- Iniciando el proceso
5.- Pantalla inicial y Menú
6.- Mantenimiento Fichero
7.- Consulta con Scroll
8.- Opción de Listado
uN JueGo eN CoBoL

6.- Mantenimiento Fichero

página(s) : 2/2
(2414 palabras totales en este texto)
(18583 Lecturas)   Versión Imprimible



»» MOSTRANDO LOS CAMPOS, MODIFICANDO Y BORRANDO. Este apartado comprende 4 párrafos. Uno primero donde mostramos el contenido actual de los campos que componen el registro. Otro donde preguntamos sobre la acción a realizar. Otro para borrar el registro, otro para grabar los cambios realizados y uno mas para abandonar el mantenimiento.
Aquí mostramos el contenido de los campos. Y actualizamos el valor de la variable MODI a 1.
SOCI-MOS.
      DISPLAY AGENOM LINE 4 COL 16 LOW.
      DISPLAY AGEDOM LINE 5 COL 16 LOW.
      DISPLAY AGEPOB LINE 6 COL 16 LOW.
      DISPLAY AGEPOS LINE 6 COL 48 LOW.
      DISPLAY AGEPRO LINE 7 COL 16 LOW.
      DISPLAY AGETEL LINE 9 COL 16 LOW.
      DISPLAY AGEMOV LINE 10 COL 16 LOW.
      DISPLAY AGEMAI LINE 12 COL 16 LOW.
      DISPLAY AGEWEB LINE 14 COL 4 LOW.
      MOVE 1 TO MODI.
SOCI-MOS1.
      DISPLAY SPACES LINE 16 COL 1 SIZE 50.
      DISPLAY "(M)ODIFICA" LINE 16 COL 2 LOW REVERSE.
      DISPLAY "(B)ORRAR " LINE 16 COL 13 LOW REVERSE.
      DISPLAY "(F)GRABAR " LINE 16 COL 24 LOW REVERSE.
      DISPLAY " FIN " LINE 16 COL 35 LOW REVERSE.
      ACCEPT OP LINE 16 COL 49 OFF NO BEEP
          ON EXCEPTION ESCA NEXT SENTENCE.
      DISPLAY SPACES LINE 16 SIZE 50.
      IF ESCA = 27 GO SOCIO0.
      IF OP = "B" GO SOCI-BORRAR.
      IF OP = "F" PERFORM SOCI-GRABAR GO SOCIO0.
      IF OP = "M"
          DISPLAY "" LINE 16 COL 2 LOW REVERSE
          DISPLAY " FIN" LINE 16 COL 12 LOW REVERSE
          GO SOCI-UNO.
      GO SOCI-MOS1.

Si os fijáis la modificación nos lleva de nuevo a la introducción de los campos, solo que el valor de MODI ahora es 1 y eso indica que estamos en modificación.

Confirmación de borrado del registro.

SOCI-BORRAR.
      DISPLAY "BORRARLO ..?" LINE 16 COL 2.
      ACCEPT OP LINE 16 COL 16 PROMPT NO BEEP LOW
          ON EXCEPTION ESCA NEXT SENTENCE.
      DISPLAY SPACES LINE 16 SIZE 50.
      IF OP = "N" OR ESCA = 27 GO SOCI-MOS1.
      IF OP = "S" NEXT SENTENCE ELSE GO SOCI-BORRAR.
      DELETE AGENDA INVALID KEY
          MOVE "BORRAR UN REGISTRO" TO MOTIVO PERFORM MENERROR.
      GO SOCIO0.


Regrabamos el registro con los datos actuales.
SOCI-GRABAR.
      MOVE AGECOD TO AGECOD1 MOVE AGENOM TO AGENOM1.
      REWRITE REGAGE INVALID KEY
          MOVE "REGRABAR UN REGISTRO" TO MOTIVO PERFORM MENERROR.


Abandonamos el mantenimiento del archivo, cerramos la ventana y volvemos a la pantalla principal.
SOCIFIN.
      DISPLAY WIN (1) CONTROL "WINDOW-REMOVE".
      GO TRES.
Programa Agenda (Imagen 3)

El siguiente capítulo, mostrará como hacer una consulta de los datos por pantalla, utilizando para ello un scroll.

(1/2) Anterior |    Inicio de Página   
Sitio desarrollado con PHP-Nuke. Todos los Derechos Reservados.
PHP-Nuke es un Software Libre realizado con licencia GNU/GPL.
Página creada en Junio de 1.998, con el proposito de difundir el lenguaje Cobol en nuestra lengua.
Andres Montes [98/11]