Cobol - TABLAS COBOL

   
Vista:

TABLAS COBOL

Publicado por Matias (1 intervención) el 26/04/2012 18:39:29
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
01 TABLA-MES.
                03                      PIC X(12) VALUE "ENERO     05".
	        03                      PIC X(12) VALUE "FEBRERO   06".
	        03                      PIC X(12) VALUE "MARZO     05".
		03                      PIC X(12) VALUE "ABRIL     05".
  		03                      PIC X(12) VALUE "MAYO      04".
		03                      PIC X(12) VALUE "JUNIO     05".
		03                      PIC X(12) VALUE "JULIO     05".
		03                      PIC X(12) VALUE "AGOSTO    06".
		03                      PIC X(12) VALUE "SEPTIEMBRE10".
		03                      PIC X(12) VALUE "OCTUBRE   07".
		03                      PIC X(12) VALUE "NOVIEMBRE 09".
		03                      PIC X(12) VALUE "DICIEMBRE 09".
 	 01 TABLA-MES-R  REDEFINES TABLA-MES.
         03 TAB-MES OCCURS 1 TIMES    PIC X(10).
         03 TAB-POS OCCURS 1 TIMES    PIC 99.

HACE POCO EMPEZE A PROGRAMAR EN COBOL Y QUIERO APRENDER BIEN EL TEMA DE LAS TABLAS , EL TEMA ACA ES EL SIGUIENTE YO DEFINI UNA TABLA FIJA PARA LOS MESES LOS CUALES EN TOTAL OCUPAN 12 LUGARES (YA QUE SEPTIEMBRE OCUPABA 10 Y NECESITABA 2 MAS PARA TENER LA CANTIDAD DE CARACTERES DE CADA MES) AHORA LO QUE YO QUIERO LOGRAR ES QUE LOS PRIMEROS 10 CARACTERES LOS ALMACENE EN LA TAB-MES Y LOS 2 RESTANTES LOS ALMACENE EN LA TAB-POS .
DESDE YA MUCHAS GRACIAS
PD : AGREDEZCO SI ALGUIEN ME PUEDE EXPLICAR QUE SIGNIFICA EL OCCURS 1 TIMES :)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

TABLAS COBOL

Publicado por SuperIndio (138 intervenciones) el 07/05/2012 16:17:47
HOLA CHANGO
EN PRIMER LUGAR LOS OCCURS NO SON MAS QUE LAS OCURRENCIAS O ELEMENTOS QUE VA A TENER LA TABLA EN MEMORIA U ARRAY O VECTOR O COMO QUIRAS LLAMARLO
Y SEGUNDO PARA QUE QUEDE LOS NOMBRE DE LOS MESES POR UN LADO U LA CANTIDAD EN OTRO VECTOR
TENES QUE PONERLOS PAREJITO O EN LA COLUMNA SOBRE LO QUE VA A CAER O CORTAR SEGUN LA LONGITUD ES DECIR:

123456789012
ABRIL_____05 DONDE "_" ES UN ESPACIO ENTOCNES QUEDARIA:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
01  TABLA-MES. *>------- 123456789012
    03  PIC X(12) VALUE "ENERO     05".
    03  PIC X(12) VALUE "FEBRERO   06".
    03  PIC X(12) VALUE "MARZO     05".
    03  PIC X(12) VALUE "ABRIL     05".
    03  PIC X(12) VALUE "MAYO      04".
    03  PIC X(12) VALUE "JUNIO     05".
    03  PIC X(12) VALUE "JULIO     05".
    03  PIC X(12) VALUE "AGOSTO    06".
    03  PIC X(12) VALUE "SEPTIEMBRE10".
    03  PIC X(12) VALUE "OCTUBRE   07".
    03  PIC X(12) VALUE "NOVIEMBRE 09".
    03  PIC X(12) VALUE "DICIEMBRE 09".
01 TABLA-MES-R REDEFINES TABLA-MES.     *> AQUI SOLO DECLARO LA REDEFINICION
   03  TABLA-MES-V OCCURS 12 TIMES.     *> DECLARO EL OCCURS
       05 TAB-MES            PIC X(10). *> DECLARACION DEFINICION TIPADO Y DELIMITACION DE LONGITUDES CAMPO 1
       05 TAB-POS            PIC 9(02). *> IDEM ANTERIOR  CAMPO 2
 
O  TAMBIEN
 
01  TABLA-MES. *>------- 123456789012
    03  PIC X(12) VALUE "ENERO     05".
    03  PIC X(12) VALUE "FEBRERO   06".
    03  PIC X(12) VALUE "MARZO     05".
    03  PIC X(12) VALUE "ABRIL     05".
    03  PIC X(12) VALUE "MAYO      04".
    03  PIC X(12) VALUE "JUNIO     05".
    03  PIC X(12) VALUE "JULIO     05".
    03  PIC X(12) VALUE "AGOSTO    06".
    03  PIC X(12) VALUE "SEPTIEMBRE10".
    03  PIC X(12) VALUE "OCTUBRE   07".
    03  PIC X(12) VALUE "NOVIEMBRE 09".
    03  PIC X(12) VALUE "DICIEMBRE 09".
01 TABLA-MES-R REDEFINES TABLA-MES OCCURS 12 TIMES.     *> DECLARACION DE LA REDEFINICION Y DEFINICION DEL OCCURS
    03 TAB-MES            PIC X(10). *> DECLARACION DEFINICION TIPADO Y DELIMITACION DE LONGITUDES CAMPO 1
    03 TAB-POS            PIC 9(02). *> IDEM ANTERIOR  CAMPO 2



Y EN LA PROCEDURE CUANDO TE REFEREIS A LOS ELEMENTOS DEL OCCURS ES:


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
MOVE TAB-MES(1)          TO WS-MES
     MOVE TAB-POS(1)          TO WS-CANTIDAD
 
     O
 
     MOVE "January  "         TO TAB-MES( 01 )
     MOVE "February "         TO TAB-MES( 02 )
     MOVE "March    "         TO TAB-MES( 03 )
     MOVE "April    "         TO TAB-MES( 04 )
     MOVE "May      "         TO TAB-MES( 05 )
     MOVE "June     "         TO TAB-MES( 06 )
     MOVE "July     "         TO TAB-MES( 07 )
     MOVE "August   "         TO TAB-MES( 08 )
     MOVE "September"         TO TAB-MES( 09 )
     MOVE "October  "         TO TAB-MES( 10 )
     MOVE "November "         TO TAB-MES( 11 )
     MOVE "December "         TO TAB-MES( 12 )
     *>>
     MOVE 31                  TO TAB-POS( 01 )
     MOVE 89                  TO TAB-POS( 02 )
     MOVE 22                  TO TAB-POS( 03 )
     MOVE 11                  TO TAB-POS( 04 )
     MOVE 21                  TO TAB-POS( 05 )
     MOVE 31                  TO TAB-POS( 06 )
     MOVE 31                  TO TAB-POS( 07 )
     MOVE 41                  TO TAB-POS( 08 )
     MOVE 41                  TO TAB-POS( 09 )
     MOVE 51                  TO TAB-POS( 10 )
     MOVE 51                  TO TAB-POS( 11 )
     MOVE 61                  TO TAB-POS( 12 )

espero te sirva
chau
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

TABLAS COBOL

Publicado por Miguel migue.msj1@gmail.com (1 intervención) el 09/09/2015 02:57:04
Que tal amigos, por favor necesito de su ayuda.
Alguien que me pueda indicar como cargar los datos de un fichero secuencial en una tabla.
Es de suma urgencia, por su gentil ayuda muchas gracias...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar