/*                                                                             
               SAS DATA DEFINITION STATEMENTS FOR ICPSR 7711                   
                   COST OF LIVING OF INDUSTRIAL WORKERS                        
                IN THE UNITED STATES AND EUROPE, 1888-1890                     
                    DATASET 0001:  ANALYTIC VARIABLES                          
                           AUGUST 1986 VERSION                                 
                                                                               
   The following SAS setup sections may appear in this file for the LRECL      
   version of this data collection.  These sections are listed below:          
                                                                               
   PROC FORMAT, in these statements, creates user-defined labels as            
   formats for variable values.   Formats replace original values with the     
   user-defined labels in subsequent SAS procedures once the formats           
   are assigned to a variable by the FORMAT command in the DATA step.          
   Not all variables necessarily have user-defined formats.                    
                                                                               
   DATA begins a SAS data step and names an output SAS dataset.                
                                                                               
   INFILE identifies the input file to be read with the input statement.       
   Users must replace the "file-specification" with host computer-specific     
   input file specifications.                                                  
                                                                               
   INPUT contains the SAS statements which assign the variable names and       
   specify the beginning and ending column locations in the LRECL data         
   file for each variable.                                                     
                                                                               
   LABEL assigns variable labels for all variables in the data file.           
   Variable labels and variable names may be identical for some data           
   files.                                                                      
                                                                               
   FORMAT in the SAS data step assigns the formats generated by the            
   PROC FORMAT procedure with the variable values in the SAS system file.      
   When SAS subsequently creates output, it utilizes the labels                
   found in the FORMAT rather than the raw data values.  NOTE: If a format     
   is assigned to a variable with a FORMAT statement, the values for           
   the variable are categorized by their labels *before* compilation and       
   printing by subsequent SAS procedures, i.e., values with identical          
   formats are treated as one group even though their values are               
   different.  Accordingly, users need to look at variable values before       
   jobs are run to assure that inadvertent grouping of results does not        
   occur.                                                                      
                                                                               
   MISSING VALUE RECODE sets user-defined numeric missing values to            
   missing as interpreted by the SAS system.  Only variables with              
   user-defined missing values are included in these statements.               
                                                                               
   Users may combine and modify these sections or parts of these sections      
   to suit their specific needs.  Users will also need to change the           
   file-specification in the INFILE statement to an appropriate filename       
   for their system.  Please note that the PROC FORMAT, FORMAT and             
   MISSING VALUE RECODE sections have been commented out (i.e., '/*').         
   To include the PROC FORMAT, FORMAT and MISSING VALUE RECODE sections        
   in the final SAS setup, remove the comment indicators from those            
   sections.                                                                   
                                                                               
**************************************************************************** */
                                                                               
