what is RETURN-CODE special register in COBOL?

When a COBOL program returns to its caller, the contents of the RETURN-CODE special register are stored into register 15.


When control is returned to a COBOL program or method from a call, the contents of register 15 are stored into the RETURN-CODE special register of the calling program or method. When control is returned from a COBOL program to the operating system, the special register contents are returned as a user return code.

You might need to think about this handling of the RETURN-CODE special register when control is returned to a COBOL program from a non-COBOL program. If the non-COBOL program does not use register 15 to pass back the return code, the RETURN-CODE special register of the COBOL program might be updated with an invalid value. Unless you set this special register to a meaningful value before your Enterprise COBOL program returns to the operating system, a return code that is invalid will be passed to the system

cob_ques

Read More

How we can reverse a string in COBOL without cobol function reverse?

Please read the below given code.



If you don't want to calculate the string lenth before the string reversal then you have to mention the the lenth of the string manually
like
MOVE 15 to WS-LEN
PERFORM REV-PARA WS-LEN TIMES.

Read More