Cobol - Cobol String

   
Vista:

Cobol String

Publicado por Sabueso Chile (5 intervenciones) el 07/11/2007 20:22:44
Hola amigos, tengo una variable que es asi

01 DATA PIC X(9)

01 DATA-A PICX(8)
01 DATA-B PICX(1)

STRING "20070830C"
INTO DATA.

debo dividir DATA en 2 variables DATA-A y DATA-B

DATA-A = "20070830"
DATA-B = "C"

¿como puedo hacerlo?

Gracias a todos los que me lean.

Sabueso Chile
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

RE:Cobol String

Publicado por oscar (37 intervenciones) el 07/11/2007 20:52:08
tu problema es muy simple.
Define:
01 DATA.
03 DATA-A PIC 9(8).
03 DATA-B PIC X.
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

RE:Cobol String

Publicado por SuperIndio (161 intervenciones) el 08/11/2007 18:58:07
Hola Chilote como te va ? Bueno mira hay 2 formas

1) Primera Forma

01 DATA PIC X(9)

01 DATA-BYC.
03 DATA-A PIC X(8)
03 DATA-B PIC X(1)

STRING "20070830C" INTO DATA.

MOVE DATA TO DATA-BYC. *>-- aqui se distribuye automaticamente

Y listo

2) Segunda Forma

01 DATA PIC X(9)

01 DATA-A PICX(8)
01 DATA-B PICX(1)

STRING "20070830C" INTO DATA.

MOVE DATA(1:8) TO DATA-A *>- mueve de la posicion 1, 8 caracteres
MOVE DATA(9:1) TO DATA-B *>- mueve de la posicion 9, 1 caracter
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

RE:Cobol String

Publicado por César González (1 intervención) el 25/08/2012 09:16:20
Excelente respuesta, precisamente esta teniendo problemas con algo similar.

Mi problema es que tenia que tenia que dividir una fecha, en dia, mes y año. La fecha es introducida desde el teclado.

Esta fue la solución.


01 VARIABLES.
05 FECHA-TECLADO PIC 9(08).
01 FECHA.
05 CDIA PIC 9(02).
05 CMES PIC 9(02).
05 CANO PIC 9(04).

ACCEPT FECHA-TECLADO FROM CONSOLE
MOVE FECHA-TECLADO TO FECHA

Saludos, desde México.
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