2010-04-30

Retorno a los origenes

¿A alguien menor de 30 años le suena esto?

     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.