RPG

重複チェックagain

重複チェック。かなりの確率で出てくる事になるだろうロジック。前にも重複チェックは書いていて、その時には一度サブファイル表示したものを①配列に格納して②LOOKUPしていた。 が、2ステップじゃなくいっぺんにできると言われた。頭いいなーと思いましたw…

企業におけるシステム室/表現方法について

表現方法で(コードで)オリジナリティが出せれば面白いなと思う。それはそう思う。 でも可読性のほうが大事だ。可読性はそのコミュニティ(職場)にルールがあれば従うべき。それがそのコミュニティでの可読性を上げるから。 可読性を上げてなににコミット…

カーソルが当たっているサブファイル上のレコードナンバーを取得する

RPG

SFLCSRRRN サブファイルカーソルレコードナンバーなるキーワードが存在する。 使用例 FMTC01 SFLCTL SFLCSRRRN(&AAA) AAA 5S H SFLCSRRRN記述特徴 サブファイルコントロールへ記述する。 キーワード上のパラメータは'&'が必要。 サブファイルコントロールに…

重複チェック

RPG

サブファイル上のたとえば製品コードの重複チェックを行うとき。 状況 デフォルメしてるけどこんな感じ。1行(新規登録行)の画面フィールド群の下に、10行くらいファイルの内容を表示したサブファイルレコード(変更行)が並んでいる。この一画面で新規変更…

月数算出

RPG

四月始まりを変換するヤツ。 @@mmがもらったパラメータ:月。 こんなの D仕様書 D TAB1 S 2 0 DIM(12) CTDATA PERRCD(12) D TAB2 S 2 0 DIM(12) ALT(TAB1) C仕様書 C Z-ADD @@MM N 2 0 C N LOOKUP TAB1 TAB2 30 C 30 MOVE TAB2 N C N30 Z-ADD 0 N ケツ部分 "…