When a UAP is written, the labeling rules, SQL coding rules, and SQL syntax rules must be followed.
Labels must be assigned according to COBOL rules. These rules apply to labels:
Embedded variables, indicator variables, and branching destination labels must be named in accordance with the COBOL labeling rules. The following types of labels, which have the external attribute, cannot be used:
EXEC SQL SQL-statement; END-EXEC.
FINISH.
EXEC SQL SQL-statement END-EXEC.
FINISH.
EXEC SQL SQL-statement END-EXEC.
EXEC SQL
SQL-statement
END-EXEC.
IF U-FLUX = '2'
THEN
EXEC SQL SQL-statement END-EXEC.
IF U-FLUX = '1'
THEN
EXEC SQL SQL-statement
END-EXEC
ELSE IF U-FLUX = '2'
THEN NEXT SENTENCE.
EXEC SQL
*Declaration of cursor for SELECT statement (1)
*that retrieves STOCK table (1)
SQL-statement
END-EXEC.
Table 7-3 Divisions in COBOL for describing SQL statements
SQL statement | Data division* | Procedure division | |
---|---|---|---|
Definition SQL | ![]() | D | |
Data manipulation SQL | ![]() | D | |
Control SQL | ![]() | D | |
Embedded language | BEGIN DECLARE SECTION | D | ![]() |
END DECLARE SECTION | D | ![]() | |
COPY | D | D | |
WHENEVER | ![]() | D | |
DECLARE CONNECTION HANDLE UNSET | ![]() | ![]() | |
COMMAND EXECUTE | ![]() | ![]() | |
Other statement | ![]() | D |