1 /* BEGIN INCLUDE FILE dm_bj_global_error_info.incl.pl1 */ 2 3 /* Originally found in before journal primitives written by */ 4 /* A. Bensoussan. Gathered into an include file for ease of use. */ 5 /* See the bjm_data_.alm source for details of use. */ 6 7 /* HISTORY: 8 Written by Mike Pandolf, 07/14/82. 9 Modified: 10 12/06/83 by L. A. Newcomb: Renamed before_journal_manager_static_ to 11 bjm_data_ and moved some cells from dm_data_ to bjm_data_. 12 */ 13 14 /* format: style4,indattr,ifthenstmt,ifthen,^indcomtxt,idind33 */ 15 dcl bjm_data_$bj_operation char (32) external static; 16 17 dcl bjm_data_$bj_exit_err label variable external; 18 19 dcl bjm_data_$bj_code fixed bin (35) external; 20 21 dcl bjm_data_$bj_default_error_label label external static; 22 23 24 /* END INCLUDE FILE dm_bj_global_error_info.incl.pl1 */