Entradas

Mostrando entradas de abril, 2010

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.