Mensajes

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