[求助]我的程序哪裡出問題了~我不是很懂sas~求救-经管之家官网！

我用這個程序去跑資料~但是一直跑不完~跑到我硬碟沒空間就停了(空間75GB)~也沒跑成功~可以請高手大大看看是哪出問題了~麻煩了@@

************************;

%MACRO CD;

************************;

PROC SORT DATA=P1 ; BY FID; RUN;

PROC SORT DATA=DATA; BY FID; RUN;

PROC TRANSPOSE DATA=DATA PREFIX=I OUT=DATA;

ID ITM;

BY FID;

RUN;

DATA SOURCE;

MERGE DATA P1;

BY FID;

ARRAY NUM{*} _NUMERIC_;

DO X=1 TO DIM(NUM);

IF NUM{X}=. THEN NUM{X}=0;

END;

RETAIN DSP;

DSP=I400-I600;

PROC DATASETS;

DELETE DATA P1;

RUN;

%MEND CD;

*************************;

%MACRO DSPH(YEAR);

*************************;

PROC SORT DATA=SOURCE;

BY DSP;

RUN;

PROC SUMMARY DATA=SOURCE;

VAR DSP;

WEIGHT WT;

OUTPUT OUT=OUT SUM=SUMDSP SUMWGT=SUMWT;

DATA DSP_H&YEAR;

MERGE SOURCE OUT;

RETAIN CM_QTY SSUMWT CT_POT DSP_HOU;

IF _N_=1 THEN DO;

DSP_HOU=1;

CM_QTY=WT;

CT_POT=ROUND(SUMWT/&CLS);

SSUMWT=SUMWT;

END;

ELSE DO;

CM_QTY=CM_QTY+WT;

END;

IF CM_QTY<CT_POT*DSP_HOU THEN DO;

OUTPUT;

END;

IF CM_QTY=CT_POT*DSP_HOU THEN DO;

OUTPUT;

DSP_HOU=DSP_HOU+1;

IF DSP_HOU>&CLS THEN DO;

DSP_HOU=&CLS;

END;

END;

IF CM_QTY>CT_POT*DSP_HOU THEN DO;

IF _N_=1 THEN DO;

WT=CT_POT;

END;

ELSE DO;

WT=WT+(CT_POT*DSP_HOU)-CM_QTY;

END;

IF WT>0 THEN OUTPUT;

WT=CM_QTY-(CT_POT*DSP_HOU);

DSP_HOU=DSP_HOU+1;

IF DSP_HOU>&CLS THEN DO;

DSP_HOU=&CLS;

END;

DO WHILE(WT>=CT_POT);

TEMPWT=WT;

WT=CT_POT;

OUTPUT;

WT=TEMPWT-WT;

DSP_HOU=DSP_HOU+1;

IF DSP_HOU>&CLS THEN DO;

DSP_HOU=&CLS;

END;

END;

IF WT>0 THEN DO;

OUTPUT;

END;

END;

PROC DATASETS;

DELETE OUT SOURCE;

RUN;

%MEND DSPH;

*********************;

%MACRO FINAL(YEAR);

*********************;

PROC TABULATE DATA=DSP_H&YEAR FORMCHAR=' '

FORMAT=COMMA10.0 MISSING;

VAR DSP;

WEIGHT WT;

CLASS DSP_HOU;

TABLE DSP_HOU*DSP*MEAN;

%MEND FINAL;

****************************;

%MACRO INP_D(YEAR,H);

****************************;

TITLE " YEAR &YEAR ";

DATA P1 (KEEP=FID WT)

DATA (KEEP=FID ITM AMT)

;

INFILE 'e:\Sample90.txt'; (資料檔共有三個 sample90.txt lay90o.txt hdata90)

INPUT @1 AREA 2.

@79 CARD 2.

@;

IF '31'<=AREA<='42' THEN AREA='22'; /*台北市*/

IF '47'<=AREA<='57' THEN AREA='23'; /*高雄市*/

IF AREA=&H THEN DO;

IF CARD=01 THEN DO;

INPUT @1 FID $8.

@65 WT 14.8

@;

OUTPUT P1;

END;

IF 23<=CARD<=99 THEN DO;

INPUT @1 FID $8. @;

DO I= 1 TO 5;

INPUT ITM $3.

AMT ZD11. @;

IF ITM IN ( &SSS ) THEN OUTPUT DATA;

END;

END;

END;

TITLE &H;

%MEND INP_D;

*************************;

** MAIN PROGRAM **;

*************************;

dm 'log;clear;pgm;recall;';

OPTIONS NOCENTER NODATE LS=200 noxwait noxsync;;

%LET CLS=10;

%LET SSS=%STR(400 600);

%INP_D(90,’02’); RUN;

%CD ; RUN;

%DSPH(90); RUN;

%FINAL(90); RUN;

//

[em06]