Lock and unlock users

ReportZusr_lock.
TablesUsr02.
Data: Z_usr02LikeUsr02Occurs 0 With Header Line.
Data: ZcountType I,
DeST (72).

* -- Select-Options -----------------------------------------------------
Selection- Screen Begin Of Block 1 With Frame Title Text - 100 .
Select -Options: s_bname For USR02-BNAMENo Intervals.
* S_class for USR02-CLASS no intervals.
Parameter : Ztest As Checkbox Default 'X' .
Selection- Screen End Of Block 1 .

Selection- Screen Begin Of Block 2 With Frame Title Text - 110 .
Parameters : Zuflag_l Radiobutton Group Radi,
Zuflag_u Radiobutton Group Radi.
Selection- Screen End Of Block 2 .
* -- Select-Options -----------------------------------------------------
At Selection- Screen .
If SY-SUBRC Ne 0 .
Message I001 (CJ) With Text - 001 .
Exit .
Endif .
If S_bname Is Initial .
* And s_class is initial.
Message E001 (CJ) With Text - 003 .
Endif .

Start-Of-Selection.

If Zuflag_l EQ 'X' .
Select *From Usr02 Into Table Z_usr02 Where Bname In S_bname
* And class in s_class
And Uflag EQ '' .
Endif .

If Zuflag_u EQ 'X' .
Select * From Usr02 Into Table Z_usr02 Where Bname In S_bname
* And class in s_class
And UflagEQ '64' .
Endif .
If SY-SUBRC 0 .
Message I001 (CJ) With Text - 002 .
Exit .
Else .
If Ztest EQ '' .
Loop At Z_usr02.
Select Single * From Usr02 Where Bname EQ Z_USR02-BNAME.
If Zuflag_l EQ 'X' .
USR02-UFLAG = '64' .
Endif .
If Zuflag_u EQ 'X' .
USR02-UFLAG = '0' .
Endif .
Modify Usr02.
If SY-SUBRC EQ 0 .
Zcount = zcount + 1 .
* Z_usr02-zbvmaster = 'x '.
Modify Z_usr02.
Endif .
Endloop .
Endif .
Endif .
End - Of -Selection.

* Write result
If Not ZcountIs Initial .
If Zuflag_l EQ 'X' .
Write Text - 200 To DeST ( 40 ).
Write Zcount To DeST +41 ( 3 ).
Endif .
If Zuflag_u EQ 'X' .
Write : Text - 300 To DeST ( 40 ).
Write Zcount To DeST + 41 ( 3 ).
Endif .
Else .
Write : Text - 400 .
Endif .

Loop AtZ_usr02.
WriteZ_USR02-BNAME:/3.
Endloop.

Top-Of-Page.
Write:/1 destColor 3.