Cobol - Cobol String

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

tu problema es muy simple.
Define:
01 DATA.
03 DATA-A PIC 9(8).
03 DATA-B PIC X.

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

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.