cobol

    0

    1答えて

    私は、私たちの環境でz/OS XML System services Parserプロセスを呼び出すXML APIを実装しようとしています。このため、私はredbook http://www.redbooks.ibm.com/redbooks/pdfs/sg247810.pdf(Page Number 187に含まれているXMLPRS1プログラム例を実行しました。実行中、XMLSS-GXL1PRS

    2

    4答えて

    を実行するには、IS-それが実行ダブルを終了することができ: PERFORM VARYING J FROM 1 BY 1 UNTIL J>10 PERFORM VARYING K FROM 1 BY 1 UNTIL K>3 IF J=2 and K=2 EXIT PERFORM ELSE dis

    1

    1答えて

    私は、私が書いたプログラムのテストドライバーに何が起きているのかを見るためにディスプレイを置いています。私の場合は、PIC Nフィールドを含むコピーブックを使って作業しています。 私は以下のフィールドを表示したいと考えています:05 MESSAGE-TEXT PIC N(20). 普通のDISPLAY MESSAGE-TEXT IN COPYBOOKは読めません。たとえば、PIC-X-FIELDの

    1

    2答えて

    から段落:私は、結果として PROCEDURE DIVISION. display "PGM LEAV9POW: DEBUT" display "PGM LEAV9POW: DEBUT PROCEDURE NOM_PROC1" PERFORM NOM_PROC1 THRU E--NOM_PROC1 display "PGM LEAV9POW: FIN PRO

    2

    1答えて

    私は1990年代にコンサルタントがWindows環境に戻したが、Microfocus(Eclipseなど)を使用しているCOBOLであった古いUNIXベースのCOBOLバッチアプリケーションを変換する責任があります。 これは、1つの小さなグリッチを除いて、かなり簡単な作業です。 古いアプリケーションは、COBOL内で明示的なファイル処理を行うことはありませんでした。つまり、COBOLプログラムにF

    0

    1答えて

    に行くが、私は、COBOLで 例「に進んでください。」の影響を相殺させることができます方法はあります"PERFORM PROCEDURE2 THRU E - PROCEDURE2"、私が段落ENDDにGOしたときに、コントロールがその段落に無制限に転送され、私はproc1の最後までゴブに使うことができないと思いますか?私が間違っている ? @Bill は、これは私が翻訳しようとしているプログラムで

    -1

    1答えて

    プログラムに問題があります。私はVSAM KSDSファイルを読み込む方法を見つけましたが、通常のシーケンシャルファイルとマッチしてマージする必要があります。誰も助けることができますか? スペックは以下のとおりです。 以下のコピーを使用VSAMファイルの場合は、ソース・ライブラリー でのCOBOLベースのプログラムを作成します - COBOLプログラムの適切な場所にVSAMFD、VSAMRC、VSA

    0

    1答えて

    私はDB2V10で以下のSQLを実行しています。 select SUM (ORD_QTY * IFNULL(SELL_AMT,0) * IFNULL(WGT_QTY,0)) INTO :WS-VAR FROM TABA with ur; ORD_QTY => INTEGER SELL_AMT => DECIMAL(13,4) WGT_QTY => DECIMAL(11,

    1

    1答えて

    ユーティリティパッケージ(vsmr)を使用してVSAMファイルの値を読み取りました。コピーブックソースコードを利用できます。 私は以下のように定義(書式設定を言い訳してください) 01 RECORD 05 RECORD-X PIC S9(3)V99 COMP-3 05 RECORD-Y PIC S9(3)V99 COMP-3 05 RECORD-Z PIC S9(3)

    0

    3答えて

    を評価: EVALUATE TRUE WHEN (COD-USER NOT EQUAL TO 01) OR (COD-USER NOT EQUAL TO 02) ADD 1 TO CTN-ERROR WHEN ... END-EVALUATE 私はそれがIFを使用して動作すると思いますが、私はこの文でそれを行う必要があります。私はカッコを異なる位