/* This program reads the txt file data */
/* Write the location of the ASCII file on the at the beginning of the controle file.*/

libname PISA "c:\***\";
filename wwwcogn "c:\***\INT_cogn_1003.txt";
Proc Format;
     value      $itemfmt      
              	"n" =  "N/A"
	  	"r" =   "Not reached"
             	"8" =   "M/R"
              	"9" =   "Missing";
			  
	value $scale      
	        "0"  =  "non-scalable"
	        "1"  =  "scalable"
	        "8"  =  "non-scalable";
	
	 value $CLCU01F 
		"1"="No calculator"                     
               "2"="A Simple calculator"               
               "3"="A Scientific calculator"           
               "4"="A Programmable calculator"         
               "5"="A Graphics calculator"             
               "8"="Invalid"                           
               "9"="Miss"                              
               "n"="N/A";  
  	
           run;

data one;
      length
country		$3
CNT             $3
subnatio        $4
schoolid        $5
stidstd         $5
BOOKID          $2
M033Q01         $1
M034Q01T        $1
M124Q01         $1
M124Q03T        $1
M144Q01T        $1
M144Q02T        $1
M144Q03         $1
M144Q04T        $1
M145Q01T        $1
M150Q01         $1
M150Q02T        $1
M150Q03T        $1
M155Q01         $1
M155Q02T        $1
M155Q03T        $1
M155Q04T        $1
M179Q01T        $1
M192Q01T        $1
M266Q01T        $1
M273Q01T        $1
M302Q01T        $1
M302Q02         $1
M302Q03         $1
M305Q01         $1
M402Q01         $1
M402Q02         $1
M406Q01         $1
M406Q02         $1
M406Q03         $1
M408Q01T        $1
M411Q01         $1
M411Q02         $1
M413Q01         $1
M413Q02         $1
M413Q03T        $1
M420Q01T        $1
M421Q01         $1
M421Q02T        $1
M421Q03         $1
M423Q01         $1
M438Q01         $1
M438Q02         $1
M442Q02         $1
M446Q01         $1
M446Q02         $1
M447Q01         $1
M462Q01T        $1
M464Q01T        $1
M467Q01         $1
M468Q01T        $1
M474Q01         $1
M484Q01T        $1
M496Q01T        $1
M496Q02         $1
M505Q01         $1
M509Q01         $1
M510Q01T        $1
M513Q01         $1
M520Q01T        $1
M520Q02         $1
M520Q03T        $1
M547Q01T        $1
M555Q02T        $1
M559Q01         $1
M564Q01         $1
M564Q02         $1
M571Q01         $1
M598Q01         $1
M603Q01T        $1
M603Q02T        $1
M702Q01         $1
M704Q01T        $1
M704Q02T        $1
M710Q01         $1
M800Q01         $1
M803Q01T        $1
M806Q01T        $1
M810Q01T        $1
M810Q02T        $1
M810Q03T        $1
M828Q01         $1
M828Q02         $1
M828Q03         $1
M833Q01T        $1
R055Q01         $1
R055Q02         $1
R055Q03         $1
R055Q05         $1
R067Q01         $1
R067Q04         $1
R067Q05         $1
R102Q04A        $1
R102Q05         $1
R102Q07         $1
R104Q01         $1
R104Q02         $1
R104Q05         $1
R111Q01         $1
R111Q02B        $1
R111Q06B        $1
R219Q01T        $1
R219Q01E        $1
R219Q02         $1
R220Q01         $1
R220Q02B        $1
R220Q04         $1
R220Q05         $1
R220Q06         $1
R227Q01         $1
R227Q02T        $1
R227Q03         $1
R227Q06         $1
S114Q03T        $1
S114Q04T        $1
S114Q05T        $1
S128Q01         $1
S128Q02         $1
S128Q03T        $1
S129Q01         $1
S129Q02T        $1
S131Q02T        $1
S131Q04T        $1
S133Q01         $1
S133Q03         $1
S133Q04T        $1
S213Q01T        $1
S213Q02         $1
S252Q01         $1
S252Q02         $1
S252Q03T        $1
S256Q01         $1
S268Q01         $1
S268Q02T        $1
S268Q06         $1
S269Q01         $1
S269Q03T        $1
S269Q04T        $1
S304Q01         $1
S304Q02         $1
S304Q03a        $1
S304Q03b        $1
S326Q01         $1
S326Q02         $1
S326Q03         $1
S326Q04T        $1
S327Q01T        $1
X402Q01T        $1
X402Q02T        $1
X412Q01         $1
X412Q02         $1
X412Q03         $1
X414Q01         $1
X415Q01T        $1
X417Q01         $1
X423Q01T        $1
X423Q02T        $1
X430Q01         $1
X430Q02         $1
X601Q01T        $1
X601Q02         $1
X602Q01         $1
X602Q02         $1
X603Q01         $1
X603Q02T        $1
X603Q03         $1
MSCALE          $1
RSCALE          $1
SSCALE          $1
PSCALE          $1
CLCUSE1         $1
CLCUSE3a        8
CLCUSE3b        8
      ;

		infile wwwcogn missover linesize = 300;
      	input
