1 /*--------------------BEGIN dsatm_attn_fcn_info.incl.pl1---------------------*/
 2 
 3 
 4 /****^  HISTORY COMMENTS:
 5   1) change(87-07-01,LJAdams), approve(87-07-28,MCR7742),
 6      audit(87-07-23,Gilcrease), install(87-08-04,MR12.1-1056):
 7      Declared ptr orderip within the include file.
 8                                                    END HISTORY COMMENTS */
 9 
10 /*****************************************************************************/
11 /*                                                                           */
12 /*   Define the attention functions.                                         */
13 /*   There are two types of attention:                                       */
14 /*        destructive:     the session is recovered.                         */
15 /*        non-destructive: ATTENTION 1 to 9.                                 */
16 /*                                                                           */
17 /*   A new set of attentions replaced the previous one.                      */
18 /*   The attentions can be cancelled as following:                           */
19 /*   - The destructive attention (all the invocations)                       */
20 /*   - The non destructive attentions (all the invocations)                  */
21 /*   - The attention i, and only the invocations specified in the structure. */
22 /*                                                                           */
23 /*   Invocation:                                                             */
24 /*   - An attention may have up to four invocation types.                    */
25 /*   - BREAK KEY : can be mapped on only one attention at the same time.     */
26 /*   - SEC_DIALOG: the attention cannot be invoked directly, but instead via */
27 /*                 the secondary dialogue.                                   */
28 /*                                                                           */
29 /*   Written by Roger Negaret in June 1984.                                  */
30 /*****************************************************************************/
31 
32 /* format: style3,dclind5,idind32,insnl,delnl */
33 
34 dcl  orderip                         ptr;
35 
36 dcl  1 attention_fcn_info            based (orderip) aligned,
37        2 version                     char (8),
38        2 attention_fcn               like attention_fcn aligned;
39 
40 dcl  attn_fcn_ptr                    ptr;
41 
42 dcl  1 attention_fcn                 based (attn_fcn_ptr) aligned,
43        2 cancelled                   (0:9) bit (1) unal,
44        2 attn                        (0:9),
45          3 invocation,
46            4 break                   bit (1) unal,
47            4 string                  bit (1) unal,
48            4 fcn_key                 bit (1) unal,
49            4 sec_dialog              bit (1) unal,
50          3 string_value              (4) char (2) unal;     /* up to four invocation strings */
51 
52 /* Attention types */
53 
54 dcl  AT_DESTRUCTIVE                  fixed bin int static options (constant) init (1);
55 dcl  AT_NON_DESTRUCTIVE              fixed bin int static options (constant) init (2);
56 
57 /* Some attention codes */
58 
59 dcl  AC_ATTD                         fixed bin int static options (constant) init (0);
60 dcl  AC_ATT1                         fixed bin int static options (constant) init (1);
61 dcl  AC_ATT2                         fixed bin int static options (constant) init (2);
62 
63 /* Attention invocations */
64 
65 dcl  AI_STRING                       fixed bin int static options (constant) init (1);
66 dcl  AI_FCN_KEY                      fixed bin int static options (constant) init (2);
67 dcl  AI_BREAK                        fixed bin int static options (constant) init (3);
68 dcl  AI_SEC_DIALOG                   fixed bin int static options (constant) init (4);
69 
70 
71 dcl  ATTENTION_FCN_INFO_V1           char (8) int static options (constant) init ("ATTFCNV1");
72 
73 /*----------------------END dsatm_attn_fcn_info.incl.pl1---------------------*/
74