1 /* BEGIN INCLUDE FILE gtss_filact18_args.incl.pl1 */
 2 /*
 3   Created: (Wardd Multics)  11/08/78 1747.5 mst Wed
 4 */
 5 
 6 dcl 1 Get_Current_args        aligned based(arg_ptr)
 7 ,     3 word1
 8 ,       4 zero                bit(18)unal
 9 ,       4 L_arglist           bit(18)unal
10 ,     3 word2
11 ,       4 Get_Current_function_no       fixed bin(17)unal
12 ,       4 L_buffer            bit(18)unal
13 ;
14 
15 dcl 1 Get_Current_arglist     aligned based(arglist_ptr)
16 ,     3 word1
17 ,       4 L_status_return     bit(18)unal
18 ,       4 L_record            bit(18)unal
19 ,     3 word2
20 ,       4 L_cat_filedescr     bit(18)unal
21 ,       4 device_name         bit(18)unal
22 ;
23 
24 /*   END INCLUDE FILE gtss_filact18_args.incl.pl1 */