Cobol en español
  Página de Inicio Recomiéndala Contáctame Usuarios en Linea
13
     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: 0
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

3.- Las variables

(2876 palabras totales en este texto)
(36790 Lecturas)   Versión Imprimible



Las distintas variables que vayamos a utilizar, se irán comentando durante todo el proceso, pero por ejemplo, para empezar, tendremos que definir algunas fijas, como, la que guarde el estado del fichero, una para aceptar campos de preguntas, contador de líneas para los listados, definiciones de ventanas, etc...

La estructura de cada una de las variables, dependerá de su uso. Como los requisitos de memoria no son un problema hoy en día, no utilizaremos la cláusula COMP en ninguna de ellas, es decir todas ocuparán su tamaño, sin ningún tipo de compresión.

Además voy a incluir todas las variables necesarias para utilizar ventanas en RM, dentro de la Working, si no sabéis como se tratan las ventanas en Cobol, podéis ir a la sección Ventanas dentro de Temáticos.

También se incluirán diversas tablas con informaciones como los días de la semana, los meses del año, etc...

Las frases en éste color son comentarios.

»» VARIABLES Veamos como se definen esas variables en nuestro programa.
WORKING-STORAGE SECTION.
diversas variables que utilizaremos durante el programa.
77  STAAGE        PIC XX.
77  ELE              PIC 99.
77  OP               PIC X.
77  LI                PIC 99.
77  DIA              PIC 99.
77  ESCA           PIC 9 COMP-1.
77  MODI           PIC 9.
01  C4               PIC 9(4).
01  DC4             PIC ZZZ9.
01  MOTIVO       PIC X(20).


tablas para utilizar en el menu, con las opciones y unas frases explicativas de la función de cada opción.
01  TABLAOPCIONES.
      02   FILLER    PIC X(24) VALUE " CONTACTOS LISTADO ".
      02   FILLER    PIC X(12) VALUE " SALIR ".
01  OPCIONESTABLA REDEFINES TABLAOPCIONES.
      02   ELEOPC  PIC X(12) OCCURS 3 TIMES.

01  TABLAMENSAJES1.
      02  FILLER    PIC X(26) VALUE "Altas, bajas, modificacion".
      02  FILLER    PIC X(26) VALUE "Listado por impresora de ".
      02  FILLER    PIC X(26) VALUE SPACES.
01  MENSAJESTABLA1 REDEFINES TABLAMENSAJES1.
      02  ELEME1  PIC X(26) OCCURS 3 TIMES.

01  TABLAMENSAJES2.
      02   FILLER   PIC X(26) VALUE "y consultas de la agenda. ".
      02   FILLER   PIC X(26) VALUE "los datos de la agenda. ".
      02   FILLER   PIC X(26) VALUE "Abandonar la aplicacion.".
01  MENSAJESTABLA2 REDEFINES TABLAMENSAJES2.
      02   ELEME2  PIC X(26) OCCURS 3 TIMES.


variables para el uso de ventanas en RM/Cobol.
01  WCB.
      03  WINCAB              PIC 999 BINARY VALUE 0.
      03  WINLIN               PIC 999 BINARY.
      03  WINCOL              PIC 999 BINARY.
      03  WINLOC              PIC X VALUE "S".
      03  WINBORST          PIC X VALUE "Y".
      03  WINBORTI           PIC 9 VALUE 2.
      03  WINBORCH         PIC X.
      03  WINLLE               PIC X.
      03  WINLLECH           PIC X.
      03  WINTITSI            PIC X VALUE "T".
      03  WINTITPO           PIC X VALUE "C".
      03  WINTITLO           PIC 999 BINARY.
      03  WINTIT               PIC X(64).


en ésta tabla guardaremos todas las ventanas que vayamos creando
01  VENTANAS.
       02  WIN                   PIC X(80) OCCURS 10 TIMES.

linea con la fecha del dia.
01  LIFEDI.
      02  LFDDIA   PIC X(9).
      02  FILLER    PIC XX VALUE ", ".
      02  LFDNUM  PIC ZZ.
      02  FILLER    PIC X(4) VALUE " DE ".   
      02  LFDMES  PIC X(10).
      02  FILLER    PIC X(7) VALUE " DE 2.0".
      02  LFDANO  PIC 99B.


para trabajar con la fecha, lo haremos a 6 digitos, para evitar problemas con compiladores que no tengan disponible el efecto 2000.
01  FECA             PIC 9(6).
01  FECAL  REDEFINES FECA.
     02  FI            PIC 99.
     02  FM           PIC 99.
     02  FA           PIC 99.
01  FF                PIC 99.


variables necesarias para generar los cuadros y rayas.
01  CUADRO.
      02 U1           PIC 99.
      02 U2           PIC 99.
      02 U3           PIC 99.
      02 U4           PIC 99.
01  U0                PIC 99 VALUE 0.
01  U9                PIC 99 VALUE 0.
01  RAYA.
     02   FILLER    PIC X(80) VALUE ALL "-".  
(Alt+196)

tablas con los meses y los dias.

01  TABLAMES.
      02  FILLER PIC X(30) VALUE "ENERO      FEBRERO      MARZO ".
      02  FILLER PIC X(30) VALUE "ABRIL       MAYO            JUNIO ".
      02  FILLER PIC X(30) VALUE "JULIO       AGOSTO        SEPTIEMBRE".
      02  FILLER PIC X(30) VALUE "OCTUBRE NOVIEMBRE DICIEMBRE".
01  TABLIMES REDEFINES TABLAMES.
      02  TMES   PIC X(10) OCCURS 12 TIMES.

01  TABLASEM.
      02  FILLER PIC X(27) VALUE "LUNES       MARTES    MIERCOLES".
      02  FILLER PIC X(27) VALUE "JUEVES     VIERNES   SABADO ".
      02  FILLER PIC X(9)   VALUE "DOMINGO".
01  TABLISEM REDEFINES TABLASEM.
      02  TSEM PIC X(9) OCCURS 7 TIMES.

Hasta aquí todo lo correspondiente a las variables que vamos a utilizar en nuestro programa.

   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]