ISOPT.PRG

358 B 28abebb53a0171e0… 
***  Given an array of command line options for TDBS, and a string of the
***  option we are looking for, determine if that option was chosen.  If
***  so, return "Y", else return "N"
PARAMETERS opt_val_look, opt_flag

opt_flag = "N"
i = 0
DO WHILE i < numopts
	i = i + 1
	IF opt[i] = opt_val_look
		opt_flag = "Y"
		RETURN
	ENDIF
ENDDO
RETURN