country		1  -3    
CNT             4  -6  
subnatio        7  -10 
schoolid        11 -15 
stidstd         16 -20 
BOOKID          22 -23 
M033Q01         24 -24 
M034Q01T        25 -25 
M124Q01         26 -26 
M124Q03T        27 -27 
M144Q01T        28 -28 
M144Q02T        29 -29 
M144Q03         30 -30 
M144Q04T        31 -31 
M145Q01T        32 -32 
M150Q01         33 -33 
M150Q02T        34 -34 
M150Q03T        35 -35 
M155Q01         36 -36 
M155Q02T        37 -37 
M155Q03T        38 -38 
M155Q04T        39 -39 
M179Q01T        40 -40 
M192Q01T        41 -41 
M266Q01T        42 -42 
M273Q01T        43 -43 
M302Q01T        44 -44 
M302Q02         45 -45 
M302Q03         46 -46 
M305Q01         47 -47 
M402Q01         48 -48 
M402Q02         49 -49 
M406Q01         50 -50 
M406Q02         51 -51 
M406Q03         52 -52 
M408Q01T        53 -53 
M411Q01         54 -54 
M411Q02         55 -55 
M413Q01         56 -56 
M413Q02         57 -57 
M413Q03T        58 -58 
M420Q01T        59 -59 
M421Q01         60 -60 
M421Q02T        61 -61 
M421Q03         62 -62 
M423Q01         63 -63 
M438Q01         64 -64 
M438Q02         65 -65 
M442Q02         66 -66 
M446Q01         67 -67 
M446Q02         68 -68 
M447Q01         69 -69 
M462Q01T        70 -70 
M464Q01T        71 -71 
M467Q01         72 -72 
M468Q01T        73 -73 
M474Q01         74 -74 
M484Q01T        75 -75 
M496Q01T        76 -76 
M496Q02         77 -77 
M505Q01         78 -78 
M509Q01         79 -79 
M510Q01T        80 -80 
M513Q01         81 -81 
M520Q01T        82 -82 
M520Q02         83 -83 
M520Q03T        84 -84 
M547Q01T        85 -85 
M555Q02T        86 -86 
M559Q01         87 -87 
M564Q01         88 -88 
M564Q02         89 -89 
M571Q01         90 -90 
M598Q01         91 -91 
M603Q01T        92 -92 
M603Q02T        93 -93 
M702Q01         94 -94 
M704Q01T        95 -95 
M704Q02T        96 -96 
M710Q01         97 -97 
M800Q01         98 -98 
M803Q01T        99 -99 
M806Q01T        100-100
M810Q01T        101-101
M810Q02T        102-102
M810Q03T        103-103
M828Q01         104-104
M828Q02         105-105
M828Q03         106-106
M833Q01T        107-107
R055Q01         108-108
R055Q02         109-109
R055Q03         110-110
R055Q05         111-111
R067Q01         112-112
R067Q04         113-113
R067Q05         114-114
R102Q04A        115-115
R102Q05         116-116
R102Q07         117-117
R104Q01         118-118
R104Q02         119-119
R104Q05         120-120
R111Q01         121-121
R111Q02B        122-122
R111Q06B        123-123
R219Q01T        124-124
R219Q01E        125-125
R219Q02         126-126
R220Q01         127-127
R220Q02B        128-128
R220Q04         129-129
R220Q05         130-130
R220Q06         131-131
R227Q01         132-132
R227Q02T        133-133
R227Q03         134-134
R227Q06         135-135
S114Q03T        136-136
S114Q04T        137-137
S114Q05T        138-138
S128Q01         139-139
S128Q02         140-140
S128Q03T        141-141
S129Q01         142-142
S129Q02T        143-143
S131Q02T        144-144
S131Q04T        145-145
S133Q01         146-146
S133Q03         147-147
S133Q04T        148-148
S213Q01T        149-149
S213Q02         150-150
S252Q01         151-151
S252Q02         152-152
S252Q03T        153-153
S256Q01         154-154
S268Q01         155-155
S268Q02T        156-156
S268Q06         157-157
S269Q01         158-158
S269Q03T        159-159
S269Q04T        160-160
S304Q01         161-161
S304Q02         162-162
S304Q03a        163-163
S304Q03b        164-164
S326Q01         165-165
S326Q02         166-166
S326Q03         167-167
S326Q04T        168-168
S327Q01T        169-169
X402Q01T        170-170
X402Q02T        171-171
X412Q01         172-172
X412Q02         173-173
X412Q03         174-174
X414Q01         175-175
X415Q01T        176-176
X417Q01         177-177
X423Q01T        178-178
X423Q02T        179-179
X430Q01         180-180
X430Q02         181-181
X601Q01T        182-182
X601Q02         183-183
X602Q01         184-184
X602Q02         185-185
X603Q01         186-186
X603Q02T        187-187
X603Q03         188-188
MSCALE          189-189
RSCALE          190-190
SSCALE          191-191
PSCALE          192-192
CLCUSE1         193-193
CLCUSE3a        194-196
CLCUSE3b        197-199
;
     

