***********************************************************************;
*  FULL_NAME: DENOMINATOR RECORD        STD_ALIAS: DNMNTR_REC          ;
*  GENERATED ON 06/09/1999 AT 13.23.34  DICTIONARY: DEVL    STATUS: DSS;
*  MEMBER NAME: DNMNTR_REC#3                                           ;
***********************************************************************;
*  CAUTION: LENGTH VALUES FOR NUMERIC VARS SET FOR MAINFRAME           ;
*  MAY RESULT IN LOSS OF SIGNIFICANT DIGITS IF CODE PORTED TO PC       ;
***********************************************************************;
*  Revised by Wei-Chung Yang yangx071@umn.edu for PC/UNIX SAS 10/1/1999;
***********************************************************************;
dm log 'clear; out; clear; pgm';
libname user 'e:\zzz';

PROC DATASETS LIB=USER NOFS NOLIST;
DELETE DE90 ROW;
RUN;

%MACRO DIVS(SOURCE=);

DATA ROW;
INFILE &Source MISSOVER LRECL=90 RECFM=F;
INPUT

@12  OBIC                        $EBCDIC2.
@14  STATE_CD                    $EBCDIC2.
@16  CNTY_CD                     $EBCDIC3.
@19  BENE_ZIP                    S370FF9.
@28  BENE_DOB                    S370FF8.
@36  SEX                         $EBCDIC1.
@37  RACE                        $EBCDIC1.
@38  AGE                         S370FF2.
@40  OREC                        $EBCDIC1.
@41  CREC                        $EBCDIC1.
@42  ESRD_IND                    $EBCDIC1.
@43  MS_CD                       $EBCDIC2.
@45  A_TRM_CD                    $EBCDIC1.
@46  B_TRM_CD                    $EBCDIC1.
@48  BUYIN12                     $EBCDIC12.
@60  HMOIND12                    $EBCDIC12.
@72  A_MO_CNT                    S370FF2.
@74  B_MO_CNT                    S370FF2.
@76  HMO_MO                      S370FF2.
@78  BUYIN_MO                    S370FF2.
@80  V_DOD_SW                    $EBCDIC1.
@81  DEATH_DT                    S370FF8.
@89  RFRNC_YR                    S370FF2.
;
RUN;

PROC APPEND BASE=DE90 DATA=ROW;
RUN;

/*=== Macro Start === */
%MEND;
%DIVS(SOURCE='C:\zzz\dc4549.TXT');
/*=== Macro End ===*/

DATA DE90;
SET DE90;
ATTRIB

OBIC       LABEL = 'ORIGINAL BIC'
STATE_CD   LABEL = 'STATE CODE'
CNTY_CD    LABEL = 'COUNTY CODE'
BENE_ZIP   LABEL = 'ZIP CODE OF RESIDENCE'                 LENGTH=5
BENE_DOB   LABEL = 'DATE OF BIRTH'                         LENGTH=8
SEX        LABEL = 'SEX'
RACE       LABEL = 'BENEFICIARY RACE CODE'
AGE        LABEL = 'AGE'                                   LENGTH=3
OREC       LABEL = 'ORIGINAL REASON FOR ENTITLEMENT CODE'
CREC       LABEL = 'CURRENT REASON FOR ENTITLEMENT CODE'
ESRD_IND   LABEL = 'ESRD INDICATOR'
MS_CD      LABEL = 'MEDICARE STATUS CODE'
A_TRM_CD   LABEL = 'PART A TERMINATION CODE'
B_TRM_CD   LABEL = 'PART B TERMINATION CODE'
A_MO_CNT   LABEL = 'HI COVERAGE COUNT'                     LENGTH=3
B_MO_CNT   LABEL = 'SMI COVERAGE COUNT'                    LENGTH=3
HMO_MO     LABEL = 'HMO COVERAGE COUNT'                    LENGTH=3
BUYIN_MO   LABEL = 'STATE BUY-IN COVERAGE COUNT'           LENGTH=3
V_DOD_SW   LABEL = 'VALID DATE OF DEATH SWITCH'
DEATH_DT   LABEL = 'DATE OF DEATH'                         LENGTH=8
RFRNC_YR   LABEL = 'BENEFICIARY ENROLLMENT REFERENCE YEAR' LENGTH=3
;
RUN;