When COBOL DML is used, the statement code can be obtained from special register DATABASE-STATUS.
In the case of CALL DML the statement code is stored in the first two positions of the result item in the user-information parameter.
Statement code | Statements of | |
COBOL DML | CALL DML | |
01 | CONNECT | CONNEC |
02 | DISCONNECT | DISCON |
03 | ERASE | ERASEC |
04 | FIND/FETCH | FIND1/FTCH1 |
05 | FINISH | FINISC |
06 | FREE | FREEC |
07 | GET | GETC |
08 | IF | IFC |
09 | KEEP | KEEPC |
10 | MODIFY | MODIF1 |
12 | READY | READYC |
14 | STORE | STORE1 |
15 | ACCEPT | ACCPTC |
25 | - | LOOKC |
00 | For all exception conditions entered by the connection module | |
Table 7: Statement codes and associated functions
The UDS online utility (see the “Recovery, Information and Reorganization” manual) uses statement code 13 for its specific DMLs.