/*NOTE: This is PC-based SAS code used in producing Tables for the 1998 Summary Prevalence Report */ LIBNAME LIBRARY "Q:\BRFSS\1998\PROGRAMS\FORMATS"; libname SUMPRV98 'q:\brfss\sasdata\'; libname SUMPRV97 'q:\brfss\sasdata\'; libname SUMPRV96 'q:\brfss\sasdata\'; filename SASCODE "q:\brfss\wcm5\sasworks"; libname STATWM 'c:\sasmaps\'; ************* TEST PROGRAM FOR FOR 98 SUMPREV ********************; OPTIONS SOURCE2 NODATE ; %LET VAR1=fewcal; DATA RISKFT (KEEP=_STSTR _PSU _RECORD _FINALWT _RFWHBMI MAINTAIN _STATE SEX AGE RISK &VAR1 _RFWHBMI PHYACT); SET SUMPRV98.DBRFS98; %MACRO RISKCODE; ***CREATE RISK FACTOR FOR EATING FEWER CALORIES AND/OR LESS FAT; RISK=7; if _rfwhbmi =2; if fewcal in(1,2,3) and phyact in(1) then RISK=2; else if fewcal in(1,2,3) and phyact in(2) OR fewcal in(4) and phyact in(1,2) then RISK=1; %MEND RISKCODE; %LET RISKDATA=TEST98; %LET DEFRISK='ARE NOT EATING FEWER CALORIES AND/OR LESS FAT AND EXERCISING TO LOSE WEIGHT'; %LET PAGENO=' '; %LET TITLAB1='LOSEWT: NOT EATING FEWER CALORIES AND EXERCISING'; %LET TITLAB2='DENOMINATOR EXCLUDES MISSING, DON''T KNOW, AND REFUSED'; %LET OBJ2000=' '; %INCLUDE SASCODE("SUDTST98"); %LET REPORTA = TABLE 98.1; %SESUTOT; %LET REPORTB = TABLE 98.2; %LET PAGENO=' '; %SEXGRP; %LET REPORTC = TABLE 98.3; %LET PAGENO=' '; %YEARDIF; RUN; 国产精品久久久久久一级毛片