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

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

  • Can you please clarify your question by telling us what Visual COBOL product version you are using, (Visual Studio or Eclipse) and how you are running the application? (within the IDE or outside of the IDE).

    Also, are these managed code applications (.NET or JVM) or native applications?

    If you are within the IDE you should be able to debug from the calling program into the called program without a problem.

    If you are running outside of the IDE, from the command line and you wish the debugger to start on a specific program then you can place a CALL "CBL_DEBUGBREAK" statement in the desired program and the debugger will start when the program is entered.

    There are many other methods of starting the debugger so I really need some additional details as to what it is exactly that you are wishing to do...

    Thanks.

  • 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  *

  • 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  *

  • Are the subprograms available within the same Visual COBOL project as the calling program or are they in a different project or possibly not within a project at all?

    I noticed that you are using the full path name to find the subprograms which leads me to believe that they are not within a project at all, which means that their .idy files are probably not available for debugging.

    How do you have these projects setup?

    Thanks.

  • Chis,

    All are in the same project.

    I put  a full patch becouse in the other way (..\..\Files \name file) dont work.

    I see the .idy files and object files in the :

    New_Configuration.bin

    Tur-Bus-visual.exe

    vtboi69.idy

    ....

    ....

    ....

    vtboi69.obj

    .....

    ....

    ....

    I setup the project as Debuggins.

    Maybe I need something additional setup ???

    Many Thanks

  • Chis,

    All are in the same project.

    I put  a full patch becouse in the other way (..\..\Files \name file) dont work.

    I see the .idy files and object files in the :

    New_Configuration.bin

    Tur-Bus-visual.exe

    vtboi69.idy

    ....

    ....

    ....

    vtboi69.obj

    .....

    ....

    ....

    I setup the project as Debuggins.

    Maybe I need something additional setup ???

    Many Thanks

  • Chis,

    All are in the same project.

    I put  a full patch becouse in the other way (..\..\Files \name file) dont work.

    I see the .idy files and object files in the :

    New_Configuration.bin

    Tur-Bus-visual.exe

    vtboi69.idy

    ....

    ....

    ....

    vtboi69.obj

    .....

    ....

    ....

    I setup the project as Debuggins.

    Maybe I need something additional setup ???

    Many Thanks

  • Is the project target type set to be a single executable file?
    Right click on project name and select Properties-->Micro Focus-->COBOL

    If it is then you should be calling the program using just the name of the program and no path at all because the .obj files are being linked together into the same .EXE file. What you are calling is the entry point name of the subprogram.

              CALL "ufecsis"

                    USING ufecsis-parametros

              CANCEL "ufecsis"