OPTIONS PS=60 LS=64 NODATE NONUMBER;

*** Dow Jones stock market data ***;

DATA dow;
   INPUT date DATE7. volume high low close;
   LABEL volume='Volume in Thousands of Shares'
         close ='Closing Dow Jones Index';
   FORMAT date DATE7.;
   CARDS;
03AUG81 3219.3 955.48 940.45 946.25
04AUG81 2938.5 951.39 937.40 945.97
05AUG81 4177.8 958.81 942.16 953.58
06AUG81 3975.7 961.47 947.30 952.91
07AUG81 3884.3 954.15 938.45 942.54
10AUG81 2937.7 948.82 935.88 943.68
11AUG81 5262.9 955.48 939.50 949.30
12AUG81 4005.2 955.86 942.26 945.21
13AUG81 3680.8 952.91 938.55 944.35
14AUG81 3714.1 947.77 933.79 936.93
17AUG81 3432.7 939.40 924.37 926.75
18AUG81 4396.7 932.74 916.38 924.37
19AUG81 3517.3 932.08 918.38 926.46
20AUG81 3811.9 935.31 923.52 928.37
21AUG81 2625.9 930.65 917.14 920.57
24AUG81 4736.1 917.43 896.97 900.11
25AUG81 4714.4 904.30 887.46 901.83
26AUG81 3279.6 908.39 893.65 899.26
27AUG81 3676.1 900.49 883.66 889.08
28AUG81 3024.2 898.78 884.80 892.22
;
**************************************************;
*** Making multiple data sets in the data step ***;
**************************************************;
DATA _800 (KEEP=date high low)
     _900 (KEEP=date volume close);
     SET dow;
     IF (800 LE low <  900) THEN OUTPUT _800;
     IF (900 LE low < 1000) THEN OUTPUT _900;

PROC PRINT DATA = _800;
TITLE 'If the low Index value is between 800-900';

PROC PRINT DATA = _900;
TITLE 'If the low Index value is between 900-1000';

***********************************************;
*** Using the KEEP statement in a data step ***;
***********************************************;
DATA kp; SET dow;
KEEP date volume;

PROC PRINT DATA=kp;
TITLE 'Using the KEEP statement';

***********************************************;
*** Using the DROP statement in a data step ***;
***********************************************;
DATA drp; SET dow;
DROP date volume;

PROC PRINT DATA=drp;
TITLE 'Using the DROP statment';

RUN;