[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[orca-dev:00275] 診療請求書

藤井@xxxxxxxxです。
関係者の皆様、ご苦労様です。

たいしたことではないのですが、
-----cobol/common/ORCHC03.CBL 650行付近------

*    労災・自賠の時、点数表示なし
           IF      SPA-HKNKBN          =   1
               MOVE    SPACE               TO  HC03-HKNRYO1
               MOVE    SPACE               TO  HC03-HKNRYO2
               MOVE    SPACE               TO  HC03-HKNRYO4
               MOVE    SPACE               TO  HC03-HKNRYO5
               MOVE    SPACE               TO  HC03-HKNRYO6
               MOVE    SPACE               TO  HC03-HKNRYO7
               MOVE    SPACE               TO  HC03-HKNRYO8
               MOVE    SPACE               TO  HC03-HKNRYO9
               MOVE    SPACE               TO  HC03-HKNRYO10
               MOVE    ALL "*"             TO  HC03-GOKTEN

HC03-HKNRYO3 もSPACE にするべきなのではないでしょうか。

----------------------------------------------------------------
」  株式会社ミウラ  曙ビル　　藤井律男  (Web & Linux support staff)
」」  〒721-0952
」」」  広島県福山市曙町5-9-36
」」」」  Tel:084-954-5522 Fax:084-954-4777
」」」」」  E-mail:rfujii@xxxxxxxxxxxxxxxxxxxxxx
」」」」」           ritsuo@xxxxxxxxxxxxxx(private)
」」」」」」  URL:http://www.kkmiura.co.jp/　(新しくなりました)

PGP:A801 C77D ADAF 6B8A 5ABF  8983 2171 1140 46CF 09C0

「まるごとわかるデータベース読本」が技術評論社より発刊されています
----------------------------------------------------------------

 
Ritsuo Fujii <ritsuo@xxxxxxxxxxxxxx>