*-- Procedure FlagSet
*- This procedure sets a character flig in the 
*- FRECORDS DB
do bugfind
PROCEDURE FLAGSET
PARAMETER lnR, lnC, lcFlag
PRIVATE lcTemDBName, lnR, lnC, lcFlag
lcTemDBName = ALIAS()
SELECT FRECORDS
GO RECORD lnR
tempname =  ALLTRIM(LISTR.VIKNAME)
DO CASE
	CASE FRECORDS.&TEMPNAME = 	"  "
	REPLACE FRECORDS.&TEMPNAME WITH lcFlag
	
	CASE FRECORDS.&TEMPNAME = 	"aa"
	IF lcFlag <> "aa"
	REPLACE FRECORDS.&TEMPNAME WITH lcFlag
	ELSE
	IF glDBug
	WAIT " FIELD IS ALL READY FLAGED OK  ie aa" WINDOW
	ENDIF
	ENDIF

	CASE FRECORDS.&TEMPNAME = 	"cc"
	IF lcFlag <> "cc"
	REPLACE FRECORDS.&TEMPNAME WITH lcFlag
	ELSE
	IF glDBug
	WAIT " FIELD IS ALL READY FLAGED ERROR UNACCEPTIABLE ie cc " WINDOW	
	ENDIF
	ENDIF

	
	CASE FRECORDS.&TEMPNAME = 	"ee"
	IF lcFlag <> "ee"
	REPLACE FRECORDS.&TEMPNAME WITH lcFlag
	ELSE
	IF glDBug
	WAIT " FIELD IS ALL READY FLAGED ERROR ACCEPTIABLE ie ee " WINDOW	
	ENDIF
	ENDIF
	OTHERWISE
	IF glDBug
	WAIT " This is an unknowen flag " + FRECORDS.&TEMPNAME WINDOW
	ENDIF
	
ENDCASE



SELECT (lcTemDBName)
RETURN