Retorno a los origenes
¿A alguien menor de 30 años le suena esto?
Pues en eso estoy metido ahora, de vuelta a los orígenes.
04 WSRCDOC-147.
05 ACABAR-132 PIC X(1).
* I ===> I
05 EZELFV-FILLER-148 PIC 9(2).
05 I-133 REDEFINES EZELFV-FILLER-148 PIC S9(2).
* Y ===> Y
05 EZELFV-FILLER-149 PIC 9(2).
05 Y-135 REDEFINES EZELFV-FILLER-149 PIC S9(2).
* Z ===> Z-137
05 EZELFV-FILLER-150 PIC 9(2).
05 Z-137 REDEFINES EZELFV-FILLER-150 PIC S9(2).
* LONG_LK ===> LONG-LK-142
05 EZELFV-FILLER-152 PIC 9(5).
05 LONG-LK-142 REDEFINES EZELFV-FILLER-152 PIC S9(5).
05 NOMBRE-LIKE.
06 NOMBRE-LIKE1 PIC X(1).
06 NOMBRE-LIKE-RESTO PIC X(31).
Pues en eso estoy metido ahora, de vuelta a los orígenes.
Comentarios