1 /* BEGIN INCLUDE FILE dfm_info.incl.pl1 * * * * * * * * * * * * * * * * */ 2 3 4 /****^ HISTORY COMMENTS: 5 1) change(86-08-21,Fakoury), approve(86-08-21,MCR7515), 6 audit(87-01-07,Farley), install(87-01-08,MR12.0-1263): 7 Originally coded 0782 by Rick Fakoury for MR12. 8 END HISTORY COMMENTS */ 9 10 11 12 13 /* * * * * * * * * * * * * * * * * * * * * * * * * */ 14 /* */ 15 /* This include file is used by deckfile_manager to pass information */ 16 /* about a particular invocation of the command to the utility routines. */ 17 /* */ 18 /* Originally code by R. Fakoury 06/82. */ 19 /* */ 20 /* * * * * * * * * * * * * * * * * * * * * * * * * */ 21 22 23 /* format: style4,ifthenstmt,ifthen,ind3,ll125,lineconind1 */ 24 25 dcl 1 dfm_info aligned based (dfm_infop), 26 2 version char (8), /* version of this structure */ 27 2 dfm_data_ptr ptr, /* ptr to the dfm_data structure for this invocation */ 28 2 info_dir char (168) unal, /* ssu info segs dir */ 29 2 flags, 30 3 request_active bit (1) unal, /* current request active */ 31 3 force_quit bit (1) unal, /* OK to quit or abort without query */ 32 3 pad bit (34) unal, /* spares */ 33 2 page_number fixed bin, /* for listings */ 34 2 deckfile_dir char (168) unal, /* location of the deckfile - if inputted with dfm -dkf arg */ 35 2 deckfile_entry char (32) unal; /* entry name of the deckfile - if inputted with dfm -dkf arg */ 36 37 dcl dfm_infop ptr; 38 39 dcl dfm_info_version_1 char (8) init ("dfmi_001") int static options (constant); 40 41 /* END OF: dfm_info.incl.pl1 * * * * * * * * * * * * * * * * */