~Comment

  This is an example of using a disc-based recode table, where part of the
  information is supplied before you get to the question.  For instance,
  you have a large list of cities and states, but the state code information
  can be retrieved from the phone file.  You can build a single disc-based
  recode question with branches for each state and then feed the state
  code to the question, so that only the cities in the appropriate state
  would be available.

  Be sure that if you do send data to the DBR that it is valid data,
  invalid data or blanks will cause the DBR to blow with the following
  error message:

  (BUG #3964) Some file function called bad file or filenumber = 0 (code = 1)

>PURGESAME

~PREPARE COMPILE -SPECS

[DBRPartialData]

{STATE:

Enter in a state code

This question replaces the !Phone,G,1121,2 which would load the state code
from the phone file

!FLD
AR Arizona
CA California
IL Illinois
NY New York
OH Ohio
WA Washington
XX Unknown State (This will blow DBR) }

{ STATEX: [STATE]
!FLD,A
[SAMEAS STATE] }

{!Comment
   In a real job you would want to have a skip over the DBR if the data
   in the original question was not valid.}
{!Comment STATEX: [STATE]
!FLD,A
AR Arizona
CA California
IL Illinois
NY New York
OH Ohio
WA Washington
(Skipto Debug1) ?? Unmatched }

{DBRX:  .4

What \:STATEX: city do you live in?

!FLD,,,CITY,\|STATEX|
}

{ Debug1:
Debugging question to make sure data is stored properly: \|DBRX|

!DISPLAY }

{OTHER: .30
!IF [DBRX+2.2#91]

Enter other city name

!VAR }

~PREP DBR

OUTPUT=CITY
     AR
0101    01 Mesa
0102    02 Phoenix
0103    03 Scotsdale
0104    04 Tuscon
0191    91 Other
0199    99 Refused
     CA
0201    01 Berkeley
0202    02 Fresno
0203    03 Los Angeles
0204    04 Oakland
        SS Cities that begin with "S"
0205        01 Santa Barbara
0206        02 Sacramento
0207        03 San Diego
0208        04 San Francisco
0209        05 San Jose
0210        06 Santa Rosa
0291        91 Other "S"
0211    05 Tahoe City
0212    06 Vallejo
0213    07 Walnut Creek
0214    08 Yuba City
0291    91 Other
0299    99 Refused
     IL
0301    01 Chicago
0302    02 Springfield
0391    91 Other
0399    99 Refused
     NY
0401    01 Albany
0402    02 Buffalo
0403    03 New York
0404    04 Rochester
0491    91 Other
0499    99 Refused
     OH
0501    01 Akron
0502    02 Canton
0503    03 Cincinnati
0504    04 Cleveland
0505    05 Columbus
0506    06 Dayton
0507    07 Toledo
0591    91 Other
0599    99 Refused
     WA
0601    01 Seattle
0602    02 Spokane
0603    03 Tacoma
0691    91 Other
0699    99 Refused
END

~END