d /*  this program creates a function called indexc */
È 
,/*  the indexc function searches the first argument */
/*  from left to right for the first occurrence of  */
ô/*  any character in any string you specify.  the   */
X/*  index of the character is returned--its position */
¼/*  in the argument.  if no character in any specified */
 /*  string is found, a value of zero is returned  */
„/*  augthor:      mark gill
è    date  :      3/8/82     */
L
°
      indexc:
x
Ü            proc (var_parameter,string_parameter)
@                  returns (fixed bin (31));
¤
            dcl (var_parameter,
l                 string_parameter)    char  (*) varying;
Ð
4            dcl (length,substr)  builtin;
˜
ü            dcl ( i,
`	                  j,
Ä	                  var_length,
(
                  string_length,
Œ
                  zero_value)  fixed  bin  (31)  init (0);
ð

T            var_length  =  length(var_parameter);
¸            string_length = length (string_parameter);

€            do i = 1 to var_length;
ä                   do j = 1 to string_length;
H
¬                    if substr(var_parameter,i,1) =
                       substr(string_parameter,j,1)
t                    then
Ø                       return (i);
<                   end;
                 end;
                  return (zero_value);
h     end indexc;
Ì   end control;