Copie todo el código en el "EVENT PROCEDURES" OPENED.
y al compilarlo me da el siguiente error.
Código COBOL:
MainForm MainForm-Opened(1) : JMN1019I-W The indicator area must contain '-', '*', '/', 'D', or blank. A blank is assumed to be specified.
MainForm MainForm-Opened(1) : JMN1005I-W Character string 'NVIRONMENT' must start in Area B. The character string is assumed to start in Area B.
MainForm MainForm-Opened(1) : JMN1356I-W The invalid word 'NVIRONMENT' is specified in the IDENTIFICATION DIVISION. The invalid word is ignored, and the compiler skips to the next paragraph or DIVISION.
AR19.FD 1: JMN2005I-S The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph. A sequential file is assumed.
MainForm MainForm-Opened(16) : JMN2005I-S The file-name for the file description entry or the sort-merge file description entry must be defined at the SELECT clause of the FILE-CONTROL paragraph. A sequential file is assumed.
MainForm MainForm-Opened(55) : JMN2503I-S User word 'ST-S' is undefined.
MainForm MainForm-Opened(55) : JMN2557I-S The format of the MOVE statement is incomplete.
MainForm MainForm-Opened(55) : JMN2503I-S User word 'AR19' is undefined.
MainForm MainForm-Opened(55) : JMN2503I-S User word 'ST-S' is undefined.
MainForm MainForm-Opened(55) : JMN2600I-S The operand of the condition is invalid.
MainForm MainForm-Opened(55) : JMN2557I-S The format of the IF statement is incomplete.
MainForm MainForm-Opened(61) : JMN3166I-S Sequential access sequential file 'CLIE' cannot be specified in a START statement.
MainForm MainForm-Opened(63) : JMN2503I-S User word 'ST-OK' is undefined.
MainForm MainForm-Opened(63) : JMN2600I-S The operand of the condition is invalid.
MainForm MainForm-Opened(63) : JMN2557I-S The format of the IF statement is incomplete.
MainForm MainForm-Opened(104) : JMN2510I-S 'END-IF' does not correspond. 'END-IF' is ignored.
MainForm MainForm-Opened(144) : JMN1479I-S The concatenation expression is too long. A literal is created using the first parts of the expression so that it does not exceed the maximum length.
MainForm MainForm-Opened(148) : JMN2503I-S User word 'ST-OK' is undefined.
MainForm MainForm-Opened(148) : JMN2600I-S The operand of the condition is invalid.
MainForm MainForm-Opened(148) : JMN2557I-S The format of the IF statement is incomplete.
MainForm MainForm-Opened(153) : JMN2510I-S 'END-IF' does not correspond. 'END-IF' is ignored.