EXSTAT財
務 デ ー タの知 識 ベ ー ス構 築 環境 へ の移 行
宮
川 裕
之
Conversion
from EXSTAT
financial
data
into
knowledge
base environment
Hiroyuki
Miyagawa
There are some financial data we could obtain , EXSTAT , COMPUSTAT II , NEEDS.
To store these financial data into knowlege base is necessary for building a knowledge
base system based on the finacial data.
Knowledge base systems are built on a work station or a personal computer , whose
user interface
and support tools for building knowledge base are more substantial
than
those of host computer system.
The purpose of this paper is to convert the section B and the section C in EXSTAT
financial
data stored on the host computer
system into knowlege base environment
on
personal computer .
は じめ に
財 務 デ ー タ と して現 在 入 手 で きる もの の 中 に,英 国 お よび ヨー ロ ッパ につ い て はエ クス テ ル社
の エ クス タ ッ ト(EXSTAT),米
国 お よ び カ ナ ダ につ い て はス タ ン ダー ド ・ア ン ド ・プ ア ー ズ社
の コ ン ピ ュス タ ッ ト(COMPUSTATII),我
が 国 にお い て は 日本 経 済 新 聞 社 の ニ ー ズ(NEEDS)
が あ る。 これ らの財 務 デ ー タ を知 識 ベ ー ス に格 納 で きれ ば,国 際 財 務 デ ー タ を基 と した エ キ ス
パ ー トシ ス テ ム な どの知 識 ベ ース シス テ ム の構 築 に利 用 す る こ とが で きる 。知 識 ベ ース シス テ ム
はユ ー ザ イ ン タフ ェ ー スや構 築 支援 ツー ル が充 実 して い る こ とが 求 め られ る の で ワ ー クス テ ー シ
ョンや パ ソ コ ン上 に構 築 され る こ とが多 い 。従 来 は上 記 財 務 デ ー タの よ うな大 容 量 のデ ー タ は も
っぱ ら大 型 汎 用機 上 で処 理 され,ワ
ー クス テ ー シ ョ ンや パ ソ コ ンで は記 憶容 量 の点 か ら扱 い が 困
難 で あ っ た が,近 年,パ
ソ コ ン等 にお い て も光 磁 気 デ ィス ク(約600メ
ガバ イ ト)の よ うに 大容
量 の 外 部 記 憶 装 置 を接 続 す る こ とが で き る よ うに な り,メ イ ン メモ リー もパ ソコ ン レベ ル で16メ
ガバ イ ト程 度 まで拡 張 で きる な ど,大 容量 の デ ー タをパ ソ コ ン等 で 扱 う こ とが可 能 に な って きて
い る。
そ こで,本 稿 で は国 際財 務 知 識 ベ ース シス テ ム を構 築 す る ため の 第 一 歩 と して,上 記 財 務 デ ー
タの 中 か らEXSTAT財
務 デ ー タの セ ク シ ョ ンBお よび セ ク シ ョンCを 大 型 汎 用機 か らパ ソ コ ン
上 の 知 識 ベ ース 構 築環 境 に移 行 す る こ と を 目的 と して い る。 な お,本 稿 で は 知識 ベ ー ス構 築 ツ ー
ル と し てART-IM1.51)を 用 い た 。
1.EXSTAT財
務 デ ー タ の 概 要2)
1.1EXSTAT財 務 デ ー タ の 収 録 内 容 EXSTAT財 務 デ ー タ に は 英 国 お よ び ヨ ー ロ ッパ の 企 業 に つ い て の 最 長 過 去18年 間,4315社 の 財 務 デ ー タ が 収 録 さ れ て い る(1988/7/21現 在)。 表1-1は 登 録 国 別 収 録 件 数 を,表1-2は 収 録 期 間 別 収 録 件 数 を 示 した も の で あ る3)。 表1-1登 録 国別 収 録 件 数登 録 国 名
収 録 件 数
比 率(沿
登 録 国 名
収 録 件 数
比 率(%)
ENGLAND 3212 74.43 I SWITZERLAND 27 0.63 AUSTRALIA 258 5.98 DENMARK 21 0.49 SCQTLAND 184 4.26 NORWAY 15 0.35 FRANCE 138 3.20 FINLAND 15 0.35 GERMANY 133 3.08 AUSTRLA 8 0.19 NETHERLANDS 60 1.39 SPAIN 6 0.14JAPAN
57 1.32 NEWGEALAND 3 0.07SWEDEN
541.25
ISLEOFMAN 3o.07
EIRE 41 0.95 OTHERS 8 0.18 BELGIUM 40 0.93 IT肌Y 32 0.74
TOTAL
4315 100.00表1-2収
録期間別収録 件数
収 録 期 間(年)
収 録 件 数
比 率(%)
収 録 期 間(年)
収 録 件 数
比 率(%)
1 51 1.18 1 11 409 ,. 2 201 4 66 12 338 7 83 3 217 5 03 13 128 2 97 4 192 4 45 14 126 2 925
2175 03
15
176
4 os s 247 572
16
ssi 1601
7
206 4 77 17 468 1085
8 172 3 99 18 2 0 05 9211
4 89 ■ 10 263 s 10 TOTAL 4315 100.00 EXSTAT財 務 デ ー タ は セ ク シ ョ ンB,セ ク シ ョ ンCお よ び セ ク シ ョ ンDの3つ の セ ク シ ョ ン に 分 け て 収 録 さ れ て い る 。 セ ク シ ョ ンBに は 会 社 属 性 デ ー タ が,セ ク シ ョ ンCに は 財 務 諸 表 デ ー タ が,セ ク シ ョ ンDに は 証 券 デ ー タ が そ れ ぞ れ 収 録 さ れ て い る 。 本 稿 で 知 識 ベ ー ス 構 築 環 境 へ の 移 行 対 象 と し た の は セ ク シ ョ ンBお よ び セ ク シ ョ ンCで あ る が, セ ク シ ョ ンDに つ い て も 同 様 の 処 理 手 順 で 移 行 が 可 能 で あ る 。 1)製 造:InferenceCorporation,国 内 販 売:ニ チ メ ン デ ー タ シ ス テ ム ㈱ 2)COMPUSTATIIお よ びNEEDSと の 比 較 は,宮 川 裕 之:"日 英 米 の 主 要 財 務 デ ー タ の 構 造 比 較",青 山 社 会 科 学 紀 要 第17巻,第2号,pp.94-96(1989)を 参 照 さ れ た い 。 3)表1-1お よ び 表1-2は セ ク シ ョ ンBの 項 目B9(Countryofregistration)お よ びB30(Industrial classification)に 基 づ い て 集 計 し た もの で あ る 。1.2ソ ー ス デ ー タ の 構 造 EXSTAT財 務 デ ー タ は 磁 気 テ ー プ で 供 給 さ れ て お り,ソ ー ス デ ー タ の 記 録 形 式 は 可 変 レ コ ー ド長,可 変 ブ ロ ッ ク 長(最 大 ブ ロ ッ ク サ イ ズ は32000バ イ ト)で あ る 。 図1-1は ソ ー ス デ ー タ の 構 造 を 示 し た も の で あ る4)。 BYTE 4 80 159 158Q 重589 1589 39+103n n:証 券 数 80 BLOCKLENGTH HEADERLABEL SECTION B SECTION C SECTION C SECTION C SECTION D TAILERLABEL 収 録 期 圃 分 の セ ク シ ョ ン 数 セ ク シ ョ ン の 大 き さ は 証 券 数 に よ る 図1-1EXSTAT財 務 デ ー タ の ソ ー ス デ ー タ の 構 造 1会 社 分 の 財 務 デ ー タ 図1-1に 示 し た と お り,セ ク シ ョ ンB(159バ イ ト,た だ し先 頭4バ イ トは レ コ ー ド長)は 1会 社 に つ き必 ず1つ 収 録 さ れ て い る が,セ ク シ ョ ンC(1589バ イ ト,た だ し先 頭4バ イ トは レ コ ー ド長)は 収 録 期 間 の 数 だ け 収 録 さ れ て い る 。 セ ク シ ョ ンDは 証 券 の 数 が1以 上 の 場 合 に 収 録 さ れ,セ ク シ ョ ン の 大 き さyは, y=39十103n(n:証 券 の 数) で あ る(た だ し先 頭4バ イ トは レ コ ー ド長)。 証 券 の 数 が0の 場 合 に は セ ク シ ョ ンDは 収 録 さ れ な い 。 4)ExtelFinancialL童mited:「EXSTATTAPEFORMAT」(FEBRUARY1989) ＼
2.知
識 ベ ー ス構 築 環 境 へ の移 行
2.1知 識 ベ ー ス 構 築 環 境
知 識 ベ ー ス は エ キ ス パ ー トシ ス テ ム な どの 知 識 シ ス テ ム が 利 用 しや す い よ う に体 系 化 さ れ た 知 識 の 集 合 体 で あ る 。 し た が っ て,一 定 の 知 識 表 現 形 式 と 知 識 管 理 シ ス テ ム の も と で 構 築 す る必 要 が あ る 。 本 稿 で は,NECのPC-9800で 動 作 す る エ キ ス パ ー トシ ス テ ム 構 築 ル ー ルART-IM1.55)
(以 下ART-IMと い う)を 用 い た 。ART-IMは ワ ー ク ス テ ー シ ョ ン版 のARTを パ ソ コ ン に 向 け に 移 植 し た も の で,ARTが 有 す る 主 要 な 機 能 で あ る 知 識 表 現 用 言 語,推 論 エ ン ジ ン,知 識 ベ ー ス コ ン パ イ ラ,ソ フ トウ ェ ア 開 発 環 境 等 の 機 能 を 含 む ハ イ ブ リ ッ ド型 の エ キ ス パ ー ト シ ス テ ム 構 築 環 境 で あ る 。 な お,ART-IMはC言 語 に よ っ て 記 述 さ れ て い る 。ART-IMに あ ら か じ め 用 意 さ れ て い る 知 識 表 現 や 推 論 機 構 で は 知 識 ベ ー ス シ ス テ ム 構 築 に 不 十 分 の 場 合 に は,後 述 の よ う にC言 語 を 用 い て 知 識 表 現 や 推 論 機 構 を 修 正 す る こ と が 可 能 で あ る 。 図2-1は,本 稿 に お け る 知 識 ベ ー ス 構 築 環 境 の シ ス テ ム 構 成 を 示 し た も の で あ る 。 図2-1 に 示 す よ う に 本 稿 に お け る 知 識 ベ ー ス 構 築 環 境 の ハ ー ド ウ ェ ア 構 成 は パ ソ コ ン(NEC PC-9801ES)シ ス テ ム に 増 設 メ モ リ,ハ ー ドデ ィ ス ク お よ び 光 磁 気 デ ィ ス ク(MO)を 接 続 し た も の で あ る6)。 な お,C言 語 の 処 理 系 はMS-C(マ イ ク ロ ソ フ ト社)を 用 い た 。 2.2大 型 汎 用 機 上 で の デ ー タ 変 換7) EXSTAT財 務 デ ー タ は 本 稿 で 使 用 し た 大 型 汎 用 機 か らパ ソ コ ン の 光 磁 気 デ ィ ス ク ヘ フ ァ イ ル 転 送 コ マ ン ド(FILTRANCE)で 転 送 さ れ る 。 こ のFILTRANCEコ マ ン ド に よ っ て 転 送 で き る デ ー タ は キ ャ ラ ク タ コ ー ド に 限 られ る が,EXSTAT財 務 デ ー タ の セ ク シ ョ ンCに は パ ッ ク 形 式 の デ ー タ が 含 ま れ て い る の で,そ の ま ま の 内 容 で はFILTRANCEコ マ ン ド に よ る デ ー タ 転 送 が で き な い,ま た,FILTRANCEコ マ ン ドに よ る デ ー タ 転 送 は 基 本 的 に はTSS端 末 へ の デ ー タ 転 送 で あ り,通 常 の コ ピ ー コ マ ン ドに 比 較 し て 転 送 に 時 間 が か か る た め,EXSTAT財 務 デ ー タ 全 体 を 一 度 に 転 送 す る と,30時 間 以 上 の 転 送 時 間 が 見 込 ま れ る 。 さ ら にFILTRANCEコ マ ン ドの 転 送 レ コ ー ド長 は999バ イ ト ま で と な っ て い る8)。 そ こ で,大 型 汎 用 機 上 に お い てEXSTAT財 務 デ ー タ を 以 下 の よ う に 変 換 す る こ と に し た9)。 (1)セ ク シ ョ ンB,セ ク シ ョ ンCお よ び セ ク シ ョ ンDを 別 々 の フ ァ イ ル に 分 割 す る 。 (2)セ ク シ ョ ンCの パ ッ ク 形 式 の デ ー タ を キ ャ ラ ク タ ー に 変 換 す る 。 (3)セ ク シ ョ ンCの1件 の レ コ ー ドを12の レ コ ー ド に分 割 す る こ と に よ っ て セ ク シ ョ ンCの フ ァ イ ル の レ コ ー ド長 を256バ イ トに す る 。 (4)1回 の フ ァ イ ル 転 送 時 間 が1時 間 程 度 に な る よ う に セ ク シ ョ ンCの フ ァ イ ル を 分 割 す る 。
5)ART-IMは80286ま た は80386のCPU ,2メ ガ バ イ ト以 上 の プ ロ テ ク トメ モ リ,MS-DOSVsr.3.0以 上,の
環 境 で 作 動 す る 。
6)ART-IMの 動 作 環 境 を 定 義 す る た め のMS-DOSのCONFIG .SYSお よ びAUTOEXEC.BATに つ い て は付 録
1を 参 照 さ れ た い 。
7)こ の 変 換 に はNEC製 ス ー パ ー コ ン ピ ュ ー タSX-1EAを 使 用 し た。
8)日 本 電 気 株 式 会 社,「ATSS-AFコ マ ン ド説 明 書 非 メ ニ ュ ー 編 」,p.220(1989)
SOfTWARE HARD冊ARE
匝]⇔
【
璽 コ ⇔
OSUS-DOSVER.3.36 icu社 製 IF-2750 SCSI1/F H SCSI_ID:7 1NTOSCSIID:O SCSIID:1 SCSIID:2
/1「 丶 ＼丶 _ノ HARDDISK 130VBYTE WORK /τ 一丶 曳_ノ ノ
〃
()
HARDDISK 置30鵠BYTE KNOWLEDGE(BASE)
〃
〆1一
丶
戛
ノ
uo 300x2 BBYTE SOURCEDATA 曳 ノ icu社 製 SRC-13韮 置C凹 社 製 SRC-13且 tcu社 製 uo-7616 尹C-9801ES 図2-1知 識 ベ ー ス構 築環 境 の シス テ ム 構成 ま た,以 後 の デ ー タ 操 作 の し や す さ を 考 慮 し て,可 変 レ コ ー ド長,可 変 ブ ロ ッ ク 長 の レ コ ー ド 形 式 を 固 定 長 に 変 更 す る こ と と し た 。 分 割 さ れ た セ ク シ ョ ンCの 各 フ ァ イ ル は パ ソ コ ン シ ス テ ム へ の デ ー タ 転 送 後 に 再 び 結 合 す る こ と と し た 。 表2=1は 上 記 手 続 に 従 っ て 変 換 した セ ク シ ョ ン Bお よ び セ ク シ ョ ンCの フ ァ イ ル 形 式 を 示 し た も の で あ る 。表2に 示 し た フ ァ イ ル の う ち,EXBお よ びEXCMODDIV1か らEXCMODDIV23ま で の フ ァ イ ル を パ ソ コ ン シ ス テ ム へ 転 送 す る こ と と な る 。
表2一 圏1デ ー タ変 換 後 の フ ァ イル形 式
フ ァ イ ル 名
セ ク シ ョ ン レ コ ー ド長 ブ ロ ッ ク 長 フ ァ イ ル 容 量EX -B セ ク シ ョ ンB
(セ ク シ ョ ン 分 割 後)
180BYTE 9000BYTE 4315RECORDS
EX _C セ ク シ ョ ンC
(セ ク シaン 分 割 後)
1600BYTE 14400BYTE 45457RECORDS
EXCMOD甲 セ ク シ3ンC
(ア ン パ ッ ク 変 換 後)
2900BYTE 14500BYTE 45457RECORDS
EX_CMOD _DIV セ ク シ ョ ンC (レ コ ー ド 分 割 後)
256BYTE 12800BYTE 545484RECORDS
EX_CMOD:DIV
_nn
nn:1^-23
セ ク シ ョ ンC (フ ァ イ ル 分 割 後)
256BYTE 12800BYTE
24000RECORDS
(23FILES)
2.3パ ソ コ ン シ ス テ ム へ の デ ー タ 転 送 パ ソ コ ン シ ス テ ム へ の デ ー タ 転 送 お よ び 転 送 後 の デ ー タ処 理 は 以 下 の と お りで あ る 。 (1)SX-1EAか ら パ ソ コ ン(NECPC-9801UX)に 接 続 さ れ て い る光 磁 気 デ ィ ス ク10)へ の 前 述 の セ ク シ ョ ンBお よ び 分 割 し た セ ク シ ョ ンCの フ ァ イ ル(EX_Bお よ びEXCMODDIVn)を フ ァ イ ル 転 送 す る 。 (2)そ の 光 磁 気 デ ィ ス ク を 図2-1に 示 した 知 識 ベ ー ス 構 築 環 境 に接 続 し て か ら,分 割 さ れ た セ ク シ ョ ンCの23個 の 各 フ ァ イ ル を1つ の セ ク シ ョ ンCに フ ァ イ ル と して 結 合 す る 。 (3)光磁 気 デ ィ ス ク 上 の セ ク シ ョ ンCの フ ァ イ ル を 国 別 の フ ァ イ ル に 分 割 す る 。 な お,パ ソ コ ン 側 の 端 末 エ ミ ュ レ ー タ に はETOS52GB(NEC製)を 用 い た 。 図2-2は フ ァ イ ル 転 送 に 使 用 し た シ ス テ ム の 概 略 図 で あ る 。 フ ァ イ ル 転 送:フ ァ イ ル 転 送 はSXOS(SX-1EAの オ ペ レ ー テ ィ ン グ シ ス テ ム)の コ マ ン ド, FILTRANCE11)で 行 っ た 。 フ ァ イ ル 転 送 に 要 し た 時 間 は,EX_Bが 約10分,EXCMODDIVn
(n:1∼23)の 各 フ ァ イ ル に つ い て は 約1時 間(合 計 約23時 間)で あ っ た 。 光 磁 気 デ ィ ス ク に 転 送 さ れ た 各 フ ァ イ ル の 構 造 は レ コ ー ドの デ リ ミ ッ タ(区 切 りコ ー ド)と し てCRLF(コ ー ド:ODh,OAh)の2バ イ トが 付 加 さ れ る こ と を 除 き,SX-1EA上 の フ ァ イ ル と 同 様 で あ る 。 セ ク シ ョ ンCの 再 構 成:フ ァ イ ル 転 送 後,光 磁 気 デ ィ ス ク を 図2-1に 示 し た 知 識 ベ ー ス 構 築 環 OSMS-DOSVER.3.3B CPU(80286) pc-ssoiux E T O S 5 2 c B ossxos CPIl SX-lEA 図2-2フ ァ イル 転 送 の シ ステ ム構 成 10)端 末 と し て 使 用 し た パ ソ コ ン はNECのLANシ ス テ ム(B4670H)(割 込:INTO)に 接 続 さ れ て い る た め, SCSII/Fの 割 込 はINT1,2ま た は5を 用 い る 。
11)SX-1EA上 の フ ァ イ ルEXBを パ ソ コ ン 上 の フ ァ イ ルEX _Bに 転 送 す る 場 合 の コ マ ン ド は,FILTEX_B
EXB/FYO3TOTERMOUTPUTMSDOSと な る 。 こ こ でFYO3は,MS-bOSに お け るDド ラ イ ブ を 指 す 。 な
境 に戻 し て 接 続 し,分 割 し て 転 送 さ れ たEXCMODDIV1か らEXCMODDIV23ま で の フ ァ イ ル を 光 磁 気 デ ィ ス ク 上 に 結 合 し た12)。 そ の 際,結 合 後 の 各 レ コ ー ドの 最 後 の48バ イ トを 削 除 し,1レ コ ー ドを2825バ イ トと し た 。 こ の48バ イ トは 大 型 汎 用 機 上 で の ア ンパ ッ ク 変 換 の 際 に レ コ ー ド長 の 調 整 の た め に 付 加 し た ス ペ ー ス で ,元 のEXSTATの ソ ー ス デ ー タ に は 含 ま れ て い な い 。 セ ク シ ョ ンBお よ び 結 合 し た セ ク シ ョ ンCの フ ァ イ ル ボ リ ュ ー ム は そ れ ぞ れ677455バ イ トお よ び129734278バ イ トで あ る 。 国 別 フ ァ イ ル へ の 分 割:光 磁 気 デ ィ ス ク 上 の セ ク シ ョ ンCの フ ァ イ ル は ハ ー ドデ ィ ス クへ の 格 納 の 都 合 上,国 別 の フ ァ イ ル(25力 国)に 分 割 し13),光 磁 気 デ ィ ス ク よ り も ア ク セ ス ス ピ ー ドの 速 い ハ ー ドデ ィ ス ク に 移 し た 。 2.4ART-IMへ の 機 能 追 加 知 識 ベ ー ス は 基 本 的 に は メ イ ン メ モ リ 上 に 展 開 さ れ る 。 し か しEXSTAT等 の 財 務 デ ー タ は そ の デ ー タ 量 が 大 き い た め(セ ク シ ョ ンCだ け で も130メ ガ バ イ ト),そ の す べ て を メ イ ン メ ・モ リ 上 (deffactssection-c-item (item‐adC1(1.7)char) (item-adC2(88)char) (item-adC3(161)-char) (ite湿 一adC4(171)char) (item-adC5(181)char) ● ● ● ● ○ ● ● ● ● (item-adCE8(283011)val) (itee-adCE9(284111)val)) (deffactsseciton-c-record (rec-nunAAAADEX19721) (rec-numAAAADEX1973.2) (rec-nunAAAADEX19743) (rec-nunAAAADEX19754) ・ ・ ・ ・ ・ …
(rec-nunCHAEADGEV19841)
(rec-numCHAEADGEV19852)
(rec-nunCHAEADGEV1986.3)
(rec-numPRAFB_EEV19854)
Crec-nunPRAFB_EEV19865)
(rec-nunPRAFB_EEY19876))
図2-3ア ドレス 情 報 を記述 した フ ァ ク ト 12)セク シ ョ ンCの 結 合 用 の プ ログ ラ ム リス トを付 録3に 示 す。 13)国別 フ ァイ ル分 割 の ため の プ ログ ラ ム リス トを付 録4に 示 す。に 置 く こ と は 不 可 能 で あ る 。 そ こ で,推 論 の 過 程 で 必 要 と な る 財 務 デ ー タ を部 分 的 に ハ ー ドデ ィ ス ク か ら メ イ ン メ モ リ上 の 知 識 ベ ー ス に 読 み 込 む と い う使 用 形 態 が 考 え ら れ る 。 こ の 場 合,ハ ー ドデ ィ ス ク 上 の 財 務 デ ー タ を 読 み 込 む 入 力 機 能 をART-IMの 入 出 力 命 令 を用 い て 実 現 す る こ と も 可 能 で あ る が,国 別 フ ァ イ ル に 分 割 し て も 英 国 の セ ク シ ョ ンCの フ ァ イ ル ボ リ ュ ー ム は 90446114バ イ トあ り,シ ー ケ ン シ ャ ル な 入 出 力 を 基 本 と す るART-IMの 命 令 で は フ ァ イ ル ア ク セ ス に 時 間 が か か りす ぎ る 。 そ こ で,財 務 デ ー タ を ラ ン ダ ム ア ク セ ス で き る 入 力 関 数(関 数 名: refer)をC言 語 で 記 述 し14),ART-IMに 組 み 込 む こ と と す る 。 こ の 関 数 の 仕 様 は,登 録 国 コ ー ド,レ コ ー ド番 号,先 頭 位 置 お よ び 項 目 の 大 き さ を 引 数 と して 渡 す と,該 当 す る 会 計 数 値 を 返 す も の で あ る 。 プ ロ グ ラ ム リ ス トは 付 録5に 示 す 。ART-IMへ の 関 数 の 組 み 込 み 手 順 は 「ART-IM intheDOSEnvironment」(Inferencecorp.),Capter7,Capter8を 参 照 さ れ た い 。 な お,入 力 し よ う と す る 年 度 の デ ー タ の レ コ ー ド位 置 と入 力 財 務 項 目 の 先 頭 位 置 お よ び そ の 大 き さ に 関 す る ア ド レ ス 情 報 はART-IMの フ ァ ク ト を 使 っ て 記 述 し た 。 フ ァ ク ト の 内 容 は(rec-num会 社 コ ー ド 登 録 コ ー ド 年 度 レ コ ー ド番 号)お よ び(item-ad項 目 名(先 頭 位 置 項 目の 大 き さ)項 目属 性)で あ る 。 こ こ で,項 目 属 性 に は そ の 項 目が 数 値 で あ れ ばvalを,文 字 で あ れ ばcharを 設 定 す る こ と と した 。 図2-3は ア ド レ ス 情 報 を 記 述 した フ ァ ク トの 一 部 を 示 した も の で あ る 。 ま た,ア ド レ ス 情 報 を知 識 ベ ー ス か ら得 て ハ ー ドデ ィ ス ク 上 の フ ァ イ ル か ら 会 計 数 値 を 読 み 込 む 手 順 はART-IMの ル ー ル で 記 述 す る こ と と し た 。 フ ァ イ ル の ア ド レ ス 情 報 をART-IMの 知 識 ベ ー ス 上 に 持 つ こ と に よ っ て,今 後 ハ ー ドデ ィ ス ク 上 の デ ー タ ベ ー ス の 種 類,フ ァ イ ル ボ リ ュ ー ム お よ び フ ァ イ ル 格 納 場 所 の 変 更 に 柔 軟 に 対 応 す る こ とが で き る 。 図2-4は 会 社 コ ー ドがAAAADの1975年 の 売 上 高 を ハ ー ドデ ィ ス ク 上 の 財 務 フ ァ イ ル か ら 読 み 込 み,知 識 ベ ー ス 上 に ア サ ー トす るART-IMの ル ー ル の 例 を示 し た もの で あ る 。 (def-user-funrefer :epname"referl" :args((code:string) (rec:integer) (start:integer) (lens:integer)) :returns:float) (defruleget-financial-value (item-adC31(?start?length)val) (rec-numAAAAD?ctry-code1975?rec))
_〉
(bind?dt(refer?ctry-node?rec?start:?length.))
(assert(financial-valueAAAAD1975C31?dt)))
図2-4会 計 数 値 入 力 ル ー ル例 14)関 数referの プ ロ グ ラ ム リ ス ト を 付 録5に 示 す 。お わ りに
本 稿 で は,大 型 汎 用 機 上 のEXSTAT財
務 デ ー タ をパ ソ コ ンの知 識 ベ ー ス構 築 環 境 に移 行 す る
際 の 手 続 につ い て述 べ た。 今 後,こ の財 務 デ ー タ を基 に知 識 ベ ース シス テ ム に お け る財 務 デ ー タ
の表 現 形 式 に つ い て考 え てみ た い 。 そ の場 合,国 際 財 務 デ ー タ を扱 う際 の各 国 の会 計 制 度 の 違 い
お よび財 務 デ ー タの収 録 フ ォーマ ッ トの違 い を どの よ うに知 識 ベ ー ス上 に表 現 す るか が1つ の 問
題 とな る で あ ろ う。 ま た,メ イ ンメ モ リ上 の知 識 ベ ー ス と外 部 記1意装 置 上 の デ ー タベ ース との リ
ン クの仕 方 も今 後 の課 題 と して残 って い る。
な お,本 稿 に お け る研 究 を進 め る に あ た り,青 山学 院 大 学 経 営 学 部
大 矢 知 司 教 授 に
はEX-STAT財
務 デ ー タ を使 用 させ て い た だ き,ま た,大 型 汎 用機 か らの デ ー タ転 送 に は同大 学 情 報 科
学研 究 セ ンタ ー の計 算機 を使 用 させ て い た だい た 。 こ こ に記 して謝 意 を表 す る。
付 録1
(autoexec.bat] path a:VmscVrbin;a:Vmsabin;a:Ybin;a:Ybat;a:Vbinb;a:Ybinr;a:Yjart15Ybin; prompt $13$g set lib=a:Yjart15Y1ib;a:VmscVlib; set include=a:VmscYinclude;a:Yjart15Yinc set init=a:VsourceVmeYini;%INIT% set emacs=a:Yjart15Yemacs set art=a:Yjart15Yjart set tmp=a:Vtmp set dos16m=1 @ 1024 : 12288 (config.sys] buffers=10 files=15shell=a:YbinYcommand.com a:Ybin /P /E:512 device=a:YbinYprint.sys
device=a:YbinYmouse.sys
device=a:YmodrvYmodrv55.sys /d2 /b4
、 付 録2-1(セ ク シ ョ ン 分 割) INTEGER NOR,HL,PTR.BLKLEN.CL.BL,DH CHARACTER REC*32000.BYTE.BLK*4 NOR=0 HL=80 BL=159 CL=1589 DH=39 5 READ(10.1000,END=7) BLK PTR=0 NN=ICHAR(BLK(1:1))/16 MM=ICHAR(BLK(1:1))-16*NN 00=ICHAR(BLK(2:2))/16 PP=ICHAR(BLK(2:2))-16*00 BLKLEN=NN*16*16*16+MM*16*16+00*16+PP-4 CALL REREAD READ(10,1005,END=7) BLK,(REC(I:I),I=1,BLKLEN) 6 IF (REC(PTR+21:PTR+21).EQ.'H') THEN PTR=PTR+HL IF (PTR.GE.BLKLEN) GO TO 5
ELSE IF (REC(PTR+21:PTR+21).EQ.'B') THEN
WRITE(11.1010) REC(PTR+1:PTR+BL)
PTR=PTR+BL
ELSE IF (REC(PTR+21:PTR+21).EQ.'C') THEN. WRITE(12.1020) (REC(PTR+1+(I-1)*255:PTR+255*I).1=1.6). REC(PTR+CL-59+1:PTR+CL) PTR=PTR+CL IF (PTR.GE.BLKLEN) GO TO 5
ELSE IF (REC(PTR+21:PTR+21).EQ.'D') THEN
WRITE(13.1030) REC(PTR+1:PTR+DH) NOD=O BYTE=REC(PTR+38:PTR+38) NL=ICHAR(BYTE)/16 NR=ICHAR(BYTE)-16*NL NOD=NL*100 NOD=N0D+NR*10 BYTE=REC(PTR+39:PTR+39) NL=ICHAR(BYTE)/16 NOD=NOD+NL PTR=PTR+DH IF (PTR.GE.BLKLEN) GO TO 5 DO 10 I=1,NOD WRITE(13.1040) REC(PTR+1:PTR+103) 10 PTR=PTR+103 IF (PTR.GE.BLKLEN) GO TO 5
ELSE IF (REC(PTR+21:PTR+21).EQ.'T') THEN
GO TO 7 ENDIF IF (PTR.GE.BLKLEN) THEN GO TO 5 ELSE GO TO 6 ENDIF 7 STOP 1000 FORMAT(A4) 1005 FORMAT(A4,128(255A1)) 1010 FORMAT(A159) 1020 FORMAT(6A255.A59) 1030 FORMAT(A39) 1040 FORMAT(A103) END
付 録2-2(ア ン パ ッ ク変 換) IDENTIFICATION DIVISION. PROGRAM-ID. RDCMOD. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. ACOS. OBJECT-COMPUTER. ACOS.
INPUT-OUTPUT SECTION. FILE -CONTROL.
SELECT INPF ASSIGN TO IFILE. SELECT OUTF ASSIGN TO OFILE. DATA DIVISION.
FILE SECTION.
FD INPF LABEL RECORD STANDARD. 01 REC. 02 FILLER PIC X(4). 02 SECTION-C. 03 Cl PIC X(7). 03 C2 PIC X(8). 03 C3 PIC X(1). 03 C4 PIC X(1). 03 C5 PIC X(1). 03 C6 PIC X(1). 03 C7 PIC X(8). 03 C8 PIC X(3). 03 C9 PIC X(1). 03 C10 PIC X(3).
03 03 C11 C12 PIC PIC 9(1) 9(4)V9(5) COMP-3. COMP -3 . 03 C13 PIC X(1), 03 C14 PIC S9(11) COMP-3. 03 C15 PIC S9(11) COMP-3. 03 C16 PIC S9(11) COMP-3. 03 C17 PIC S9(11) COMP-3. 03 C18 PIC S9(11) COMP-3. 03 C19 PIC S9(11) COMP-3. 03 C20 PIC S9(11) COMP-3. 03 C21 PIC S9(11) COMP-3. 03 C22 PIC S9(11) COMP-3. 03 C23 PIC S9(11) COMP-3. 03 C24 PIC S9(11) COMP-3. 03 C25 PIC X(1). 03 C26 PIC X(1). 03 C27 PIC X(1). 03 C28 PIC X(1). 03 C29 PIC X(1). 03 C30 PIC X(1), 03 C31 PIC S9(13) COMP-3. 03 C32 PIC S9(11) COMP-3. 03 C33 PIC S9(11) COMP-3. 03 C34 PIC S9(11) COMP-3. 03 C35 PIC S9(11) COMP-3. 03 C36 PIC S9(2)V9(3) COMP-3. 03 C37 PIC S9(11) COMP -3 . 03 C38 PIC S9(11) COMP-3. 03 C39 PIC S9(11) COMP-3. 03 C40 PIC S9(11) COMP-3. 03 C41 PIC S9(11) COMP-3. 03 C42 PIC S9(11) COMP-3. 03 C43 PIC S9(11) COMP-3. 03 C44 PIC S9(11) COMP -3 . 03 C45 PIC S9(11) COMP-3. 03 C46 PIC S9(11) COMP-3. 03 C47 PIC S9(11) COMP-3. 03 C48 PIC S9(11) COMP-3. 03 C49 PIC S9(11) COMP-3. 03 C501 PIC S9(11) COMP-3. 03 C502 PIC S9(11) COMP-3. 03 C503 PIC S9(11) COMP-3. 03 C50 PIC S9(11) COMP-3. 03 C51 PIC S9(11) COMP-3. 03 C52 PIC S9(11) COMP-3. 03 C53 PIC S9(11) COMP-3. 03 C54 PIC S9(11) COMP-3. 03 C55 PIC S9(11) COMP-3. 03 C56 PIC S9(11) COMP-3. 03 C57 PIC S9(11) COMP-3. 03 C58 PIC S9(11) COMP-3. 03 C59 PIC S9(11) COMP-3. 03 C60 PIC S9(11) COMP-3. 03 C61 PIC S9(11) COMP-3. 03 C62 PIC S9(11) COMP-3. 03 C63 PIC S9(11) COMP-3. 03 C64 PIC S9(11) COMP-3. 03 C65 PIC S9(11) COMP-3. 03 C66 PIC S9(11) COMP -3 . 03 C67 PIC S9(11) COMP-3. 03 C68 PIC S9(11) COMP -3 . 03 C69 PIC S9(11) COMP-3. 03 C70 PIC S9(11) COMP-3. 03 C71 PIC S9(11) COMP-3. 03 C72 PIC S9(11) COMP-3. 03 C73 PIC S9(11) COMP-3. 03 C74 PIC S9(11) COMP-3. 03 C75 PIC S9(11) COMP-3. 03 C76 PIC S9(11) COMP-3. 03 C77 PIC X(1). 03 C78 PIC X(1). 03 C79 PIC X(1). 03 C84 PIC S9(11) COMP-3. 03 C85 PIC S9(11) COMP-3. 03 C86 PIC S9(11) COMP-3.
03 C87 PIC S9(11) COMP-3. 03 C88 PIC S9(11) COMP -3 .
03 C89 PIC S9(11) COMP-3.
03 C90 PIC S9(11) COMP-3.
03 C91 PIC S9(11) COMP-3.
03 C92 PIC S9(11) COMP-3. 03 C93 PIC S9(11) COMP -3 . 03 C94 PIC S9(11) COMP-3. 03 C95 PIC S9(11) COMP-3. 03 C96 PIC S9(11) COMP-3. 03 C97 PIC S9(11) COMP-3. 03 C98 PIC S9(11) COMP-3. 03 C99 PIC S9(11) COMP-3. 03 C100 PIC S9(11) COMP-3. 03 C101 PIC S9(11) COMP-3. 03 C102 PIC S9(11) COMP-3. 03 C103 PIC S9(11) COMP-3. 03 C104 PIC S9(11) COMP-3. 03 C105 PIC S9(11) COMP-3. 03 C106 PIC S9(11) COMP-3. 03 C107 PIC S9(11) COMP-3. 03 C108 PIC S9(11) COMP-3. 03 C109 PIC S9(11) COMP-3. 03 C110 PIC S9(11) COMP-3. 03 C111 PIC S9(11) COMP-3. 03 C112 PIC S9(11) COMP-3. 03 C113 PIC S9(11) COMP-3. 03 C114 PIC S9(11) COMP-3. 03 C115 PIC S9(13) COMP-3. 03 C116 PIC X(1)
. 03 C117 PIC X(1). 03 C118 PIC X(1). 03 C119 PIC X(1). 03 C120 PIC X(1). 03 C121 PIC X(1) , 03 C122 PIC S9(11) -3 COMP . 03 C123 PIC S9(11) COMP-3. 03 C124 PIC S9(11) COMP-3. 03 C125 PIC S9(11) COMP-3. 03 C126 PIC S9(11) COMP-3. 03 C127 PIC S9(11) COMP-3. 03 C128 PIC S9(11) COMP-3.
03 C129 PIC S9(11) COMP-3. 03 C130 PIC S9(11) COMP -3 . 03 C131 PIC S9(11) COMP-3. 03 C132 PIC S9(11) COMP-3. 03 C133 PIC S9(11) COMP-3.
03 C134 PIC S9(11) COMP-3. 03 C135 PIC S9(11) COMP -3 . 03 C136 PIC S9(11) COMP-3. 03 C137 PIC S9(11) COMP-3. 03 C138 PIC S9(11) COMP-3. 03 C139 PIC S9(11) COMP-3. 03 C140 PIC S9(11) COMP-3. 03 C141 PIC S9(11) COMP-3.
03 C142 PIC S9(11) COMP-3. 03 C143 PIC S9(11) -3 COMP . 03 C144 PIC S9(11) COMP-3. 03 C145 PIC S9(11) COMP-3. 03 C146 PIC S9(11) COMP-3. 03 C147 PIC S9(11) COMP-3.
03 C148 PIC S9(11) COMP-3. 03 C149 PIC S9(11) COMP -3 . 03 C150 PIC S9(11) COMP-3. 03 C151 PIC S9(11) COMP-3. 03 C152 PIC S9(11) COMP-3. 03 C153 PIC S9(11) COMP-3. 03 C154 PIC S9(11) COMP-3. 03 C155 PIC S9(11) COMP-3. 03 C156 PIC S9(11) COMP-3. 03 C157 PIC S9(11) COMP-3. 03 C158 PIC S9(13) COMP-3. 03 C159 PIC X(1). 03 C160 PIC X(1). 03 C161 PIC X(1). 03 C162 PIC X(1). 03 C163 PIC X(1). 03 C164 PIC X(1). 03 CA1 PIC X(1),
03 CA2 PIC S9(13) COMP-3.
03 CA3 PIC S9(13) COMP-3.
03 CA4 PIC S9(13) COMP-3.
03 CB1 PIC X(1), 03 CB2 PIC S9(11) COMP-3. 03 CB3 PIC S9(11) COMP-3. 03 CB4 PIC S9(11) COMP-3. 03 CB5 PIC S9(11) COMP-3. 03 CB6 PIC S9(11) COMP-3. 03 CB7 PIC S9(11) COMP-3. 03 CB8 PIC S9(11) COMP-3. 03 CB9 PIC S9(11) COMP-3. 03 CC1 PIC X(1), 03 CC2 PIC S9(11) COMP-3. 03 CC3 PIC S9(11) COMP-3. 03 CC4 PIC S9(11) COMP-3. 03 CC5 PIC S9(11) COMP-3. 03 CC6 PIC S9(11) COMP-3.
03 CC11 PIC S9(11) COMP-3. 03 CC12 PIC S9(11) COMP-3. 03 CC13 PIC S9(11) COMP-3. 03 CC14 PIC S9(11) COMP-3. 03 CC15 PIC S9(11) COMP-3. 03 CC16 .PIC S9(11) COMP-3. 03 CC17 PIC S9(11) COMP-3. 03 CC18 PIC S9(11) COMP-3.
03 CC19 PIC S9(11) COMP-3. 03 CC20 PIC S9(11) COMP -3 . 03 CC21 PIC S9(11) COMP-3. 03 CC22 PIC S9(11) COMP-3. 03 CC23 PIC S9(11) COMP-3. 03 CC24 PIC S9(11) COMP-3. 03 CC25 PIC S9(11) COMP-3. 03 CC26 PIC S9(11) COMP-3. 03 CC27 PIC S9(11) COMP-3. 03 CC28 PIC S9(11) COMP-3. 03 CC29 PIC S9(11) COMP-3. 03 CC30 PIC S9(11) COMP-3. 0 3 CC31 PIC S9(11) COMP-3. 03 CC32 PIC S9(11) COMP-3. 03 CC33 PIC S9(11) COMP-3. 03 CC34 PIC S9(11) COMP-3. 03 CC35 PIC S9(11) COMP-3. 03 CC36 PIC S9(11) COMP-3. 03 CD1 PIC X(1). 03 CD2 PIC S9(11) COMP-3. 03 CD3 PIC S9(11) COMP-3. 03 CD4 PIC S9(11) COMP-3.
03 CD5 PIC S9(11) COMP-3. 03 CD6 PIC S9(11) COMP -3 . 03 CD7 PIC S9(11) COMP-3. 03 CD8 PIC S9(11) COMP-3. 03 CD9 PIC S9(11) COMP-3. 03 CD10 PIC S9(11) COMP-3. 03 CD11 PIC S9(11) COMP-3. 03 CD12 PIC S9(11) COMP-3. 03 CD13 PIC 59(11) COMP-3. 03 CD14 PIC S9(11) COMP-3. 03 CD15 PIC S9(11) COMP-3. 03 CD16 PIC S9(11) COMP-3. 03 CD17 PIC S9(11) COMP-3. 03 CD18 PIC S9(11) COMP-3. 03 CD19 PIC S9(11) COMP-3. 03 CD20 PIC S9(11) COMP-3. 03 CD21 PIC 59(11) COMP-3. 03 CD22 PIC S9(11) COMP-3. 03 CD23 PIC S9(11) COMP-3. 03 CD24 PIC S9(11) COMP-3. 03 CD25 PIC S9(11) COMP-3. 03 CD26 PIC S9(11) COMP-3. 03 CD27 PIC S9(11) COMP-3. 03 CD28 PIC S9(11) COMP-3. 03 CD29 PIC S9(11) COMP-3. 03 CD30 PIC S9(11) COMP-3. 03 CD31 PIC S9(11) COMP-3. 03 CD32 PIC S9(11) COMP-3. 03 CD33 PIC S9(11) COMP-3. 03 CD34 PIC S9(11) COMP-3. 03 CD35 . PIC S9(11) COMP-3. 03 CD36 PIC S9(11) COMP-3. 03 CD37 PIC S9(11) COMP-3. 03 CD38 PIC S9(11) COMP-3. 03 CD39 PIC S9(11) COMP-3. 03 CD40 PIC S9(11) COMP-3. 03 CD41 PIC 59(11) COMP-3. 03 CD42 PIC S9(11) COMP-3. 03 CD43 PIC S9(11) COMP-3.
03 CD44 PIC S9(11) COMP-3. 03 CD45 PIC S9(11) COMP -3 . 03 CD46 PIC 59(11) COMP-3. 03 CD47 PIC 59(11) COMP-3. 03 CD48 PIC 59(11) COMP-3. 03 CD49 PIC S9(11) COMP-3. 03 CD50 PIC 59(11) COMP-3. 03 CD51 PIC S9(11) COMP-3. 03 CD52 PIC S9(11) COMP-3. 03 CD53 PIC S9(11) COMP-3. 03 CD54 PIC S9(11) COMP-3. 03 CD55 PIC S9(11) COMP-3. 03 CD56 PIC S9(11) COMP-3.
03 CD57 PIC 59(11) COMP-3. 03 CD58 PIC S9(11) COMP -3 . 03 CD59 PIC S9(11) COMP-3., 03 CD60 PIC S9(11) COMP
-3 . 03 CD61 PIC S9(11) COMP-3. 03 CD62 PIC S9(11) COMP-3. 03 CD63 PIC S9(11) COMP-3. 03 CD64 PIC 59(11) COMP-3.
03 CD65 PIC S9(11) COMP-3. 03 CD66 PIC S9(11) COMP -3 . 03 CD67 PIC S9(11) COMP-3. 03 CD68 PIC S9(11) COMP-3. 03 CD69 PIC S9(11) COMP-3. 03 CE1 PIC X(1).
03 CE2 PIC 59(11) COMP-3. 03 CE3 PIC 59(11) COMP-3. 03 CE4 PIC S9(11) COMP-3. 03 CE5 PIC 59(11) COMP-3. 03 CE6 PIC 59(11) COMP-3.
03 DUMMY PIC X(11) . FD OUTF LABEL RECORD STANDARD. 01 L-C1. 02 Cl PIC X(7). 02 C2 PIC X(8). 02 C3 PIC X(1). 02 C4 PIC X(1). 02 C5 PIC X(1). 02 C6 PIC X(1). 02 C7 PIC X(8). 02 C8 PIC X(3). 02 C9 PIC X(1). 02 C10 PIC X(3). 02 C11 PIC 9(1) . 02 C12 PIC 9(9). 02 C13 PIC X(1). 02 C14 PIC 9(11). 02 C15 PIC 9(11). 02 C16 PIC 9(11). 02 C17 PIC 9(11). 02 C18 PIC 9(11). 02 C19 PIC 9(11). 02 C20 PIC 9(11). 02 C21 PIC 9(11). 02 C22 PIC 9(11). 02 C23 PIC 9(11). 02 C24 PIC 9(11). 02 C25 PIC X(1). 02 C26 PIC X(1). 02 C27 PIC X(1). 02 C28 PIC X(1). 02 C29 PIC X(1). 02 C30 PIC X(1). 02 C31 PIC 9(13). 02 C32 PIC 9(11). 02 C33 PIC 9(11). 02 C34 PIC 9(11). 02 C35 PIC 9(11). 02 C36 PIC 9(5). 02 C37 PIC 9(11). 02 C38 PIC 9(11). 02 C39 PIC 9(11). 02 C40 PIC 9(11). 02 C41 PIC 9(11). 02 C4,2 PIC 9(11). 02 C43 PIC 9(11). 02 C44 PIC 9(11). 02 C45 PIC 9(11). 02 C46 PIC 9(11). 02 C47 PIC 9(11). 02 C48 PIC 9(11). 02 C49 PIC 9(11) . 02 C501 PIC 9(11). 02 C502 PIC 9(11) . 02 C503 PIC 9(11). 02 C50 PIC 9(11). 02 C51 PIC 9(11). 02 C52 PIC 9(11). 02 C53 PIC 9(11). 02 C54 PIC 9(11). 02 C55 PIC 9(11). 02 C56 PIC 9(11). 02 C57 PIC 9(11). 02 C58, PIC 9(11). 02 C59 PIC 9(11). 02 C60 PIC 9(11). 02 C61 PIC 9(11). 02 C62 PIC 9(11). 02 C63 PIC 9(11). 02 C64 PIC 9(11). 02 C65 PIC 9(11). 02 C66 PIC 9(11). 02 C67 PIC 9(11). 02 C68 PIC 9(11). 02 C69 PIC 9(11) . 02 C70 PIC 9(11). 02 C71 PIC 9(11). 02 C72 PIC 9(11). 02 C73 PIC 9(11). 02 C74 PIC 9(11). 02 C75 PIC 9(11) . 02 C76 PIC 9(11). 02 C77 PIC X(1). 02 C78 PIC X(1). 02 C79 PIC X(1). 02 C80 PIC X(1). 02 C81 PIC X(1). 02 C82 PIC X(1). 02 C83 PIC 9(11). 02 C84 PIC 9(11). 02 C85 PIC 9(11) . 02 C86 PIC 9(11). 02 C87 PIC 9(11). 02 C88 PIC 9(11). 02 C89 PIC 9(11). 02 C90 PIC 9(11). 02 C91 PIC 9(11). 02 C92 PIC 9(11). 02 C93 PIC 9(11). 02 C94 PIC 9(11) . 02 C95 PIC 9(11).
02 C99 PIC 9(11). 02 C100 PIC 9(11). 02 C101 PIC 9(11). 02 C102 PIC 9(11). 02 C103 PIC 9(11). 02 C104 PIC 9(11). 02 C105 PIC 9(11) . 02 C106 PIC 9(11). 02 C107 PIC 9(11). 02 C108 PIC 9(11). 02 C109 PIC 9(11). 02 C110 PIC 9(11). 02 C111 PIC 9(11). 02 C112 PIC 9(11). 02 C113 PIC 9(11). 02 C114 PIC 9(11). 02 C115 PIC 9(13). 02 C116 PIC X(1). 02 C117 PIC X(1). 02 C118 PIC X(1). 02 C119 PIC X(1). 02 C120 PIC X(1). 02 C121 PIC X(1). 02 C122 PIC 9(11). 02 C123 PIC 9(11). 02 C124 PIC 9(11). 02 C125 PIC 9(11). 02 C126 PIC 9(11). 02 C127 PIC 9(11). 0 2 C128 PIC 9(11). 02 C129 PIC 9(11). 02 C130 PIC 9(11). 02 C131 PIC 9(11). 02 C132 PIC 9(11). 02 C133 PIC 9(11). 02 C134 PIC 9(11). 02 C135 PIC 9(11). 02 C136 PIC 9(11). 02 C137 PIC 9(11). 02 C138 PIC 9(11). 02 C139 PIC 9(11). 02 C140 PIC 9(11). 02 C141 PIC 9(11). 02 C142 PIC 9(11). 02 C143 PIC 9(11). 02 C144 PIC 9(11). 02 C145 PIC 9(11). 02 C146 PIC 9(11). 02 C147 PIC 9(11). 02 C148 PIC 9(11). 02 C149 PIC 9(11). 02 C150 PIC 9(11). 02 C151 PIC 9(11). 02 C152 PIC 9(11). 02 C153 PIC 9(11). 02 C154 PIC 9(11). 02 C155 PIC 9(11). 02 C156 PIC 9(11). 02 C157 PIC 9(11). 02 C158 PIC 9(13). 02 C159 PIC X(1). 02 C160 PIC X(1). 02 C161 PIC X(1). 02 C162 PIC X(1). 02 C163 PIC X(1). 02 C164 PIC X(1). 02 CAl PIC X(1). 02 CA2 PIC 9(13). 02 CA3 PIC 9(13). 02 CA4 PIC 9(13). 02 CB1 PIC X(1). 02 CB2 PIC 9(11). 02 CB3 PIC 9(11). 02 CB4 PIC 9(11). 02 CB5 PIC 9(11). 02 CB6 PIC 9(11). 02 CB7 PIC 9(11). 02 CB8 PIC 9(11). 02 CB9 PIC 9(11). 02 CC1 PIC X(1). 02 CC2 PIC 9(11). 02 CC3 PIC 9(11). 02 CC4 PIC 9(11). 02 CC5 PIC 9(11). 02 CC6 PIC 9(11). 02 CC7 PIC 9(11). 02 CC8 PIC 9(11). 02 CC9 PIC 9(11). 02 CC10 PIC 9(11). 02 CC11 PIC 9(11). 02 CC12 PIC 9(11). 02 CC13 PIC 9(11). 02 CC14 PIC 9(11). 02 CC15 PIC 9(11). 02 CC16 PIC 9(11). 02 CC17 PIC 9(11). 02 CC18 PIC 9(11). 02 CC19 PIC 9(11). 02 CC20 PIC 9(11). 02 CC21 PIC 9(11). 02 CC26 PIC 9(11). 02 CC27 PIC 9(11). 02 CC28 PIC 9(11). 02 CC29 PIC 9(11). 02 CC30 PIC 9(11). 02 CC31 PIC 9(11). 02 CC32 PIC 9(11). 02 CC33 PIC 9(11). 0 2 CC34 PIC 9(11). 02 CC35 PIC 9(11). 02 CC36 PIC 9(11). 02 CD1 PIC X(1). 02 CD2 PIC 9(11). 0 2 CD3 PIC 9(11). 02 CD4 PIC 9(11). 02 CD5 PIC 9(11). 02 CD6 PIC 9(11). 02 CD7 PIC 9(11). 02 CD8 PIC 9(11). 0 2 CD9 PIC 9(11). 02 CD10 PIC 9(11). 02 CD11 PIC 9(11). 02 CD12 PIC 9(11). 02 CD13 PIC 9(11). 02 CD14 PIC 9(11). 02 CD15 PIC 9(11). 02 CD16 PIC 9(11). 02 CD17 PIC 9(11). 02 CD18 PIC 9(11). 02 CD19 PIC 9(11). 02 CD20 PIC 9(11). 02 CD21 PIC 9(11). 02 CD22 PIC 9(11). 02 CD23 PIC 9(11). 02 CD24 PIC 9(11). 02 CD25 PIC 9(11). 02 CD26 PIC 9(11). 02 CD27 PIC 9(11). 02 CD28 PIC 9(11). 02 CD29 PIC 9(11). 02 CD30 PIC 9(11). 02 CD31 PIC 9(11). 02 CD32 PIC 9(11). 02 CD33 PIC 9(11). 02 CD34 PIC 9(11). 02 CD35 PIC 9(11). 02 CD36 PIC 9(11). 02 CD37 PIC 9(11). 02 CD38 PIC 9(11). 02 CD39 PIC 9(11). 02 CD4 0 PIC 9(11). 02 CD41 PIC 9(11). 02 CD42 PIC 9(11). 02 CD43 PIC 9(11). 02 CD44 PIC 9(11). 02 CD45 PIC 9(11). 02 CD46 PIC 9(11). 02 CD47 PIC 9(11). 02 CD48 PIC.9(11). 02 CD49 PIC 9(11). 02 CD50 PIC 9(11). 02 CD51 PIC 9(11). 02 CD5 2 PIC 9(11). 02 CD53 PIC 9(11). 02 CD54 PIC 9(11). 02 CD55 PIC 9(11). 02 CD56 PIC 9(11). 02 CD57 PIC 9(11). 02 CD58 PIC 9(11). 02 CD59 PIC 9(11). 02 CD60 PIC 9(11). 02 CD61 PIC 9(11). 02 CD62 PIC 9(11). 02 CD63 PIC 9(11). 02 CD64 PIC 9(11). 02 CD65 PIC 9(11). 02 CD66 PIC 9(11). 02 CD67 PIC 9(11). 02 CD68 PIC 9(11). 02 CD69 PIC 9(11). 02 CE1 PIC X(1). 02 CE2 PIC 9(11). 02 CE3 PIC 9(11). 02 CE4 PIC 9(11). 0 2 CE5 PIC 9(11). 02 CE6 PIC 9(11). 02 CE7 PIC 9(11). 02 CE8 PIC 9(11). 02 CE9 PIC 9(11), 02 FILLER PIC X(48). PROCEDURE DIVISION. KAISI,
OPEN INPUT INPF. OPEN OUTPUT OUTF.
P1. READ INPF AT END GO TO OW. MOVE SPACE TO L-C1.
MOVE CORRESPONDING SECTION-C TO L-C1.
WRITE L-C1.
GO TO Pl,
付 録2-3(レ コ ー ド分 割) IDENTIFICATION DIVISION. PROGRAM-ID. CMODDIV. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. ACOS. OBJECT-COMPUTER. ACOS. INPUT-OUTPUT SECTION. FILE-CONTROL.
SELECT INPF ASSIGN TO IFILE. SELECT OUTF ASSIGN TO OFILE. DATA DIVISION.
FILE SECTION.
FD INPF LABEL RECORD STANDARD. 01 L-C1.
(付 録2-201L-C1.と 同 じ)
FD OUTF LABEL RECORD STANDARD. 01 OUTREC-1. 02 Cl PIC X(7). 02 C2 PIC X(8). 02 C3 PIC X(1). 02 C4 PIC X(1). 02 C5 PIC X(1). 02 C6 PIC X(1). 02 C7 PIC X(8). 02 C8 PIC X(3). 02 C9 PIC X(1). 02 C10 PIC X(3). 02 C11 PIC 9(1). 02 C12 PIC 9(9). 02 C13 PIC X(1). 02 C14 PIC 9(11). 02 C15 PIC 9(11). 02 C16 PIC 9(11). 02 C17 PIC 9(11). 02 C18 PIC 9(11). 02 C19 PIC 9(11). 02 C20 PIC 9(11). 02 C21 PIC 9(11). 02 C22 PIC 9(11). 02 C23 PIC 9(11). 02 C24 PIC 9(11). 02 C25 PIC X(1). 02 C26 PIC X(1). 02 C27 PIC X(1). 02 C28 PIC X(1). 02 C29 PIC X(1). 02 C30 PIC X(1). 02 C31 PIC 9(13). 02 C32 PIC 9(11). 02 C33 PIC 9(11). 02 C34 PIC 9(11). 02 C35 PIC 9(11). 02 C36 PIC 9(5). 02 C37 PIC 9(11). 02 C38 PIC 9(11). 01 OUTREC-2. 02 C39 PIC 9(11). 02 C40 PIC 9(11). 02 C41 PIC 9(11). 02 C42 PIC 9(11). 02 C43 PIC 9(11). 02 C44 PIC 9(11). 02 C45 PIC 9(11). 02 C46 PIC 9(11). 02 C47 PIC 9(11). 02 C48 PIC 9(11). 02 C49 PIC 9(11). 02 C501 PIC 9(11). 02 C502 PIC 9(11). 02 C503 PIC 9(11). 02 C50 PIC 9(11). 02 C51 PIC 9(11). 02 C52 PIC 9(11). 02 C53 PIC 9(11). 02 C54 PIC 9(11). 02 C55 PIC 9(11). 02 C56 PIC 9(11). 02 C57 PIC 9(11). 02 C58 PIC 9(11). 一43一 02 C59 PIC 9(11). 02 C60 PIC 9(11). 02 C61 PIC 9(11). 02 C62 PIC 9(11). 02 C63 PIC 9(11). 02 C64 PIC 9(11). 02 C65 PIC 9(11). 02 C66 PIC 9(11). 02 C67 PIC 9(11). 02 C68 PIC 9(11). 02 C69 PIC 9(11). 02 C70 PIC 9(11). 02 C71 PIC 9(11). 02 C72 PIC 9(11). 02 C73 PIC 9(11). 02 C74 PIC 9(11). 02 C75 PIC 9(11). 02 C76 PIC 9(11). 02 C77 PIC X(1). 02 C78 PIC X(1). 02 C79 PIC X(1). 02 C80 PIC X(1). 02 C81 PIC X(1). 02 C82 PIC X(1). 02 C83 PIC 9(11). 02 C84 PIC 9(11). 02 C85 PIC 9(11). 02 C86 PIC 9(11). 02 FILL PIC X(8). 01 OUTREC-4. 02 C87 PIC 9(11). 02 C88 PIC 9(11). 02 C89 PIC 9(11). 02 C90 PIC 9(11). 02 C91 PIC 9(11). , 02 C92 PIC 9(11). 02 C93 PIC 9(11). 02 C94 PIC 9(11). 02 C95 PIC 9(11). 02 C96 PIC 9(11). 02 C97 PIC 9(11). 02 C98 PIC 9(11). 02 C99 PIC 9(11). 02 C100 PIC 9(11). 02 C101 PIC 9(11). 02 C102 PIC 9(11). 02 C103 PIC 9(11). 02 C104 PIC 9(11). 02 C105 PIC 9(11). 02 C106 PIC 9(11). 02 C107 PIC 9(11). 02 C108 PIC 9(11). 02 C109 PIC 9(11). 02 FILL PIC X(3). 01 OUTREC-5. 02 C110 PIC 9(11). 02 C111 PIC 9(11). 02 C112 PIC 9(11). 02 C113 PIC 9(11). 02 C114 PIC 9(11). 02 C115 PIC 9(13). 02 C116 PIC X(1). 02 C117 PIC X(1). 02 C118L PIC X(1). 02 C119 PIC X(1). 02 C120 PIC X(1). 02 C121 PIC X(1). 02 C122 PIC 9(11). 02 C123 PIC 9(11). 02 C124 PIC 9(11). 02 C125 PIC 9(11). 02 C126 PIC 9(11). 02 C127 PIC 9(11). 02 C128 PIC 9(11). 02 C129 PIC -9(11). 02 C130 PIC 9(11). 02 0131 PIC 9(11). 02 C132 PIC 9(11). 02 C133 PIC 9(11). 02 C134 PIC 9(11). 02 C135 PIC 9(11).
02 FILL
PIC X(6).
01 OUTREC-6.
02 C138
PIC 9(11).
02 C139
PIC 9(11).
02 C140
PIC 9(11).
02 C141
PIC 9(11).
02 C142
PIC 9(11).
02 C143
PIC 9(11).
02 C144
PIC 9(11).
02 C145
PIC 9(11).
02 C146
PIC 9(11).
02 C147
PIC 9(11).
02 C148
PIC 9(11).
02 C149
PIC 9(11).
02 C150
PIC 9(11).
02 C151
PIC 9(11).
02 C152
PIC 9(11).
02 C153
PIC 9(11).
02 C154
PIC 9(11).
02 C155
PIC 9(11).
02 C156
PIC 9(11).
02 C157
PIC 9(11).
02 C158
PIC 9(13).
02 C159
PIC X(1).
02 C160
PIC X(1).
02 C161
PIC X(1).
02 cle?.
PIC X(1).
02 C163
PIC X(1).
02 C164
PIC X(1).
02 CA1
PIC X(1).
02 CA2
PIC 9(13).
02 FILL
PIC X(3).
01 OUTREC-7.
02 CA3
PIC 9(13).
02 CA4
PIC 9(13).
02 CB1
PIC X(1).
02 CB2
PIC 9(11).
02 CB3
PIC 9(11).
02 CB4
PIC 9(11).
02 CB5
PIC 9(11).
02 CB6
PIC 9(11).
02 CB7
PIC 9(11).
02 CB8
PIC 9(11).
02 CB9
PIC 9(11).
02 CC1
PIC X(1).
02 CC2
PIC 9(11).
02 CC3
PIC 9(11).
02 CC4
PIC 9(11).
02 CC5
PIC 9(11).
02 CC6
PIC 9(11).
02 CC7
PIC 9(11).
02 CC8
PIC 9(11).
02 CC9
PIC 9(11).
02 CC10 PIC 9(11).
02 CC11 PIC 9(11).
02 CC12 PIC 9(11).
02 CC13 PIC 9(11).
02 FILL
PIC X(8).
01 OUTREC-8.
02 CC14 PIC 9(11).
02 CC15 PIC 9(11).
02 CC16 PIC 9(11).
02 CC17 PIC 9(11).
02 CC18 PIC 9(11).
02 CC19
PIC 9(11).
02 CC20
PIC 9(11).
02 CC21
PIC 9(11).
02 CC22
PIC 9(11).
02 CC23
PIC 9(11).
02 CC24
PIC 9(11).
02 CC25
PIC 9(11).
02 CC26
PIC 9(11).
02 CC27 PIC 9(11).
02 CC28 PIC 9(11).
02 CC29 PIC 9(11).
02 CC30 PIC 9(11).
02 CC31 PIC 9(11).
02 CC32 PIC 9(11).
02 CC33 PIC 9(11).
02 CC34 PIC 9(11).
02 CC35 PIC 9(11).
02 CC36 PIC 9(11).
02 CD1
PIC X(1).
一44一 02 FILL PIC X(2) . 01 OUTREC-9. 02 CD2 PIC 9(11). 02 CD3 PIC 9(11). 02 CD4 PIC 9(11) . 02 CD5 PIC 9(11) . 02 CD6 PIC 9(11) . 02 CD7 PIC 9(11). 02 CD8 PIC 9(11). 02 CD9 PIC 9(11). 02 CD10 PIC 9(11) . 02 CD11 PIC 9(11) . 02 CD12 PIC 9(11) . 02 CD13 PIC 9(11) . 02 CD14 PIC 9(11) . 02 CD15 PIC 9(11) . 02 CD16 PIC 9(11) . 02 CD17 PIC 9(11). 02 CD18 PIC 9(11). 02 CD19 PIC 9(11). 02 CD20 PIC 9(11). 02 CD21 PIC 9(11). 02 CD22 PIC 9(11). 02 CD23 PIC 9(11). 02 CD24 PIC 9(11). 02 FILL PIC X(3) . 01 OUTREC-10. 02 CD25 PIC 9(11). 02 CD26 PIC 9(11) . 02 CD27 PIC 9(11). 02 CD28 PIC 9(11). 02 CD29 PIC 9(11). 02 CD30 PIC 9(11) . 02 CD31 PIC 9(11). 02 CD32 PIC 9(11). 02 CD33 PIC 9(11). 02 CD34 PIC 9(11). 02 CD35 PIC 9(11). 02 CD36 PIC 9(11). 02 CD37 PIC 9(11). 02 CD38 PIC 9(11). 02 CD39 PIC 9(11) . 02 CD40 PIC 9(11). 02 CD4I PIC 9(11). 02 CD42 PIC 9(11). 02 CD43 PIC 9(11). 02 CD44 PIC 9(11). 02 CD45 PIC 9(11). 02 CD46 PIC 9(11). 02 CD47 PIC 9(11). 02 FILL PIC X(3). 01 OUTREC-11. 02 CD48 PIC 9(11). 02 CD49 PIC 9(11). 02 CD50 PIC 9(11). 02 C051 PIC 9(11). 02 CD52 PIC 9(11). 02 CD53 PIC 9(11). 02 CD54 PIC 9(11). 02 CD55 PIC 9(11). 02 CD56 PIC 9(11). 02 CD57 PIC 9(11). 02 CD58 PIC 9(11). 02 CD59 PIC 9(11). 02 CD60 PIC 9(11). 02 CD61 PIC 9(11). 02 CD62 PIC 9(11) . 02 CD63 PIC 9(11) . 02 CD64 PIC 9(11) . 02 CD65 PIC 9(11). 02 CD66 PIC 9(11) . 02 CD67 PIC 9(11). 02 CD68 PIC 9(11). 02 CD69 PIC 9(11) . 02 CE1 PIC X(1) . 02 CE2 PIC 9(11). 02 FILL PIC X(2). 01 OUTREC-12. 02 CE3 PIC 9(11). 02 CE4 PIC 9(11). 02 CE5 PIC 9(11). 02 CE6 PIC 9(11). 02 CE7 PIC 9(11).02 CE8 PIC 9(11). 02 CE9 PIC 9(11). 02 FILLER PIC X(179). WORKING-STORAGE SECTION. PROCEDURE DIVISION. JUNBI.
OPEN INPUT INPF. OPEN OUTPUT OUTF. KURIKAESI.
READ INPF AT END GO TO OWARI. MOVE SPACE TO OUTREC-1.
MOVE CORRESPONDING L-C1 TO OUTREC-1. WRITE OUTREC-1.
MOVE SPACE TO OUTREC-2.
MOVE CORRESPONDING L-C1 TO OUTREC-2. WRITE OUTREC-2.
MOVE SPACE TO OUTREC-3.
MOVE CORRESPONDING L-C1 TO OUTREC-3. WRITE OUTREC-3.
MOVE SPACE TO OUTREC-4.
MOVE CORRESPONDING L-C1 TO OUTREC-4. WRITE OUTREC-4.
MOVE SPACE TO OUTREC-5.
MOVE CORRESPONDING L-C1 TO OUTREC-5. WRITE OUTREC-5.
MOVE SPACE TO OUTREC-6.
MOVE CORRESPONDING L-C1 TO OUTREC-6. WRITE OUTREC-6.
MOVE SPACE TO OUTREC-7.
MOVE CORRESPONDING L-C1 TO OUTREC-7. WRITE OUTREC-7.
MOVE SPACE TO OUTREC-8.
MOVE CORRESPONDING L-C1 TO OUTREC-8. WRITE OUTREC-8.
MOVE SPACE TO OUTREC-9.
MOVE CORRESPONDING L-C1 TO OUTREC-9. WRITE OUTREC-9.
MOVE SPACE TO OUTREC-10.
MOVE CORRESPONDING L-C1 TO OUTREC-10.
WRITE OUTREC-10.
MOVE SPACE TO OUTREC-11.
MOVE CORRESPONDING L-C1 TO OUTREC-11. WRITE OUTREC-11.
MOVE SPACE TO OUTREC-12.
MOVE CORRESPONDING L-C1 TO OUTREC-12. WRITE OUTREC-12.
GO TO KURIKAESI. OWARI.
CLOSE INPF OUTF. STOP RUN.
付 録2-4(フ ァ イ ル 分 割) IDENTIFICATION DIVISION. PROGRAM-ID. DIVCMOD. ENVIRONMENT DIVISION. CONFIGURATION SECTION. SOURCE-COMPUTER. ACOS. OBJECT-COMPUTER. ACOS. INPUT-OUTPUT SECTION. FILE-CONTROL.
SELECT INPF ASSIGN TO IFILE. SELECT OUTF1 ASSIGN TO OFILE1.
SELECT OUTF2 ASSIGN TO OFILE2.
SELECT OUTF3 ASSIGN TO OFILE3.
SELECT OUTF4 ASSIGN TO OFILE4.
SELECT OUTF5 ASSIGN TO °FILES.
SELECT OUTF6 ASSIGN TO OFILE6. DATA DIVISION.
FILE SECTION.
FD INPF LABEL RECORD STANDARD. 01 L-Cl.
02 CC PIC X(256).
FD OUTF1 LABEL RECORD STANDARD. 01 OUTREC1 PIC X(256).
FD OUTF2 LABEL RECORD STANDARD. 01 OUTREC2 PIC X(256).
FD OUTF3 LABEL RECORD STANDARD. 01 OUTREC3 PIC X(256).
FD OUTF4 LABEL RECORD STANDARD. 01 OUTREC4 PIC X(256).
FD OUTF5 LABEL RECORD STANDARD. 01 OUTREC5 PIC X(256).
FD OUTF6 LABEL RECORD STANDARD. 01 OUTREC6 PIC X(256). WORKING-STORAGE SECTION. 01 NOR PIC 9(7). 01 NOF PIC 9(7). PROCEDURE DIVISION. JUNBI.
OPEN INPUT INPF.
OPEN OUTPUT OUTF1 OUTF2 OUTF3 OUTF4 OUTF5 OUTF6. MOVE 0 TO NOR.
MOVE 0 TO NOF. SKIP1.
READ INPF AT END GO TO OWARI. ADD 1 TO NOR.
IF NOR = 24000 THEN GO TO SKIP2. GO TO SKIP1.
SKIP2.
ADD 1 TO NOF.
IF NOF = 12 THEN MOVE 0 TO NOR GO TO P1. MOVE 0 TO NOR.
GO TO SKIP1. P1.
READ INPF AT END GO TO OWARI. MOVE CC TO OUTREC1. WRITE OUTREC1. ADD 1 TO NOR.
IF NOR a 24000 THEN MOVE 0 TO NOR GO TO P2 ELSE GO TO Pl . P2.
READ INPF AT END GO TO OWARI. MOVE CC TO OUTREC2. WRITE OUTREC2. ADD 1 TO NOR.
IF NOR = 24000 THEN MOVE 0 TO NOR GO TO P3 ELSE GO TO P2. P3.
READ INPF AT END GO TO OWARI. MOVE CC TO OUTREC3. WRITE OUTREC3. ADD 1 TO NOR.
IF NOR = 24000 THEN MOVE 0 TO NOR GO TO P4 ELSE GO TO P3 . P4.
READ INPF AT END GO TO OWARI. MOVE CC TO OUTREC4. WRITE OUTREC4. ADD 1 TO NOR.
IF NOR = 24000 THEN MOVE 0 TO NOR GO TO P5 ELSE GO TO P4 . P5.
READ INPF AT END GO TO OWARI. MOVE CC TO OUTREC5.
WRITE OUTREC5.
MOVE CC TO OUTREC6. WRITE OUTREC6. ADD 1 TO NOR.
IF NOR = 24000 THEN NEXT SENTENCE ELSE GO TO P6. OWARI.
CLOSE INPF OUTF1 OUTF2 OUTF3 OUTF4 OUTF5 OUTF6. STOP RUN.
付 録3(セ ク シ ョ ンCの レ コ ー ド結 合) /*256バ イ ト のsectioncを2852バ イ ト に 戻 す*/ #include <stdlib.h> #include <stdio.h> main(argc,argv,envp) int argc; char *argv[],*envp[]; char dt[257]; int nod=0,i; FILE *fp; for(i=1;i<argc;i++) { if((fp=fopen(argv[i],"r"))==NULL) exit(1); while(fscanf(fp,"%256cYn",dt)!=E0F) /* recl */ dt[256]=0; printf("%s",dt); /* rec2 */ iscanf(fp,"%256cVn",dt);' dt[253]=0; printf("%s",dt); /* rec3 */ fscanf(fp,"%256cVn",dt); dt[248]=0; printf("%s",dt); /* rec4 */ fscanf(fp,"%256cYn",dt); dt[253]=0; printf("%s",dt); /* rec5 */ fscanf(fp,"%256cYn",dt); dt[250]=0; Printf("%s",dt); /* rec6 */ fscanf(fp,"%256cYn",dt); dt(253)=0; printf("%s",dt); , /* rec7 */ fscanf(fp,"%256cYn",dt); dt[248]=0; printf("%s",dt); /* rec8 */ fscanf(fp,"%256cYn",dt); dt[254]=0; printf("%s",dt); /* rec9 */ fscanf(fp,"%256cYn";dt); dt[253]=0; printf("%s",dt); /* rec10 */ fscanf(fp,"%256cYn",dt); dt[253]=0; Printf("%s",dt); /* recll */ fscanf(fp,'%255cYn",dt); dt[254]=0; printf("%s",dt); /* rec12 */ fscanf(fp,"%256cYn",dt); dt[77]=0; printf("%sYn",dt); fclose(fp);
付 録4(セ ク シ ョ ンCの 国 別 分 割)
