Here is the Original Coding Used for the Panel80 Dataset

*libname tape1980 v5seq 'tap1' density=6250 label=sl 3;
libname bigone 't';
libname version6 'a';
DATA SETUP80;SET bigone.SUR1980;
ARRAY A1 V5 V2001 V3001 V4001;
ARRAY B1 NEWV5 NEWV2001 NEWV3001 NEWV4001;
DO OVER A1;
IF A1=1 THEN B1=5;
IF A1=3 THEN B1=3;
IF A1=5 THEN B1=1;
IF A1=. THEN B1=1;
END;
ARRAY A2 V6 V2002 V3008;
ARRAY B2 NEWV6 NEWV2002 NEWV3008;
DO OVER A2;
IF A2=1 THEN B2=5;
IF A2=5 THEN B2=1;
IF A2=. THEN B2=1;
END;
ARRAY A3 V7 V2003 V3009;
ARRAY B3 NEWV7 NEWV2003 NEWV3009;
DO OVER A3;
IF A3=1 THEN B3=5;
IF A3=3 THEN B3=1;
IF A3=. THEN B3=1;
END;
INTER1=NEWV5+NEWV6+NEWV7;
INTER2=NEWV2001+NEWV2002+NEWV2003;
INTER3=NEWV3001+NEWV3008+NEWV3009;
INTER4=NEWV4001;
ARRAY A4 V12 V2008 V3155;
ARRAY B4 NEWV12 NEWV2008 NEWV3155;
DO OVER A4;
IF A4=1 THEN B4=5;
IF A4=2 THEN B4=4;
IF A4=3 THEN B4=3;
IF A4=4 THEN B4=2;
IF A4=5 THEN B4=1;
IF A4=. THEN B4=1;
END;
ARRAY A5 V13 V2009 V3156;
ARRAY B5 NEWV13 NEWV2009 NEWV3156;
DO OVER A5;
IF A5=1 THEN B5=1;
IF A5=3 THEN B5=3;
IF A5=5 THEN B5=5;
IF A5=. THEN B5=1;
END;
ARRAY A6 V14 V2010;
ARRAY B6 NEWV14 NEWV2010;
DO OVER A6;
IF A6=1 THEN B6=5;
IF A6=5 THEN B6=1;
IF A6=. THEN B6=1;
END;
ARRAY A7 V15 V2011;
ARRAY B7 NEWV15 NEWV2011;
DO OVER A7;
IF A7=1 THEN B7=1;
IF A7=3 THEN B7=3;
IF A7=5 THEN B7=5;
IF A7=. THEN B7=1;
END;
ARRAY A8 V16 V2012;
ARRAY B8 NEWV16 NEWV2012;
DO OVER A8;
IF A8=1 THEN B8=5;
IF A8=5 THEN B8=1;
IF A8=. THEN B8=1;
END;
ARRAY A9 V17 V2013;
ARRAY B9 NEWV17 NEWV2013;
DO OVER A9;
IF A9=1 THEN B9=1;
IF A9=3 THEN B9=3;
IF A9=5 THEN B9=5;
IF A9=. THEN B9=1;
END;
ARRAY A10 V18 V2014;
ARRAY B10 NEWV18 NEWV2014;
DO OVER A10;
IF A10=1 THEN B10=5;
IF A10=5 THEN B10=1;
IF A10=. THEN B10=1;
END;
ARRAY A11 V19 V2015;
ARRAY B11 NEWV19 NEWV2015;
DO OVER A11;
IF A11=1 THEN B11=1;
IF A11=3 THEN B11=3;
IF A11=5 THEN B11=5;
IF A11=. THEN B11=1;
END;
INFO1=NEWV12+NEWV13+NEWV14+NEWV15+NEWV16+NEWV17
+NEWV18+NEWV19;
INFO2=NEWV2008+NEWV2009+NEWV2010+NEWV2011+NEWV2012
+NEWV2013+NEWV2014+NEWV2015;
ARRAY A12 V39-V55;
ARRAY B12 NEWV39-NEWV55;
DO OVER A12;
B12=A12;
IF A12 GT 101 THEN B12=.;
END;
ARRAY A13 V2038-V2055;
ARRAY B13 NEWV2038-NEWV2055;
DO OVER A13;
B13=A13;
IF A13 GT 101 THEN B13=.;
END;
ARRAY A14 V3095-V3103 V3106-V3112;
ARRAY B14 NEWV3095-NEWV3103 NEWV3106-NEWV3112;
DO OVER A14;
B14=A14;
IF A14 GT 101 THEN B14=.;
END;
DEMCAND1=(NEWV39+NEWV41+NEWV44+NEWV46+NEWV50)/5;
DEMCAND2=(NEWV2038+NEWV2040+NEWV2043+NEWV2045+NEWV2050)/5;
DEMCAND3=(NEWV3095+NEWV3097+NEWV3100+NEWV3102+NEWV3106)/5;
REPCAND1=(NEWV40+NEWV42+NEWV43+NEWV45+NEWV47+NEWV48+NEWV49)/7;
REPCAND2=(NEWV2039+NEWV2041+NEWV2042+NEWV2044+NEWV2046
+NEWV2047+NEWV2048)/7;
REPCAND3=(NEWV3096+NEWV3098+NEWV3099+NEWV3101+NEWV3103)/5;
DEMPART1=NEWV52;
DEMPART2=NEWV2052;
DEMPART3=NEWV3109;
REPPART1=NEWV53;
REPPART2=NEWV2053;
REPPART3=NEWV3110;
PARTIES1=NEWV55;
PARTIES2=NEWV2055;
PARTIES3=NEWV3112;
INDFEEL1=NEWV54;
INDFEEL2=NEWV2054;
INDFEEL3=NEWV3111;
CARFEEL1=NEWV39;
CARFEEL2=NEWV2038;
CARFEEL3=NEWV3095;
REAFEEL1=NEWV40;
REAFEEL2=NEWV2039;
REAFEEL3=NEWV3096;
KENFEEL1=NEWV41;
KENFEEL2=NEWV2040;
KENFEEL3=NEWV3097;
ARRAY A15 V121 V2125 V3213 V122 V2126 V3214 V123 V2127 V3215;
ARRAY B15 NEWV121 NEWV2125 NEWV3213 NEWV122 NEWV2126 NEWV3214
NEWV123 NEWV2127 NEWV3215;
DO OVER A15;
B15=A15;
IF A15=0 OR A15 GT 8 THEN B15=.;
END;
ARRAY A16 V130 V2134 V3224 V131 V2135 V3225;
ARRAY B16 NEWV130 NEWV2134 NEWV3224 NEWV131 NEWV2135 NEWV3225;
DO OVER A16;
B16=A16;
IF A16=0 OR A16 GT 8 THEN B16=.;
END;
ARRAY A17 V191 V2212 V3212 V4022;
ARRAY B17 NEWV191 NEWV2212 NEWV3212 NEWV4022;
DO OVER A17;
B17=A17+1;
IF A17 GT 6 THEN B17=.;
END;
PARTYID1=NEWV191;PARTYID2=NEWV2212;PARTYID3=NEWV3212;
PARTYID4=NEWV4022;PARTYID=PARTYID1;
ARRAY A18 V251 V2272 V3081;
ARRAY B18 NEWV251 NEWV2272 NEWV3081;
DO OVER A18;
IF A18=1 THEN B18=5;
IF A18=2 THEN B18=4;
IF A18=3 THEN B18=3;
IF A18=4 THEN B18=2;
IF A18=5 THEN B18=1;
IF A18 GT 5 THEN B18=.;
END;
ARRAY A19 V252 V2273 V3340 V4038;
ARRAY B19 NEWV252 NEWV2273 NEWV3340 NEWV4038;
DO OVER A19;
IF A19=1 THEN B19=2;
IF A19=5 THEN B19=1;
IF A19=. THEN B19=1;
END;
ARRAY A20 V259 V2280 V4039;
ARRAY B20 NEWV259 NEWV2280 NEWV4039;
DO OVER A20;
IF A20=1 THEN B20=2;
IF A20=5 THEN B20=1;
IF A20=. THEN B20=1;
END;
COMMUN1=NEWV252+NEWV259;
COMMUN2=NEWV2273+NEWV2280;
COMMUN4=NEWV4038+NEWV4039;
COMMALL=NEWV252+NEWV259+NEWV2273+NEWV2280+NEWV3340+NEWV4038
+NEWV4039;
EDUC=V327;
IF EDUC GT 18 THEN EDUC=.;
INC=V543;
IF INC=0 OR INC GT 23 THEN INC=.;
REL=V545;
IF REL GT 900 THEN REL=.;
IF V546=1 THEN RELFREQ=5;
IF V546=2 THEN RELFREQ=4;
IF V546=3 THEN RELFREQ=3;
IF V546=4 THEN RELFREQ=2;
IF V546=5 THEN RELFREQ=1;
IF V546=0 OR V546 GT 5 THEN RELFREQ=.;
STATUS=INC+EDUC;
STATE=V595;
PRESTOCO=V5176+V5088+V5020;
PRESTOST=V5154+V5060+V5004;
CONGTOCO=V5188+V5116+V5092+V5048+V5024;
PDEMCONT=(V5172+V5085+V5017)/PRESTOCO;
PREPCONT=(V5173+V5086+V5018)/PRESTOCO;
PDEMSTAT=(V5150+V5057+V5001)/PRESTOST;
PREPSTAT=(V5151+V5058+V5002)/PRESTOST;
CDEMCONT=(V5185+V5113+V5089+5045+V5021)/CONGTOCO;
CREPCONT=(V5186+V5114+V5090+5046+V5022)/CONGTOCO;
IF (V3543=1 AND V3547=1 AND V3551=1) THEN RFRIENDS=1;ELSE RFRIENDS=0;
IF (V3543=5 AND V3547=5 AND V3551=5) THEN DFRIENDS=1;ELSE DFRIENDS=0;
IF (DFRIENDS NE 1 AND RFRIENDS NE 1) THEN MFRIENDS=1;ELSE MFRIENDS=0;
ARRAY ZZ77 V3543 V3547 V3551;
DO OVER ZZ77;
IF ZZ77 GT 5 THEN ZZ77=.;
IF ZZ77=0 THEN ZZ77=.;
END;
AGE=V325;IF AGE=0 THEN AGE=.;
SEX=V557;IF SEX=9 THEN SEX=.;
RACE=V558;IF RACE=9 THEN RACE=.;IF RACE GE 3 THEN RACE=3;
REGION=V612;
if v4075=1 then didvote=1;
if v4075=5 then didvote=2;
if v4075 ge 6 then didvote=.;
if v4079=1 then vote=1;
if v4079=2 then vote=2;
if v4079=5 then vote=3;
if v4079=6 then vote=4;
if v4079 ge 7 then vote=.;
if v4076=1 then partreg=1;
if v4076=2 then partreg=2;
if v4076=3 then partreg=3;
if v4076 ge 4 then partreg=.;
VOTEVALI=V4125;
IF VOTEVALI GE 2 THEN VOTEVALI=.;
LABEL VOTEVALI=VOTER VALIDATION 1 VALIDATED 2 NO;
label partreg=PARTY REGISTRATION 1 DEM 2 IND 3 REP;
label vote=VOTE 1 REAGAN 2 CARTER 3 CLARK 4 ANDERSON;
label didvote=R VOTED 1 IS YES AND 2 IS NO;
LABEL REGION=THE SOLID SOUTH IS 4;
LABEL SEX=1 IS MALE AND 2 IS FEMALE;
LABEL RACE=1 IS WHITE, 2 IS BLACK, 3 IS OTHER;
LABEL PARTYID=1 STRONG DEMOCRAT, 7 STRONG REPUBLICAN;
LABEL DEMCAND1=FEELING THERM. FOR ALL DEM. CANDS,P1;
LABEL DEMCAND2=FEELING THERM. FOR ALL DEM CANDS, P2;
LABEL DEMCAND3=FEELING THERM. FOR ALL DEM CANDS, P3;
LABEL REPCAND1=FEELING THERM FOR ALL REP CANDS, P1;
LABEL REPCAND2=FEELING THERM FOR ALL REP CANDS, P2;
LABEL REPCAND3=FEELING THERM FOR ALL REP CANDS, P3;
LABEL DEMPART1=FEELING THERM FOR DEM PARTY, P1;
LABEL DEMPART2=FEELING THERM FOR DEM PARTY, P2;
LABEL DEMPART3=FEELING THERM FOR DEM PARTY, P3;
LABEL REPPART1=FEELING THERM FOR REP PARTY, P1;
LABEL REPPART2=FEELING THERM FOR REP PARTY, P2;
LABEL REPPART3=FEELING THERM FOR REP PARTY, P3;
LABEL PARTIES1=FEELING THERM FOR BOTH PARTIES,P1;
LABEL PARTIES2=FEELING THERM FOR BOTH PARTIES,P2;
LABEL PARTIES3=FEELING THERM FOR BOTH PARTIES,P3;
LABEL INDFEEL1=FEELING THERM FOR INDEPENDENTS,P1;
LABEL INDFEEL2=FEELING THERM FOR INDEPENDENTS,P2;
LABEL INDFEEL3=FEELING THERM FOR INDEPENDENTS,P3;
LABEL CARFEEL1=FEELING THERM FOR CARTER, P1;
LABEL CARFEEL2=FEELING THERM FOR CARTER, P2;
LABEL CARFEEL3=FEELING THERM FOR CARTER, P3;
LABEL REAFEEL1=FEELING THERM FOR REAGAN, P1;
LABEL REAFEEL2=FEELING THERM FOR REAGAN, P2;
LABEL REAFEEL3=FEELING THERM FOR REAGAN, P3;
LABEL KENFEEL1=FEELING THERM FOR KENNEDY, P1;
LABEL KENFEEL2=FEELING THERM FOR KENNEDY, P2;
LABEL KENFEEL3=FEELING THERM FOR KENNEDY, P3;
LABEL NEWV130=LIB/CON SCALE FOR REPS, P1;
LABEL NEWV2134=LIB/CON SCALE FOR REPS, P2;
LABEL NEWV3224=LIB/CON SCALE FOR REPS, P3;
LABEL NEWV131=LIB/CON SCALE FOR DEMS, P1;
LABEL NEWV2135=LIB/CON SCALE FOR DEMS, P2;
LABEL NEWV3225=LIB/CON SCALE FOR DEMS, P3;
LABEL NEWV122=LIB/CON SCALE FOR CARTER, P1;
LABEL NEWV2126=LIB/CON SCALE FOR CARTER, P2;
LABEL NEWV3214=LIB/CON SCALE FOR CARTER, P3;
LABEL NEWV123=LIB/CON SCALE FOR REAGAN, P1;
LABEL NEWV2127=LIB/CON SCALE FOR REAGAN, P2;
LABEL NEWV3215=LIB/CON SCALE FOR REAGAN, P3;
LABEL PARTYID1=PARTY ID, P1;
LABEL PARTYID2=PARTY ID, P2;
LABEL PARTYID3=PARTY ID, P3;
LABEL PARTYID4=PARTY ID, P4;
LABEL COMMUN1=R CUMMUNICATED ABOUT CAMPAIGN,P1;
LABEL COMMUN2=R COMMUNICATED ABOUT CAMPAIGN,P2;
LABEL COMMUN4=R COMMUNICATED ABOUT CAMPAIGN,P4;
LABEL COMMALL=R COMMUNICATED ABOUT CAMPAIGN,ALL;
LABEL PRESTOCO=TOTAL PRESIDENTIAL VOTE, COUNTY;
LABEL PRESTOST=TOTAL PRES. VOTE, STATE;
LABEL CONGTOCO=TOTAL CONGRESSIONAL VOTE,COUNTY;
LABEL PDEMCONT=PROP. PRES DEM VOTE, COUNTY;
LABEL PREPCONT=PROP. PRES REP VOTE, COUNTY;
LABEL PDEMSTAT=PROP. PRES DEM VOTE, STATE;
LABEL PREPSTAT=PROP. PRES REP VOTE, STATE;
LABEL CDEMCONT=PROP. CONG. DEM VOTE, COUNTY;
LABEL CREPCONT=PROP. CONG. REP VOTE, COUNTY;
LABEL INTER1=INTEREST IN POLITICS FOR R,P1;
LABEL INTER2=INTEREST IN POLITICS FOR R,P2;
LABEL INTER3=INTEREST IN POLITICS FOR R,P3;
LABEL INTER4=INTEREST IN POLITICS FOR R,P4;
LABEL INFO1=INFORMATION LEVEL FROM NEWS FOR R,P1;
LABEL INFO2=INFORMATION LEVEL FROM NEWS FOR R,P2;
LABEL NEWV121=LIB/CON SCALE FOR R, P1;
LABEL NEWV2125=LIB/CON SCALE FOR R, P2;
LABEL NEWV3213=LIB/CON SCALE FOR R, P3;
LABEL NEWV251=EXPECTATION TO VOTE FOR R,P1;
LABEL NEWV2272=EXPECTATION TO VOTE FOR R,P2;
LABEL NEWV3081=EXPECTATION TO VOTE FOR R,P3;
LABEL EDUC=EDUCATION OF R;
LABEL INC=INCOME OF R;
LABEL REL=RELIGION OF R;
LABEL RELFREQ=FREQ OF CHURCH ATTENDENCE FOR R;
LABEL STATUS=STATUS (INC+ED) OF R;
LABEL STATE=STATE OF RESIDENCE FOR R;
LABEL DFRIENDS=ALL 3 NEIGHBORS INTEND VOTE CARTER;
LABEL RFRIENDS=ALL 3 NEIGHBORS INTEND VOTE REAGAN;
LABEL MFRIENDS=3 NEIGHBORS SPLIT IN VOTE INTENTION;
KEEP INTER1-INTER4 INFO1 INFO2 DEMCAND1-DEMCAND3
REPCAND1-REPCAND3 DEMPART1-DEMPART3 REPPART1-REPPART3
PARTIES1-PARTIES3 INDFEEL1-INDFEEL3 CARFEEL1-CARFEEL3
REAFEEL1-REAFEEL3 KENFEEL1-KENFEEL3 NEWV130 NEWV2134
NEWV3224 NEWV131 NEWV2135 NEWV3225 NEWV121 NEWV2125
NEWV3213 NEWV122 NEWV2126 NEWV3214 NEWV123 NEWV2127
NEWV3215 PARTYID1-PARTYID4 NEWV251 NEWV2272 NEWV3081
COMMUN1 COMMUN2 COMMUN4 COMMALL EDUC INC REL
RELFREQ STATUS STATE PRESTOCO PRESTOST CONGTOCO
PDEMCONT PREPCONT PDEMSTAT PREPSTAT CDEMCONT
CREPCONT AGE RACE PARTYID SEX REGION DFRIENDS RFRIENDS
MFRIENDS V3543 V3547 V3551 DIDVOTE VOTE PARTREG VOTEVALI;
DATA VERSION6.PANEL80;SET;
PROC CONTENTS;
PROC MEANS;
PROC FREQ;TABLES DFRIENDS RFRIENDS MFRIENDS;