* SAS PROC FORMAT;                                                             
                                                                               
                                                                             
PROC FORMAT;                                                                   
   VALUE V1FT (MAX=40)                                                         
   1 = "PIG IRON"                                                              
   2 = "BAR IRON"                                                              
   3 = "STEEL"                                                                 
   4 = "BITUMINOUS COAL"                                                       
   5 = "COKE"                                                                  
   6 = "IRON ORE"                                                              
   7 = "COTTON TEXTILE INDUSTRY"                                               
   8 = "WOOL TEXTILE INDUSTRY"                                                 
   9 = "GLASS";                                                                
   VALUE V2FT (MAX=40)                                                         
   0001 = "FAMILY HAVING BUDGET NUMBER ONE"                                    
   5284 = "FAMILY HAVING BUDGET NUMBER FIVE THOUSAND TWO";                     
   VALUE V3FT (MAX=40)                                                         
   01 = "CONNECTICUT"                                                          
   02 = "MAINE"                                                                
   03 = "MASSACHUSETTS"                                                        
   04 = "NEW HAMPSHIRE"                                                        
   05 = "RHODE ISLAND"                                                         
   11 = "DELAWARE"                                                             
   12 = "NEW JERSEY"                                                           
   13 = "NEW YORK"                                                             
   14 = "PENNSYLVANIA"                                                         
   21 = "ILLINOIS"                                                             
   22 = "INDIANA"                                                              
   24 = "OHIO"                                                                 
   34 = "MISSOURI"                                                             
   40 = "VIRGINIA"                                                             
   41 = "ALABAMA"                                                              
   44 = "GEORGIA"                                                              
   45 = "LOUISIANA"                                                            
   46 = "MISSISSIPPI"                                                          
   47 = "NORTH CAROLINA"                                                       
   48 = "SOUTH CAROLINA"                                                       
   51 = "KENTUCKY"                                                             
   52 = "MARYLAND"                                                             
   54 = "TENNESSEE"                                                            
   56 = "WEST VIRGINIA"                                                        
   91 = "FRANCE"                                                               
   92 = "GERMANY"                                                              
   93 = "GREAT BRITAIN"                                                        
   94 = "SWITZERLAND"                                                          
   95 = "BELGIUM"                                                              
   99 = "NA";                                                                  
   VALUE V4FT (MAX=40)                                                         
   002 = "UNITED STATES"                                                       
   019 = "FRENCH CANADA*"                                                      
   020 = "CANADA"                                                              
   200 = "ENGLAND"                                                             
   205 = "IRELAND"                                                             
   206 = "SCOTLAND*"                                                           
   207 = "WALES*"                                                              
   220 = "FRANCE"                                                              
   221 = "BELGIUM"                                                             
   225 = "SWITZERLAND"                                                         
   230 = "SPAIN"                                                               
   235 = "PORTUGAL"                                                            
   255 = "GERMANY"                                                             
   290 = "POLAND"                                                              
   305 = "AUSTRIA"                                                             
   310 = "HUNGARY"                                                             
   314 = "BOHEMIA*"                                                            
   325 = "ITALY"                                                               
   365 = "RUSSIA"                                                              
   380 = "SWEDEN"                                                              
   385 = "NORWAY"                                                              
   390 = "DENMARK";                                                            
   VALUE V6FT (MAX=40)                                                         
   1 = "HOME"                                                                  
   2 = "WORK"                                                                  
   0 = "NA"                                                                    
   9 = "INAP";                                                                 
   VALUE V7FT (MAX=40)                                                         
   00 = "NO CHILDREN WORKING"                                                  
   01 = "ONE CHILD WORKING"                                                    
   07 = "SEVEN CHILDREN WORKING"                                               
   99 = "INAP";                                                                
   VALUE V8FT (MAX=40)                                                         
   00 = "NO CHILDREN IN SCHOOL"                                                
   01 = "ONE CHILD IN SCHOOL"                                                  
   07 = "SEVEN CHILDREN IN SCHOOL"                                             
   99 = "INAP";                                                                
   VALUE V9FT (MAX=40)                                                         
   00 = "NO CHILDREN AT HOME"                                                  
   01 = "ONE CHILD AT HOME"                                                    
   08 = "EIGHT CHILDREN AT HOME"                                               
   99 = "INAP";                                                                
   VALUE V10FT (MAX=40)                                                        
   00 = "NO CHILDREN UNKNOWN"                                                  
   01 = "ONE CHILD UNKNOWN"                                                    
   05 = "FIVE CHILDREN UNKNOWN"                                                
   99 = "INAP";                                                                
   VALUE V11FT (MAX=40)                                                        
   00 = "NO BOARDERS REPORTED"                                                 
   01 = "ONE BOARDER"                                                          
   15 = "FIFTEEN BOARDERS";                                                    
   VALUE V12FT (MAX=40)                                                        
   01 = "ONE PERSON IN HOUSEHOLD"                                              
   22 = "TWENTY-TWO PEOPLE IN THE HOUSEHOLD";                                  
   VALUE V13FT (MAX=40)                                                        
   18 = "EIGHTEEN YEARS OF AGE"                                                
   84 = "EIGHTY-FOUR YEARS OF AGE"                                             
   00 = "NA";                                                                  
   VALUE V14FT (MAX=40)                                                        
   16 = "SIXTEEN YEARS OF AGE"                                                 
   88 = "EIGHTY-EIGHT YEARS OF AGE"                                            
   99 = "INAP"                                                                 
   00 = "NA";                                                                  
   VALUE V15FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   57 = "FIFTY-SEVEN YEARS OLD"                                                
   00 = "INAP";                                                                
   VALUE V16FT (MAX=40)                                                        
   1 = "FEMALE"                                                                
   2 = "MALE"                                                                  
   0 = "INAP";                                                                 
   VALUE V17FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   55 = "FIFTY-FIVE YEARS OLD"                                                 
   00 = "INAP";                                                                
   VALUE V19FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   53 = "FIFTY-THREE YEARS OLD"                                                
   00 = "INAP";                                                                
   VALUE V21FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   50 = "FIFTY YEARS OLD"                                                      
   00 = "INAP";                                                                
   VALUE V23FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   28 = "TWENTY-EIGHT YEARS OLD"                                               
   00 = "INAP";                                                                
   VALUE V25FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   22 = "TWENTY-TWO YEARS OLD"                                                 
   00 = "INAP";                                                                
   VALUE V27FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   19 = "NINETEEN YEARS OLD"                                                   
   00 = "INAP";                                                                
   VALUE V29FT (MAX=40)                                                        
   01 = "ONE YEAR OLD"                                                         
   14 = "FOURTEEN YEARS OLD"                                                   
   00 = "INAP";                                                                
   VALUE V31FT (MAX=40)                                                        
   01 = "ONE CHILD UNKNOWN"                                                    
   07 = "SEVEN CHILDREN UNKNOWN";                                              
   VALUE V32FT (MAX=40)                                                        
   1 = "OWNS HOME"                                                             
   2 = "DOES NOT OWN HOME"                                                     
   9 = "NA"                                                                    
   0 = "INAP";                                                                 
   VALUE V33FT (MAX=40)                                                        
   000100 = "INCOME OF ONE DOLLAR"                                             
   450000 = "INCOME OF FOUR THOUSAND FIVE HUNDRED"                             
   000000 = "NO INCOME REPORTED";                                              
   VALUE V39FT (MAX=40)                                                        
   000001 = "ONE POUND"                                                        
   002418 = "TWO THOUSAND FOUR HUNDRED EIGHTEEN POUNDS"                        
   999999 = "NA; PURCHASE REPORT, BUT AMOUNT NOT SPECIFIED"                    
   000000 = "NO AMOUNT NOR PURCHASE REPORTED";                                 
   VALUE V40FT (MAX=40)                                                        
   000100 = "ONE DOLLAR"                                                       
   032135 = "THREE HUNDRED TWENTY-ONE DOLLARS AND"                             
   999999 = "NA; AMOUNT REPORTED, BUT EXPENDITURE NOT";                        
   VALUE V73FT (MAX=40)                                                        
   000001 = "ONE ROOM"                                                         
   000014 = "FOURTEEN ROOMS"                                                   
   999999 = "INAP"                                                             
   000000 = "NA; NO ROOMS REPORTED";                                           
   VALUE V74FT (MAX=40)                                                        
   000100 = "ONE DOLLAR"                                                       
   030000 = "THREE HUNDRED DOLLARS"                                            
   999999 = "INAP"                                                             
   000000 = "FREE; OR NO RENT REPORTED";                                       
   VALUE V75FT (MAX=40)                                                        
   000001 = "WOOD"                                                             
   000002 = "COAL"                                                             
   000003 = "COKE"                                                             
   000004 = "GAS"                                                              
   999999 = "FUEL USAGE REPORTED, BUT KIND NOT SPECIFIED"                      
   000000 = "NO FUEL USAGE REPORTED";                                          
   VALUE V78FT (MAX=40)                                                        
   000000 = "NO USAGE REPORTED"                                                
   000001 = "OIL"                                                              
   000002 = "GAS"                                                              
   999999 = "LIGHTING USAGE REPORTED, BUT KIND NOT SPECIFIED";                 
   VALUE V99FT (MAX=40)                                                        
   001 = "BACK BOY"                                                            
   002 = "BALER"                                                               
   003 = "BANDER AND OILER"                                                    
   159 = "BANK MAN"                                                            
   160 = "BATCH WHEELER"                                                       
   004 = "BEAMER AND TWISTER"                                                  
   005 = "BEAMER"                                                              
   533 = "BEAMER AND FOLDER"                                                   
   006 = "BEAM HAND"                                                           
   008 = "BLACKMSITH"                                                          
   162 = "BLACKSMITH AND ENGINEER"                                             
   007 = "BLACKSMITHS HELPER"                                                  
   163 = "BLASTMAN"                                                            
   009 = "BLEACHER"                                                            
   164 = "BLOOMER"                                                             
   165 = "BLOWER"                                                              
   166 = "BLOWER AND LABORER"                                                  
   167 = "BLOWER AND ROUGHER"                                                  
   168 = "BLOWER, BOSS"                                                        
   169 = "BLOWERS APPRENTICE"                                                  
   010 = "BOBBIN BOY"                                                          
   170 = "BOILER FITTER"                                                       
   171 = "BOILER MAN/BOILERMAN"                                                
   172 = "BOILER TENDER/BOILERTENDER"                                          
   173 = "BOILERMAKER"                                                         
   174 = "BOTTOM BUILDER"                                                      
   011 = "BOX MAKER/BOXMAKER"                                                  
   175 = "BOX MAKER AND PACKER"                                                
   176 = "BRAKEMAN"                                                            
   177 = "BRAKEMAN, LOCOMOTIVE"                                                
   178 = "BREAKER"                                                             
   179 = "BREAKER-DOWN"                                                        
   013 = "BRICKLAYER"                                                          
   012 = "BRICKMASON"                                                          
   180 = "BRICKYARD BOSS"                                                      
   014 = "BRUSHER"                                                             
   181 = "BUGGYMAN"                                                            
   182 = "BURNER"                                                              
   183 = "BYE-WORKMAN"                                                         
   015 = "CABINETMAKER"                                                        
   184 = "CAGEMAN"                                                             
   185 = "CAGEMAN AND FILLER"                                                  
   186 = "CAGEMAN AND STOCKMAN"                                                
   187 = "CAGER"                                                               
   188 = "CALCINER"                                                            
   016 = "CARD GRINDER"                                                        
   017 = "CARD CLOTHIER"                                                       
   018 = "CARD STRIPPER"                                                       
   019 = "CARDER AND LABORER"                                                  
   020 = "CARDER"                                                              
   534 = "CARD GRINDER AND CARD STRIPPER"                                      
   021 = "CARD GRINDER AND SECOND HAND"                                        
   022 = "CARD FEEDER"                                                         
   023 = "CARDER AND FINISHER"                                                 
   024 = "CARPENTER"                                                           
   025 = "CARPENTER AND LABORER"                                               
   189 = "CARPENTER AND MINER"                                                 
   190 = "CARPENTER AND PACKER"                                                
   191 = "CARPENTER AND WEIGHMAN"                                              
   192 = "CARPENTERS HELPER"                                                   
   193 = "CARRIER-IN"                                                          
   194 = "CASTHOUSE MAN"                                                       
   195 = "CATCHER"                                                             
   026 = "CHAINMAKER"                                                          
   196 = "CHARGER"                                                             
   197 = "CHARGER AND DAUBER"                                                  
   198 = "CHARGER AND DRAWER"                                                  
   199 = "CHARGER AND LEVELLER"                                                
   200 = "CHECKMAN"                                                            
   201 = "CHILLMAN"                                                            
   202 = "CHIPPER"                                                             
   203 = "CINDER SNAPPER"                                                      
   204 = "CINDER SNAPPER AND FILLER"                                           
   205 = "CINDER TAPPER"                                                       
   207 = "CINDERMAN"                                                           
   208 = "CINDERMAN AND LABORER"                                               
   206 = "CINDERWHEELER/CINDER WHEELER"                                        
   209 = "CLAV TRAMPER"                                                        
   027 = "CLEANER"                                                             
   029 = "CLERK"                                                               
   210 = "CLERK AND PORTER"                                                    
   028 = "CLERK STORE"                                                         
   030 = "CLOTH ROOM HAND"                                                     
   031 = "CLOTH INSPECTOR"                                                     
   032 = "CLOTH CARRIER"                                                       
   211 = "COACHER"                                                             
   212 = "COAL HEAVER"                                                         
   213 = "COAL WHEELER"                                                        
   214 = "COKE CLEANER"                                                        
   215 = "COKE DRAWER"                                                         
   216 = "COKE FORKER"                                                         
   217 = "COKE FORKER AND HELPER"                                              
   218 = "COKE HANDLER"                                                        
   219 = "COKE UNLOADER"                                                       
   220 = "COKER"                                                               
   033 = "COMBER"                                                              
   535 = "COMBMAKER"                                                           
   221 = "CONDUCTOR"                                                           
   034 = "CONSED HAND"                                                         
   222 = "CONTRACTOR"                                                          
   223 = "CONVERTERMAN"                                                        
   224 = "COOPER"                                                              
   225 = "CRANEMAN"                                                            
   226 = "CUTTER"                                                              
   227 = "CUTTER AND ENGRAVER"                                                 
   228 = "CUTTER AND PACKER"                                                   
   229 = "CUTTER, BOSS"                                                        
   230 = "CUTTERS HELPER"                                                      
   232 = "DEPUTY OVERMAN"                                                      
   035 = "DESIGNER"                                                            
   233 = "DIPPER"                                                              
   536 = "DOFFER"                                                              
   234 = "DOGGER"                                                              
   235 = "DRAG-BACK"                                                           
   236 = "DRAG-OUT"                                                            
   231 = "DRAWER"                                                              
   036 = "DRAWER IN"                                                           
   237 = "DRAWER AND FALLMAN"                                                  
   238 = "DRAWER AND INCLINEMAN"                                               
   239 = "DRAWER AND LEVELLER"                                                 
   037 = "DRAWING FRAME TENDER"                                                
   038 = "DRESSER"                                                             
   039 = "DRESSER AND WEAVER"                                                  
   040 = "DRIER"                                                               
   240 = "DRILL SHARPENER"                                                     
   241 = "DRILLER"                                                             
   242 = "DRIVER"                                                              
   243 = "DRIVER AND LABORER"                                                  
   244 = "DRIVER AND TRACK"                                                    
   245 = "DRIVER BOSS"                                                         
   246 = "DUMPER"                                                              
   247 = "DUMPER, BOSS"                                                        
   041 = "DYEING ROOM HAND"                                                    
   042 = "DYER AND FIREMAN"                                                    
   043 = "DYER"                                                                
   044 = "DYER AND WASHER"                                                     
   045 = "ELEVATOR HAND"                                                       
   046 = "ELEVATORHAND"                                                        
   047 = "ELEVATOR HAND AND TEAMSTER"                                          
   048 = "ELEVATOR HAND AND OILER"                                             
   248 = "ELEVATOR TENDER"                                                     
   249 = "ENGINE DRIVER"                                                       
   049 = "ENGINEER"                                                            
   250 = "ENGINEER AND FIREMAN"                                                
   050 = "ENGINEER AND MACHINIST"                                              
   251 = "ENGINEER AND TEASER"                                                 
   252 = "ENGINEER STATIONARY"                                                 
   253 = "ENGINEER, BLOWING"                                                   
   161 = "ENGINEER, LOCOMOTIVE"                                                
   254 = "ENGINEER,BLAST"                                                      
   255 = "ENGINEER,CHIEF"                                                      
   256 = "ENGINEER,HOISTING"                                                   
   257 = "ENGINEERS HELPER"                                                    
   258 = "ENGINEMAN"                                                           
   259 = "ENGINEMAN, FAN"                                                      
   260 = "ENGINEMAN, HAULING"                                                  
   261 = "ENGINEMAN, PIT"                                                      
   262 = "ENGINEMAN, WINDING"                                                  
   263 = "FAGOTMAKER"                                                          
   264 = "FALLMAN"                                                             
   265 = "FILLER"                                                              
   266 = "FILLER AND IRON CARRIER"                                             
   267 = "FILLER AND LABORER"                                                  
   268 = "FILLER AND UNLOADER"                                                 
   269 = "FILLER-IN"                                                           
   270 = "FILLER, BOTTOM"                                                      
   271 = "FILLER, TOP"                                                         
   272 = "FILLER,COKE"                                                         
   273 = "FILLER,STOCK HOUSE"                                                  
   051 = "FILLING CARRIER"                                                     
   052 = "FINISHER"                                                            
   274 = "FIRE BOSS"                                                           
   053 = "FIREMAN"                                                             
   054 = "FIREMAN AND LABORER"                                                 
   537 = "FIREMAN AND MACHINIST"                                               
   275 = "FIREMAN AND STOVEMAN"                                                
   055 = "FIREMAN AND WATCHMAN"                                                
   276 = "FIREMAN, LOCOMOTIVE"                                                 
   277 = "FITTER"                                                              
   278 = "FITTERS HELPER"                                                      
   279 = "FLAGMAN"                                                             
   280 = "FLATTENER"                                                           
   281 = "FLUE CLEANER"                                                        
   056 = "FOLDER"                                                              
   060 = "FOREMAN"                                                             
   282 = "FOREMAN ASSISTANT"                                                   
   283 = "FOREMAN, BANK"                                                       
   284 = "FOREMAN, BLACKSMITHS"                                                
   285 = "FOREMAN, CUTTERS"                                                    
   286 = "FOREMAN, DRIVERS"                                                    
   287 = "FOREMAN, DROP"                                                       
   288 = "FOREMAN, FORGE"                                                      
   289 = "FOREMAN, GASHOUSE"                                                   
   290 = "FOREMAN, LABORERS"                                                   
   291 = "FOREMAN, LOCKSMITHS"                                                 
   292 = "FOREMAN, MASONS"                                                     
   293 = "FOREMAN, MELTERS"                                                    
   294 = "FOREMAN, MILL"                                                       
   295 = "FOREMAN, MINERS"                                                     
   057 = "FOREMAN, PACKERS"                                                    
   296 = "FOREMAN, PUDDLERS"                                                   
   297 = "FOREMAN, PUDDLERS AND ROLLERS"                                       
   298 = "FOREMAN, ROLLERS"                                                    
   059 = "FOREMAN, SPINNING DEPARTMENT"                                        
   299 = "FOREMAN, STOCKERS"                                                   
   300 = "FOREMAN, TRACK"                                                      
   061 = "FOREMAN, YARD"                                                       
   058 = "FOREMAN, YARD BANDS"                                                 
   301 = "FOREMAN,CARPENTERS"                                                  
   302 = "FOREMAN,FILLERS"                                                     
   303 = "FOREMAN,IRON HANDLERS"                                               
   304 = "FOREMAN,QUARRY"                                                      
   305 = "FOREMAN,STOCKHOUSE"                                                  
   306 = "FORGEMAN"                                                            
   307 = "FORKER"                                                              
   308 = "FOUNDER"                                                             
   062 = "FULLER"                                                              
   309 = "FURNACE HELPER"                                                      
   310 = "FURNACEMAN"                                                          
   311 = "GAFFER"                                                              
   312 = "GALLERY CUTTER"                                                      
   063 = "GARDENER"                                                            
   313 = "GASMAKER"                                                            
   314 = "GASMAN"                                                              
   315 = "GATEMAN"                                                             
   316 = "GATHERER"                                                            
   064 = "GIGGER"                                                              
   065 = "GIGGERS HELPER"                                                      
   317 = "GREASER"                                                             
   318 = "GRINDER"                                                             
   319 = "GRINDERS HELPER"                                                     
   320 = "HAMMERMAN"                                                           
   321 = "HAMMERSMITH"                                                         
   322 = "HANGER-ON"                                                           
   066 = "HARNESS HAND"                                                        
   323 = "HAULER"                                                              
   324 = "HEAD CUTTER"                                                         
   325 = "HEATER"                                                              
   326 = "HEATER AND PUDDLERS HELPER"                                          
   327 = "HEATERS HELPER"                                                      
   328 = "HELPER"                                                              
   329 = "HELPER AND KEEPER"                                                   
   330 = "HELPER AND LABORER"                                                  
   331 = "HOOKER"                                                              
   332 = "HOOKER-UP"                                                           
   333 = "HORSESHOER"                                                          
   067 = "HOSTLER"                                                             
   334 = "HOT-BANK MAN"                                                        
   335 = "HOT-BLAST MAN"                                                       
   068 = "IDLE"                                                                
   336 = "INCLINED-PLANE MAN"                                                  
   337 = "INGOT LOADER"                                                        
   338 = "INGOT WHEELER"                                                       
   339 = "INSPECTOR"                                                           
   340 = "INSPECTOR, CAR"                                                      
   069 = "INVALID"                                                             
   341 = "IRON BREAKER"                                                        
   342 = "IRON BREAKER AND LABORER"                                            
   343 = "IRON BREAKER AND PILER"                                              
   344 = "IRON BUDGER"                                                         
   345 = "IRON CARRIER"                                                        
   346 = "IRON CARRIER AND HELPER"                                             
   347 = "IRON GRADER"                                                         
   348 = "IRON HANDLER"                                                        
   349 = "IRON LOADER"                                                         
   350 = "IRON MAN"                                                            
   351 = "IRON MELTER"                                                         
   352 = "IRON STOCKER"                                                        
   353 = "IRON WRINGER AND LEVELLER"                                           
   070 = "JANITOR"                                                             
   354 = "JANITOR AND WAREHOUSEMAN"                                            
   355 = "JOMFILLER"                                                           
   356 = "KEEPER"                                                              
   357 = "KEEPER AND LABORER"                                                  
   358 = "KEEPERS HELPER"                                                      
   359 = "KEEPERS HELPER AND MOULDER"                                          
   360 = "KEEPERS HELPER AND SCALEMAN"                                         
   361 = "LABORATORY MAN"                                                      
   071 = "LABORER"                                                             
   073 = "LABORER AND CARPENTER"                                               
   362 = "LABORER AND METAL CARRIER"                                           
   072 = "LABORER AND PAINTER"                                                 
   363 = "LABORER AND SHEARMENS HELPER"                                        
   364 = "LABORER AND STRIKER"                                                 
   365 = "LABORER AND TEAMSTER"                                                
   366 = "LABORER AND TEASER"                                                  
   367 = "LABORER AND TIMBERMAN"                                               
   368 = "LABORER, FURNACE"                                                    
   369 = "LABORER, YARD"                                                       
   370 = "LADLEMAN"                                                            
   371 = "LADLER"                                                              
   372 = "LAMPMAN"                                                             
   373 = "LAYER-IN"                                                            
   374 = "LAYER-OUT"                                                           
   375 = "LAYER-UP"                                                            
   376 = "LEERSMAN"                                                            
   377 = "LEVELLER"                                                            
   378 = "LEVER MAN"                                                           
   379 = "LIMESTONE BREAKER"                                                   
   380 = "LOADER"                                                              
   381 = "LOADER AND MINER"                                                    
   382 = "LOMESTONE WHEELER"                                                   
   074 = "LOOM FIXER"                                                          
   538 = "LOOM FIXER AND MACHINIST"                                            
   075 = "LOOM FIXER AND WEAVER"                                               
   076 = "MACHINIST"                                                           
   077 = "MACHINISTS HELPER"                                                   
   383 = "MARKER"                                                              
   078 = "MASON"                                                               
   384 = "MASONS HELPER"                                                       
   079 = "MASTER MACHINIST"                                                    
   385 = "MASTER MECHANIC"                                                     
   386 = "MASTER TEASER"                                                       
   080 = "MEASURER"                                                            
   387 = "MECHANIC"                                                            
   388 = "MELTER"                                                              
   389 = "METAL BREAKER"                                                       
   390 = "METAL CARRIER"                                                       
   391 = "METAL WHEELER"                                                       
   392 = "MILLWRIGHT"                                                          
   393 = "MINE BOSS"                                                           
   394 = "MINER"                                                               
   395 = "MINER AND PUSHER"                                                    
   396 = "MINER AND WEIGHMAN"                                                  
   397 = "MIXER"                                                               
   398 = "MIXER AND LABORER"                                                   
   399 = "MOULD CLEANER"                                                       
   400 = "MOULDER"                                                             
   401 = "MOULDERS HELPER"                                                     
   402 = "MOULDMAN"                                                            
   403 = "NAIL CUTTER"                                                         
   404 = "NAIL FEEDER"                                                         
   405 = "NAIL SHIPPER"                                                        
   406 = "NAILER"                                                              
   081 = "NAPPER"                                                              
   407 = "NICKER"                                                              
   082 = "OILER AND SECTION"                                                   
   083 = "OILER"                                                               
   084 = "OILER AND WATCHMAN"                                                  
   409 = "OIL MAN"                                                             
   410 = "ORE BREAKER"                                                         
   411 = "ORE MAN"                                                             
   412 = "ORE SAMPLER"                                                         
   413 = "ORE SORTER"                                                          
   414 = "OVEN MAN"                                                            
   415 = "OVERMAN"                                                             
   090 = "OVERSEER"                                                            
   085 = "OVERSEER CLOTH ROOM"                                                 
   086 = "OVERSEER DRESSINGROOM"                                               
   087 = "OVERSEER WEAVING"                                                    
   088 = "OVERSEER SORTING ROOM"                                               
   089 = "OVERSEER SPINNING DEPARTMENT"                                        
   091 = "OVERSEER WEAVING DEPARTMENT"                                         
   092 = "OVERSEER AND SHEARER"                                                
   093 = "OVERSEER CARDING DEPARTMENT"                                         
   094 = "OVERSEER DYEING ROOM"                                                
   095 = "OVERSEER PICKING DEPARTMENT"                                         
   096 = "OVERSEER SPOOLING DEPARTMENT"                                        
   097 = "OVERSEER TWISTING DEPARTMENT"                                        
   098 = "OVERSEER FINISHING DEPARTMENT"                                       
   099 = "OVERSEER WARPING DEPARTMENT"                                         
   100 = "OVERSEER DRESSING ROOM"                                              
   101 = "PACKER"                                                              
   416 = "PACKER AND LABORER"                                                  
   417 = "PACKER, BOSS"                                                        
   418 = "PACKERS HELPER"                                                      
   102 = "PAINTER"                                                             
   103 = "PATTERN MAKER"                                                       
   104 = "PATTERNMAKER"                                                        
   105 = "PICKING ROOM HAND"                                                   
   106 = "PIECER"                                                              
   419 = "PIKE-IN"                                                             
   420 = "PILER"                                                               
   421 = "PIPE CUTTER"                                                         
   107 = "PIPE FITTER"                                                         
   422 = "PIPELAYER"                                                           
   108 = "PISTOL MAKER"                                                        
   423 = "PIT BOSS"                                                            
   424 = "PIT CLEANER"                                                         
   425 = "PITMAN"                                                              
   426 = "PITWRIGHT"                                                           
   109 = "PLASTERER"                                                           
   427 = "PLATE CUTTER"                                                        
   428 = "PLATE HEATER"                                                        
   429 = "PLATE REPAIRER"                                                      
   430 = "PLATER"                                                              
   110 = "PLUMBER"                                                             
   111 = "POLICEMAN"                                                           
   431 = "POLISHER"                                                            
   432 = "POT-SHELL PICKER"                                                    
   433 = "POTMAKER"                                                            
   434 = "POTMAKERS HELPER"                                                    
   112 = "PRESS HAND"                                                          
   113 = "PRINTER"                                                             
   435 = "PUDDLER"                                                             
   436 = "PUDDLER AND HELPER"                                                  
   437 = "PUDDLER, BOSS"                                                       
   438 = "PUDDLERS HELPER"                                                     
   439 = "PUMPER"                                                              
   440 = "PUMPMAN"                                                             
   114 = "QUILLER"                                                             
   115 = "QUILTER"                                                             
   441 = "RAIL HANDLER"                                                        
   442 = "RAIL LOADER"                                                         
   116 = "RAILWAY HAND"                                                        
   117 = "REELER AND WINDER"                                                   
   118 = "REPAIRER"                                                            
   443 = "REPAIRER, OVEN"                                                      
   444 = "RILLER"                                                              
   445 = "RIVET FEEDER"                                                        
   446 = "ROADMAN"                                                             
   447 = "ROLL ADJUSTER"                                                       
   448 = "ROLL TURNER"                                                         
   449 = "ROLLER"                                                              
   119 = "ROLLER COVERER"                                                      
   450 = "ROLLER AND ROLLERS HELPER"                                           
   451 = "ROLLER AND ROUGHER"                                                  
   452 = "ROLLERS HELPER"                                                      
   453 = "ROLLEY-WAY MAN"                                                      
   454 = "ROLLHAND AND ROUGHER"                                                
   455 = "ROUGHER"                                                             
   120 = "ROVING CARRIER"                                                      
   456 = "RUNNER"                                                              
   457 = "SAND BURNER"                                                         
   458 = "SAND WHEELER"                                                        
   459 = "SANDMAN"                                                             
   460 = "SAWYER"                                                              
   461 = "SCALEMAN"                                                            
   121 = "SCOURER"                                                             
   122 = "SCOURER AND WATCHMAN"                                                
   462 = "SCRAP WHEELER"                                                       
   463 = "SCRAPER"                                                             
   464 = "SCRAPMAN"                                                            
   465 = "SCRAPPER"                                                            
   466 = "SCREENER"                                                            
   467 = "SCREWMAN"                                                            
   539 = "SCRIBBLER"                                                           
   123 = "SCRUBBER"                                                            
   124 = "SECOND HAND"                                                         
   125 = "SECTION HAND"                                                        
   126 = "SELECTOR"                                                            
   468 = "SHAFTMAN"                                                            
   127 = "SHEARER"                                                             
   469 = "SHEARMAN"                                                            
   470 = "SHEARMENS HELPER"                                                    
   471 = "SHEELER"                                                             
   472 = "SHINGLER"                                                            
   473 = "SHIPPER"                                                             
   128 = "SHIPPING CLERK"                                                      
   129 = "SHOEMAKER"                                                           
   474 = "SHOVELLER"                                                           
   475 = "SHOVER-IN"                                                           
   476 = "SLAG WHEELER"                                                        
   477 = "SLAGMAN"                                                             
   478 = "SLASHER"                                                             
   130 = "SLASHER TENDER"                                                      
   540 = "SLASHER TENDER, HEAD"                                                
   479 = "SLATE PICKER"                                                        
   480 = "SMELTER"                                                             
   482 = "SNAPPER-UP"                                                          
   131 = "SOAP MAKER"                                                          
   132 = "SORTER"                                                              
   133 = "SPARE HAND"                                                          
   134 = "SPEEDER"                                                             
   135 = "SPINNER"                                                             
   136 = "SPINNER FRAME"                                                       
   137 = "SPINNER MULE"                                                        
   138 = "SPOOLER"                                                             
   483 = "STABLE BOSS"                                                         
   484 = "STABLEMAN"                                                           
   139 = "STAMPER"                                                             
   485 = "STEEL POURER"                                                        
   486 = "STEEL WORKER"                                                        
   487 = "STOCK BREAKER"                                                       
   488 = "STOCK TAKER"                                                         
   489 = "STOCK UNLOADER"                                                      
   490 = "STOCKER"                                                             
   491 = "STOCKHOUSE MAN"                                                      
   492 = "STOKER"                                                              
   140 = "STONE CUTTER"                                                        
   493 = "STOREKEEPER"                                                         
   494 = "STOVE TENDER"                                                        
   495 = "STOVEMAN"                                                            
   496 = "STRAIGHTENER"                                                        
   497 = "STRIKER"                                                             
   141 = "SWEEPER"                                                             
   499 = "SWITCH TENDER"                                                       
   500 = "SWITCHMAN"                                                           
   541 = "TACKLER"                                                             
   542 = "TAILOR"                                                              
   501 = "TAKER-OFF"                                                           
   543 = "TALLYMAN"                                                            
   502 = "TAP WHEELER"                                                         
   142 = "TEAMSTER"                                                            
   503 = "TEAMSTER AND TEASER"                                                 
   504 = "TEASER"                                                              
   505 = "TEASER AND WATCHMAN"                                                 
   143 = "TESTER"                                                              
   144 = "THIRD HAND"                                                          
   506 = "TIMBERMAN"                                                           
   507 = "TIMEKEEPER"                                                          
   508 = "TIPPER"                                                              
   509 = "TIPPLEMAN"                                                           
   510 = "TRACKLAYER"                                                          
   511 = "TRACKMAN"                                                            
   512 = "TRAMMER"                                                             
   513 = "TRAPPER"                                                             
   514 = "TRIMMER"                                                             
   515 = "TRIMMERS HELPER"                                                     
   516 = "TURNER"                                                              
   145 = "TWISTER WEAVING DEPARTMENT"                                          
   146 = "TWISTER"                                                             
   517 = "U/L,ROLLER"                                                          
   518 = "UNLOADER"                                                            
   519 = "VESSELMAN"                                                           
   520 = "WAGON BUILDER"                                                       
   521 = "WARE HAND"                                                           
   522 = "WAREHOUSE MAN"                                                       
   147 = "WARPER"                                                              
   148 = "WASHER"                                                              
   149 = "WASTE HAND"                                                          
   150 = "WATCHMAN"                                                            
   523 = "WATER CARRIER"                                                       
   524 = "WATER HAULER"                                                        
   525 = "WATER MAN"                                                           
   526 = "WATER TENDER"                                                        
   151 = "WEAVER"                                                              
   152 = "WEIGHER"                                                             
   527 = "WEIGHMAN/WEIGHTMEN"                                                  
   528 = "WEIGHMASTER"                                                         
   529 = "WHEELER"                                                             
   153 = "WINDER"                                                              
   530 = "WIRER"                                                               
   544 = "WOOD TURNER"                                                         
   154 = "YARD HAND"                                                           
   155 = "YARD INSPECTOR"                                                      
   531 = "YARDMAN"                                                             
   532 = "YARDMASTER"                                                          
   156 = "YARN HAND"                                                           
   157 = "YARN CARRIER"                                                        
   158 = "YARN INSPECTOR";                                                     
                                                                             
                                                                               
