PowerCOBOLで表をｸﾘｯｸして､その値を親ﾌｫｰﾑに渡す : 電気ｳﾅｷﾞ的○○ mobile ver.

例えば､子画面(ｻﾌﾞﾌｫｰﾑ)で｢商品一覧｣を表示して､表の中の任意の行をﾀﾞﾌﾞﾙｸﾘｯｸしたら､その行の商品ｺｰﾄﾞが親画面の商品ｺｰﾄﾞ欄にｾｯﾄされるというもの｡

実際の業務ｼｽﾃﾑでもよくある機能だよね｡

というわけで､PowerCOBOL の実装でのﾒﾓ｡

まず､DblClick ｲﾍﾞﾝﾄではｸﾘｯｸした位置(座標)が取れないところで悩んでしまうのだが､実はﾀﾞﾌﾞﾙｸﾘｯｸをしたときには､DblClick ｲﾍﾞﾝﾄが走る前に､MouseDown ｲﾍﾞﾝﾄが走る｡

そして､MouseDown ｲﾍﾞﾝﾄは POW-ARG-X や POW-ARG-Y といった､ｸﾘｯｸされた位置(XY座標)が引数で渡される｡

表(ﾃｰﾌﾞﾙ)ｺﾝﾄﾛｰﾙの1行の高さはﾃﾞｨﾌｫﾙﾄで 300だ｡単位はよくわからんけど､その辺はおいおい勉強していくということで･･･(^^;

なので､1行目の一番上の Y座標は 300で､一番下が 599｡2行目は Y座標が 600～899の間｡つまり､

COMPUTE IDX = POW-ARG-Y / 300.

とすれば､IDX に｢何行目か?｣の情報がｾｯﾄされる｡

あとは､その商品ｺｰﾄﾞを表の中か､あるいは別途用意した配列(予め表の並びと同じように商品ｺｰﾄﾞがｾｯﾄされたもの)などから取得して､親画面との情報のやり取りに使う EXTERNAL 変数にｾｯﾄしてやる｡

MOVE CODE-LIST(IDX) TO RE-CODE.

そして､DblClick ｲﾍﾞﾝﾄで､

INVOKE MYSUBFORM1 "CloseForm"

するだけである｡あ､上の CODE-LIST ってのが表(ﾃｰﾌﾞﾙ)と同じ並びで商品ｺｰﾄﾞがｾｯﾄされている配列で､RE-CODE が親画面との情報のやり取りに使われる EXTERNAL 変数ね｡

ｺﾒﾝﾄ投稿

次の記事へ >
< 前の記事へ
TOPへ戻る