1 /*  START OF:       rmdb_delete_object_info.incl.pl1          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(85-12-03,Spitzer), approve(85-12-03,MCR7311),
 6      audit(86-09-15,Gilcrease), install(86-10-16,MR12.0-1187):
 7      Contains the list of domains or attributes to delete. If flags.check is on,
 8      query the user on the switch indicated by check_iocb_ptr.
 9                                                    END HISTORY COMMENTS */
10 
11 dcl delete_object_info_count fixed bin (17);
12 dcl delete_object_info_ptr ptr;
13 dcl delete_object_info_version_1 char (8) int static options (constant) init ("doi 1.0");
14 
15 dcl 1 delete_object_info based (delete_object_info_ptr),
16      2 version char (8),
17      2 check_iocb_ptr ptr,                                  /* switch to use for check output */
18      2 query_iocb_ptr ptr,                                  /* switch to use for query input */
19      2 flags aligned,
20       3 all bit (1) unaligned,
21       3 unreferenced bit (1) unaligned,                     /* delete only unreferenced object */
22       3 check bit (1) unaligned,                            /* display actions to take when deleting, don't actually delete */
23       3 long bit (2) unaligned,                             /* if flags.check, do delete operations */
24       3 force bit (1) unaligned,                            /* don't query user */
25       3 inhibit_errors bit (1) unaligned,                   /* don't display errors if an object isn't found */
26       3 pad bit (29) unaligned,
27      2 request_name char (32),                              /* name to use in queries and error messages */
28      2 count fixed bin (17),
29      2 name (delete_object_info_count refer (delete_object_info.count))
30             char (32);
31 
32 /*  END OF:         rmdb_delete_object_info.incl.pl1          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  */