cobol

0熱

1答えて

私は、通常の銀行口座番号をIBAN番号に変換するプログラムを作成しています。このプロセスの一部は、アルファベット+ 9での位置に対応する数字に（銀行ID、支店ID、ISO国コードなどのフィールドの）文字を変換する必要があることを意味します。したがって、A = 10、B = 11 、Z = 35。基本的に、次の銀行ID： "LOYD"は "21243413"になります。これらの数値を後で文字列に

0熱

1答えて

コンパイラが存在しない段落または節を参照していると考えます

私の手続き部に関するエラーがクラスの課題の1つになっています。申請者の平均身長と体重、茶色の志願者の数、男性の応募者の数、女性の応募者の人数の合計を記録するCOBOLプログラムです。また、プログラムは COBCH0034オペランドオペランドが数値がで必要とされる数値でなければなりませんステートメントを実行する要件の特定のセットを満たすが、私は、ほぼすべての私のためにエラーを取得しています応募者の

0熱

1答えて

Cobol - PIC Nフィールドのコンテンツの長さと位置はどのようにして決められますか？

私は大きすぎるチャンクの問題を攻撃する傾向があることがわかったので、私のはより小さくより具体的なものから始めようとしています。私はPIC Nフィールド（Nationalフィールド）と排他的に作業しています。私が取り組んでいるプログラムのために、そのフィールドのコンテンツの長さと位置を決定する必要があります。次のように私が話している特定のフィールドが定義されている： 05 Bank-CODE

-1熱

1答えて

COBOL言語を使用してファイルに出力を保存する

私はCOBOLで小さなプログラムを書くのに助けが必要です。私は、ファイルにDISPLAY結果を書くことについてどのように行くのですか IDENTIFICATION DIVISION. PROGRAM-ID. CallC. DATA DIVISION. WORKING-STORAGE SECTION. 01 INITBUF PIC X(10). 01 SHOWBUF PIC X(10).

0熱

3答えて

コブルールの英数字データの取り扱い

ws-var1は、pic x(3)です。 ws-var2もpic x(3)です。私はテーブルws-var1 = "1 "のフィールドを持っていて、別のフィールドws-var2にその値を移動したいとします。値は" 1"です。 ws-var1とws-var2の両方が英数字フィールドです。これを達成するための適切な方法を提案してください。

1熱

1答えて

テーブル要素（インデックスなしのテーブル）は、別のテーブルのインデックスを使用してアクセスされる場合は、IBMホスト上のテーブルのオーバーフローエラーを与えることができる別のテーブルから

のインデックスを使用。しかし、GnuCOBOL（以前はOpenCOBOL）を使用している場合、同じプログラムでもクラッシュやメッセージ（デバッグオプションを含む）が発生することはありません。 IDENTIFICATION DIVISION. PROGRAM-ID. TSTPROGX. DATA DIVISION. WORKING-STORAGE SECTION.

0熱

1答えて

大きな数を掛けるプログラムは、コボルで動作しないuntilループを実行します

x回の計算を実行すると、コードは正常に動作します。しかし、私がこのようにすると、乗数は変わらない。私はCOBOLを初めて使っているので、何が間違っているのか分かりません。私は基本的に、乗数が0より大きいまで動作するwhileループを必要とします。cobolには再帰がないので、この方法で試行していますが、Cでうまく動作しますが、ここではループの点で問題があります。あなたがGnuCOBOL使用している

0熱

1答えて

MOD 97の計算方法

国際的な口座番号を標準のIBAN構造に変換するプログラムを作成しています。私はこれまで入力をチェックするプログラムを書いていましたが、その入力はスペースやゼロを埋め込まずに入力され、アルファベット文字の位置に対応する数字に変換され、。私がしなければならないことは、数値のMod 97を計算し、98から余りを減算することです。結果が1桁の場合、先行ゼロを挿入する必要があります。は、私が今持って

0熱

1答えて

エントリを呼び出す効果を停止します

私はcobolで内部エントリを呼び出そうとしています。コールはOKですが、間違って実行されたエントリの後にいくつかの段落があるという問題もあります。ここでは私のプログラムです： IDENTIFICATION DIVISION. PROGRAM-ID. ENTR1POW. DATA DIVISION. WORKING-STORAGE SECTION. LO

-1熱

1答えて

FIELD-AにPIC 9V99がある場合

FIELD-AにPIC 9V99がある場合、小数点を印刷するために、FIELD-Aを編集したフィールドに移動します。私は初心者でどこから始めるべきかわからない。