常連

### 前提・実現したいこと

オープンCobolで、読み込んだデータファイル「cr.dat」より、帳票を作成し、出力先ファイル「 lp.dat」の中身をコマンドプロンプトで画面に表示したい

### 発生している問題・エラーメッセージ
「cr.dat」最終行の"SHOUHINMEI-5"が、「lp.dat」に出力されない

### 該当のソースコード
dodox86様に載せていただいたコードに同じ( t03.cob)
```Cobol
        IDENTIFICATION    DIVISION.                                              *>見出し部
        PROGRAM-ID.       RENSYU-1.

        ENVIRONMENT       DIVISION.                                              *>環境部
        CONFIGURATION     SECTION.
        SOURCE-COMPUTER.   COMPUTER-X.
        OBJECT-COMPUTER.   COMPUTER-X.
        INPUT-OUTPUT      SECTION.
        FILE-CONTROL.
              SELECT CD-FILE ASSIGN TO './cr.dat'.
              SELECT LP-FILE ASSIGN TO './lp.dat'.
　　　　　　　　*> SELECT CD-FILE ASSIGN TO CR. -------------※当初の質問でOrlofskyさんにご指摘いただき、
       　　　  *> SELECT LP-FILE ASSIGN TO LP. -------------修正済みの箇所

        DATA              DIVISION.                                              *>データ部
        FILE              SECTION.
        FD    CD-FILE
              LABEL RECORD IS OMITTED.
        01    CD-REC.
              02 SHOUHINMEI-I   PIC X(20).
              02 SURYOU-I       PIC 9(3).
              02 TANKA-I        PIC 9(3).
              02 FILLER         PIC X(54).
        FD    LP-FILE
              LABEL RECORD IS OMITTED.
        01    LP-REC.
              02 FILLER         PIC X(10).
              02 SHOUHINMEI-O  PIC X(20).
              02 FILLER         PIC X(10).
              02 SURYOU-O       PIC 999.
              02 FILLER         PIC X(10).
              02 TANKA-O        PIC 999.
              02 FILLER         PIC X(10).
              02 KINGAKU-O      PIC 9(7).
              02 FILLER         PIC X(10).
        WORKING-STORAGE    SECTION.                                              
        77 KINGAKU-W              PIC 9(7).
        77 EOF                    PIC X(3) VALUE SPACE.
        
        PROCEDURE         DIVISION.                                               *>手続き部
        HAZIME.
          OPEN   INPUT CD-FILE
                  OUTPUT LP-FILE.
          MOVE   SPACE TO LP-REC.
          PERFORM UNTIL EOF = "END"
            READ CD-FILE RECORD
              AT END
                  MOVE "END" TO EOF
              NOT AT END
                  COMPUTE KINGAKU-W = SURYOU-I * TANKA-I
                  MOVE   SHOUHINMEI-I   TO SHOUHINMEI-O
                  MOVE   SURYOU-I       TO SURYOU-O
                  MOVE   TANKA-I        TO TANKA-O
                  MOVE   KINGAKU-W      TO KINGAKU-O
                  WRITE  LP-REC AFTER   2 LINES
              END-READ
          END-PERFORM.
          CLOSE CD-FILE LP-FILE.
        STOP RUN.


```

### コマンドプロンプト画面：＜実行の流れ＞

```
c:\Cobol>cobc -x --free test.cbl

c:\Cobol>test.exe

c:\Cobol>type lp.dat


          SHOUHINMEI-1                  123          100          0012300

          SHOUHINMEI-2                  500          200          0100000

          SHOUHINMEI-3                  800          300          0240000

          SHOUHINMEI-4                  900          400          0360000
c:\Cobol>

```

### cr.dat(データファイル)の内容
```
SHOUHINMEI-1        123100####################################################
SHOUHINMEI-2        500200####################################################
SHOUHINMEI-3        800300####################################################
SHOUHINMEI-4        900400####################################################
SHOUHINMEI-5        600200####################################################


```







### 補足情報（FW/ツールのバージョンなど）

windows10
open-cobol-1.0-2

<ソースコードの出典>
『【午後選択】基本情報技術者試験らくらく突破COBOL 穂積和子＋藤山秋良・著』

OpenCOBOLで帳票を作成し、出力する方法について

### 実現したいこと

存在するデータがINVALIDにならないようにしたい

### 前提

COBOLで得意先マスターをリードする命令文を記載しています。

売上データの得意先番号から得意先マスターをリードしているのですが
得意先マスターに存在しているはずなのにINVALIDになってしまいます。

以下の例だと伝票番号5001の得意先番号912を得意先マスターからリードすると
INVALIDになります。

伝票番号5000までは問題なく得意先マスターからリードできます。
なので、構文等が間違っていることは無いと思います。

