Parsear una cadena de caracteres
Publicado por MambaNegra (4 intervenciones) el 04/09/2008 18:22:50
Hola Gente tengo que parsear los copy usado en un sistema COBOL
y de un copy asi:
01 VARIABLES.
03 WX-COD-ERROR PIC X(08) VALUE ALL "0".
03 WZ-COD-ERROR REDEFINES WX-COD-ERROR.
05 WZ-MODULO PIC X(03).
05 WZ-NUMERO PIC X(05).
03 WX-MSG-ERROR PIC X(70) VALUE SPACES.
03 WX-FUNCION PIC X(08) VALUE SPACES.
03 WX-PROGRAMA PIC X(08) VALUE 0.
03 WX-RUTINA PIC X(08) VALUE SPACES.
tengo que hacer una salida asi:
struct {
char Wx_Cod_Error[8]
char Wx_Msg_Error[70]
char Wx_Funcion[8]
char Wx_Programa[8]
char Wx_Rutina[8]
} Variables
char Wz_Cod_Error[8]
char Wz_Modulo[3]
char Wz_Numero[5]
o asi tambien estaria bien:
struct {
char Wx_Cod_Error[8]
char Wz_Cod_Error[8]
char Wz_Modulo[3]
char Wz_Numero[5]
char Wx_Msg_Error[70]
char Wx_Funcion[8]
char Wx_Programa[8]
char Wx_Rutina[8]
} Variables
por favor que alguien me ayude... Me urge
o que alguien me diga como hago para distribuir todas las palabras de una cadena de carcteres dentro de un vector de string
ejemplo:
03 WX-COD-ERROR PIC X(08) VALUE ALL "0".
sPalabra[1]=03
sPalabra[2]=WX-COD-ERROR
sPalabra[3]=PIC
sPalabra[4]=X(08)
sPalabra[5]=VALUE
sPalabra[6]=ALL
sPalabra[7]="0".
Muchas gracias
y de un copy asi:
01 VARIABLES.
03 WX-COD-ERROR PIC X(08) VALUE ALL "0".
03 WZ-COD-ERROR REDEFINES WX-COD-ERROR.
05 WZ-MODULO PIC X(03).
05 WZ-NUMERO PIC X(05).
03 WX-MSG-ERROR PIC X(70) VALUE SPACES.
03 WX-FUNCION PIC X(08) VALUE SPACES.
03 WX-PROGRAMA PIC X(08) VALUE 0.
03 WX-RUTINA PIC X(08) VALUE SPACES.
tengo que hacer una salida asi:
struct {
char Wx_Cod_Error[8]
char Wx_Msg_Error[70]
char Wx_Funcion[8]
char Wx_Programa[8]
char Wx_Rutina[8]
} Variables
char Wz_Cod_Error[8]
char Wz_Modulo[3]
char Wz_Numero[5]
o asi tambien estaria bien:
struct {
char Wx_Cod_Error[8]
char Wz_Cod_Error[8]
char Wz_Modulo[3]
char Wz_Numero[5]
char Wx_Msg_Error[70]
char Wx_Funcion[8]
char Wx_Programa[8]
char Wx_Rutina[8]
} Variables
por favor que alguien me ayude... Me urge
o que alguien me diga como hago para distribuir todas las palabras de una cadena de carcteres dentro de un vector de string
ejemplo:
03 WX-COD-ERROR PIC X(08) VALUE ALL "0".
sPalabra[1]=03
sPalabra[2]=WX-COD-ERROR
sPalabra[3]=PIC
sPalabra[4]=X(08)
sPalabra[5]=VALUE
sPalabra[6]=ALL
sPalabra[7]="0".
Muchas gracias
Valora esta pregunta


0