古いレガシーコードからいくつかのロジックを見つけなければなりません。私のマネージャーはCOBOLだと言っていますが、私はそれについては分かりません。私はcobolチュートリアルでいくつかのキーワードを見つけることを試みました。 はここにいくつかのコードスニペットです： PROC(&QPROG);
VERIFY OFF PROC;DECLARE &MSG1 AS A75;
/* DON'T CA
私の雇用主は、TN3270 Plus 2.07バージョンのメインフレームエミュレータを使用しています。これはかなり古いバージョンであり、スクリーンリフレッシュ、 "if"条件、および新しいバージョンで利用可能なインクリメントなどの簡単な計算命令を待つようなスクリプティングコマンド/機能の一部をサポートしていません。私はこれらの機能が必要なので、私は組み込みのスクリプトを使うことはできません。 DD
私は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,