* SAS DATA, INFILE, INPUT STATEMENTS;
libname sastmp '~/nta/cex/cexdata';   
                                                                               
DATA Sastmp.cex1888;                                                                          
INFILE "07711-0001-Data.txt" LRECL=501;                                         
INPUT                                                                          
   V1 1-1                   V2 2-5                   V3 6-7                    
   V4 8-10                  V5 $ 11-50               V6 51-51                  
   V7 52-53                 V8 54-55                 V9 56-57                  
   V10 58-59                V11 60-61                V12 62-63                 
   V13 64-65                V14 66-67                V15 68-69                 
   V16 70-70                V17 71-72                V18 73-73                 
   V19 74-75                V20 76-76                V21 77-78                 
   V22 79-79                V23 80-81                V24 82-82                 
   V25 83-84                V26 85-85                V27 86-87                 
   V28 88-88                V29 89-90                V30 91-91                 
   V31 92-93                V32 94-94                V33 95-100 .2             
   V34 101-106 .2           V35 107-112 .2           V36 113-118 .2            
   V37 119-124 .2           V38 125-130 .2           V39 131-136               
   V40 137-142 .2           V41 143-148              V42 149-154 .2            
   V43 155-160              V44 161-166 .2           V45 167-172               
   V46 173-178 .2           V47 179-184              V48 185-190 .2            
   V49 191-196              V50 197-202 .2           V51 203-208               
   V52 209-214 .2           V53 215-220              V54 221-226 .2            
   V55 227-232              V56 233-238 .2           V57 239-244               
   V58 245-250 .2           V59 251-256              V60 257-262 .2            
   V61 263-268 .2           V62 269-274 .2           V63 275-280 .2            
   V64 281-286 .2           V65 287-292 .2           V66 293-298 .2            
   V67 299-304 .2           V68 305-310 .2           V69 311-316 .2            
   V70 317-322 .2           V71 323-328 .2           V72 329-334 .2            
   V73 335-340              V74 341-346 .2           V75 347-352               
   V76 353-358              V77 359-364 .2           V78 365-370               
   V79 371-376              V80 377-382 .2           V81 383-388 .2            
   V82 389-394 .2           V83 395-400 .2           V84 401-406 .2            
   V85 407-412 .2           V86 413-418 .2           V87 419-424 .2            
   V88 425-430 .2           V89 431-436 .2           V90 437-442 .2            
   V91 443-448 .2           V92 449-454 .2           V93 455-460 .2            
   V94 461-466 .2           V95 467-472 .2           V96 473-478 .2            
   V97 479-484 .2           V98 485-490 .2           V99 491-493               
   V100 494-497             V101 498-498             V102 499-501;             
                                                                               
