1 /* BEGIN INCLUDE FILE dm_bj_status.incl.pl1 */ 2 3 /* DESCRIPTION: 4 5 This include is used to pass the status of a before journal or the 6 BJ meters to users. Any program using this include file must also 7 include dm_bj_pst.incl.pl1 and dm_bj_pste.incl.pl1. 8 */ 9 10 /* HISTORY: 11 Written by Mike Pandolf, 04/12/83. 12 Modified: 13 02/22/85 by Lee A. Newcomb: Added a description section and fixed the hisotry 14 section's format. 15 */ 16 17 /* format: style2,ll79,ind3,^indprocbody,ifthendo,ifthen,^indnoniterdo,^inddcls,dclind5,idind35,linecom */ 18 19 dcl bj_status_n_journals fixed bin; 20 dcl bj_status_ptr pointer; 21 22 dcl 1 bj_status aligned based (bj_status_ptr), 23 2 n_journals fixed bin, 24 2 journal aligned 25 dim (bj_status_n_journals 26 refer (bj_status.n_journals)), 27 3 dir char (168), 28 3 entry char (32), 29 3 system_info aligned like bj_pste; 30 31 dcl bj_global_meters_ptr pointer; 32 33 dcl 1 bj_global_meters aligned based (bj_global_meters_ptr), 34 2 time_of_bootload fixed bin (71), 35 2 meters aligned like bj_pst.meters; 36 37 /* END INCLUDE FILE dm_bj_status.incl.pl1 */