Recode variable entires

#1
Hi all again, I have the following dataset.

Code:
DATA DEMOG;
    INPUT WEIGHT HEIGHT GENDER $;
DATALINES;
155 68 M
 98 60 F
202 72 M
280 75 M
130 65 F
;
I am looking at recoding the entires for HEIGHT and WEIGHT such that

WEIGHT
0-100 = 1
101-150 = 2
151-200 = 3
>200 = 4

HEIGHT
0-70 = 1
>70 = 2

Much like a find and replace function in excel.