PROC FORMAT;
    VALUE x1f 1 = '1.39 以下'
              2 = '2.40 - 49'
              3 = '3.50 以上'
    ;
    value x2f 1 = '1.109 以下'
              2 = '2.110 - 139'
              3 = '3.140 - 159'
              4 = '4.160 - 179'
              5 = '5.180 以上'
    ;
    value x3f 1 = '1.79 以下'
              2 = '2.80 - 89'
              3 = '3.90 - 99'
              4 = '4.100 以上'
    ;
    value x4f 1 = '1.159 以下'
              2 = '2.160 - 229'
              3 = '3.230以下'
    ;
    value x5f 1 = '1.正常'
              2 = '2.やや異常'
              3 = '3.異常'
              4 = '4.非常に以上'
    ;
    value x6f 1 = '1.前から吸わない'
              2 = '2.1日19本以下'
              3 = '3.1日20本以上'
              4 = '4.現在やめている'
    ;
    value x7f 1 = '1.前から飲わない'
              2 = '2.現在やめている'
              3 = '3.時々飲む'
              4 = '4.毎日飲む'
    ;
    value x8f 1 = '1.痩せている'
              2 = '2.普通'
              3 = '3.太っている'
              4 = '4.肥満'
    ;
run ;

DATA SU1;
  INPUT ( x1 - x8 ) ( 1.) +1 YEAR 2. ;
  label x1 = '[1]年齢'
        x2 = '[2]最大血圧'
        x3 = '[3]最小血圧'
        x4 = '[4]コレステ'
        x5 = '[5]心電図'
        x6 = '[6]タバコ'
        x7 = '[7]酒'
        x8 = '[8]体格'
        year = '経過年数'
  ;
  format x1 x1f.
         x2 x2f.
         x3 x3f.
         x4 x4f.
         x5 x5f.
         x6 x6f.
         x7 x7f.
         x8 x8f.
  ;
DATALINES;
343132421 6
33422242110
323212421 5
322222321 8
244144331 9
232312331 4
234122111 3
233222441 8
232221421 9
222244341 4
133233341 3
154222321 7
324112411 9
354132411 7
344213131 4
34414231110
221112321 1
254122321 4
244222331 3
244112431 5
234131431 9
233132421 9
223214441 3
144221131 7
12122112110
133142121 9
354242322 9
322333122 5
332211132 6
334133322 5
221212232 5
23223212210
222212432 5
244212322 5
221222122 6
133212332 4
121212422 9
12122232211
143113442 1
12221232210
144312142 3
15423234210
123233432 4
331212122 6
342233232 9
221212322 7
223243342 0
221212132 9
222213142 6
222223342 8
222223422 2
132243322 7
12321242210
133211132 4
122122422 9
121221322 8
122112412 8
131111332 4
;

%su1( data = su1, outside = year, item = x1 - x8 )