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). ...