/* Lesson 02-93 */
 /*    File Name = Pattern11.sas   07/07/04   */

options linesize=100 pagesize=50;
options nocenter linesize=68 pagesize=9999;
options nocenter linesize=84 pagesize=50;
options nocenter linesize=79 pagesize=9999;
options nocenter linesize=97 pagesize=9999;

data igakubu;
  infile 'c:\home\Yanai_prj\2004\IgakubuTyousaData\DataAdded1.txt' 
         firstobs=4 dlm='09'x 
         truncover lrecl=530
;
  length b1_101-b1_121 b1_201-b1_221 b1_3 b1_4 b1_5 b1_6 b1_7 b1_8 b1_9 
         c7_101-c7_121 c7_201-c7_208 c7_03-c7_10 
         d3_101-d3_121 d3_201-d3_208 d3_03-d3_10 $ 1;

  input id $ 
        a1_01-a1_47 a2 
        b1_101-b1_121 b1_201-b1_221 b1_3 b1_4 b1_5 b1_6 b1_7 b1_8 b1_9 
        c1-c5 c6_01-c6_20 
        c7_101-c7_121 c7_201-c7_208 c7_03-c7_10 
        c8 c9 c10m c10d 
        d1 d2_01-d2_20 
        d3_101-d3_121 d3_201-d3_208 d3_03-d3_10 
        d4-d7 d8m d8d
        z1-z5
;

  label a1_01='読解力'
        a1_02='文章要約'
        a1_03='文法使用'
        a1_04='文章作成'
        a1_05='文章表現力'
        a1_06='自己表現力'
        a1_07='プレゼン'
        a1_08='数理能力'
        a1_09='数量的予測'
        a1_10='公式使用'
        a1_11='図表の読み'
        a1_12='図表作成'
        a1_13='スケッチ'
        a1_14='データの記録'
        a1_15='パソコン操作'
        a1_16='機械技術'
        a1_17='情報整理'
        a1_18='客観的評価'
        a1_19='結論の導出'
        a1_20='多元的な価値判断'
        a1_21='論理的思考力'
        a1_22='判断力'
        a1_23='根拠ある批判'
        a1_24='アイデア方策'
        a1_25='仮説生成'
        a1_26='発想力'
        a1_27='探究心'
        a1_28='社会問題への関心'
        a1_29='自然環境への関心'
        a1_30='空間図形への関心'
        a1_31='歴史への関心'
        a1_32='人間心理への関心'
        a1_33='生物への関心'
        a1_34='語学への関心'
        a1_35='運動への関心'
        a1_36='美術への関心'
        a1_37='音楽への関心'
        a1_38='知識・教養'
        a1_39='興味・関心'
        a1_40='協調性'
        a1_41='コミュニケーション'
        a1_42='共感すること'
        a1_43='人間性・良識'
        a1_44='福祉的態度'
        a1_45='謙虚・真面目'
        a1_46='持続力'
        a1_47='生活の規則性'
        a2='[記述]期待する学生の資質や性格'

        b1_101='現代文'
        b1_102='古文・漢文'
        b1_103='世界史'
        b1_104='日本史'
        b1_105='地理'
        b1_106='現代社会'
        b1_107='倫理'
        b1_108='政治・経済'
        b1_109='数学'
        b1_110='物理'
        b1_111='化学'
        b1_112='生物'
        b1_113='地学'
        b1_114='英語'
        b1_115='英語以外の外国語'
        b1_116='社会科6科目から任意の1科目を選択'
        b1_117='社会科6科目から任意の2科目を選択'
        b1_118='理科4科目から任意の1科目を選択'
        b1_119='理科4科目から任意の2科目を選択'
        b1_120='理科4科目から任意の3科目を選択'
        b1_121='その他'
        b1_201='現代文'
        b1_202='古文・漢文'
        b1_203='世界史'
        b1_204='日本史'
        b1_205='地理'
        b1_206='現代社会'
        b1_207='倫理'
        b1_208='政治・経済'
        b1_209='数学'
        b1_210='物理'
        b1_211='化学  '
        b1_212='生物'
        b1_213='地学'
        b1_214='英語'
        b1_215='英語以外の外国語'
        b1_216='社会科6科目から任意の1科目を選択'
        b1_217='社会科6科目から任意の2科目を選択'
        b1_218='理科4科目から任意の1科目を選択'
        b1_219='理科4科目から任意の2科目を選択'
        b1_220='理科4科目から任意の3科目を選択'
        b1_221='その他'
        b1_3='面接'
        b1_4='小論文'
        b1_5='教科に直接関係しない総合学力試験'
        b1_6='医学科向けの教科複合型総合試験'
        b1_7='各種の適性を測るための試験'
        b1_8='日本語のコミュニケーション能力や文章力を測るための試験'
        b1_9='その他'

        c1='学士編入学生の受け入れ'
        c2='学士編入学の定員'
        c3='[記述]上記の理由'
        c4='全体での学士編入学定員'
        c5='学士編入学者の編入年次'
