#!/usr/bin/perl
#$Id: buildos,v 1.5 1994/11/12 06:45:54 cbbrowne Exp cbbrowne $
$name = shift(@ARGV); 
$name =~ tr/A-Z/a-z/;
require "cbbshutils.pl";

&need_txn($name);
&blank_os($name);
&blank_bal($name);

&zeroth_TXNS();
while (($key, $value) = &next_TXNS()) {
    &add_os($key, $value);
    ($date, $check, $desc, $debit, $credit, $cat, $com, $cleared,
           $junk) = split(/:/, $value);
    &adj_bals("NULL", $cleared, $debit-$credit);
}