原因、またはこのように調べたら原因を特定できるのではないか？
ということを教えていただければ幸いです。

〇売上データ
伝票番号　得意先番号　・・・
00001 　　　 101
00002           403
00003           323
・・・
5001             912
〇得意先マスター
得意先番号　・・・
101            ・・・
102            ・・・
・・・
323　　　　・・・
・・・
403　　　　・・・
・・・
912　　　　・・・
・・・

### 該当のソースコード

```COBOL
READ TOKMAS INVALID DISPLAY G-1 STOP RUN.
```

### 試したこと

・どの得意先番号でINVALIDになっているか試した


### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。


存在するデータなのに、READ命令がINVALIDになる理由はなぜでしょうか？

なぜ、いまだに多くのプログラミング言語で、intがどうのdoubleがどうのとかで「近似値です」とか「金融計算には気を付けましょう」とか「小数点以下の計算は正しくありません」とかの問題が解決されないんでしょうか？

言語仕様レベル、あるいはせめて標準組み込みライブラリのレベルで、「金融計算、数値計算が普通に誰でも簡単に正しく出来る」言語があっても良さそうなのに、なぜいまだにそれが存在しないのでしょうか？　なぜいまだにいちいち「気を付けて計算」しないと誤差が発生する状態が放置されているのでしょうか？

いまだに「まだその辺の計算はCOBOLでやる価値がある」みたいな状況っておかしくないですか？　整数の計算を正しくやるとか、人間の感覚で言うところの「正しい小数の計算」とかって、そんなに実現が難しい話なんでしょうか？

質問の要点をまとめますと、多くのプログラミング言語において、。コンピュータ知識や言語仕様に詳しくない人間でも、金利計算などの数値計算で普通に「人が期待する結果」を簡単に出せる仕様にならないのはなぜか？です。

なぜ多くの言語で簡単に数値計算が出来ない？　なぜいまだにCOBOL？

※質問を訂正しました。

古いCOBOL資産の解析がありまして、わからない構文に直面しましたのでご教授いただきたいと思います。

条件式IF文について、以下のような記述の場合、どういう処理になるのでしょうか？

IF A=8500 AND 8600 AND 8700 
　NEXT SENTENCE
ELSE
～～～　以下の処理　～～～

この場合、変数Aは、8500,8600,8700以外の時に、ELSEに入るのでしょうか？

COBOL条件式について

現在、.NET COBOL/ORACLEからC#/SQLServerへの移植作業をしています。
SQLServerから取得する際にOrderByで下記のNAMEを昇順で取得したところ
下記のような順序で取得されました。
C#では濁点付きが先に並んでしまうのですが
.NET COBOLと同じような並びにするにはどうすればいいのでしょうか？

ORACLE：JA16SJISTILDE
SQLServer：Japanese_CI_AS
※Japanese_CI_AIも試しましたが同じでした。

■.NET COBOLでは単純にSQL取得時にNAMEをOrderByしているだけでした。
■SQLServerの照合順序もググって得た情報で数パターン試しましたが変わらず。
■C#でLinqを使用しても同様でした。
■LinqのOrderBy時にStrings.Strconvによる全角変換しても同様でした。

＜C#＞              ＜NET COBOL＞
NAME               NAME
--------------------      ---------------------
ｸﾛｷﾞｱｲｺ              ｸﾛｷﾏﾕ
ｸﾛｷﾞﾄﾐｵ              ｸﾛｷﾞｱｲｺ
ｸﾛｷﾏﾕ               ｸﾛｷﾞﾄﾐｵ


以上、よろしくお願い致します。

追記
 ■DBの照合順序
 ![イメージ説明](55e43a4b8a1d3a8c4489f316ecc1ffed.png)

 ■Order by にJapanese_bin2を指定しない結果
 ![イメージ説明](35cebb2ea34810278517193d7456a693.png)

 ■Order by にJapanese_bin2を指定した結果
 ![イメージ説明](586523ea649873239dec5f982fea1e12.png)

半角の「濁音なし」「濁音あり」カナのソート順について

**IEサポート終了に伴い、Chromeへの対応を行なっているのですがその際、IEとChromeのURLパラメータの文字コードが違うため、データが取得できない現象が起こっています。**

IEの場合はShift-JISのまま、Chromeの場合はUTF-8にエンコードされて送信されています。

サーバーログも確認したところ、IEの場合はShift-JIS（パラメータに日本語が入っている）
Chromeの場合はUTF-8にエンコードされて受け取っていることも確認しました。

この場合サーバー（IIS）側の設定でなんとかなるものなのでしょか？
もしくは軽微なプログラム修正で可能対応と考えられるでしょうか？

今回は小規模な回収のため、工数が少なく時間がかけられないので仕様の変更以外で解決方法があればご教授お願いいたします。

