Quantcast
Channel: Visual COBOL - Forum - Recent Threads
Viewing all articles
Browse latest Browse all 4356

RE: How can I see the animating of call programs in Visual Cobol like I can see in Mainframe Express ???

$
0
0

Dear Chris,

My application is Running in Visual Cobol for Eclipse. It a native Cobol application and >I running it within de IDE.

I only can see the animating of the principal program .

Here you are the animating :

   COPY "uleeusr.cpy"  IN "C:\home1\compilacion\parametros".

     *

      PROCEDURE DIVISION.

     *-------------------------------------------

      Principal.

     *---------

          CALL "C:\home1\compilacion\urutinas\ufecsis"

                USING ufecsis-parametros

          CANCEL "C:\home1\compilacion\urutinas\ufecsis"

          MOVE "hmeg"               TO vtbor01-user.

          MOVE ufecsis-parametros   TO vtbor01-fecha-actr

                                       va-fecha-actr.        

          MOVE 6                    TO vtbor01-objetivo.

          MOVE 1                    TO vtbor01-operacion.

          CALL "C:\home1\compilacion\urutinas\vtbor01"

               USING vtbor01-parametros.

          CANCEL "C:\home1\compilacion\urutinas\vtbor01".

          move 0                    TO  vtbor01-status.

          IF vtbor01-status = 1

             DISPLAY "User no existe " LINE 23 COL 1 ERASE

             ACCEPT va-pausa

             STOP RUN

          ELSE

             MOVE vtbor01-empresa   TO vtbor35-empresa

             MOVE vtbor01-rut       TO vtbor35-rut

             MOVE vtbor01-linea-1   TO vtbor35-linea

             CALL "C:\home1\compilacion\urutinas\vtbor35"

                  USING vtbor35-parametros

             CANCEL "C:\home1\compilacion\urutinas\vtbor35"

          END-IF.

          MOVE "hmeg"               TO vtbor130-user-id

          MOVE vtbor01-rut          TO vtbor130-rut-cajero.

          MOVE vtbor01-empresa      TO vtbor130-empresa

          MOVE vtbor35-linea        TO vtbor130-linea.

          MOVE vtbor35-nombre-linea TO vtbor130-nombre-linea.

          MOVE 0                    TO vtbor130-tipo-validacion.

          MOVE va-fecha-actr        TO vtbor130-fecha-apertura.

          MOVE vtbor01-correl-agencia(vtbor130-linea)

                                    TO vtbor130-correl-agencia.

          MOVE "vtbor130"           TO vtbor130-programa

          MOVE vtbor130-parametros TO vtbor130-parametros

          CALL "C:\home1\compilacion\urutinas\vtbor130"

               USING vtbor130-parametros

          CANCEL "C:\home1\compilacion\urutinas\vtbor130".

     *

      Terminar.

     *--------

          EXIT PROGRAM.

          STOP RUN.

     *-----------------------*

     * Fin Programa vtboi69  *


Viewing all articles
Browse latest Browse all 4356

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>