1 what_is_the_word: proc;
 2 
 3 /* ****************************************************************** */
 4 /*                                                                    */
 5 /* what_is_the_word displays the system "login" word.  It may also be */
 6 /* used as an active function.                                        */
 7 /*                                                                    */
 8 /* written:  Jan. 22, 1982  Peter B. Kelley                           */
 9 /* modified: Jul. 23, 1982  Peter B. Kelley                           */
10 /*        -  upgrade for new include files                            */
11 /*                                                                    */
12 /* ****************************************************************** */
13 
14 
15 dcl
16      active_function bit(1),
17      date           char(8),
18      i              fixed bin,
19      Lreturn        fixed bin,
20      Narguments     fixed bin,
21      Preturn        ptr,
22      clock          fixed bin(71),
23      code           fixed bin(35),
24      atep           ptr,
25      return_string  char (Lreturn) varying aligned based (Preturn);
26 
27 dcl
28 
29     (active_fnc_err_, com_err_) entry options (variable),
30      clock_                   entry returns (fixed bin(71)),
31      cu_$af_return_arg        entry (fixed bin, ptr, fixed bin, fixed bin(35)),
32      date_time_               entry (fixed bin(71), char (*) ),
33      hcs_$initiate  entry ( char(*), char(*), char(*), fixed bin(1),
34          fixed bin(2), ptr, fixed bin(35)),
35      hcs_$terminate_seg entry ( ptr, fixed bin(1), fixed bin(35)),
36      ioa_                     entry options (variable),
37      null builtin;
38 
39 dcl
40      error_table_$not_act_fnc external fixed bin(35);
41 
42 
43           call cu_$af_return_arg ( Narguments, Preturn, Lreturn, code);
44           if code = 0
45                then active_function = "1"b;
46           else if code = error_table_$not_act_fnc
47                then active_function = "0"b;
48           else do;
49                call active_fnc_err_ ( code );
50                return;
51           end;
52 
53           ansp = null;
54           call hcs_$initiate ( ">sc1", "answer_table", "", 0, 0, ansp, code);
55           if ansp = null then do;
56                call com_err_ ( code, "what_is_the_word",
57                     "Referencing >sc1>answer_table" );
58                return;
59           end;
60 
61           if active_function
62                then return_string = anstbl.login_word;
63                else call ioa_ ("^a", anstbl.login_word);
64 
65           call hcs_$terminate_seg ( ansp, 0, code );
66           return;
67 
68 %page;
69 %include user_table_header;
70 %page;
71 %include answer_table;
72 %page;
73 %include user_attributes;
74 %page;
75 %include user_table_entry;
76 
77 end;