cobol

1熱

1答えて

誰かがAS400 Cobol ILEからJavaクラス（AS400 IFSフォルダに格納されている）をシンプル・コールするサンプルを持っているのだろうかと思います。ネットの周りのRPGソースしか見つかりません...私はCobolソースサンプルが必要です。事前でおかげデニス

0熱

1答えて

ISPFのプロファイルがCOBOL（VARIABLE 80）に変更される

ISPFエディターに問題があります。 EclipseからEndevorにプログラムにサインインすると、プロファイルがCOBOL（FIXED 80）からCOBOL（VARIABLE 80）に変更されることがあります。 ****** ***************************** Top of Data ****************************** =PROF> ....

1熱

1答えて

COBOLとHLASM（アセンブリ）間のリンケージ（32Kバイト以上）

JCL（F、FB、V、VB）で通知されたファイルを読み込むにはアセンブリモジュールを実装する必要があります。このモジュールは私のCOBOLプログラムの中で呼び出されます。私は既にオープン、読み取り、およびクローズ機能を実装することができました。モジュールはfolowと呼ばれている 01 LNK-MOD. 05 LNK-MOD-OPTION PIC X(01) VALUE SPACE

1熱

1答えて

最後に実行されたSQLステートメントを取得するDB2システム・ランタイム・テーブル

DB2システム・テーブル - バッチ・ランタイム・ログはメインフレームにありますか？ DB2 for iSeriesには、実行時にステータス（アクティブ/完了）、最も重要なことにV_SQL_STATEMENT_TEXT - 最後のSQL実行のステートメントを含むジョブ情報を返すテーブル関数QSYS2.GET_JOB_INFO()があります。シナリオ：実行時に最後に実行されたSQL文をCobol

0熱

1答えて

Visual Studioコードでのコボルタブ/インデントの設定コード

私はMacにVisual Studio Codeをインストールしました。 7,8,12,16,20,24,72のコボルのフォーマットに合わせてタブ/インデントを設定することができません。タブの設定方法を見てきました。 4つの空白がありますが、これはカラム5、9などにインデントを与えますが、それはもちろんタブのカラム1 + 4と思われます。

1熱

1答えて

彼らに

私は現在カーソルが「説明」DB2テーブルのVARチャーフィールドに読み込みするプログラムを作成しようとしていますと「接頭辞」を読み出すカーソルを削除するには、複数のプレフィックスのためのテキストフィールドをスキャンしようとするとVAR charフィールドを別のテーブルから取得します。私は、プレフィックスのいずれかが記述の始めに存在するかどうかを確認するためにそれぞれの記述をチェックし、そうであれ

2熱

1答えて

現在表示されているマップはどれですか？

私はちょうどメインフレームの開発に入っていますので、何の無知を言い訳になりますが、表示されているマップや最後に端末に送られたマップを特定する方法はありますか？例えば、私はマップセットMAPSにMAP1 & MAP2を持っています。地図は、PFキー(PF7/PF8)を押すことによって交代する。各マップ上で、ユーザはプログラム(SLCTOPTI)によって評価されるべき値を入力することができる。ユーザ

3熱

1答えて

AssemblyからCOBOLに返されたポインタからデータバッファをアドレス指定する方法

アセンブリモジュールを呼び出すCOBOLプログラムがあります。このモジュールは、このモジュールの中で得られたいくつかのデータ（私はバッファと呼ぶ）へのポインタを返します。作業用ストレージ内の変数をこのポインタにアドレス指定してデータを使用するにはどうすればよいですか？ワーキングストレージ：： 01 WK-MOD-AREA. 03 WK-MOD-PTR PIC 9(09) COMP

3熱

1答えて

COBOLを使用してUnicode文字列をファイルに書き込む

IBMメインフレーム（z/OS）上で動作するCOBOLプログラムを更新して、非ラテン文字をサポートしています。私はCOBOLは、私は、このフィールド現在PIC NにPIC Xとして定義されたフィールドを更新する必要がPICのN. として定義された文字が、その後に書き込まれますUTF-16をどのように処理するかを理解した上で少し苦労していますファイル。例： 01 RecordToWrite PI

0熱

2答えて

Cobol Mainframe - さまざまなインデックスを実行 - ディスプレイ

私はZ/OS上でCOBOLを学び始めました。私はビジュアルコブルを使用してかなりしました。しかし、これはまだかなり異なっています。私は現在、私も PERFORM VARYING W03-SUBJ-INDX FROM 1 BY 1 UNTIL W03-SUBJ-INDX = 50 DISPLAY W03-SUBJ-TABLE(w03-subj-indx) END-PERFOR