Skip to main content

Internal Sort VC2012

  • February 20, 2014
  • 3 replies
  • 0 views
D

I have a solution in Visual Cobol 2012 naïve code that has an internal sort with input and output procedures. I do a perform thru in both procedures. When I debug the code when I go to the input procedure exit, instead of going back to the sort, the code falls thru and does not return.  Ideas?

    3 replies

    D

    I have a solution in Visual Cobol 2012 naïve code that has an internal sort with input and output procedures. I do a perform thru in both procedures. When I debug the code when I go to the input procedure exit, instead of going back to the sort, the code falls thru and does not return.  Ideas?

    It's difficult to say without seeing the code, but it sounds to me as though the input (or output) procedure may itself be doing a PERFORM of procedures within its own scope.  The default Micro Focus behavior with PERFORMs and with input/output procedures is stack based, so that reaching the end point of a perform only has an effect if it is the end point of the most recently executing perform.  This is different from mainframe behavior, which can be emulated using the PERFORMTYPE(COB370) directive, or alternatively DIALECT(COBOL370) to specify more general mainframe compatibility.

    D

    I have a solution in Visual Cobol 2012 naïve code that has an internal sort with input and output procedures. I do a perform thru in both procedures. When I debug the code when I go to the input procedure exit, instead of going back to the sort, the code falls thru and does not return.  Ideas?

    Thanks, that resolved the issue.

    D

    I have a solution in Visual Cobol 2012 naïve code that has an internal sort with input and output procedures. I do a perform thru in both procedures. When I debug the code when I go to the input procedure exit, instead of going back to the sort, the code falls thru and does not return.  Ideas?

    Thanks, that resolved the issue.

    Recent badge winners

    Explore all badges
    Terms & ConditionsAccessibility statement