1 /* BEGIN INCLUDE FILE mrds_scalfn_info.incl.pl1 -- jaw 5/3/77 */
 2 
 3 dcl 1 scalfn_info aligned based (sfi_ptr),                  /* info for a scalar function */
 4     2 fwd_ptr ptr,                                          /* pointer to next function in list */
 5     2 name char (32),                                       /* primary name of function */
 6     2 info_ent_ptr ptr,                                     /* pointer to info entry for variable function, or null */
 7     2 entry_ptr ptr,                                        /* pointer to entry to be called */
 8     2 rslt_desc bit (36),                                   /* result descriptor for non_var. funct., or "0"b */
 9     2 nargs fixed bin,                                      /* no. of input args for non-var. funct. or 0 */
10     2 arg_desc (nsfi_args_init refer (scalfn_info.nargs)) bit (36); /* descriptors for each input arg */
11 
12 dcl  sfi_ptr ptr;
13 dcl  nsfi_args_init fixed bin;
14 
15 /* END INCLUDE FILE mrds_scalfn_info.incl.pl1 */
16