* SAS LABEL STATEMENT;                                                         
                                                                               
LABEL                                                                          
   V1 = "INDUSTRY CODE"                                                        
   V2 = "BUDGET NUMBER"                                                        
   V3 = "STATE"                                                                
   V4 = "NATIONALITY"                                                          
   V5 = "HUSBAND'S OCCUPATION"                                                 
   V6 = "WIFE'S CONDITION"                                                     
   V7 = "CHILDREN WORKING"                                                     
   V8 = "CHILDREN IN SCHOOL"                                                   
   V9 = "CHILDREN AT HOME"                                                     
   V10 = "CHILDREN UNKNOWN"                                                    
   V11 = "BOARDERS"                                                            
   V12 = "TOTAL IN FAMILY"                                                     
   V13 = "HUSBAND'S AGE"                                                       
   V14 = "WIFE'S AGE"                                                          
   V15 = "FIRST CHILD'S AGE"                                                   
   V16 = "FIRST CHILD'S SEX"                                                   
   V17 = "SECOND CHILD'S AGE"                                                  
   V18 = "SECOND CHILD'S SEX"                                                  
   V19 = "THIRD CHILD'S AGE"                                                   
   V20 = "THIRD CHILD'S SEX"                                                   
   V21 = "FOURTH CHILD'S AGE"                                                  
   V22 = "FOURTH CHILD'S SEX"                                                  
   V23 = "FIFTH CHILD'S AGE"                                                   
   V24 = "FIFTH CHILD'S SEX"                                                   
   V25 = "SIXTH CHILD'S AGE"                                                   
   V26 = "SIXTH CHILD'S SEX"                                                   
   V27 = "SEVENTH CHILD'S AGE"                                                 
   V28 = "SEVENTH CHILD'S SEX"                                                 
   V29 = "EIGHTH CHILD'S AGE"                                                  
   V30 = "EIGHTH CHILD'S SEX"                                                  
   V31 = "OTHERS UNKNOWN"                                                      
   V32 = "HOME OWNERSHIP"                                                      
   V33 = "HUSBAND'S INCOME"                                                    
   V34 = "WIFE'S INCOME"                                                       
   V35 = "CHILDREN'S INCOME"                                                   
   V36 = "INCOME FROM BOARDERS"                                                
   V37 = "OTHER INCOME"                                                        
   V38 = "TOTAL INCOME"                                                        
   V39 = "BEEF LBS"                                                            
   V40 = "BEEF COST"                                                           
   V41 = "HOG LBS"                                                             
   V42 = "HOG COST"                                                            
   V43 = "MEAT LBS"                                                            
   V44 = "MEAT COST"                                                           
   V45 = "EGGS DOZEN"                                                          
   V46 = "EGGS COST"                                                           
   V47 = "LARD LBS"                                                            
   V48 = "LARD COST"                                                           
   V49 = "BUTTER LBS"                                                          
   V50 = "BUTTER COST"                                                         
   V51 = "TEA LBS"                                                             
   V52 = "TEA COST"                                                            
   V53 = "COFFEE LBS"                                                          
   V54 = "COFFEE COST"                                                         
   V55 = "SUGAR LBS"                                                           
   V56 = "SUGAR COST"                                                          
   V57 = "MOLASSES GALLON"                                                     
   V58 = "MOLASSES COST"                                                       
   V59 = "POTATOES BUSHEL"                                                     
   V60 = "POTATOES COST"                                                       
   V61 = "POULTRY COST"                                                        
   V62 = "FISH COST"                                                           
   V63 = "MILK COST"                                                           
   V64 = "FLOUR AND MEAL COST"                                                 
   V65 = "BREAD COST"                                                          
   V66 = "RICE COST"                                                           
   V67 = "CHEESE COST"                                                         
   V68 = "FRUIT COST"                                                          
   V69 = "VINEGAR PICKLE CONDIMENT"                                            
   V70 = "VEGETABLE COST"                                                      
   V71 = "OTHER FOOD COSTS"                                                    
   V72 = "TOTAL FOOD COSTS"                                                    
   V73 = "NUMBER OF ROOMS"                                                     
   V74 = "COST OF RENT"                                                        
   V75 = "KIND OF FUEL"                                                        
   V76 = "QUANTITY OF FUEL"                                                    
   V77 = "COST OF FUEL"                                                        
   V78 = "KIND OF LIGHTING"                                                    
   V79 = "QUANTITY OF LIGHTING"                                                
   V80 = "COST OF LIGHTING"                                                    
   V81 = "HUSBAND'S CLOTHING COST"                                             
   V82 = "WIFE'S CLOTHING COST"                                                
   V83 = "CHILDREN'S CLOTHING COST"                                            
   V84 = "FURNITURE AND UTENSILS"                                              
   V85 = "TAXES"                                                               
   V86 = "PROPERTY INSURANCE"                                                  
   V87 = "LIFE INSURANCE"                                                      
   V88 = "LABOR ORGANIZATIONS"                                                 
   V89 = "OTHER ORGANIZATIONS"                                                 
   V90 = "RELIGIOUS EXPENSES"                                                  
   V91 = "CHARITY"                                                             
   V92 = "BOOKS AND NEWSPAPERS"                                                
   V93 = "AMUSEMENTS AND VACATION"                                             
   V94 = "INTOXICATING LIQUORS"                                                
   V95 = "TOBACCO"                                                             
   V96 = "SICKNESS AND DEATH"                                                  
   V97 = "OTHER EXPENSES"                                                      
   V98 = "TOTAL NONFOOD EXPENSES"                                              
   V99 = "OCCUPATION (NUMERIC)"                                                
   V100 = "ICPSR STUDY NUMBER-7711"                                            
   V101 = "ICPSR EDITION NUMBER-3"                                             
   V102 = "ICPSR PART NUMBER-001";                                             
                                                                               
