1 /* BEGIN INCLUDE FILE ... arg_list.incl.pl1
 2 
 3    James R. Davis 10 May 79 */
 4 
 5 
 6 
 7 /****^  HISTORY COMMENTS:
 8   1) change(86-05-15,DGHowe), approve(86-05-15,MCR7375),
 9      audit(86-07-15,Schroth):
10      added command_name_arglist declaration to allow the storage of the
11      command name given to the command processor
12                                                    END HISTORY COMMENTS */
13 
14      dcl     1 arg_list             aligned based,
15                2 header,
16                  3 arg_count        fixed bin (17) unsigned unal,
17                  3 pad1             bit (1) unal,
18                  3 call_type        fixed bin (18) unsigned unal,
19                  3 desc_count       fixed bin (17) unsigned unal,
20                  3 pad2             bit (19) unal,
21                2 arg_ptrs           (arg_list_arg_count refer (arg_list.arg_count)) ptr,
22                2 desc_ptrs          (arg_list_arg_count refer (arg_list.arg_count)) ptr;
23 
24 
25      dcl     1 command_name_arglist           aligned based,
26                2 header,
27                  3 arg_count        fixed bin (17) unsigned unal,
28                  3 pad1             bit (1) unal,
29                  3 call_type        fixed bin (18) unsigned unal,
30                  3 desc_count       fixed bin (17) unsigned unal,
31                  3 mbz              bit(1) unal,
32                  3 has_command_name bit(1) unal,
33                  3 pad2             bit (17) unal,
34                2 arg_ptrs           (arg_list_arg_count refer (command_name_arglist.arg_count)) ptr,
35                2 desc_ptrs          (arg_list_arg_count refer (command_name_arglist.arg_count)) ptr,
36                2 name,
37                  3 command_name_ptr         pointer,
38                  3 command_name_length      fixed bin (21);
39 
40 
41 
42      dcl     1 arg_list_with_envptr aligned based,          /* used with non-quick int and entry-var calls */
43                2 header,
44                  3 arg_count        fixed bin (17) unsigned unal,
45                  3 pad1             bit (1) unal,
46                  3 call_type        fixed bin (18) unsigned unal,
47                  3 desc_count       fixed bin (17) unsigned unal,
48                  3 pad2             bit (19) unal,
49                2 arg_ptrs           (arg_list_arg_count refer (arg_list_with_envptr.arg_count)) ptr,
50                2 envptr             ptr,
51                2 desc_ptrs          (arg_list_arg_count refer (arg_list_with_envptr.arg_count)) ptr;
52 
53 
54      dcl     (
55              Quick_call_type        init (0),
56              Interseg_call_type     init (4),
57              Envptr_supplied_call_type
58                                     init (8)
59              )                      fixed bin (18) unsigned unal int static options (constant);
60 
61 /* The user must declare arg_list_arg_count - if an adjustable automatic structure
62    is being "liked" then arg_list_arg_count may be a parameter, in order to allocate
63    an argument list of the proper size in the user's stack
64 
65 */
66 /* END INCLUDE FILE ... arg_list.incl.pl1 */