/*        c6='学士編入学者の出身学部'  */

        c6_01='どの学部でもよい'
        c6_02='法学'
        c6_03='経済・商学'
        c6_04='文学'
        c6_05='社会学'
        c6_06='外国語学'
        c6_07='教育学'
        c6_08='教員養成系'
        c6_09='理学'
        c6_10='工学'
        c6_11='情報'
        c6_12='農・水産・獣医学'
        c6_13='歯学'
        c6_14='薬学'
        c6_15='看護・保健'
        c6_16='介護・福祉'
        c6_17='家政・生活'
        c6_18='芸術'
        c6_19='体育'
        c6_20='その他'

        c7_101='現代文'
        c7_102='古文・漢文'
        c7_103='世界史'
        c7_104='日本史'
        c7_105='地理'
        c7_106='現代社会'
        c7_107='倫理'
        c7_108='政治・経済'
        c7_109='数学'
        c7_110='物理'
        c7_111='化学'
        c7_112='生物'
        c7_113='地学'
        c7_114='英語'
        c7_115='英語以外の外国語'
        c7_116='社会科6科目から任意の1科目を選択'
        c7_117='社会科6科目から任意の2科目を選択'
        c7_118='理科4科目から任意の1科目を選択'
        c7_119='理科4科目から任意の2科目を選択'
        c7_120='理科4科目から任意の3科目を選択'
        c7_121='その他'
        c7_201='理系一般教養レベルの物理'
        c7_202='理系一般教養レベルの化学'
        c7_203='理系一般教養レベルの生命科学'
        c7_204='生物学系学部卒業レベルの生命科学'
        c7_205='医学科2年次修了レベルの生命科学'
        c7_206='大学教養レベルの数学'
        c7_207='大学教養レベルの英語'
        c7_208='その他'
        c7_03='面接'
        c7_04='小論文'
        c7_05='教科に直接関係しない総合学力試験'
        c7_06='医学科向けの教科複合型総合試験'
        c7_07='各種の適性を測るための試験'
        c7_08='日本語のコミュニケーション能力や文章力を測るための試験'
        c7_09='大学卒業後の経歴と医学部への入学動機等を記した作文'
        c7_10='その他'

        c8='[記述]大学時代の履修教科・科目'
        c9='[記述]期待する学生の資質や性格'
        c10m='[記述]学士編入学制度のメリット'
        c10d='[記述]学士編入学制度のデメリット'

        d1='メディカルスクール構想'
/*        d2='出身学部'  */

        d2_01='どの学部でもよい'
        d2_02='法学'
        d2_03='経済・商学'
        d2_04='文学'
        d2_05='社会学'
        d2_06='外国語学'
        d2_07='教育学'
        d2_08='教員養成系'
        d2_09='理学'
        d2_10='工学'
        d2_11='情報'
        d2_12='農・水産・獣医学'
        d2_13='歯学'
        d2_14='薬学'
        d2_15='看護・保健'
        d2_16='介護・福祉'
        d2_17='家政・生活'
        d2_18='芸術'
        d2_19='体育'
        d2_20='その他'

        d3_101='現代文'
        d3_102='古文・漢文'
        d3_103='世界史'
        d3_104='日本史'
        d3_105='地理'
        d3_106='現代社会'
        d3_107='倫理'
        d3_108='政治・経済'
        d3_109='数学'
        d3_110='物理'
        d3_111='化学'
        d3_112='生物'
        d3_113='地学'
        d3_114='英語'
        d3_115='英語以外の外国語'
        d3_116='社会科6科目から任意の1科目を選択'
        d3_117='社会科6科目から任意の2科目を選択'
        d3_118='理科4科目から任意の1科目を選択'
        d3_119='理科4科目から任意の2科目を選択'
        d3_120='理科4科目から任意の3科目を選択'
        d3_121='その他'
        d3_201='理系一般教養レベルの物理'
        d3_202='理系一般教養レベルの化学'
        d3_203='理系一般教養レベルの生命科学'
        d3_204='生物学系学部卒業レベルの生命科学'
        d3_205='医学科2年次修了レベルの生命科学'
        d3_206='大学教養レベルの数学'
        d3_207='大学教養レベルの英語'
        d3_208='その他'
        d3_03='面接'
        d3_04='小論文'
        d3_05='教科に直接関係しない総合学力試験'
        d3_06='医学科向けの教科複合型総合試験'
        d3_07='各種の適性を測るための試験'
        d3_08='日本語のコミュニケーション能力や文章力を測るための試験'
        d3_09='大学卒業後の経歴とメディカルスクールへの入学動機等を記した作文'
        d3_10='その他'

        d4='全国共通試験'
        d5='[記述]上記の理由'
        d6='[記述]大学時代の履修教科・科目'
        d7='[記述]期待する学生の資質や性格'
        d8m='[記述]メディカルスクールのメリット'
        d8d='[記述]メディカルスクールのデメリット'

        z1='性別'
        z2='年齢'
        z3='所属大学'
        z4='専門分野'
        z5='細分化された専門分野'
