1 /*  BEGIN INCLUDE         rmdb_delete_rel_info.incl.pl1          */
 2 
 3 /* Contains name of relation to be deleted
 4    dtabase_pathname
 5    and arugment flags  like -force
 6 */
 7 
 8 /* HISTORY
 9    82-04-30  Created  by Roger Lackey
10 
11    82-06-25  Roger Lackey: Changed force bit to brief
12 */
13 
14 
15 dcl 1 rmdb_delete_rel_info aligned based (rmdb_delete_rel_info_ptr),
16     2 version fixed bin,
17     2 absolute_db_path char (168),                          /* Absolute database pathname */
18     2 db_model_ptr ptr,                                     /* Pointer to db_model */
19     2 relation_name char (32),                              /* Name of relation to be deleted */
20     2 brief bit (1) unal,                                   /* On => Brief option */
21     2 mbz bit (35) unal init ("0"b);                        /* For future use */
22 
23 dcl  rmdb_delete_rel_info_ptr ptr;
24 dcl  RMDB_DELETE_REL_INFO_VERSION_1 fixed bin int static options (constant) init (1);
25 
26 /*  END  INCLUDE         rmdb_delete_rel_info.incl.pl1           */