When a webform calls a COBOL program with a hexadecimal value in it, the website is able to compile but when it runs it throws a runtime exception on the CALL statement. Example webform codebehind:
class-id _Default is partial
inherits type System.Web.UI.Page.
working-storage section.
method-id Page_Load is protected.
local-storage section.
procedure division using by value param-sender as object
param-e as type System.EventArgs.
CALL "PROGRAM1".
goback.
end method.
end class.
And example called program:
IDENTIFICATION DIVISION.
PROGRAM-ID. PROGRAM1.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 TEST-VAR PIC X VALUE X"FF".
PROCEDURE DIVISION.
DISPLAY "HELLO WORLD".
STOP RUN.
If this is a COBOL program calling another COBOL program with a hexadecimal value in it, not within a website, the call works. Also, if X”FF” is replaced by the equivalent HIGH-VALUES it also works.
What’s wrong X”FF”? How can this be fixed?