EN OCACIONES ES NECESARIO HACER UNA REDEFINICION DE ALGUNA VARIABLE YA SEA PARA UTILIZARLA DE DIFERENTE MANERA. UN EJEMPLO SERIA QUE UNA VARIABLE DE TIPO ALFANUMERICA EN LA CUAL DEPOSITAMOS CADENAS DE NUMEROS QUERAMOS CONVERTIRLA A NUMERICA Y VICEVERSA.
01 WS-VARIABLES.
05 WS-VARIABLE-1 PIC X(06).
05 WS-VARIABLE-2 REDEFINES WS-VARIABLE-1.
10 WS-V2-A1 PIC X(02).
10 WS-V2-A2 PIC 9(04).
PROCEDURE DIVISION.
PERFORM
MOVE 123456 TO WS-VARIABLE-1
DISPLAY WS-V2-A1
DISPLAY WS-V2-A2
END-PERFORM.
12
3456
PARA CONVERTIR FECHAS A DIFERENTE FORMATO POR EJEMPLO DE DDMMAA A DD-MM-AAAA CREO QUE LO MAS CONVENIENTE SERIA DECLARAR OTRA VARIABLE Y SOLO MOVERLE LOS VALORES A ESTA.
2 comentarios:
Bueno aqui ya tienes un comentario.-
Esta bueno tu blog, yo tambien estoy colocando uno
cobol-proyectos.blogspot.com, y estoy desarrollando un sitio web
pero todavia me falta y no encuentro suficiente documentacion
para lo que necesito. yo estoy en caracas y tu?
saludos y feliz año-
YO ME ENCUENTRO EN MEXICO EN EL ESTADO DE QUERETARO. GRACIAS POR TU COMENTARIO
Publicar un comentario