label
  country      = "Country three-digit ISO code"
 M033Q01 	= "View Room Q1		"
M034Q01T = "Bricks Q1		"
M124Q01  = "Walking Q1		"
M124Q03T = "Walking Q3		"
M144Q01T = "Cube Painting Q1		"
M144Q02T = "Cube Painting Q2		"
M144Q03  = "Cube Painting Q3		"
M144Q04T = "Cube Painting Q4		"
M145Q01T = "Cubes Q1		"
M150Q01  = "Growing Up Q1		"
M150Q02T = "Growing Up Q2		"
M150Q03T = "Growing Up Q3		"
M155Q01  = "Pop Pyramids Q1		"
M155Q02T = "Pop Pyramids Q2		"
M155Q03T = "Pop Pyramids Q3		"
M155Q04T = "Pop Pyramids Q4		"
M179Q01T = "Robberies Q1		"
M192Q01T = "Containers Q1		"
M266Q01T = "Carpenter Q01		"
M273Q01T = "Pipelines Q1		"
M302Q01T = "Car Drive Q1		"
M302Q02  = "Car Drive Q2		"
M302Q03  = "Car Drive Q3		"
M305Q01  = "Map Q1		"
M402Q01  = "INTERNET  Q1		"
M402Q02  = "INTERNET  Q2		"
M406Q01  = "RUNNING TRACKS Q1		"
M406Q02  = "RUNNING TRACKS Q2		"
M406Q03  = "RUNNING TRACKS Q3		"
M408Q01T = "LOTTERIES Q1		"
M411Q01  = "DIVING Q1		"
M411Q02  = "DIVING Q2		"
M413Q01  = "EXCHANGE RATE Q1		"
M413Q02  = "EXCHANGE RATE Q2		"
M413Q03T = "EXCHANGE RATE Q3		"
M420Q01T = "TRANSPORT Q1		"
M421Q01  = "HEIGHT Q1		"
M421Q02T = "HEIGHT Q2		"
M421Q03  = "HEIGHT Q3		"
M423Q01  = "TOSSING COINS Q1		"
M438Q01  = "EXPORTS Q1		"
M438Q02  = "EXPORTS Q2		"
M442Q02  = "BRAILLE Q2		"
M446Q01  = "THERMOMETER CRICKET Q1		"
M446Q02  = "THERMOMETER CRICKET Q2		"
M447Q01  = "TILE ARRANGE1 Q1		"
M462Q01T = "THIRD SIDE Q1		"
M464Q01T = "FENCE Q1		"
M467Q01  = "COLOURED CANDIES Q1		"
M468Q01T = "SCIENCE TESTS Q1		"
M474Q01  = "RUNNING TIME Q1		"
M484Q01T = "BOOKSHELVES Q1		"
M496Q01T = "CASH WITHDRAWAL Q1		"
M496Q02  = "CASH WITHDRAWAL Q2		"
M505Q01  = "LITTER Q1		"
M509Q01  = "EARTHQUAKE Q1		"
M510Q01T = "CHOICES Q1		"
M513Q01  = "TEST SCORES Q1		"
M520Q01T = "SKATEBOARD Q1		"
M520Q02  = "SKATEBOARD Q2		"
M520Q03T = "SKATEBOARD Q3		"
M547Q01T = "STAIRCASE Q1		"
M555Q02T = "NUMBER CUBES Q2		"
M559Q01  = "TELEPHONE RATES Q1		"
M564Q01  = "CHAIR LIFT Q1		"
M564Q02  = "CHAIR LIFT Q2		"
M571Q01  = "STOP THE CAR Q1		"
M598Q01  = "MAKING A BOOKLET Q1		"
M603Q01T = "NUMBER CHECK Q1		"
M603Q02T = "NUMBER CHECK Q2		"
M702Q01  = "SUPPORT FOR PRESIDENT Q1		"
M704Q01T = "THE BEST CAR Q1		"
M704Q02T = "THE BEST CAR Q2		"
M710Q01  = "FORECAST OF RAIN Q1		"
M800Q01  = "COMPUTER GAME Q1		"
M803Q01T = "LABELS Q1		"
M806Q01T = "STEP PATTERN Q1		"
M810Q01T = "BICYCLES Q1		"
M810Q02T = "BICYCLES Q2		"
M810Q03T = "BICYCLES Q3		"
M828Q01  = "CARBON DIOXIDE Q1		"
M828Q02  = "CARBON DIOXIDE Q2		"
M828Q03  = "CARBON DIOXIDE Q3		"
M833Q01T = "Seeing the Tower Q1		"
R055Q01  = "Drugged Spiders Q1		"
R055Q02  = "Drugged Spiders Q2		"
R055Q03  = "Dugged Spiders Q3		"
R055Q05  = "Drugged Spiders Q5		"
R067Q01  = "Aesop Q1		"
R067Q04  = "Aesop Q4		"
R067Q05  = "Aesop Q5		"
R102Q04A = "Shirt Q4A		"
R102Q05  = "Shirt Q5		"
R102Q07  = "Shirt Q7		"
R104Q01  = "Telephone Q1		"
R104Q02  = "Telephone Q2		"
R104Q05  = "Telephone Q5		"
R111Q01  = "Exchange Q1		"
R111Q02B = "Exchange Q2B		"
R111Q06B = "Exchange Q6B		"
R219Q01T = "Employment Q1		"
R219Q01E = "Employment Q1E		"
R219Q02  = "Employment Q2		"
R220Q01  = "South Pole- Q1		"
R220Q02B = "South Pole Q2B		"
R220Q04  = "South Pole Q4		"
R220Q05  = "South Pole Q5		"
R220Q06  = "South Pole Q6		"
R227Q01  = "Optician Q1		"
R227Q02T = "Optician Q2		"
R227Q03  = "Optician Q3		"
R227Q06  = "Optician Q6		"
S114Q03T = "Greenhouse Q3		"
S114Q04T = "Greenhouse Q4		"
S114Q05T = "Greenhouse Q5		"
S128Q01  = "Cloning Q1		"
S128Q02  = "Cloning Q2		"
S128Q03T = "Cloning Q3		"
S129Q01  = "Daylight Q1		"
S129Q02T = "Daylight Q2		"
S131Q02T = "Good Vibrations Q2		"
S131Q04T = "Good Vibrations Q4		"
S133Q01  = "Research Q1		"
S133Q03  = "Research Q3		"
S133Q04T = "Research Q4		"
S213Q01T = "Clothes Q1		"
S213Q02  = "Clothes Q2		"
S252Q01  = "South Rainea Q1		"
S252Q02  = "South Rainea Q2		"
S252Q03T = "South Rainea Q3		"
S256Q01  = "Spoons Q1		"
S268Q01  = "Algae Q1		"
S268Q02T = "Algae Q2		"
S268Q06  = "Algae Q6		"
S269Q01  = "Earth Q1		"
S269Q03T = "Earth Q3		"
S269Q04T = "Earth Q4		"
S304Q01  = "WATER Q1		"
S304Q02  = "WATER Q2		"
S304Q03a = "WATER Q3a		"
S304Q03b = "WATER Q3b		"
S326Q01  = "MILK Q1		"
S326Q02  = "MILK Q2		"
S326Q03  = "MILK Q3		"
S326Q04T = "MILK Q4		"
S327Q01T = "Tidal Energy Q1		"
X402Q01T = "Library System Q1		"
X402Q02T = "Library System Q2		"
X412Q01  = "Design by Numbers Q1		"
X412Q02  = "Design by Numbers Q2		"
X412Q03  = "Design by Numbers Q3		"
X414Q01  = "Course Design Q1		"
X415Q01T = "Transit System Q1		"
X417Q01  = "Children's Camp Q1		"
X423Q01T = "Freezer Q1		"
X423Q02T = "Freezer Q2		"
X430Q01  = "Energy Needs Q1		"
X430Q02  = "Energy Needs Q2		"
X601Q01T = "Cinema Outing Q1		"
X601Q02  = "Cinema Outing Q2		"
X602Q01  = "Holiday Q1		"
X602Q02  = "Holiday Q2		"
X603Q01  = "Irrigation Q1		"
X603Q02T = "Irrigation Q2		"
X603Q03  = "Irrigation Q3		"
CLCUSE1 = "Calculator Use"   
CLCUSE3a = "Effort-real: a"  
CLCUSE3b = "Effort-real: b"  

  MSCALE       = " Maths Scalable     "
  RSCALE       = " Reading Scalable    "
  SSCALE       = " Science Scalable    "  
  PSCALE       = " Problem Solving Scalable    "   
  CNT          = "Country Alphanumeric ISO Code"
      ;
   format

