cobol

0熱

2答えて

私は約3百万のレコードを含むことができるファイルを持っています。このファイルの特定のレコードは、プログラムの実行中に複数回更新する必要があります。私は、より効率的である以下のどの、このファイルから特定のレコードをプルする必要がある場合：COBOL検索とインデックス付きVSAM検索インデックスフラットファイルのすべてのバッファリングデータのすべての作業領域にホストシステムは、ページのワーキング

0熱

2答えて

文字列の文字数を数える

文字列に文字数を定義することで問題があります。は、例えば、私は、次のコードを持っている： IDENTIFICATION DIVISION. PROGRAM-ID. TASK1. DATA DIVISION. FILE SECTION. WORKING-STORAGE SECTION. 01 SOURCE-STRING PIC X(50) VALUE " The length of st

5熱

1答えて

COBOL内の別のプログラムのリンケージセクションにリンケージセクションデータを渡す方法

プログラムコールを処理し、ログ、セキュリティチェックなどのクロスカッティング操作を実行するWrapper/Bridge COBOLプログラムで作業しています。主な動機はチェックしていますプロデューサプログラムを呼び出すためのアクセス権を持っているかどうかにかかわらず、コンシューマプログラムのセキュリティアクセス。ブリッジCOBOLプログラムをB1、プロデューサプログラムP1とコンシューマ（クラ

2熱

1答えて

オープンなcobol dllを含むjniコール

JNIを使用して既存のCOBOLアプリケーションを呼び出そうとしています。 COBOLのアプリケーション構造は以下の通りです。 c-wrapper(main)-->COBOLProgram -> several dyn(.so) and static called modules 既存のCOBOLアプリケーションは、いくつかの静的と呼ばれるサブプログラム（COBOL）と多くの動的（COBO

1熱

1答えて

COBOLでバックスペースキーまたは左右の矢印キーをキャプチャすることはできますか？

ACCEPTステートメントを使用して矢印キーストロークをキャプチャします。私は今これを持っています： ACCEPT MY-DUMMY CONTROL KEY IN MY-KEYSTROKE これは上下矢印のために働いています。ただし、左矢印と右矢印の場合、これらのキーは入力フィールド内をナビゲートするためにランタイムによって使用されるため、機能しません。これらのキーストロークをキャ

-1熱

1答えて

Cobol - 予期しない$ undefined、 "end of file"があります。

私はcobolの構文に問題があります。私は4.2.0-16-ジェネリックUbuntuの上でのオープンCOBOLパッケージを使用している、と私はエラーを持っている： ~/cobol$ cobc -free -x -o cal cal.cbl cal.cbl:6: Error: syntax error, unexpected $undefined, expecting "end of file"

3熱

2答えて

Cobolで内部テーブルのオーバーフローを防止するにはどうすればよいですか？

これはおそらくルーキーの質問ですが、Cobolでテーブルを使う方法を考えるのは難しいです。現在、他のプログラムから呼び出せるシンプルなモジュールを作成しています。私のプログラムは、内部テーブルからデータを検索しなければなりません。もちろん 01 TB-1 OCCURS 10 INDEXED X1. 03 CLIENT-NAME PIC N(30). 03 ORDER-NUMBER PIC 9(

4熱

1答えて

COBOLでファイルから浮動小数点数を読み取る

各行に1つずつ、この形式のS9(6)V9(2)という固定小数点数をファイルに格納していますが、実際に読み取ったときに数値を入力しようとしているときにエラーnon numericが発生していますオペレーション。さらに、プログラムで表示しようとすると、ファイルに567123.45という数字が+567123.04という変数に保存されます。たとえば、ファイルの数値123.45は、変数+123.45.00に

2熱

1答えて

ベクトル要素の値を変更する

この例では、ベクターに1を加えた1番目の要素の値を1に加え、さらに複雑な算術も変更したいと考えています。ここでのコードは次のとおりです。 ************************************************************* IDENTIFICATION DIVISION. PROGRAM-ID. YOUR-PROGRAM-NAME.