ayuda en visualage for java

hola con todos quisiera que alguien me pueda enviar un manual o un link de visualage aqui les mando su codigo fuente con el que tengo problemas de ante mano le doy las gracias a todos

*********************************************************************
* *
* ID de programa : *
* *
* Descripción . : *
* *
* Función . . . : *
* *
* Mensajes . . . : *
* *
* Archivos . . . : *
* *
* Entrada . . . : *
* *
* Salida . . . . : *
* *
*********************************************************************
*
H
H*EXE
H*NOMAIN
**************************** formato D ***********************
* VARIABLES DE TRABAJO O VARIABLES DE MEMORIA
DN1 S 4 0
DN2 S 4 0
DS S 4 0
DR S 4 0
DM S 4 0
DD S 4 0
DRE S 4 0
D*******************************************************************
* Ventana . : V1
*
* Componente : V1
*
* Evento . . : CREATE
*
* Descripción:
*
*********************************************************************
*
C V1 BEGACT CREATE V1
*POSICIONAR EL CURSOS
C EVAL %SETATR('V1':'TXTN2':'FOCUS')=1
C ENDACT
*********************************************************************
*
* Ventana . : V1
*
* Componente : BTNEVAL
*
* Evento . . : PRESS
*
* Descripción:
*
*********************************************************************
*
C BTNEVAL BEGACT PRESS V1
* VARIABLES DISEÑADAS EN LA VENTA A VAIRBLES DE TRABAJO
* DE VENTANA A MEMORIA
C EVAL N1=%GETATR('V1':'TXTN1':'TEXT')
C EVAL N2=%GETATR('V1':'TXTN2':'TEXT')
C*
C* EVAL N1=%GETATR('V1':'TEXTN1':'TEXT')
C* OPERADORES ARITMETICOS
C EVAL S=N1+N2
C EVAL R=N1-N2
C EVAL M=N1*N2
C EVAL D=N1/N2
C EVAL RE=%REM(N1:N2)
C*DE MEMORIA A VENTA
C EVAL %SETATR('V1':'LBLSUMA':'LABEL')=S
C EVAL %SETATR('V1':'LBLRESTA':'LABEL')=R
C EVAL %SETATR('V1':'LBLMULTI':'LABEL')=M
C EVAL %SETATR('V1':'LBLDIVI':'LABEL')=D
C EVAL %SETATR('V1':'LBLRESTO':'LABEL')=RE
C ENDACT
*********************************************************************
*
* Ventana . : V1
*
* Componente : BTNLIMPIA
*
* Evento . . : PRESS
*
* Descripción:
*
*********************************************************************
*
C BTNLIMPIA BEGACT PRESS V1
* INICIALIZAR CAMPOS
* BLANQUEAR CAMPOS
C EVAL %SETATR('V1':'TXTN1':'TEXT')=*ZEROS
C EVAL %SETATR('V1':'TXTN2':'TEXT')=*ZEROS
C EVAL %SETATR('V1':'LBLSUMA':'LABEL')=*ZEROS
C EVAL %SETATR('V1':'TXTN2':'FOCUS')=1
C ENDACT
*********************************************************************
*
* Ventana . : V1
*
* Componente : BTNCANCEDL
*
* Evento . . : PRESS
*
* Descripción:
*
*********************************************************************
*
C BTNCANCEDL BEGACT PRESS V1
* FINALIZAR PROCESO
C EVAL *INLR=*ON
C ENDACT