AS400のWINDOW表示と罫線に悩む - わん

AS400でもWINDOW表示が使えるようになり、画面デザインの幅が広がりました。

ところが、WINDOW内に罫線を引くのにとても悩みました。

WINDOW本体のレコードと罫線レコードのレコードキーワードで、

WINDOW(2 60 10 10)

のように指定しても罫線は表示できません。正確に言うと、一瞬罫線が見えてから本体が表示されます。もちろん本体レコードにはOVERLAYを指定しています。

試行錯誤の結果、以下の方法で解決しました。

QDSPSRC----------------------------------------

R WINDOW1 WINDOW(2 60 10 10)

R DSP01 WINDOW(WINDOW1)

OVERLAY

R DSP01LIN WINDOW(WINDOW1)

QRPGSRC----------------------------------------

WRITE WINDOW1;

WRITE DSP01LIN;

EXFMT DSP01;

DSP01はWINDOW枠で表示される行桁がずれますが、DSP01LINはずれないようなので、1桁右の桁位置にしました。

参考マニュアル（出典：IBM Knowledge Center）