サーバー：IIS
開発言語：COBOL

IEとChromeのURLパラメータの文字コードが違うため、データが取得できない

金融系のシステムでPGをやっています。
命令文の違い（PERFORM文、SEARCH文）によるCPU効率などを教えていただきたく質問しました。

先日テーブル操作を行うプログラムを製造しました。
テーブル操作を行う際に、私たちのプログラム開発課では基本SEARCH文を使うようにする、
という標準があります。
仕様書にはテーブル操作がPERFORM文でかかれていましたが、SEARCH文でコーディングしました。
しかし、SEに修正で突き返されました。

おおまかな処理概要はこうです。
  ・取得してきたデータ(課コード)と一致する値をテーブルから検索する
  ｜・一致した場合（取得してきたデータとテーブル内データが）
  ｜  同じテーブル番号の課名を返す
  ｜・一致しなかった場合
  ｜  エラーメッセージを出力する

仕様書
  IF文
  ｜・課コードがテーブルに定義されているか調べる
  ｜ ・存在した場合
  ｜   処理を続ける
  ｜ ・存在しなかった場合
  ｜   エラーメッセージ出力し、処理を終了する
  
       PERFORM VARYING I FROM 1 BY 1
   ｜(テーブル数の数を超えるまで)
   ｜・IF文
   ｜｜・課コードとテーブル定義が一致した場合
   ｜｜  課名をDATA1に移送する
   ｜｜  処理をぬける
   ｜｜・一致しない場合
   ｜｜  処理を続ける

実際のコーディング
   ・SEARCH  課コードのテーブル
   ｜・AT END
   ｜  エラーメッセージ出力
   ｜・課コードがテーブルに存在したとき
   ｜  課名をDATA1に移送する

こんな風に処理内容を書き換えました。

私は経験も浅くSEの経験はありません。
ＰＧには分からない大きな視点をSEが持っているという言い分もわかります。
ただ、これに関しては課コードが追加されるなどの変更があった場合、
保守性の観点からも後者の方が絶対にいいと思います。

しかし一つ懸念あり、SEARCH文のCPU効率はすごい悪そう(勝手な感想)だな、ということです。
実際のところどうなのでしょうか。
またCOBOLにおいてCPU効率などが記された書籍などはあるでしょうか。
ハードウェア的な側面も考えながらコーディングできたらいいなと考えています。

COBOLのテーブル(配列)操作について

### 前提

最近COBOLを勉強し始めましたプログラミング初心者の事務職です。
COBOL　PERFORM文の処理の流れについて3点、質問します。

### 実現したいこと
＜＜ 実行例  ＞＞を確認ください。

**PERFORM 入力処理.                   *>1.**
で入力処理を呼び出しまず。
入力ファイルの読み込みが終わったので、 
終了フラグに 1 を代入しています。

**質問①**
この時点で  終了フラグ = '1' ですよね？

**質問② **
**PERFORM UNTIL 終了フラグ = '1'      *>2.**
終了フラグ = '1' 　になるまで>3.出力処理と>4.入力処理を繰り返せとのことですが、
既に*>1.の時点で　終了フラグ = '1'  なので　
>3.出力処理と>4.入力処理 へは行かずに、END-PERFORM.　になりませんか？


**質問③**
**PERFORM 入力処理                  *>4.**
この*>4.の処理は何のためにあるのですか？
既に　PERFORM 入力処理.                   *>1.　で入力ファイルの読み込みが終わって
終了フラグ = '1' を代入しています。
*>4.で再度　終了フラグ = '1'　を代入する必要がありますか？
 

処理の流れが良くわからず、質問させていただきます。




```COBOL


＜＜　実行例  ＞＞
       主処理.
           OPEN INPUT 入力ファイル
                OUTPUT 出力ファイル.
           PERFORM 入力処理.                   *>1.
           PERFORM UNTIL 終了フラグ = '1'      *>2.
             PERFORM 出力処理                  *>3.
             PERFORM 入力処理                  *>4.
           END-PERFORM.
           CLOSE 入力ファイル
                 出力ファイル.
           STOP RUN.
       入力処理　SECTION.
           READ 入力ファイル 
                AT END MOVE '1' TO 終了フラグ  *>5.
           END-READ.
       出力処理　SECTION.
           MOVE 入力レコード TO 出力レコード.  *>6.
           WRITE 出力レコード.
        
1.入力処理を呼び出します。
2.うちPERFORMで3.，4.をファイル終了条件が成立するまで繰り返します。
3.出力処理を呼び出します。
4.入力処理を呼び出します。
5.入力処理を実行します。
6.出力処理を実行します。

＜＜　実行例  ここまで  ＞＞

```

### 試したこと

ここに問題に対して試したことを記載してください。

### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。
