1 /****^ ********************************************************* 2 * * 3 * Copyright, (C) BULL HN Information Systems Inc., 1989 * 4 * * 5 ********************************************************* */ 6 7 /* BEGIN INCLUDE FILE ... builtin_table.incl.pl1 */ 8 9 10 /****^ HISTORY COMMENTS: 11 1) change(89-07-10,RWaters), approve(89-07-10,MCR8118), audit(89-07-19,Vu), 12 install(89-07-31,MR12.3-1066): 13 Updated the number of builtin functions from 115 to 127. 14 END HISTORY COMMENTS */ 15 16 /* Modified: 13 Feb 1988 by RW increased "description" from 115 to 127 */ 17 18 /* format: style2,^indattr,ifthendo,ifthen,^indnoniterdo,^elsestmt,dclind9 */ 19 dcl 1 pl1_data$builtin_name ext static, 20 2 number_of_names fixed bin (15), 21 2 description (127), 22 3 name char (14), 23 3 aggregate_result bit (1), 24 3 nonstandard bit (1), 25 3 unused bit (7), 26 3 opcode bit (9), 27 3 reserve_list_number fixed bin (15), 28 3 jump_index fixed bin (15), 29 3 check_indicator fixed bin (15), 30 3 number1 fixed bin (15), 31 3 number2 fixed bin (15), 32 3 number_of_descriptions fixed bin (15), 33 3 descriptor (4), 34 4 check_code fixed bin (15), 35 4 type bit (36) aligned; 36 37 /* check_indicator resulting action: 38 39 1 number1 is required number of arguments 40 2 number1 is minimum number of arguments 41 3 number1 is minimum number of arguments, 42 number2 is maximum number of arguments. 43 44 check_code resulting action: 45 46 1 argument must be of this type 47 2 argument should be converted to this type 48 3 argument should be converted to float binary 49 4 argument should be converted to arithmetic type 50 5 argument should be converted to integer type 51 6 argument should be real decimal fixed constant 52 7 argument should be converted to string type 53 8 argument must either be a bit string or real fixed binary 54 9 argument must be variable 55 10 argument must be arithmetic or string 56 */ 57 58 /* END INCLUDE FILE ... builtin_table.incl.pl1 */