* SAS FORMAT STATEMENT;                                                        
                                                                               
                                                                             
FORMAT                                                                         
   V1 V1FT.               V2 V2FT.               V3 V3FT.                      
   V4 V4FT.               V6 V6FT.               V7 V7FT.                      
   V8 V8FT.               V9 V9FT.               V10 V10FT.                    
   V11 V11FT.             V12 V12FT.             V13 V13FT.                    
   V14 V14FT.             V15 V15FT.             V16 V16FT.                    
   V17 V17FT.             V19 V19FT.             V21 V21FT.                    
   V23 V23FT.             V25 V25FT.             V27 V27FT.                    
   V29 V29FT.             V31 V31FT.             V32 V32FT.                    
   V33 V33FT.             V39 V39FT.             V40 V40FT.                    
   V73 V73FT.             V74 V74FT.             V75 V75FT.                    
   V78 V78FT.             V99 V99FT.;                                                                                                                       
                                                                               
* USER-DEFINED MISSING VALUE RECODE TO SAS SYSMIS;                             
                                                                               
                                                                             
   IF V3 GE 0000099 OR V3=0000000 THEN V3=.;                                   
   IF V4 GE 0000999 OR V4=0000000 THEN V4=.;                                   
   IF V6 GE 0000009 OR V6=0000000 THEN V6=.;                                   
   IF V7=0000099 THEN V7=.;            IF V8=0000099 THEN V8=.;                
   IF V9=0000099 THEN V9=.;            IF V10=0000099 THEN V10=.;              
   IF V11=0000099 THEN V11=.;          IF V12=0000099 THEN V12=.;              
   IF V13 GE 0000099 OR V13=0000000 THEN V13=.;                                
   IF V14 GE 0000099 OR V14=0000000 THEN V14=.;                                
   IF V15 GE 0000099 OR V15=0000000 THEN V15=.;                                
   IF V16 GE 0000009 OR V16=0000000 THEN V16=.;                                
   IF V17 GE 0000099 OR V17=0000000 THEN V17=.;                                
   IF V18 GE 0000009 OR V18=0000000 THEN V18=.;                                
   IF V19 GE 0000099 OR V19=0000000 THEN V19=.;                                
   IF V20 GE 0000009 OR V20=0000000 THEN V20=.;                                
   IF V21 GE 0000099 OR V21=0000000 THEN V21=.;                                
   IF V22 GE 0000009 OR V22=0000000 THEN V22=.;                                
   IF V23 GE 0000099 OR V23=0000000 THEN V23=.;                                
   IF V24 GE 0000009 OR V24=0000000 THEN V24=.;                                
   IF V25 GE 0000099 OR V25=0000000 THEN V25=.;                                
   IF V26 GE 0000009 OR V26=0000000 THEN V26=.;                                
   IF V27 GE 0000099 OR V27=0000000 THEN V27=.;                                
   IF V28 GE 0000009 OR V28=0000000 THEN V28=.;                                
   IF V29 GE 0000099 OR V29=0000000 THEN V29=.;                                
   IF V30 GE 0000009 OR V30=0000000 THEN V30=.;                                
   IF V31 GE 0000099 OR V31=0000000 THEN V31=.;                                
   IF V32=0000009 THEN V32=.;          IF V33=09999.9 THEN V33=.;              
   IF V34=09999.9 THEN V34=.;          IF V35=09999.9 THEN V35=.;              
   IF V36=09999.9 THEN V36=.;          IF V37=09999.9 THEN V37=.;              
   IF V38=09999.9 THEN V38=.;          IF V39=0999999 THEN V39=.;              
   IF V40=09999.9 THEN V40=.;          IF V41=0999999 THEN V41=.;              
   IF V42=09999.9 THEN V42=.;          IF V43=0999999 THEN V43=.;              
   IF V44=09999.9 THEN V44=.;          IF V45=0999999 THEN V45=.;              
   IF V46=09999.9 THEN V46=.;          IF V47=0999999 THEN V47=.;              
   IF V48=09999.9 THEN V48=.;          IF V49=0999999 THEN V49=.;              
   IF V50=09999.9 THEN V50=.;          IF V51=0999999 THEN V51=.;              
   IF V52=09999.9 THEN V52=.;          IF V53=0999999 THEN V53=.;              
   IF V54=09999.9 THEN V54=.;          IF V55=0999999 THEN V55=.;              
   IF V56=09999.9 THEN V56=.;          IF V57=0999999 THEN V57=.;              
   IF V58=09999.9 THEN V58=.;          IF V59=0999999 THEN V59=.;              
   IF V60=09999.9 THEN V60=.;          IF V61=09999.9 THEN V61=.;              
   IF V62=09999.9 THEN V62=.;          IF V63=09999.9 THEN V63=.;              
   IF V64=09999.9 THEN V64=.;          IF V65=09999.9 THEN V65=.;              
   IF V66=09999.9 THEN V66=.;          IF V67=09999.9 THEN V67=.;              
   IF V68=09999.9 THEN V68=.;          IF V69=09999.9 THEN V69=.;              
   IF V70=09999.9 THEN V70=.;          IF V71=09999.9 THEN V71=.;              
   IF V72=09999.9 THEN V72=.;          IF V73=0999999 THEN V73=.;              
   IF V74=09999.9 THEN V74=.;          IF V75=0999999 THEN V75=.;              
   IF V76=0999999 THEN V76=.;          IF V77=09999.9 THEN V77=.;              
   IF V78=0999999 THEN V78=.;          IF V79=0999999 THEN V79=.;              
   IF V80=09999.9 THEN V80=.;          IF V81=09999.9 THEN V81=.;              
   IF V82=09999.9 THEN V82=.;          IF V83=09999.9 THEN V83=.;              
   IF V84=09999.9 THEN V84=.;          IF V85=09999.9 THEN V85=.;              
   IF V86=09999.9 THEN V86=.;          IF V87=09999.9 THEN V87=.;              
   IF V88=09999.9 THEN V88=.;          IF V89=09999.9 THEN V89=.;              
   IF V90=09999.9 THEN V90=.;          IF V91=09999.9 THEN V91=.;              
   IF V92=09999.9 THEN V92=.;          IF V93=09999.9 THEN V93=.;              
   IF V94=09999.9 THEN V94=.;          IF V95=09999.9 THEN V95=.;              
   IF V96=09999.9 THEN V96=.;          IF V97=09999.9 THEN V97=.;              
   IF V98=09999.9 THEN V98=.;                                                  

run;

proc contents data=sastmp.cex1888;
run;
%include '~/nta/savastata.mac';

%macro convert(aa);
        data cex1888;
                   set sastmp.cex1888;
                   %savastata(~/nta/cex/cexdata/,-quotes replace);
        run;
%mend;
    
%convert(1888);