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?
↧