Build routine clear password

Dear all,

have any one help me to build routine to clear sign on's password. Bec we have many sign on to clear.

Thanks

Hi, Can you clearly explain me wat exactly your Requirment is.. Do u want to delete the password of particular user who sign's in current or you want to delete password of all user.

Wat i understood from your question is u need to delete(clear) the password of all users in your data base. For tat here is the routine.



PROGRAM USER1.RTN
$INSERT I_COMMON
$INSERT I_EQUATE
$INSERT I_F.USER

F.USER = 'F.USER'
F.V = ''
CALL OPF(F.USER,F.V)
SEL = "SELECT ":F.USER
CALL EB.READLIST(SEL,SEL.LIST,'',SEL.CNT,ERR)
LOOP
REMOVE U.ID FROM SEL.LIST SETTING POS
WHILE POS:U.ID
READ R.REC FROM F.V,U.ID THEN
R.REC<33> = ''
WRITE R.REC TO F.V,U.ID
END
REPEAT
RETURN
END

Thanks Sridhar