($title_img_alt)

こちらからの投稿は、先頭に表示されているコメントへの返信になります。
RPG? C仕様書にて はせがわいくよ さん [ 4月29日(月) 11時53分 ]
RPG?のC仕様書について教えてください。
軽減税率対応のため、品目マスターの税率を変えようとしているのですが
品目クラスがSIのものでコードが00000000SIP0019より大きいものだけ10%にしたいのです
。逆に言えば全て品目クラスがSIのものを10%にしてから、コードが00000000SIC9999以下のも
のの税率を0にすればいいのですが、
結果のフィールドの桁数が6桁しかないので
品目クラス  IFEQ  'SI'
品目コード  ANDLE  '00000000SIC9999'
税率     MOVE  0

ということができません。
品目コードは15桁でSIC,SIP,SIR,SIをふくむものがあるのですが、SIP以降のみ10%にしたいの
です。
どうぞよろしくおねがいいたします。


RE:RPG? C仕様書にて IKD さん [ 5月1日(水) 22時17分 ]
記述しておられるのは RPG III のようですが
RPG III は 20年前の言語ですので、
そろそろILE-RPGに代えることをお勧めします。
ILE-RPG ですとフリー・フォーマットで
下記のように見た目も自然でわかりやすい記述になります。

 /FREE
    IF 品目クラス = 'S1' AND
       品目コード <= '00000000SIC9999'
         税率 = 0;
    ENDIF;
 /END-FREE
名前付きリテラル HJ さん [ 5月7日(火) 10時38分 ]
I仕様書で、名前付きリテラルを定義する。
詳しくは、名前付き固定情報 RPG で くぐる。
RE:名前付きリテラル HIROX さん [ 5月8日(水) 11時49分 ]
SIP以降ということは、品目コードは15桁でSIC,SIP,SIR,SI のSIの場合も
10%にするってことなんですかね?

それなら比較は正しいように見えるので、名前付きリテラルまたは、CATで
変数に入れ込んでやれば、いいような気がします。

お名前

パスワード

メールアドレス

タイトル

ホームページ

アドレス

項目