Ir al contenido
CodeHero

Conversión de código, par a par

RPG a VB6

La misma rutina, escrita a mano en RPG y en VB6. Está aquí para que vea qué cambia y qué no antes de que nadie le pase un presupuesto.

Antes · RPG

**free
dcl-s balance packed(11:2) inz(0);
dcl-s rate    packed(5:4)  inz(0.0425);
dcl-s interest packed(11:2);

interest = %dec(balance * rate : 11 : 2);
dsply ('INTEREST: ' + %char(interest));
*inlr = *on;

En qué se convierte · VB6

Public Function Interest(ByVal Balance As Currency, _
                         ByVal Rate As Double) As Currency
    Interest = Round(Balance * Rate, 2)
End Function
Una rutina: un saldo multiplicado por un tipo, redondeado al céntimo. La ha escrito un ingeniero en los dos lenguajes, para que pueda leer qué aspecto tiene de verdad el destino.
Abajo tiene una rutina en los dos lenguajes. Sobre un sistema real el mismo movimiento corre por el árbol entero de una vez: la plataforma lee en paralelo todos los lenguajes que haya dentro, construye el grafo de dependencias y un ingeniero traza las fronteras. Un millón de líneas es el tamaño normal de ese trabajo, y termina dentro de treinta días.

Cómo se ve esto en su sistema entero

Sobre su código real ese mismo movimiento responde a lo que un par de ficheros no alcanza: qué ficheros ya no llama nadie, qué proceso batch escribe el registro que otro lee a las 02:00 y si la versión reescrita sigue dando las cifras que sus auditores vieron el mes pasado. La auditoría vuelve con las tres respuestas en tres a cinco días.