Recorrer registros de un datawindow con la tecla ctrl + flechas en Power Builder

En este post le mostrare un script muy útil para el usuario que lo hice por necesidad, básicamente consiste en ir recorriendo los registros de un datawindow con clave primaria numérica apretando combinaciones de teclas el cual yo elegí la tecla ctrl mas la flecha izquierda o derecha la izquierda para registro anterior y derecha para registro posterior.

/*Leer registro con tecla ctrl + flechas*/
//@author: Robert Galeano Fernandez - @rgfpy
integer vregistro
string col_valor

col_valor = 'nombre_col_pk' // nombre de la columna del cod de registr

IF keyflags = 2 then // tecla ctrl
  IF key = keyleftarrow! then //tecla nav izq
    vregistro = (this.getitemnumber(1, col_valor) - 1)
    this.setitem(1, col_valor, vregistro)
    // aca ejecutamos el retrieve()
  ELSEIF key = keyrightarrow! then // tecla nav der
    vregistro = (this.getitemnumber(1, col_valor) + 1)
    this.setitem(1, col_valor, vregistro)
    // aca ejecutamos el retrieve()
  END IF
END IF