iSeries コンピューターで CL プログラムを変更する必要があります。元の CL には &SEQ という変数があります。これは、値が「001」のテキスト フィールドです。CLで値に1を追加して「002」にする方法はありますか? 私は CL プログラミングに詳しくないので、文字変数に対して数学関数を実行できるかどうかわかりません。助けてくれてありがとう！
1451 次
1 に答える
6
そのためには、* DEC CL変数を使用してから、それをテキストフィールドに移動する必要があります。プログラムの上部に次の行を追加します。
DCL &SEQNBR *DEC 3 VALUE(1)
次に、シーケンス番号をインクリメントするポイントのプログラムで、次のようにします。
CHGVAR &SEQNBR VALUE(&SEQNBR + 1)
CHGVAR &SEQ VALUE(&SEQNBR)
ここで何が起こっているのですか？数値変数＆SEQNBRを初期値1で宣言します。次に、CHGVARコマンドを使用してそれをインクリメントします。これにより、値が2になります。次に、テキストフィールド＆SEQに移動すると、値が「002」として受信されます。
于 2012-06-07T21:09:50.777 に答える