/*  C05S3D02.sas */

/*  Create the view  */
data ia.USARoutes / view = ia.USARoutes (source = encrypt
                                                                  alter = tiger);
		infile extdata;
		input	@8 RouteStart $3. @;
		if RouteStart = symget("start") then do;
			input	@1 RouteID$7.
				      @11 RouteDestination $3.
				      @14 RouteDistance 5.
				      @19 RouteFareFirstClass 4.
			      	@23 RouteFareBusiness 4.
				      @27 RouteFareEconomy 4.
				      @31 RouteFareCargo 5.;
      output;
    end;
run;

/* Print the view, subsetting for RouteStart = 'RDU'  */

filename extdata 'usaroutes.dat';
%let start = RDU;

proc print data = ia.USARoutes;
	  title "This is the Current Route File for &start";
run;