1 /*  START OF:       ec_data.incl.pl1                          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */
 2 
 3 declare   ec_data_ptr                   ptr;
 4 
 5 declare   1 ec_data                     aligned based (ec_data_ptr),
 6             2 version_id                char (4),           /* " ec "                                                   */
 7             2 version                   fixed bin,          /* 1                                                        */
 8             2 active_function           bit (1),            /* This affects &is_af and &return                          */
 9             2 return_len                fixed bin (21),     /* maximum length and pointer to varying character string   */
10             2 return_ptr                ptr,                /* for active function return value                         */
11             2 execute_line              entry (ptr, fixed bin (21), fixed bin (35)),
12             2 eval_string               entry (ptr, char (*), fixed bin, char (*) var, fixed bin (35)),
13             2 set_ready_mode            entry (1 aligned, 2 bit (1) unal, 2 bit (35) unal),
14             2 error                     entry () options (variable),
15             2 switch_ptr                ptr,                /* switch affected by &attach                               */
16             2 id_string                 char (19),          /* name string for &attach save switch should contain this  */
17             2 input_line                bit (1),            /* this makes the command_line/input_line distinction       */
18             2 call_ready_proc           bit (1),            /* this implements the &ready_proc keyword                  */
19             2 who_am_i                  char (72) varying;  /* for error messages. It's 72 chars for subsystem requests */
20 
21 declare   ec_data_version_id            char (4) aligned static options (constant) initial (" ec "),
22           ec_data_version_1             fixed bin static options (constant) initial (1);
23 
24 /*  END OF:         ec_data.incl.pl1                          *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *  *   */