M033Q01   	$ITEMFMT.
M034Q01T  	$ITEMFMT.
M124Q01   	$ITEMFMT.
M124Q03T  	$ITEMFMT.
M144Q01T  	$ITEMFMT.
M144Q02T  	$ITEMFMT.
M144Q03   	$ITEMFMT.
M144Q04T  	$ITEMFMT.
M145Q01T  	$ITEMFMT.
M150Q01   	$ITEMFMT.
M150Q02T  	$ITEMFMT.
M150Q03T  	$ITEMFMT.
M155Q01   	$ITEMFMT.
M155Q02T  	$ITEMFMT.
M155Q03T  	$ITEMFMT.
M155Q04T  	$ITEMFMT.
M179Q01T  	$ITEMFMT.
M192Q01T  	$ITEMFMT.
M266Q01T  	$ITEMFMT.
M273Q01T  	$ITEMFMT.
M302Q01T  	$ITEMFMT.
M302Q02   	$ITEMFMT.
M302Q03   	$ITEMFMT.
M305Q01   	$ITEMFMT.
M402Q01   	$ITEMFMT.
M402Q02   	$ITEMFMT.
M406Q01   	$ITEMFMT.
M406Q02   	$ITEMFMT.
M406Q03   	$ITEMFMT.
M408Q01T  	$ITEMFMT.
M411Q01   	$ITEMFMT.
M411Q02   	$ITEMFMT.
M413Q01   	$ITEMFMT.
M413Q02   	$ITEMFMT.
M413Q03T  	$ITEMFMT.
M420Q01T  	$ITEMFMT.
M421Q01   	$ITEMFMT.
M421Q02T  	$ITEMFMT.
M421Q03   	$ITEMFMT.
M423Q01   	$ITEMFMT.
M438Q01   	$ITEMFMT.
M438Q02   	$ITEMFMT.
M442Q02   	$ITEMFMT.
M446Q01   	$ITEMFMT.
M446Q02   	$ITEMFMT.
M447Q01   	$ITEMFMT.
M462Q01T  	$ITEMFMT.
M464Q01T  	$ITEMFMT.
M467Q01   	$ITEMFMT.
M468Q01T  	$ITEMFMT.
M474Q01   	$ITEMFMT.
M484Q01T  	$ITEMFMT.
M496Q01T  	$ITEMFMT.
M496Q02   	$ITEMFMT.
M505Q01   	$ITEMFMT.
M509Q01   	$ITEMFMT.
M510Q01T  	$ITEMFMT.
M513Q01   	$ITEMFMT.
M520Q01T  	$ITEMFMT.
M520Q02   	$ITEMFMT.
M520Q03T  	$ITEMFMT.
M547Q01T  	$ITEMFMT.
M555Q02T  	$ITEMFMT.
M559Q01   	$ITEMFMT.
M564Q01   	$ITEMFMT.
M564Q02   	$ITEMFMT.
M571Q01   	$ITEMFMT.
M598Q01   	$ITEMFMT.
M603Q01T  	$ITEMFMT.
M603Q02T  	$ITEMFMT.
M702Q01   	$ITEMFMT.
M704Q01T  	$ITEMFMT.
M704Q02T  	$ITEMFMT.
M710Q01   	$ITEMFMT.
M800Q01   	$ITEMFMT.
M803Q01T  	$ITEMFMT.
M806Q01T  	$ITEMFMT.
M810Q01T  	$ITEMFMT.
M810Q02T  	$ITEMFMT.
M810Q03T  	$ITEMFMT.
M828Q01   	$ITEMFMT.
M828Q02   	$ITEMFMT.
M828Q03   	$ITEMFMT.
M833Q01T  	$ITEMFMT.
R055Q01   	$ITEMFMT.
R055Q02   	$ITEMFMT.
R055Q03   	$ITEMFMT.
R055Q05   	$ITEMFMT.
R067Q01   	$ITEMFMT.
R067Q04   	$ITEMFMT.
R067Q05   	$ITEMFMT.
R102Q04A  	$ITEMFMT.
R102Q05   	$ITEMFMT.
R102Q07   	$ITEMFMT.
R104Q01   	$ITEMFMT.
R104Q02   	$ITEMFMT.
R104Q05   	$ITEMFMT.
R111Q01   	$ITEMFMT.
R111Q02B  	$ITEMFMT.
R111Q06B  	$ITEMFMT.
R219Q01T  	$ITEMFMT.
R219Q01E  	$ITEMFMT.
R219Q02   	$ITEMFMT.
R220Q01   	$ITEMFMT.
R220Q02B  	$ITEMFMT.
R220Q04   	$ITEMFMT.
R220Q05   	$ITEMFMT.
R220Q06   	$ITEMFMT.
R227Q01   	$ITEMFMT.
R227Q02T  	$ITEMFMT.
R227Q03   	$ITEMFMT.
R227Q06   	$ITEMFMT.
S114Q03T  	$ITEMFMT.
S114Q04T  	$ITEMFMT.
S114Q05T  	$ITEMFMT.
S128Q01   	$ITEMFMT.
S128Q02   	$ITEMFMT.
S128Q03T  	$ITEMFMT.
S129Q01   	$ITEMFMT.
S129Q02T  	$ITEMFMT.
S131Q02T  	$ITEMFMT.
S131Q04T  	$ITEMFMT.
S133Q01   	$ITEMFMT.
S133Q03   	$ITEMFMT.
S133Q04T  	$ITEMFMT.
S213Q01T  	$ITEMFMT.
S213Q02   	$ITEMFMT.
S252Q01   	$ITEMFMT.
S252Q02   	$ITEMFMT.
S252Q03T  	$ITEMFMT.
S256Q01   	$ITEMFMT.
S268Q01   	$ITEMFMT.
S268Q02T  	$ITEMFMT.
S268Q06   	$ITEMFMT.
S269Q01   	$ITEMFMT.
S269Q03T  	$ITEMFMT.
S269Q04T  	$ITEMFMT.
S304Q01   	$ITEMFMT.
S304Q02   	$ITEMFMT.
S304Q03a  	$ITEMFMT.
S304Q03b  	$ITEMFMT.
S326Q01   	$ITEMFMT.
S326Q02   	$ITEMFMT.
S326Q03   	$ITEMFMT.
S326Q04T  	$ITEMFMT.
S327Q01T  	$ITEMFMT.
X402Q01T  	$ITEMFMT.
X402Q02T  	$ITEMFMT.
X412Q01   	$ITEMFMT.
X412Q02   	$ITEMFMT.
X412Q03   	$ITEMFMT.
X414Q01   	$ITEMFMT.
X415Q01T  	$ITEMFMT.
X417Q01   	$ITEMFMT.
X423Q01T  	$ITEMFMT.
X423Q02T  	$ITEMFMT.
X430Q01   	$ITEMFMT.
X430Q02   	$ITEMFMT.
X601Q01T  	$ITEMFMT.
X601Q02   	$ITEMFMT.
X602Q01   	$ITEMFMT.
X602Q02   	$ITEMFMT.
X603Q01   	$ITEMFMT.
X603Q02T  	$ITEMFMT.
X603Q03   	$ITEMFMT.
MSCALE	  	$SCALE.
RSCALE	  	$SCALE.
SSCALE	  	$SCALE.
PSCALE   	$SCALE.
CLCUSE1	  	$CLCU01F.

;
array miss3 (2) CLCUSE3a CLCUSE3b;
      
do  i=1 to 2;
if (miss3{i}=997 or miss3{i}=. ) then  miss3{i}= .N;
if miss3{i}=998 then  miss3{i}= .I;
if miss3{i}=999 then  miss3{i}= .M;
end;
run;
data pisa.intcogn;
set one;
drop i;
run;