numeric PR_HR (F4.0).
compute PR_HR= (TRUN(geoadpmf/1000)*100) + (geoadpmf - (TRUN( geoadpmf/100)*100)).
string PR_HRUID (A4).
compute PR_HRUID= STRING (PR_HR,F4.0).
execute.


File Handle cchs / name="C:\Data\CCHS\accoleds\WestCCHS.dat" / LRECL=841.
Data List file=cchs / GEOAGPRV 7-8 GEOADPMF 9-13 DHHA_SEX 18 
    DPSADPP 780-783 (2) WTSAM 834-841 (2).
Missing Values DPSADPP (9.96, 9.99).
Execute.