常連

### 実現したいこと

存在するデータが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になる理由はなぜでしょうか？

cobol.cobで給料計算ファイルを作ったのですが、エラが出ました

```ここに言語を入力
*cobol.cobの名前しました。以下にを入力しました。

IDENTIFICATION DIVISION.
*プログラムの識別情報
PROGRAM-ID. SAMPLE-PROGRAM.
*SAMPLE-PROGRAM
AUTHOR. Your Name.
DATE-WRITTEN. DD/MM/YYYY.
DATA DIVISION.
*データの定義や作業領域
WORKING-STORAGE SECTION.
01 EMPLOYEE-RECORD.
05 EMPLOYEE-ID PIC 9(5).
05 EMPLOYEE-NAME PIC X(20).
05 EMPLOYEE-SALARY PIC 9(7)V99.
05 TAX-RATE PIC 9(3)V99 VALUE 0.2.
05 NET-SALARY PIC 9(7)V99.

PROCEDURE DIVISION.
*社員情報の入力と給与計算、結果の表示を行っている。
MAIN-ROUTINE.
*プログラムの実行を開始するエントリーポイント。ここから処理を始める
DISPLAY "Enter employee ID: ".
ACCEPT EMPLOYEE-ID.

DISPLAY "Enter employee name: ".
ACCEPT EMPLOYEE-NAME.

DISPLAY "Enter employee salary: ".
ACCEPT EMPLOYEE-SALARY.

COMPUTE NET-SALARY = EMPLOYEE-SALARY - (EMPLOYEE-SALARY * TAX-RATE).

DISPLAY "Employee ID: " EMPLOYEE-ID.
DISPLAY "Employee Name: " EMPLOYEE-NAME.
DISPLAY "Net Salary: " NET-SALARY.
```
で書きました。そして実行方法ですがですが、
以下の
```
cobc -x -o cobol cobol.cob
```
で方法で実行しました。
で原因のエラーなのですが、
```
cobol.cob:1: error: invalid indicator 'F' at column 7
cobol.cob:2: error: invalid indicator '?' at column 7
cobol.cob:3: error: invalid indicator 'M' at column 7
cobol.cob:4: error: invalid indicator 'E' at column 7
cobol.cob:5: error: invalid indicator '.' at column 7
cobol.cob:6: error: invalid indicator 'R' at column 7
cobol.cob:7: error: invalid indicator 'I' at column 7
cobol.cob:8: error: invalid indicator '?' at column 7
cobol.cob:9: error: invalid indicator 'G' at column 7
cobol.cob:10: error: invalid indicator 'L' at column 7
cobol.cob:11: error: invalid indicator 'E' at column 7
cobol.cob:12: error: invalid indicator 'E' at column 7
cobol.cob:13: error: invalid indicator 'E' at column 7
cobol.cob:14: error: invalid indicator 'T' at column 7
cobol.cob:15: error: invalid indicator 'N' at column 7
cobol.cob:17: error: invalid indicator 'U' at column 7
cobol.cob:18: error: invalid indicator '?' at column 7
cobol.cob:19: error: invalid indicator 'O' at column 7
cobol.cob:20: error: invalid indicator '?' at column 7
cobol.cob:21: error: invalid indicator 'P' at column 7
cobol.cob:22: error: invalid indicator 'E' at column 7
cobol.cob:24: error: invalid indicator 'P' at column 7
cobol.cob:25: error: invalid indicator 'E' at column 7
cobol.cob:27: error: invalid indicator 'P' at column 7
cobol.cob:28: error: invalid indicator 'E' at column 7
cobol.cob:30: error: invalid indicator 'P' at column 7
cobol.cob:32: error: invalid indicator 'P' at column 7
cobol.cob:33: error: invalid indicator 'P' at column 7
cobol.cob:34: error: invalid indicator 'P' at column 7
cobol.cob:37: error: PROGRAM-ID header missing
```
が表示されてしまいました。

以上の原因が正直わかりませんこの原因を解決できる方を探しています。わかる方がいましたら教えてください。



cobolコードについて助けてください

### 実現したいこと
Cobolでバブルソートを使用して入力した値を昇順にソートできること

### 発生している問題
「3,2,1」と入力すると「1,3,2」となってしまう

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

```COBOL

IDENTIFICATION DIVISION.
program-id. SAMPLE.
ENVIRONMENT DIVISION.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 my-date.
 03 J PIC 9(2).
 03 J2 PIC 9(2).
 03 I PIC 9(2).
 03 A PIC 9(2) OCCURS 3.
 
PROCEDURE DIVISION.
MOVE 1 TO J.

PERFORM UNTIL J > 3

ACCEPT A(J)

COMPUTE J = J + 1
END-PERFORM.

MOVE 1 TO J.
MOVE 2 TO J2.
PERFORM UNTIL J = 3
    PERFORM UNTIL J2 > 3
        IF A(J) > A(J2)
            MOVE A(J) TO I
            MOVE A(J2) TO A(J)
            MOVE I TO A(J2)
        END-IF
        COMPUTE J2 = J2 + 1
    END-PERFORM
    COMPUTE J = J + 1
END-PERFORM.
    
MOVE 1 TO J.
    PERFORM UNTIL J > 3
        DISPLAY A(J)
        COMPUTE J = J + 1
    END-PERFORM.
    
STOP RUN.
```
 
### 問題の発生した環境
paiza.io


COBOLでバブルソートで困っています

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

COBOL条件式について

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

なぜ多くの言語で簡単に数値計算が出来ない？　なぜいまだに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)

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

### 前提・実現したいこと

オープン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で帳票を作成し、出力する方法について

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