;

proc format;
  value z1f 1='男' 2='女' 9='不明'; 
  value z2f 1='20歳代' 2='30歳代' 3='40歳代' 4='50歳代' 5='60歳以上' 9='不明'; 
  value z3f 1='国立大学' 2='公立大学' 3='私立大学' 9='不明';
  value z4f 1='基礎医学' 2='境界医学' 3='社会医学' 4='臨床医学(内科系)'
            5='臨床医学(外科系)' 6='教養的教育' 7='その他' 9='不明';
  value d1f 1='現行の学部入学の制度で十分' 
            2='現行の学士編入学の制度で十分'
            3='一部の大学にMSを併設'
            4='一部の大学をMSに切り替え'
            5='全面的にMSに変更'
            6='その他'
            9='不明'; 


data pat;
  set igakubu;
/*  length b1_dnc $ 21; */
/*
  b1_dncA=b1_101 || b1_102 || b1_103 || b1_104 || b1_105 || 
          b1_106 || b1_107 || b1_108 || b1_109 || b1_110 || 
          b1_111 || b1_112 || b1_113 || b1_114 || b1_115 || 
          b1_116 || b1_117 || b1_118 || b1_119 || b1_120 || b1_121;
  b1_dncB=b1_101 || b1_109 || b1_110 || b1_111 || b1_112 || b1_114; 
  b1_kobA=b1_201 || b1_202 || b1_203 || b1_204 || b1_205 || 
          b1_206 || b1_207 || b1_208 || b1_209 || b1_210 || 
          b1_211 || b1_212 || b1_213 || b1_214 || b1_215 || 
          b1_216 || b1_217 || b1_218 || b1_219 || b1_220 || b1_221;
  b1_kobB=b1_201 || b1_209 || b1_210 || b1_211 || b1_212 || b1_214; 
*/

/* ===== B1 ===== */
  if b1_101='1' then b1_101c='国'; else b1_101c='  ';
  if b1_109='1' then b1_109c='数'; else b1_109c='  ';
  if b1_110='1' then b1_110c='物'; else b1_110c='  ';
  if b1_111='1' then b1_111c='化'; else b1_111c='  ';
  if b1_112='1' then b1_112c='生'; else b1_112c='  ';
  if b1_114='1' then b1_114c='英'; else b1_114c='  ';
  b1_dncc=b1_101c || b1_109c || b1_110c || b1_111c || b1_112c || b1_114c; 

  if b1_201='1' then b1_201c='国'; else b1_201c='  ';
  if b1_209='1' then b1_209c='数'; else b1_209c='  ';
  if b1_210='1' then b1_210c='物'; else b1_210c='  ';
  if b1_211='1' then b1_211c='化'; else b1_211c='  ';
  if b1_212='1' then b1_212c='生'; else b1_212c='  ';
  if b1_214='1' then b1_214c='英'; else b1_214c='  ';
  b1_kobc=b1_201c || b1_209c || b1_210c || b1_211c || b1_212c || b1_214c; 

  b1_botc=b1_dncc||b1_kobc;

  if b1_3='1' then b1_3c='面'; else b1_3c='  ';
  if b1_4='1' then b1_4c='小'; else b1_4c='  ';
  if b1_5='1' then b1_5c='総'; else b1_5c='  ';
  if b1_8='1' then b1_8c='コ'; else b1_8c='  ';

  b1_othc=b1_3c||b1_4c||b1_5c||b1_8c;
  b1_ov30=b1_botc||b1_othc;

