Sample COBOL Table Procedure › Sample Table Procedure Definition

Sample Table Procedure Definition

The following example shows a table procedure definition.

create table procedure emp.org
   (top_key          unsigned numeric(4),
   level             smallint,
   mgr_id            unsigned numeric(4),
   mgr_lname         char(25)
   emp_id            unsigned numeric (4),
   emp_lname         char(25)
   start_date        DATE,
   structure_code    char(2))
   external name procorgu
   local work area 800
   global work area 600 key emp
   estimated ios 50
   estimated rows 50;
create primary key org1
   on emp.org (mgr_id, start_date, emp_id)
   estimated rows 1
   estimated ios 5;
create key org2
   on emp.org (mgr_id)
   estimated rows 5
   estimated ios 5;
create key org3
   on emp.org (emp_id)
   estimated rows 5
   estimated ios 5;