電子計算機簿記 と精算表形式決 算
財 産 ・損 益 一 覧 表 と して の
試 算表 機 能 の拡 充 と強化
藤 田 芳 夫
は じ め に
くり
筆 者 は さ き に 発 表 した 拙 稿 「伝 統 的 複 式 精 記 と コ ン ピ ュー タ ー」 に お い て,電 子 計 算 機 に よ り伝 統 的 複 式 簿 記 を 遂 行 す る場 合,経 営 シ ス テ ム の オ ー トメ ィシ ・ ン化 が 強 く実 行 され る場 合 に は,仕 訳 そ の も の も廃 止 さ れ る可 能 性 が あ る が,そ うで な い 場 合 に お い て も仕 訳 帳 は 不 必 要 に な り廃 止 さ れ る こ
と,ま た,元 帳 転 記 の 正 確 性 を 検 証 す る手 段 と して の 試 算 表 もそ の 意 義 を 失 な う こ とを 明 らか に した 。
しか し,伝 統 的 複 式 簿 記 を 電 子 計 算 機 化 す る場 合,複 式 簿 記 の 構 造 に ひ き お こ され る変 化 は 以 上 の 点 に つ き る も の で は な い 。 こ う した 変 化 の 一 つ と し て,本 稿 で は 前 稿 で 展 開 した 方 法 を 前 提 に しな が ら,電 子 計 算 機 複 式 簿 記 に お け る決 算 は 如 何 に 行 な わ れ るか,と い う問 題 を と りあ げ る こ とに す る 。 そ して,そ の 結 果,電 子 計 算 機 複 式 簿 記 に お い て は,財 産 ・損 益 一 覧 表 と して の 試 算 表 の 職 能 が 益 々強 化 され る こ とを 明 らか に した い ◎
*拙 稿 「伝 統的複式 簿記 とコ ソピュー ター」(小 樽 商科大 学,商 学討 究,Vol・19, No・1)に ひ きつづ き,本 稿 の執 筆に際 して も,一一橋大学 名誉教 授片野一 郎博士,
小樽商科大学教 授石河 英夫,同 古瀬大 六,同 麻 田四 郎,同 竹 内清の諸先生 か ら有 益 な批評 と激励 をい ただいた。 ここに記 して謝意 を表 します。
(1)拙 稿 「伝 統的複式 簿記 とコソ ピューター⊥ 小樽 商科大学,商 学討究,Vol・19, No.1,1968年8月 。
1.決 算 と勘 定 の 三 つ の記 入 要 素 (主 記 憶 装 置 の 特 徴 に 対 応 して)
通 常,「 決算 」 は 決 算 予備 手 続 と決 算 本 手 続 に 分 け られ る。 決 算予 備 手 続 は(1)帳簿 記 録 の 正確 性 を確 か め る こと(ゾ ル ・ベ ス タ ン ト計 算 の 正確 性 の確 認)お よび② 財 産 目録 また は棚 卸表 の作 成(イ ス ト・ベ ス タ ン トの確 認)を そ の 内容 と し,決 算 本 手続 と い わ れ る もの は(1)帳 簿 記 録(ゾ ル ・ベ ス タ ン
ト)と 実 地 棚 卸 高(イ ス ト ・ベ ス タ ン ト)と の 間 に差 異 が あ る場 合,帳 簿 記 録 を後 者 に合 致 させ るた め の 決算 整 理 記 入,お よび ② か くして実 際 の状 態 に 合致 させ られ た勘 定 か ら損 益 計算 を総 括 し,(3)ま た 財産 計 算 の総 括 を行 な う
ことがそ の主 た る内容 を な す とい っ て よい で あ ろ う。
と ころで,決 算 予 備 手 続 の うち,帳 簿 記 録 の正 確 性 を た しか め る こ とは, 試 算 表 の作 成 に 至 る手 続 の正 確 性 を 問 題 とす る こ とで あ るか ら,前 掲 拙稿 で
明 らか に した よ うに仕 訳 の 「計 算 上 の正確 性 」 と 「転 記 の正 確 性 」 を 確 保 す るプ ログ ラムが 電子 計 算 機 簿 記 の プ ロ グラ ムの 中 に組 み 込 まれ てい れ ぽ,改 め て 問題 にす る必要 は な い。
決 算 予備 手 続 の うち,第 二 の財 産 目録 また は 棚 卸 表 の作 成 とい う問題 は, 電子 計 算機 に よ り自働 的 に行 な うこ とは きわ め て因 難 で あ る。 そ もそ も,財 産 目録 また は棚 卸 表 の作 成 とい うこ とは,(1)実 地 棚 卸 を行 な うこ と,(2)実 地 棚 卸 の 結 果 に対 し価 値 づ け を行 な うこと(評 価 す る こ と),そ して(3)期 末 決 算 の た め の棚卸 表 の場 合 には ゾル ・ベ ス タ ン トた る帳 簿 残 高 と評 価 後 の実 地 棚 卸 高 とを 比較 し,修 正 す べ き金 額 を 算 出す る とい う三 つ の要 素 を含 ん で い
る。
化 学 工 業 等 の場 合 の よ うに プ ロセ ス ・オ ー トメ ィシ ・ンが 行 なわ れ て い る 場 合 に は タ ン ク内 部 の 資 産 の量 的 測 定 は 自働 的 に行 な い うるで あ ろ う。 しか し,現 在 の状 態 の 下 で は電 子 計 算 機 が,あ らゆ る企 業 の あ らゆ る勘 定 項 目に つ い て 自働 的 に 実 地 棚 卸 を 行 な うな ど とい う わ け には ゆ か ない。 した が っ
て,実 地 棚 卸 は 人 間 が 行 な う と考 え ね ぽ な ら な い 。 実 地 棚 卸 の 結 果 に 対 し価 額 づ け を 行 な う こ とか ら後 の 段 階 は,労 力 を 払 う こ と さへ い とわ な け れ ぽ プ
ロ グ ラ ミソ グ も不 可 能 で は な い で あ ろ う。
しか し,本 稿 で は 問 題 を 単 純 化 し,か つ,伝 統 的 複 式 簿 記 をEDP化 す る 場 合 の 基 本 的 な側 面 に 集 中 す る た め 決 算 整 理 仕 訳 は 通 常 の 取 引 の 仕 訳 カ ー ド と 同 じ形 で 与 え られ る も の と し て 考 察 す る。 す な わ ち,各 勘 定 の借 方 ま た は 貸 方 残 高 は 前 掲 拙 稿 まで の プ ロ グ ラ ム に よ る処 理 で 与 え ら れ て い る も の と し,ま た,人 間 が 行 な っ た 実 地 棚 卸 の 結 果,各 勘 定 の 修 正 金 額 が 与 え られ る も の と仮 定 す る の で あ る。
か よ うに 考 え る と,決 算 の た め に は 勘 定 配 列A,あ るい は 勘 定 配 列Aを 修 正 して 作 っ た 残 高 試 算 表 が あ りさ え す れ ぽ よ い よ うに 思 わ れ る 。 しか し,電 子 計 算 機 簿 記 で 決 算 を 行 な う さ い,次 の 点 に 注 意 しな け れ ぽ な らな い 。
す な わ ち,前 掲 拙 稿 で 使 用 した 例 に つ い て い え ぽ,売 掛 金 はA(2,1)お よ びA(2,2)を 用 い て 計 算 した 。 した が っ て,売 掛 金 の 借 方 残 高 を 算 出 す る 以 前 の 状 態 は,下 図 の よ うにA(2,1)に40,000円 が あ り,A(2,2)に39,000
売掛 金借方残 高A(2,1)A(2,2)円 が あ る。 と こ ろ が 借 方 残 高
算 出前L40000113909型 ・1,000円 をA(2,1)に 算 出 す
れ ばA(2,2)に は 当 然 ゼ ロを 入 れ な け れ ば な らな い 。 しか し,こ うす る と今 期 の掛 売 上 高 総 計40,000円 と売 掛 金 回 収 高39,000円 とい う重 要 な 資 料 は 主 記 憶 装 置 の な か に 展 開 して あ る勘 定 配 列Aに 関 す るか ぎ り完 全 に 失 な わ れ て
しま う。 この こ と は 他 の勘 定 に つ い て も 同 じで あ る。
した が っ て,各 勘 定 の 借 方 合 計 金 額 お よ び 貸 方 合 計 金 額 を 失 な うま い とす れ ぽ,そ れ ら の 金 額 を ラ イ ン ・プ リン タ ーや カ ー ド ・パ ン チ あ る い は 磁 気 テ ー プ の よ うな 装 置 を 通 じて 外 部 に 取 出 して お くか,あ る い は 今 期 の 取 引 額 を 計 算 す る場 所 と勘 定 残 高 を 算 出 す る場 所 と を 主 記 憶 装 置 の 内 部 で 区 別 して お か な け れ ば な らな い 。
換 言 す れ ば,ペ ン と イ ン ク に よ る 手 記 複 式 簿 記 の も と で は 元 帳 の 各 勘 定
資 産 勘 定
a)期 首 繰 越 高 × ×X b)今 期 増 加 高 × × ×
(t)X×X
c)今 期減少 高 d)次 期繰越 高 (t)
るい は今 期 減 少 高 を算 出す るだ け で な く,次 期 繰 越 高 を も算 出 し,
れ らの数 値 は歴 史 的記 録 と して遺 され て ゆ くの で あ る。 た だ し,手 記 簿 記 シ ス テ ムで は,上 図 のb今 期 増 加 高 とc今 期減 少 高 は それ ぞれ 一 個 の合 計 額 と
して で は な く,合 計 算 出 の素 材 と して表 わ れ る ことは 言 うまで もな い。
資産 勘 定 だけ で な く,伝 統 的複 式 簿 記 の勘 定 記 入 を一 般 化 して み る と,そ れ は
1前 期 繰越 高
2各 勘 定 の借 方 お よび貸 方 増 加 高 3次 期 繰 越 高
の三 つ の要 素 に 区 分 す る こ とが で き る。そ して,そ れ らす べ て が歴 史 的記 録 と して遺 され て行 くの で あ る◎
した が って,電 子 計 算機 複 式 簿 記 で も これ ら基 本 的 な 重要 資 料 を残 しな が ら処理 して行 くプ ログ ラムを考 え なけ れ ぽ な らない 。
実 は,こ の問題 は 電子 計 算 機 簿 記 の 基 本 的 問題 の一・つ で あ る。 とい うの は 電子 計 算機 簿 記 をそ の一 部 分 と して 包含 す るEDPの(あ るいは マ ネ ジ メ ン
ト ・イ ンフ オ ー メ ィシ ョン ・シス テ ム の)基 本 的 な 特徴 の一 つ は帳 簿 の統 合
(2)
(fileconsolidation)で あ る か ら,電 子 計 算 機 複 式 簿 記 の 元 帳 も当 然 こ の 面 か ら考 察 され な け れ ぽ な らな い 。 しか し,同 時 に,監 査 と い う 面 か らみ れ ぽ,伝 統 的 複 式 簿 記 は 証 拠 の 体 系 で あ り,元 帳 は そ の 中 心 的 位 置 を 占 め る も の で あ る。
した が っ て,本 稿 で は 元 帳 の 具 体 的 な 条 件 を 論 ず る よ り も,む しろ 決 算 と (2)フ ァイル ・コソソ リデー シ ョソにつ いては拙稿 「電 子計算 機 に よ る販売管理 会
計」(商 学討 究,Vol・18,No・3)pp・91,124を 参 照 されたい。 なお同稿に 引用 した文献 を見 られ たい。
は,た とえぽ 資 産勘 定 に
××xつ い てみ れ ぽ 左 図 の よ う x× × に前 期 繰 越 高 と今 期 増 加
× × ×
高 お よびそ の 合計 額,あ しか もそ
い う面 か らみ る とき,こ う した 条 件 の一 つ と して どの よ うな こ とが浮 び上 っ て くるか とい う点 を 明 らか にす る こ とに重 点 を 置 い て以 下 論 を進 め て ゆ くこ とに す る。
か よ うに 考 え る と,前 掲 拙稿 で行 な った よ うに 唯 一 の二 次 元 配 列A(1,J) を使 用 す る ので は な く,前 期 繰 越 高 につ い て一 個 の二 次 元 配 列A(1,J)を 使 用 し,今 期 中 の取 引 に つ い て別 の二 次 元 配 列B(1,J)を,ま た 次 期 繰 越高 に も
同 じ く一 個 の二 次 元 配 列c(1,J)を 割 当 て て使 用 しなけ れ ば な らな くな る。
次 に,決 算 本 手 続 の一 つ で あ る決 算整 理 記 入 は,結 局,今 期 中 の借 方 増 加 高 また は貸 方 増 加 高 の修 正 で あ るか ら,配 列Bに 直接 記 入 して も よい。 しか し,こ の方 法 で は伝 統 的複 式 簿 記 に慣 れ て い るわ れわ れ に と り,い くぶ ん奇 異 の感 を まぬ が れ な い。 それ は 決算 の た あ の勘 定 修 正 過程 が 眼 に 見 え る形 で 残 らな いか らで あ る。 また,決 算本 手 続 の他 の重 要 な手続,す なわ ち損 益勘 定,残 高 勘 定 の作 成 の 過 程 も伝 統 的手 記 複 式 簿 記 に慣 れ て い るわ れ われ と し て は 眼 に見 え る形 で 残 した い とい う心 理 的要 求 を 無理 に 排 除 して も得 る と こ ろ は少 な い。 した が って,本 稿 で は伝 統 的複 式 簿 記 の決 算 手 続 を コ ン ピ ュー
タ ラ イズす る方 法 と して きわ め て精 算表 に 近 い形 を採 用 す る こ とに す る。
伝 統 的複 式 簿 記 の 理 論 の な か で は,精 算表 は 決算 本 手 続 は い うまで もな く,決 算 予備 手 続 に も入 らな い。 そ れ は きわ め て 便利 な もの では あ るが,仕 訳 帳,元 帳 とい う複 式 簿 記 の基 本 的記 録 体 系(す なわ ち帳 簿 体 系)と は切 り 離 され た もの で あ り,精 算表 の作 成 は 決 算 手 続 そ れ 自体 の 構 成 分 子 で は な
く,い わ ば 決 算 の 予 行 演 習 で あ り,ま た教 育 上 便利 な 道 具 で あ るにす ぎな
いo
しか し,電 子 計 算機 複 式簿 記 で は上 述 した よ うな主 記憶 装 置 の特 性 か ら精 算表 と きわ め て よ く似 た形 で 決 算 を遂 行 せ ざ るを え な い ので あ る。 す な わ ち 前 期 繰 越高,今 期 増 減 高,整 理 記 入 高,損 益勘 定,残 高 勘 定 等 の一 連 の 基 本
的資 料 を 明 白な形 で取 り出す た め であ る。
2.決 算 と 三 次 元 配 列A(1,J,K)
前 節 で のべ た考 え 方 に も とつ い て 決算 の方 法 を具 体 化 す る と,ま ず 使 用 す る配 列 は 下 図 の よ うに 並 ぶ こ とに な る。
前期繰越高配列 今期取引配列 整理記入配列 損益勘定配列 残高勘定配列
[Ill
lIll 【1
A(1,J)B(1,J)c(1,J)D(t,J)E(1,J)
「lll llIIlllI l!1[
しか し,前 節 で 指 摘 した よ うに 帳 簿 残 高 と実 地 棚 卸 高 と の 比 較 照 合 を 行 な っ た 結 果,整 理 記 入 が 行 な わ れ る の で あ る。 した が っ て,当 然 の こ と な が ら 伝 統 的 複 式 簿 記 で は 決 算 の 出 発 点 は 合 計 試 算 表 で は な く 残 高 試 算 表 で あ る (精 算 表 の 出 発 点 も 同 じ)。 そ こで,わ れ わ れ も上 図 に 残 高 試 算 表 に 担 当 す る 勘 定 残 高 配 列 を 加 え,決 算 の た め の 基 本 的 な 配 列 群 を(図 表2‑1)の よ う に 変 更 す る こ と に す る。
前期 繰越高 今 期 取 引 勘 定 残 高 整 理 記 入 損 益 勘 定 残 高 勘 定 酉己 ll酉 己 U酉 己 晒 酉己 タij酉 己ijlJ酉 己 IJ
llli l}}l
A(LJ)B(1,J)c(1,J)D(1,J)E(1,J)F(1,J)
lIIl
.̲̲̲L。̲.̲」̲一..̲一,.一̲,̲一̲̲.,一 一..一̲L.1L̲1‑̲̲一̲̲̲̲̲一.̲.̲̲
(図 表2‑1)決 算 で 使 用 す る 勘 定 配 列
か よ うに六 個 の勘 定 配 列 を 使 用 して 決 算 を実 行 しよ うとす る と,前 掲 拙 稿 で行 な った よ うに勘 定 配 列Aだ け を考 えれ ば す む とい うわ け に は行 か な い。
す なわ ち,前 期 繰 越 高 に関 す る情 報 は 配 列A(1,J)に 入 れ,今 期取 引高 に 関 す る もの は配 列B(1,J)に 入 れ 等 々 とい うよ うに 正 し く使 い わ け ね ば な らな い。 のみ な らず勘 定 残高 配列 か ら残 高 勘 定 配 列 まで の演 算 は,こ れ らい くつ もの 配 列 の 間 の数 値 のや りと りで あ る。 そ こで,各 勘 定 配 列 の 区 別 と相 互 の 関 連 を容 易 に行 な い うる よ うに してお く方 が 賢 明で あ る。
通 常FORTRANIVコ ンパ イ ラーで は三 次 元 配 列 まで 使 用 で き る。 そ こ
で 本 稿 で は 以 下 三 次 元 配 列A(1,J,K)を 使 用 す る 。 す な わ ち, 耳
前 期 繰 越 高 配 列A(1,J)は 今期取 引配列
勘 定残高配列 整理記入配列 損益勘定配列 残高勘定配列
B(1,J)は c(1,J)は D(1,J)は.
E(1,J)は F(1,J)レ よ
1234510
5=====KKKKKK
A(1,J,1) A(1,J,2) A(1,J,3) A(1,J,4) A(1,J,5) A(1,J,6)
と い う関 係 に な る。
な お,念 の た め,こ の 関 係 を(図 表2‑1)と 同 様 な 形 で 示 す と 次 の よ う に な る。
前期繰越高 今 期 取 引 勘 定 残 高 整 理 記 入 損 益 勘 定 残 高 勘 定
配 列 配 列 配 列 配 列 配 列 配 列
A(1,J,1)A(1,J,2)}i
lll
A(1,J,3)
̲i
)4J
σA 1
A(1,J,5) A(1,J,6)
(図 表2‑2)三 次 元 配 列A(1,J,6)を 用 い た 場 合 の 勘 定 配 列 の 関 係
前 掲 拙 稿 に 明 らか に した プ ログ ラ ムは仕 訳 の 「計 算 上 の正 確 性 」 と 「転 記 の正 確 性 」 の二 つ の要 請 に 答 え る プ ログ ラ ムで あ るが,実 は この プ ロ グ ラム は通 常 の取 引 を 今 期 取 引 配 列 や前 期 繰 越 高 配 列 に転 記 す るた め に使 用 で き る だ け で な く,決 算 整 理 仕 訳 を 整 理記 入 配 列 に転 記 す る際 に も使 用 しなけ れ ば な らな い。 何 故 な ら,決 算 整 理仕 訳 も通 常 の取 引 の仕 訳 と同様 に,そ の仕 訳 計 算 の 正確 性 と勘 定 コ ー ドの正 当 性 を 検 査 しなけ れば な らな い か らで あ る。
しか し,こ うな る と前 掲 拙 稿 の最 後 に 示 した か な り大 きな プ ログ ラ ムを 何 度 も書 か ね ぽ な らな くな り,不 合理 で あ る。 そ こで,そ の プ ログ ラ ムの メイ ン ・プ ロ グ ラ ムの 主 要 部 分 を サ ブル ーチ ン と して使 用 す る。 そ もそ も,前 掲 拙稿 の最 後 に示 した プ 目グ ラムは仕 訳 帳 を廃 止 す る機 能 を もっ てい た。 そ こ
で,こ れ を サ ブル ー・チ ン とす る場 合,名 前 をBENTRYと し よ う。 す な わ ち 基 本 的 転 記 プ ロ グ ラ ム(BasicEntryProgram)と い うほ ど の つ も りで あ るo
こ の よ うに 基 本 的 転 記 プ ロ グ ラ ムBENTRYを サ ブ ・ル ー チ ソ と して 使 用 す る と き,た とえ ぽ 通 常 取 引 の 仕 訳 カ ー ド ・デ ッ ク と決 算 整 理 取 引 の 仕 訳 カ ー ド ・デ ック と を ど の よ うに して 区 別 した ら よ い か,と い う 問 題 が お き る 。
こ の 区 別 を す る た め,通 常 取 引 の 仕 訳 カ ー ドや 決 算 整 理 取 引 の 仕 訳 カ ー ド に,そ れ ぞ れ の 分 類 コ ー ドを パ ン チ して お い て も よ い 。 しか し,こ うす る と 非 常 に多 くの カ ー ドに 分 類 コ ー ドを パ ン チ しな け れ ぽ な ら な くな り,能 率 的 な 方 法 で は な くな る。 また,カ ー ド設 計 の 点 か らみ て も,そ れ だ け ス ペ ー ス が 減 少 し,他 の 必 要 事 項 が パ ン チ で き な くな る。 そ こで,前 期 繰 越 高 カ ー ド,通 常 取 引 カ ー ド,決 算 整 理 仕 訳 カ ー ドの 先 頭 に 制 御 カ ー ドを 一 枚 つ つ 付 け て や り,こ の 制 御 カ ー ドに よ っ て 転 記 先 の 勘 定 配 列 を 区 別 す る こ とに す
る 。
す な わ ち,次 図 に 示 す よ うに 前 期 繰 越 高 を 示 す カ ー ドの 先 頭 に はK3‑1
/とE、R、SH、WAKE /品 をY。T。R、H、KI
20 K3 22 1
20Σ コ
K34
22 2
/‑E.NK、KUR、K。SH、E9 l
K3=4の 制 御 カ ー一ド を つ け て や る の で あ る 。
の 制 御 カ ー ドを,今 期 取 引 の 仕 訳 カ ー ドの 先 頭 に はK3・‑2の 制 御 カ ー ドを,そ して 整 理 仕 訳 カ ー ドの 先 頭 に は
3.決 算 手 続 を ふ くむ 電 子 計 算 機 複 式 簿 記 の メ イ ソ ・プ ロ グ ラ ム
上 述 した よ うに,前 掲 拙 稿 で 展 開 した 電 子 計 算 機 複式 簿記 の プ ログ ラ ム は,通 常取 引 の処 理 に際 して 使 用 され るだ け で な く,決 算 を もふ くむ,す べ
Sub.
NAMEAD
リ コ ロ ロ ロ
癌 ム 巷翻i2
り
ゆら ら
o
◎ ら
、
らも◎
◎
Sub.
TBPLBS
(図 表3‑1)メ イ ン ・プ ロ グ ラ ム と サ プ ル ー チ ン の 関 係 Sub.
PSET
Sub. Sub.
TRNCHK CODCHK
,9圏., ''
Sub.
'
ぐσ Sub.
TEST 、、 ひ ENTRY
、
、 Sub.
も ERROR
、 亀
o
て の 複 式 簿 記 の プ ロセ ス の 中 で 使 用 さ れ るが ゆ え に,そ れ 自体 を サ ブ ル ー チ ン と して 使 用 す る。 した が っ て,決 算 を 含 む 複 式 簿 記 の 一 般 的 プ ロ グ ラ ム は (図 表3‑1)の よ うな 構 造 を 持 つ こ と に な る。 た と え ば,通 常 取 引 の 仕 訳 カ ー ドを 処 理 して い る場 合,メ イ ン ・プ ロ グ ラ ム は 仕 訳 カ ー ドの 先 頭 に つ け られ て い る制 御 カ ー ドで サ ブル ー チ ンBENTRYを よ び,そ こで 一 枚 の 仕 訳 カ ー ドの 処 理 の 仕 事 を す る 。 そ の 際 必 要 に 応 じて 更 に 下 位 の サ ブ ル ー チ ン を 使 用 す る ζ と は 当 然 で あ る。 も し,こ の 時 仕 訳 カ ー ドに 「計 算 上 の エ ラ ー 」 が 発 見 され る な らば,サ プ ル ー チ ン のERRORに 飛 び 必 要 な エ ラ ー ・メ ッ セ ー ジ を 出 して くれ る こ と に な る。
す な わ ち,前 掲 拙 稿 で 作 成 した プ ロ グ ラ ム の メ イ ン ・プ ロ グ ラ ム は 本 稿 で は 四 階 建 の 建 物 の 二 階 の 一 部 分 に 相 当 す る サ ブル ーチ ン と な り,前 掲 拙 稿 で サ ブ ル ー チ ン と して 現 わ れ た も の は 本 稿 で は こ の 建 物 の 三 階 お よ び 四 階 に 位 置 す る サ ブル ー チ ン と考 え る こ とが で き る 。
こ の プ ロ グ ラ ム の 二 階 に は サ ブ ル ー チ ンBENTRYの ほ か,決 算 そ の 他 の
キ
COMMON領 域 の 宣言
配 列A(15,2,6)を ク リ ヤ ー す る
α)
勘 定 名 カ ー ド、 勘 定 コ ー ド ・カ ー ド(IH) MARK99カ ー ドの 読 込
仕 訳制 御 カー ドか らK3を 、 勘 定科 目追 加 カー ドか らNADD を読 込 む
勘 定科 目 名
の追 加 が あるか否 か を しらぺ る
CALLBENTRY〔K3)
勘 定 残 高 配 列(残 高 試 算
表>A(15,2,3)の 記 入
損 益 勘 定 配 列A〔15,2,5) の 記 人
残 高 勘 定 配 列 A(15,2,6>の 記 入
決 算 表 た る配 列
A(15,2,6)全 体 の 書 出 し
(IV)
(VII)
(VJII)
(IX)
CALLNAMEAD
(NADD) (VI〕
(図 表3‑2)決 算 終 了 ま で の 複 式 簿 記 手 続 き の7ロ ー チ ャ ー ト
■
事 情 で 勘 定 科 目を 追 加 す る必 要 が あ る 場 合,勘 定 を 追 加 す る た め の サ ブル ー チ ンNAMEADと,残 高 試 算 表,損 益 勘 定,残 高 勘 定 等 に 相 当 す る勘 定 配 列 の 作 成 に も 同 時 に 使 用 され る サ ブル ー チ ンTBPLBSも 置 か れ る こ とに な
る。
プ ロ グ ラ ム全 体 の 構 造 を こ の よ うに 考 え る と,メ イ ン ・プ ロ グ ラ ム の フ ロ ーチ ャ ー トは(図 表3‑2)の よ うに な る。
(図 表3‑2)に 示 した メ イ ン ・プnグ ラ ム の フ ロ ー チ ャ ー トに つ い て き わ め て 簡 単 に 説 明 を 加 え て お こ う。 第jvボ ッ ク ス で 制 御 カ ー ドか らK3の 内 容 を 読 込 み,以 下 に 続 く仕 訳 カ ー ドの 種 類 を 判 定 す る 。 ま た 勘 定 科 目 の 追 加 が あ る か 否 か を 判 定 し,追 加 が あ る場 合 に は まず 勘 定 科 目の 追 加 を 先 に 処 理
して か ら仕 訳 カ ー ドの 処 理 に 移 る の で あ る。
この 仕 訳 カ ー ドの 処i理は サ ブル ー一チ ンBENTRYで 行 な わ れ る。 一 種 類 の 仕 訳 カ ー ドの 処 理 が 終 了 す る と,そ の ブ ロ ック の 終 りを 示 す ブ ロ ッ ク ・エ ジ ド ・カ ー ドが 現 わ れ,メ イ ン ・プ ロ グ ラ ム に 戻 る。 第(M聾)ボ ッ ク ス の テ ス トは,こ う した ブ ロ ッ ク毎 の 処 理 を 繰 り返 え して,決 算 整 理仕 訳 カ ー ドの 処 理 ま で,全 部 終 了 した か 否 か を 検 査 す る こ とを 示 して い る の で あ る。
した が っ て,決 算 整 理 仕 訳 が な い 場 合 で も デ ー タ ・カ ー ド ・デ ック の 構 成 は K3・4の 制 御 力e‑・一ド,NADD‑・0の 勘 定 名 の 追 加 が な い こ とを 示 す カ ー ド, お よ び プ ロ ヅク ・エ ン ド ・カ ー ドを 最 後 に 付 け て や る こ と を 忘 れ て は な らな
いo
か よ うに 考 え る と メ イ ン ・プ ロ グ ラ ム は(図 表3‑3)に 示 す よ うに な る。
この メ イ ン ・プ ロ グ ラ ム に つ い てIAと は 採 用 して い る 勘 定 の 総 数 の こ と で あ り,IREVと い うの は 損 益 計 算 表 勘 定 の 最 初 の 勘 定 の 番 号 で あ る 。 す な わ ち,本 稿 の プ ロ グ ラ ムで 複 式 簿 記 を 実 行 す るた め に はCOMMON宣 言 を そ れ ぞ れ の 勘 定 体 系 の 実 情 に 応 じて 訂 正 して や らな け れ ぽ な ら な い こ と は 勿 論 で あ るが,そ の 他 は,こ のIAとIREVを 訂 正 す る だ け で,他 は 何 等 修
123456701234567012345671111111122222222 O123433り∂内63
COMMONA(15,2,6),NAME(15),ICODE(15) IA=15
1REV=8 DO1正(=1,6 DOlJ=1,2 DOlI=1,IA lA(1,J,K)=o.o
READ(5,104)NAME READ(5,104)ICODE READ(5,104)MARK99 104FORMAT(10A7)
2READ(5,101)K3 101FORMAT(20X,12)
READ(5,101)NADD IF(NADD.EQ.0)GOTO3 CALLNAMEAD(NADD) 3CALLBENTRY(IA,MARK99,K3)
IF(1(3.NE.4)GOTO2 CALLTBPLBS(IA,1,IA‑1,1,3) CALLTBPLBS(IA,IREV,IA‑2,3,5) CALLTBPLBS(IA,1,IREV‑1,3,6)
wRITE(6,102)(NAME(1),((A(1,J,K),J=1,2),K=1,5),1=1,IA) 102FORMAT(1H1,9X,16HZENKIKURIKOSHI,5X,
14HKONKITORIHII(1,9X,7HZANDAK
IA,11X,11HSEIRIKINYU,13X,3HP/L/(1HO,A7,10F10.0)) wRITE(6,103)(NAME(1),(A(1,J,6),J=1,2),1=1,IA) 103FORMAT(lHl,15X,3HB/S/(1HO,A7,2F10.0))
STOP END
(図表3‑3)決 算を含 む電子 計算機複 式簿記の メイ ン 。プ ログ ラム 正 す る 必 要 が な い の で あ る。
ま た,最 後 に 出 て く る決 算 表 は(図 表3‑3)の26行 お よ び31行 の 書 出 し 命 令 を 見 れ ぽ 明 らか な よ うに,一 行 百 二 十 字 の ラ イ ン ・プ リ ソ タ ー用 紙 で は 一 頁 に 入 れ る と 見 に く くな る こ と を 恐 れ て,前 期 繰 越 高 か ら損 益 勘 定 まで を 一 頁 に 打 出 し,残 高 勘 定 は 二 頁 目に 書 出 して あ る。 した が っ て,両 者 を横 に つ な い で 見 る の で あ る。 た だ し付 録 と して 末 尾 に 示 した 決 算 表 は 印 刷 の 都 合 上 一 頁 に ま と め て あ る。
4.基 本 的 転 記 プ ロブ ラ ムBENTRYと 勘 定 追 加 サ ブ ル ー チ ソNAMEAD̀
(a)基 本 的 転 記 プ ロ グ ラ ムBENTRY
前 述 した よ うに 前 掲 拙 稿 「伝 統 的 複 式 簿 記 と コ ン ピ ュー タ ー」 で は メ イ ン ・プ ロ グ ラ ム で あ った もの を 本 稿 で は サ ブル ー チ ン と して 使 用 す る の で あ る か ら,い く らか 修 正 しな け れ ぽ な らな い 。
修 正 を 完 了 した サ ブル ー チ ンBENTRYは(図 表4‑1)に 示 す と お りで あ る か ら,ど こ が 修 正 さ れ た か は 両 者 を 比 較 す れ ば 明 らか で あ る 。 す な わ ち,基 本 的 転 記 プ ロ グ ラ ム を サ ブ ル ー チ ン と して 使 用 す る た め に 変 化 した 部 分 は,メ イ ン ・プ ロ グ ラ ム(図 表3‑3)へ 移 っ た 部 分 が ほ とん ど で,個 々 の ス テ ー トメ ン トで そ の 内 容 を 修 正 した 点 は 次 の 三 箇 所 しか な い 。
す な わ ち,サ ブル ー チ ンTESTを コ ー ル す る 6CALLTEST(N,M,NUMB2,HSUMl,HSUM2)
お よ び
7CALLTEST(N,M,NUMB2,HSUM1,HSUM2)
と い うス テ ー トメ ン トの ア ー ギ ュ メ ン トにK3を 追 加 して や る こ と と,勘 定 ・ 配 列 の 合 計 を 算 出 す る
8A(IA,J)‑A(IA,J)+A(1,J)と い うス テ"一・…トメ ン トを 8A(IA,J,K3)‑A(IA,J,K3)+A(1,J,K3)
とい う よ うに 修 正 す る こ とだ け で あ る。
(b)勘 定 追 加 サ ブル ー チ ンNAMEAD
複 式 簿 記 の実 行 に 際 して,勘 定 科 目を 追 加す る必 要 が発 生 しな い 等 とい う こ とは あ りえ ない 。 した が って,少 しで も現 実 的 な 電子 計 算 機 複 式 簿 記 の プ ログ ラ ムを作成 しよ うとすれ ば,勘 定 科 目の 追 加 お よび削 除 を 正 し く処理 し
うる プ ログ ラ ムで なけ れ ば な らな い。
12345670123456701234567012345611111111222222223333333
SUBROUTINEBENTRY(IA,MARK99,K3) COMMONA(15,2,6),NAME(15),ICODE(15) COMMdNDCA(3,2),IXY(3,2,2),CODE(3,2),Nz(2) LOGICALCODE.CODE3.NZ
IB=IA‑一 一1 NUMB2=O
CALLPSET(N,M,HSUM1,HSUM2) 2READ(5,101)TA,ID,IC,NUMB 101FORMAT(F6.0,2A2,13)
IF(TA.GE.999999.0)GOTO7 1F(NUMB2.EQ、o)NUMB2=NuMB IF(NUMB2.NENUMB)GOTO6 31F(IC.NE.MARK99)GOTO4
CALLTRNCHK(IA,N,TA,ID,HSUM1,1) GOTO2
41F(ID.NE.MARK99)GOTO5
CALLTRNCHK(IA,M,TA,IC,HSUM2,2) GOTO2
5CALLTRNCHK(IA,N,TA,ID,HSUM1,1) CALLTRNCHK(IA,M,TA,IC,HSUM2,2) GOTO2
6CALLTEST(K3,N,M,NUMB2,HSUM1,HSUM2) NUMB2=・NUMB
GOTO3
7CAL,LTEST(K3,N,M,NUMB2,HSUMI,HSUM2) DO8J=1,2
DO81=1,IB
8A(IA,J,K3)=A(IA,J,K3)十A(1,J,K3) RETURN
END
(図 表4‑1)
基 本 的 転 記 プ ロ グ ラ ム と し て の サ ブ ル ー チ ンBENTRY
この最 も単 純 な方 法 は,す で に前 掲拙 稿 「伝 統 的 複式 簿 記 と コ ン ピ ュー タ 一」 の第 三 章二 節 「勘 定 コ ー ド検 査 の考 え 方」 に お い て な した よ うに ,勘 定(3)
配 列 の 中 に,将 来 の必 要 を考 慮 して 若 干 の空 白部 分 を 設 け てお く方 法 で あ る。
い ま,前 者 で 使 用 した勘 定 配 列 と勘 定 コー ドの 関 係 をそ の まま使 用 す る こ
(3)前 掲 拙 稿P・44。
現 金 勘 定 売 掛 金 勘 定
備 品 勘 定
(余 裕)
買 掛 金 勘 定
(余 裕)
資 本 金 勘 定
売 上 勘 定
仕 入 勘 定
給 料 勘 定
営 業 費 勘 定
(余 裕)
(余 裕)
(余 裕)
合 計 算 出 場 所 (図表4‑2)
数行 125456789012345111111
勘 定
コ ー ド
Al A2 A3 (b) Ll
(b}
Cl Rl El E2 E3
(b}
(b) (bl (b)
各勘定の割当 とにす る。
も し,勘 定 を 追 加 す る必要 が なけ れ ぽ制 御 カ ー ドの次 に おか れ る勘 定 追 加 カ ー ドに ゼ ロを パ ンチ し直 ちに仕 訳 カ ー ドを続 け る。 も し,勘 定 を追 加 す る必要 が あれ ば 追 加 され る勘 定 の 数 を パ ンチ し,次 に そ れ ら追 加 され る勘 定 の勘 定 名,勘 定 コー ド, 勘 定 配 列 に おけ る行 数 等 の デ ー
タを与 え るカ ー ドを そ れ に続 け るの で あ る。
た とえぽ,前 掲拙 稿 で使 用 し た 例 で,商 品 の 期 末 棚卸 高 が 46,250円 あ り,売 掛 金 に つ いて
NAME(1ADD(1累3)}旨IADD(Il塞3‑2}
ICODE(IADD(1塞3))=IADD(1*3‑1}
(V塁ll)
(図 表4‑3)
サ ブ ル ー チ ンNAMEAD(NADD)の7ロ ー チ ャ ー ト
貸倒 引当 金 を10円 設 定 す る こ とにす る と, に読 込 ん でや らね ば な らな い。
次 の よ うな勘 定 を余 裕行 の なか
追加 さるべき勘定 繰 越 商 品 勘 定 貸 倒 引 当 金 勘 定 貸 倒 償 却 勘 定 当 期 純 損・益
勘 定 名 INVT KDHIKAT K・DAORE
NETP/L
勘 定 コ ー ド 行 数
A44 L26 E412 (な し)14
な お,こ の と き,上 図 に 示 す よ うに 各 勘 定 に つ い て 三 つ の 情 報 を 与 え て や らね ぽ な らぬ こ と は 言 うま で も な い 。
この よ うに 考 え る と,勘 定 追 加 の た め の サ ブ ル ー チ ン の ブ ロ ー ・チ ャ ー ト は(図 表4‑3)の よ うに な る。 そ して,サ ブ プ ロ グ ラ ムNAMEADは(図
表4‑4)に 示 す よ うに な る。
こ の 間 の 論 理 を わ か りや す くす る た め に 勘 定 を 追 加 す る た め の デ ー タ が 配 列IADDの な か に ど の よ うな形 で 収 容 され るか を 図 示 す れ ば(図 表4‑5)
の とお りで あ る。
35C3344444444555555 6701234567012345
SUBROUTINENAMEAD(NADD)
COMMONA(15,2,6),NAME(15),ICODE(15) DIMENSIONIADD(21)
11F(NADD.GT.7)GOTO2 1E=NADD
GOTO3 21E=7
3READ(5,101)IADD 101FORMAT(7(A7,A2,12))
DO41=1,IE
NAME(IADD(1*3))=IADD(1*3‑2) 41CODE(IADD(1*3))=IADD(1*3‑1)
NADD=NADD‑7 1F(NADD.LE.0)RETURN GOTOl
END
(図 表4‑4)勘 定 追 加 の た め の サ ブ ル ー チ ンNAMEAD
IADD(1)IADD(2)IADD(3)IADD(4)IADD(5)IADD(6)… …
勘 定 名 勘 定 コ ー ド 位 置 勘 定 名 勘 定 コ ー ド 位 置
1・NVTIA4 4KDHIKATL2 6卜 一 省 略 ……
へ
繰越商品勘定 のデー タ 貸倒 引当金勘定 のデー タ 省 略
追 加 ナ ソ バ 【 追 加 ナ ソ パ ー … …
1==lI==21==3・ 。・...
IADD(1*3‑‑2)→IADD(1)̲INVTIADD(1*3‑2)→IADD(4)̲KDHIKAT IADD(Ii・3‑1)→IADD(2)̲A41ADD(1*3‑1)→IADD(5)̲L2 1ADD(1*3)→IADD(3)̲41ADD(1*3)→IADD(6)̲6
(図 表4‑S)追 加 さ れ る 勘 定 に つ い て の 情 報 が 配 列1ADDに 格 納 さ れ る 関 係
5.残 高 試 算 表,損 益 勘 定,残 高 勘 定 作 成 の た め の サ ブ ル ー チ ソTBPLBS
周 知 の よ うに 複 式 簿 記 に お い て は 残 高 試 算 表 と損 益 勘 定 お よ び 残 高 勘 定 と は きわ め て 密 接 に 関 連 し合 っ て お り,損 益 勘 定 と残 高 勘 定 は 残 高 試 算 表 の 部 分 計 算 に す ぎ な い 。 した が っ て,こ れ ら三 者 を 演 算 処 理 す る に は 一 箇 の サ ブ ル ー チ ンTBPLBS(TrialBalance,ProfitandLoss,andBalanceSheet)
が あ れ ぽ 足 り る は ず で あ る 。
(a)勘 定 残 高 配 列A(1,J,3)の 演 算 と記 入
直 ち に サ ブル ーチ ンTBPLBSの 説 明 に入 る まえに勘 定残 高 配 列 の処 理 だ け を行 な うサ ブル ーチ ンを 考 え て み よ う。
勘 定 残 高 配 列 は 前 期 繰越 高配 列 と今 期 取 引 配 列 の借 方 合計 と貸 方 合 計 を比 較 し,差 額 を勘 定 残 高 配 列 の しか るべ き側 に記 入 す れ ば よい。 した が っ て,
い ま こ の サ ブ ル ーチ ンをTB(TrjalBalance)と 名 づ け る とす る と,こ の 構 造 は(図 表5‑1)に 示 す よ うに な る。
この勘 定残 高 配列 へ の記 入 プ ログ ラムは実 は損 益勘 定 配 列 お よび残 高 勘 定 配 列へ の記 入 プ ログ ラム の一 部 分 とな る こ とは 明 らか で あ る。 なぜ な ら,損 益勘 定 配列 お よび残 高 勘 定 配 列 へ の記 入 も この勘 定 残 高 配 列 の記 入 プ ログ ラ
SUBROUTINETB(K)
COMMON… 省 略 … IB=IA‑=1
DO41==1,IB
ANET=(A(1,1,1)十A(1,1,2))一(A(1,2,1)十A(1,2,2)) IF(ANET)1,4,2
1J=2 GOTO3 2J=1
3A(1,J,K)=ABS(ANET)
A(IA,J,K)=A(IA,J,K)十A(1,J,K) 4CONTINUE
RETURN END
(図 表5‑1)勘 定 残 高 配 列 の サ プ ル ー チ ン
ム と 同 じ 仕 事 を 行 な わ ね ば な ら ず,異 な る 点 は 純 損 益 を 算 出 す る と い う こ と だ け で あ る か ら で あ る 。
(b)損 益勘 定 配 列 と残 高勘 定 配 列 の 演 算 と記 入 を行 な うサ ブル ーチ ン
PLBS
い まか りに,損 益 勘 定 配 列A(1・J・5)と 残 高 勘 定 配 列A(1,J,6)の 二 つ の 勘 定 配 列 だ け を 処 理 す る サ ブ ル ー チ ンPLBS(ProfitandLoss,Balance
Sheet)を 考 え る と(図 表5‑2)の よ うに な る。
こ の サ ブル ー チ ンの 上 半 分 は 上 述 の 勘 定 残 高 配 列A(1,J,3)を 処 理 す る た め の サ ブル ー チ ンTBと 基 本 的 に 同 じで あ る こ とは 一 見 し て 明 らか で あ る 。
両 者 の 異 な る 点 は,DOル ー プ の パ ラ メ ー一タ ー だ け で あ る 。
サ ブル ー チ ンPLBSの 下 半 部 の 第 一 行 目は 言 う まで も な く当 期 純 利 益 ま た は 当 期 純 損 失ANPL(amountofnetprofitor】oss)を 算 出 して い る の で あ る 。
こ の 計 算 は 伝 統 的 な 手 記 複 式 簿 記 に 慣 れ 親 ん だ 目か らみ る と 少 し異 様 で あ
123456701231111
SUBROUTINEPLBS(IS,IL,K)
COMMON… 省 略 …
DO41=IS,IL
ANET=(A(1.1,3)十A(1,1,4))一(A(1,2,3)十A(1,2,4)) IF(ANET)1,4,2
1J=2 GOTO3 2J=1
3A(1,J,K)=ABs(ANET)
A(IA,JIく)=・A(IA,J,K)十A(1,J,K) 4CONTINUE
上半部
4567012345611112222222
ANPL=A(IA,1,K)‑A(IA,2,K) IF(ANPL)5,8,6
5J1=1 J2=2 GOTO7 6J1=2
J2=1
7A(IA‑1,J1,K)=ABs(ANPL) A(IA,J1,K)=A(IA,J2,K) 8RETURN
END
(図表5‑2)
損益勘 定配列 と残 高勘 定配列 の二 つを処理 するサブルーチ ンPLBS
下半部
るが,サ ブル ーチ ンPLBSの 上 半 部 を実 行 した と き,す で に損 益勘 定 配 列 の 最下 行(す なわ ち合 計行)に 借 方 合 計 額 と貸 方 合 計 額 が 算 出済 で あ るか ら, 両者 の 差 額 が純 損 益 に な るので あ る。 この こ とは 残 高勘 定 配 列 の場 合 に も ま
った く同 じで あ る。
した が って,ANPLの 正 負 を判 定 し,純 利 益 が 出 よ うと,あ るい は純 損 失 が 出 よ うと,少 な い方 の下 か ら二行 目,す なわ ち慣行 的 な精 算表 の純 損 益 算 出場 所 に この差 額 を 加算 してや れ ば よい 。 また,そ の少 な い方 の 最 下行 す なわ ち合 計行 の金 額 を大 きい方 の金 額 で 置 きか え てや れ ば,損 益勘 定 配 列 の 場 合 で も,残 高勘 定 配 列 の場 合 で も正 し く処 理 し うるので あ る。
(c)サ ブ ル ー チ ンTBPLBSの 完 成
か よ うに 勘 定 残 高 配 列 を 記 入 す る プ ロ グ ラ ム と損 益 勘 定 配 列 お よび 残 高 勘 定 配 列 を 完 成 す る プ ロ グ ラ ム とは 基 本 的 に 同 じ もの で あ る。 した が っ て,こ の 両 者 を 合 せ て 一 個 の サ ブ ル ー チ ンTBPLBSを 作 成 して み よ う。
そ の た め に は,ま ず 第 一 に(図 表5‑2)の 上 半 分 と下 半 分 の 中 間 に IF(K.EQ.3)RETURN
と い うス テ ー トメ ン トを 入 れ な け れ ば な らな い 。 こ お す る と勘 定 残 高 配 列 の 処 理 を 行 な う さ い,純 損 益 算 出 の 仕 事 を しな い で メ イ ン ・プ ロ グ ラ ムに 戻 す
こ と が で き る。
第 二 の 修 正 点 は ア ー ギ メ ン トを 追 加 し,こ れ に よ っ て,勘 定 残 高 配 列 の 処 理 を 行 な う場 合 と損 益 ・残 高 両 勘 定 配 列 の 処 理 を 行 な う場 合 に 正 しいANET を 算 出 で き る よ うに して や る こ とで あ る 。
ANETの 計 算 式 は 勘 定 残 高 配 列 の 場 合
ANET==(A(1,1,1)十A(1,L2))一(A(1,2,1)十A(L2,2)) で あ り,損 益 勘 定 配 列 と残 高 勘 定 配 列 の場 合
ANET=(A(1,1,3)十A(1,1,4))一(A(1,2,3)十A(1,2,4)) で あ る。 した が っ て
ANET=(A(1,1,IK)十A(1,1,IK十1))
一(A(1 ,2,IK)十A(1,2,IK十1)) の よ うに 修 正 す れ ば,い ず れ の 場 合 に も使 用 で き る こ とに な る 。
した が っ て,サ ブ ル ー チ ンTBPLBSの ダ ミー ・ア ー ギ ュメ ン トにIKを 追 加 して や れ ば よ い 。 か く して 勘 定 残 高 配 列A(1,J,3),損 益 勘 定 配 列A(1, J,5)お よび 残 高 勘 定 配 列A(1,J,6)の い ず れ の 場 合 で も共 通 に 使 用 で き る サ ブ ル ー チ ソTBPLBSが(図 表5‑3)の よ うに 完 成 す る の で あ る 。
な お,こ の サ ブル ー チ ソTBPLBSは 前 期 繰 越 高 が な い 場 合 で も正 し く処 理 で き る こ と を 念 の た め 追 記 し て お く。
SUBROUTINETBPLBS(IA,IS,IL,IK,K) COMMONA(15,2,6)
DO41=IS,IL
ANET=(A(1,1,IK)十 、A(1,1,IK十1))一(A(1,2,II()一 トA(1,2,IK十1))
IF(ANET)1,4,2、
lJ=2 GOTO3 2J=1
3A(1,J,K)=ABs(ANET)
A(IA,J,K)=A(IA,J,K)十A(1,J,1() 4CONTINUE
IF(K.EQ.3)RETURN ANPL=A(IA,1,K)‑A(IA,2,K)
IF(ANPL)5,8,6 5Jl=1
J2=2 GOTO7 6Jl=2
J2=1
7A(IA‑1,J1,K)=ABs(ANPL) A(IA,J1,K)=A(IA,J2,K) 8RETURN
END
(図 表5‑3)完 成 し た サ プ ル ー チ ンTBPLBS
6.決 算 を 含 む 電 子 計 算 機 複 式 簿 記 プ ロ グ ラ ム の 完 成 と そ の 意 義
以 上 の 分 析 の 他,本 稿 で は 使 用 す る 勘 定 配 列 がA(1・J,1)か らA(1・J,6) の 六 つ に 増 加 した た め,仕 訳 カ ー ドの 種 類 も多 くな っ て い る。 そ こで,仕 訳 カ ー ドの エ ラ ー もそ め 種 類 が 増 加 す る こ と に な る 。 しか し,こ れ は エ ラ ー の 種 類 が 増 加 した と い う よ り も,仕 訳 カ ー ドの 種 類 の 増 加 で あ るか ら,エ ラ ー ・メ ッセ ー ジ の 中 に ,そ の 仕 訳 が ど の 仕 訳 カ ー ド ・ブ ロ ック に 属 す るか を 明 らか に して や れ ぽ よ い 。 こ の た め,前 掲 拙 稿 「伝 統 的 複 式 簿 記 と コ ン ピ ュ
ー タ ー 」 で 示 した サ ブル ー チ ンERRORを 修 正 して お い た 。
こ の よ うな 修 正 を 施 す と,決 算 を 含 む 伝 統 的 複 式 簿 記 は 電 子 計 算 機 に よ り
完 全 に遂 行 す る こ とが で き,ま た そ の と きの論 理 的構 造 は 上 述 の分 析 の 示 す 通 りで あ る。
この いわ ば 完 全 な電子 計 算機 複式 簿 記 の プ ログ ラ ムを ま とめ て示 す と(図 表6‑1)の よ うに な る。
そ して前 掲 拙稿 以 来使 用 して きた例 につ い て決 算 を 行 なわ ない 場 合 の デ ー タ と演 算 結 果 は 紙 幅 の 都 合 で省 略 し,決 算 整 理 仕 訳 を 含 む場 合 の 演 算結 果 だ け を 付 録 一 に示 して あ る。
電 子 計 算機 複式 簿 記 の決 算 の結 果 を精 算 表 の よ うな形 式 で な く,通 常 の複 式 簿 記 に お け る損 益 勘 定 お よび 残 高 勘 定 の よ うな形 で ア ウ ト ・プ ッ トす る こ
と もで き る し,ま た報 告 書形 式 で 出 す こ と もで き る。 しか し,こ うした ア ウ ト ・プ ッ トの形 式 は単 な る プ ログ ラ ミング技 術 の 問 題 で あ り,電 子 計 算 機 複 式 簿 記 の本 質 に は か か わ りの な い 問題 であ るか ら論 じない 。
しか し,注 意 す べ き点 は,決 算 を 行 なわ な い 場 合 の ア ウ ト ・プ ッ トで あ る。 す なわ ち,付 録 一 で行 な った二 つ の決 算 整 理 仕 訳 が な い場 合 には,決 算 を 行 な っ てい な い に もか かわ らず 損 益 勘 定 配 列 と残 高 勘 定 配 列 に 記 入 が行 な わ れ,し か も下 か ら二 行 目に33,000円 とい う 数 字 が あ た か も純 損 失 で あ る か の 如 く記 入 され る ことに な るだ ろ う。
これ が 純 損 失 で な い こ とは余 りに も明瞭 で あ る。 これ は決 算 整 理記 入 を し な い場 合 の 損益 勘 定 配 列 の借 方 合 計 額 と貸 方 合 計 額 の 差額 を示 して い るにす ぎな い(残 高 勘 定 配 列 につ い て も同 じ)。
この よ うな こ とは 伝 統 的 複 式 簿 記 で は ほ とん ど実 行 され る こ とは ない。 し た が って,決 算 整 理 記 入 が な い場 合 に は,損 益 勘 定 配 列 と残 高 勘 定 配 列 の記 入 を行 なわ な い よ うに プ ログ ラ ムを修 正 した 方 が伝 統 的 複 式 簿 記 に よ り忠実 で あ る こ とに な る。
しか し,こ れ は 次 の重 要 な事 実 を 示 して い る。 す なわ ち,毎 日の よ うに実 地 棚 卸 を 行 ない,ゾ ル ・ベ ス タ ン トとイ ス ト ・ベ ス タン トの調 整 額 を 決定 す る こ とが 実行 可 能 か否 か とい う点 を除 い て考 え て も,電 子 計 算 機 複 式 簿 記 で
は か よ うに 毎 日決 算 を行 な うこ とが少 な くと も コ ン ピ ュー タ ーの性 能 上 は可 能 で あ る し,ま た 決算 整 理 記 入 ぬ きの仮 りの数 値 で は あ って も,財 産 ・損 益 一 覧 表 と して の 試 算表 の機 能 を をか くの如 く強 化,拡 充 す る こ とが で き る こ
とを 示 して い る。
な お また,配 当 政 策 そ の他 の 財 務 会 計政 策 に もとつ く価 値 判 断 を加 えた も の こそ 真 の意 味 の決 算 で あ る。 した が って,こ の よ うな意 味 で の決 算 は 毎 日 とか 毎週 とか 行 な う必 要 もな い し,行 な った と して も 無意 味 で あ る。 しか し,原 価 会 計 に おけ る月 次 決 算 の よ うに管 理 会 計 的 な決 算 で あ るな らば,実 は で ぎ るだけ 頻 繁 に,し か も迅 速 に 行 な うことは 重要 な意 義 を持 っ て い る。
本稿 の は じめ に,電 子 計 算機 が あ らゆ る企 業 の あ らゆ る勘 定 項 目に つ い て 自働 的 に実 地 棚 卸 を 行 な うわ け に は ゆ か な い,と 書 いた 。 しか し決 算 の意 味 を狭 く限定 し,試 算表 の持 つ 財 産 ・損 益 一 覧 表 とい う機 能 の拡 充 され た もの
と して解 釈 す るな らば,電 子 計 算機 複式 簿 記 は 「この限 定 され た 仮 決 算 」 を 毎 日行 な うこ とがで きる とい う重要 な発 展 を示 して い る ので あ る。
何 故 な ら,ほ とん どす べ ての活 動 勘 定項 目につ い て,EDPは 「帳簿 棚 卸 」 を 人手 に よる場 合 よ りも飛躍 的 に 充 実 した もの に す る こ とが で きる。 した が
って,こ の電 子 計 算 機 簿 記 の 「帳 簿 棚卸 」 と人 間 に よ る実 地 棚 卸 とをた くみ に総 合 し,組 織 す るな らば,非 財 務 会 計的 とい う限界 内 で は あ るが,ゾ ル ・ ベ ス タ ン トとイ ス ト ・ベス タ ン トとの 差額 の調 整 とい う決 算 手 続 を 容 易 に 日 常 の ル ーチ ン 。ワー クにす る ことが で き るか らで あ る。
この よ うに 非 財 務 会 計 的 決 算 を い わ ば毎 日毎 日行 ない うる こ とこそ,実 は 電子 計 算機 複 式 簿 記 の 最 も重 要 な 特 質 の 一 つ で あ り,そ の こ とは 同時 に財 産 ・損 益 一 覧 表 と しての 試 算 表 の意 義 が拡 充 され,毎 日作 成 され る 「仮 決 算 表 」 に転 化 す る とい うことに ほ か な らな い。 そ して,こ こに 電子 計 算機 複 式 簿 記 が もた らす最 も重要 な変 化 の 一 つ が存 在 す るので あ る。
終
CCC・12345670123456.7012345670121111111122222222333 34くげ67・つσ3333
SHOGAKUTOKYUVOL.19,NO,2.
TRADITIONALDOUBLEENTRYBOOKKEEPINGANDCOMPUTER
COMMONA(15,2,6),NAME(15),ICODE(15) IA=15
1REV=8 DOlI(=1,6
DOlJ=1,2 DOlI=1,IA lA(1,J,K)=o.o
READ(5,104)NAME READ(5,104)ICODE READ(5,104)MARK99 104FORMAT(10A7)
2READ(5,101)K3 101FORMAT(20X,12)
READ(5,101)NADD IF(NADD.EQ。0)GOTO3 CALLNAMEAD(NADD) 3CALLBENTRY(IA,MARK99,K3)
IF(K3.NE.4)GOTO2 CALLTBPLBS(IA,1,IA‑1,1,3) CALLTBPLBS(IA,IREV,IA‑2,3,5) CALLTBPLBS(IA,1,IREV‑1,3,6)
wRITE(6,102)(NAME(1),((A(1,J,K),J=1,2),K=1,5),1=1,IA) 102FORMAT(1H1,9X,16HZENKIKURIKOSHI,5X,
14HKONKITORIHIKI,9X,7HZANDAK
lA,11X,11HSEIRIKINYU,13X,3HP/L/(1HO,A7,10FlO.0)) wRITE(6,lo3)(NAME(1),(A(1,J,6),J=1,2),1=1,IA) 103FORMAT(lH1,15X,3HB/S/(lHO,A7,2FlO.0))
STOP END 40C
1234567044444445
SUBROUTINENAMEAD(NADD)
COMMONA(15,2,6),NAME(15),ICODE(15) DIMENSIONIADD(21)
11F(NADD.GT.7)GOTO2 1E=NADD
GOTO3 21E・=7
3READ(5,101)IADD
(図表6‑1)決 算 を含 む電子計算 機複式簿記 のプ ログラム(そ の1)