/* ===== C7 ===== */
  if c7_101='1' then c7_101c='国'; else c7_101c='  ';
  if c7_109='1' then c7_109c='数'; else c7_109c='  ';
  if c7_110='1' then c7_110c='物'; else c7_110c='  ';
  if c7_111='1' then c7_111c='化'; else c7_111c='  ';
  if c7_112='1' then c7_112c='生'; else c7_112c='  ';
  if c7_114='1' then c7_114c='英'; else c7_114c='  ';
  c7_kouc=c7_101c || c7_109c || c7_110c || c7_111c || c7_112c || c7_114c; 

  if c7_202='1' then c7_202c='化'; else c7_202c='  ';
  if c7_203='1' then c7_203c='生'; else c7_203c='  ';
  if c7_205='1' then c7_205c='生'; else c7_205c='  ';
  if c7_206='1' then c7_206c='数'; else c7_206c='  ';
  if c7_207='1' then c7_207c='英'; else c7_207c='  ';
  c7_daic=c7_202c || c7_203c || c7_205c || c7_206c || c7_207c; 

  if c7_03='1' then c7_03c='面'; else c7_03c='  ';
  if c7_04='1' then c7_04c='小'; else c7_04c='  ';
  if c7_05='1' then c7_05c='総'; else c7_05c='  ';
  if c7_08='1' then c7_08c='コ'; else c7_08c='  ';
  if c7_09='1' then c7_09c='動'; else c7_09c='  ';
  c7_othc=c7_03c||c7_04c||c7_05c||c7_08c||c7_09c;
  c7_ov30=c7_kouc||c7_daic||c7_othc;

/* ===== D3 ===== */
  if d3_101='1' then d3_101c='国'; else d3_101c='  ';
  if d3_109='1' then d3_109c='数'; else d3_109c='  ';
  if d3_110='1' then d3_110c='物'; else d3_110c='  ';
  if d3_111='1' then d3_111c='化'; else d3_111c='  ';
  if d3_112='1' then d3_112c='生'; else d3_112c='  ';
  if d3_114='1' then d3_114c='英'; else d3_114c='  ';
  d3_kouc=d3_101c || d3_109c || d3_110c || d3_111c || d3_112c || d3_114c; 

  if d3_202='1' then d3_202c='化'; else d3_202c='  ';
  if d3_203='1' then d3_203c='生'; else d3_203c='  ';
  if d3_205='1' then d3_205c='生'; else d3_205c='  ';
  if d3_206='1' then d3_206c='数'; else d3_206c='  ';
  if d3_207='1' then d3_207c='英'; else d3_207c='  ';
  d3_daic=d3_202c || d3_203c || d3_205c || d3_206c || d3_207c; 

  if d3_03='1' then d3_03c='面'; else d3_03c='  ';
  if d3_04='1' then d3_04c='小'; else d3_04c='  ';
  if d3_05='1' then d3_05c='総'; else d3_05c='  ';
  if d3_08='1' then d3_08c='コ'; else d3_08c='  ';
  if d3_09='1' then d3_09c='動'; else d3_09c='  ';
  d3_othc=d3_03c||d3_04c||d3_05c||d3_08c||d3_09c;
  d3_ov30=d3_kouc||d3_daic||d3_othc;

run;

title 'B1. 高校卒業者に対する入学試験';
proc print data=pat(obs=10);
/*
  var b1_dncA b1_dncB b1_dncBc b1_kobA b1_kobB;
*/
  var b1_dncc b1_kobc b1_botc b1_othc b1_ov30;
run;

proc freq data=pat order=freq;
  tables b1_dncc b1_kobc b1_botc b1_othc b1_ov30;
run;

title 'C7. 学士編入者に対する入学試験';
proc print data=pat(obs=10);
  var c7_kouc c7_daic c7_othc c7_ov30;
run;

proc freq data=pat order=freq;
  tables c7_kouc c7_daic c7_othc c7_ov30;
run;

title 'D3. メディカルスクールへの入学試験';
proc print data=pat(obs=10);
  var d3_kouc d3_daic d3_othc d3_ov30;
run;

proc freq data=pat order=freq;
  tables d3_kouc d3_daic d3_othc d3_ov30;
run;