Highlighted
Absent Member.
Absent Member.
6439 views

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

Jump to solution

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
1 Solution

Accepted Solutions
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

Is a quite different from MFE , but run.

TKS,

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

View solution in original post

0 Likes
14 Replies
Highlighted
Micro Focus Expert
Micro Focus Expert

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

Jump to solution

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.

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

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  *

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

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

Jump to solution

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.

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

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

Jump to solution

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"

 

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

$SET DIALECT(RM)

      IDENTIFICATION DIVISION.

      PROGRAM-ID.  "vtboi69".

     *

     * Programa Contingencia

     *

      ENVIRONMENT DIVISION.

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

      CONFIGURATION SECTION.

      SPECIAL-NAMES.

          DECIMAL-POINT IS COMMA.

     *

      DATA DIVISION.

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

     *

      WORKING-STORAGE SECTION.

      01   va-pausa                    pic X(01).

     *

      01   va-fecha-act.

           05 va-siglo-act             PIC  99               VALUE 19.

           05 va-fec-act               PIC  9(06).

      01   va-fecha-actr  REDEFINES va-fecha-act  PIC  9(08).

     *

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

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

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

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

     *

      LINKAGE SECTION .

     *

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

     *

      PROCEDURE DIVISION.

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

      Principal.

     *---------

          CALL "ufecsis"

                USING ufecsis-parametros

          CANCEL "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 "vtbor01"

               USING vtbor01-parametros.

          CANCEL "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 "vtbor35"

                  USING vtbor35-parametros

             CANCEL "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 "vtbor130"

               USING vtbor130-parametros

          CANCEL "vtbor130".

     *

      Terminar.

     *--------

          EXIT PROGRAM.

          STOP RUN.

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

     * Fin Programa vtboi69  *

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

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

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

Jump to solution

You do not say what the issue is that you are having with the code modified like your screenshot.

Your project type is All native Libraries which means that a .dll will be created for each source program in your project.

Is this what you want?

If you are calling one of these .dlls from a main program in an .exe project then you will need to set the PATH to indicate the location of these .dll files in the build folder of the .dll project.

You can set this under Run-->Debug Configurations and then click the Environment tab.

Modify the PATH to include your projects output folder:

When you debug the main program it should now find the subprogram .dll and debug it accordingly.

You may have a problem if the subprogram is not also compiled with the directive DIALECT"RM" as this changes the default call-convention used.

You may wish to remove that directive and try again...

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

Chris,

You do not say what the issue is that you are having with the code modified like your screenshot.

Answer : The result is the same.

Your project type is All native Libraries which means that a .dll will be created for each source program in your project.

Is this what you want?

Answer : NO.

The ONLY thing that I want is :

1.-Have only ONE project named Tur-Bus Visual

2.-Execute the Principal program : vtboi69

3.- When the principal program call another like this :

CALL "vtbor130"

               USING vtbor130-parametros

CANCEL "vtbor130".

That I can see the animating of this program. Like I see when executing them in MFE with animating.

4.- That  is  all.

Any help in regards will be welcome.

Many thanks

PJM

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
Highlighted
Micro Focus Expert
Micro Focus Expert

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

Jump to solution

If you would like this to run as it did in MFE then you will most likely want to generate .int or .gnt files.

Create a single project and set its type to all .int/gnt files as shown below:
The default is to create .int files.
If you wish to generate .gnt files instead then click the checkbox next to the "Compile to .gnt" option.

This will cause either an .int or .gnt file to be generated for each program source file in the project so add all of your programs to this project.

To configure the starting program to use when debugging under Debugging Configurations browse to the program that you wish to be the main program.

Now when you start debugging it will run the main program and you should be able to step directly into your sub programs when they are called.

 

0 Likes
Highlighted
Absent Member.
Absent Member.

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

Jump to solution

  Chris,

So sorry but is not work...I Generated all .int files I put the patch to the principal program and nothing.

Here you are the  screns with the propiertes ...In adition I retired all references to $SET DIALECT(RM) from all programs.

Pedro Juan Montero Bernales

PJM Informatica Soluciones Globales

Santiago - Chile

0 Likes
The opinions expressed above are the personal opinions of the authors, not of Micro Focus. By using this site, you accept the Terms of Use and Rules of Participation. Certain versions of content ("Material") accessible here may contain branding from Hewlett-Packard Company (now HP Inc.) and Hewlett Packard Enterprise Company. As of September 1, 2017, the Material is now offered by Micro Focus, a separately owned and operated company. Any reference to the HP and Hewlett Packard Enterprise/HPE marks is historical in nature, and the HP and Hewlett Packard Enterprise/HPE marks are the property of their respective owners.