COBOL INTERNAL SORT ERROR
Home > IT Answers > COBOL INTERNAL SORT ERROR
Xtreme1
145 pts.
0
Q:
COBOL INTERNAL SORT ERROR
COBOL ERROR MESSAGE
Hello, I'm getting the following error on the 'OUTPUT' procedure of the internal sort,

'RETURN statement 2267 out of order'.

 Cause . . . . . : The RETURN statement was not expected by SORT/MERGE. Either a SORT/MERGE was not active or the statement was issued out of sequence. Message issued at statement 2267 of COBOL program 'IAHF910' in program object 'IAHF910' in library 'IAHFOBJ'.

 Recovery . . . : Remove the RETURN statement or place it in proper order.

I verified using STRDBG that the INPUT procedure is running and SORT records are being released.   

SORT SORT-FILE                                      ASCENDING KEY SREC-KEY                          INPUT PROCEDURE  P1000-DECLARE-TXN-SALE         OUTPUT PROCEDURE P2000-READ-SORT.          

The code appears to fine in the 'OUTPUT' procedure, and the return is in the correct place,

P2000-READ-SORT.                                                  RETURN SORT-FILE                                                AT END                                                               PERFORM P2100-UPDATE-SAVE-RECORD THRU P2199-EXIT              GO TO P2199-EXIT.                               

This code apparently ran fine on a Mainframe.  I'm on a project to convert all applications to the i.  Any help or suggestions would be appreciated.

Thank you



Software/Hardware used:
AS/400 iSeries version 6.1
ASKED: Sep 10 2009  8:44 PM GMT
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
RELATED QUESTIONS
0
Meandyou
1840 pts.
0
A:
 RATE THIS ANSWER
0
Click to Vote:
  •   0
  •  0
  • AddThis Social Bookmark Button
It ran fine on the mainframe. Now you are converting it to the "i" but where is the program running? Is it still running on the mainframe? Or has the code been compiled and executed on some other platform and operating system?

You are getting this error during COMPILE; right?

IF you have taken the source code from the mainframe and copied to some other box and are trying to compile in a new environment, you need to ensure that you are following the rules for COBOL in this new environment. Not all COBOLs are the same. Each compiler has its own rules. Just like SQL for DB2 is different than SQL for Oracle. IBM COBOL on the mainframe is different from NetCOBOL for Windows. So check the syntax of this PC version of COBOL internal SORT.
Last Answered: Sep 11 2009  2:04 PM GMT by Meandyou   1840 pts.
  •   
0
0
RSS - Discussions Help
Discuss This Answer:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _



_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _

Xtreme1   145 pts.  |   Sep 11 2009  2:20PM GMT

The program has been imported to the i, and necessary changes have been made for the new environment.
The program has compiled on the i, the error is occuring on execution.
We have several programs with the the same ‘internal sort’ logic that are running fine on the i.
It’s very strange.
IBM doesn’t offer information as far as the error goes.

 

Meandyou   1840 pts.  |   Sep 15 2009  6:23PM GMT

Interesting. I assume that some changes to the source code were required when you moved it to the i. (By the way, what is “the i?”) Is it possible the the RETURN is being executed out of sequence? A stray branch instruction, perhaps, is causing it to be executed before it should be (or executed twice)?

Other than that, I don’t know what to suggest.

 

Xtreme1   145 pts.  |   Sep 15 2009  7:39PM GMT

After further investigation there were changes made to the source. I re-imported the original code and recompiled and there is no longer an issue.
BTW, an i is the same as the iSeries or AS/400.
I appreciate your input.
Thanks.

 

Meandyou   1840 pts.  |   Sep 17 2009  7:47PM GMT

Hey, glad you found it.

 
0