				Wiki
	updated on 2004.06.23

11.4.2. DSPDのフィールドリストウインドウ表示

[ Previous ] [ HOME ] [ Upper ] [ Next ]

V4R1になって、気づいたのですが、ウィンドウがグラフィカルになっています。

とってもグラフィックだな

ＤＳＰＦのENHDSPを*NOにすると、昔のままなのですが、*YESにしていても、出ない場合があります。これは、ウィンドウの範囲が画面ぎりぎりだと起きるようです。特に内容に問題はないのですが、気になる方は、以下のように訂正してください。

DSPDのF4のフィールドリスト画面は、昔のままですが、F21のメンバー情報では、グラフィカルのままです。これが、気になる方は、

DSPDR81Dのソースの下記の部分を62から60へ。windowの横桁数を75から73へ。この２点を修正して、RSTDSP(*YES)を忘れずに、CRTDSPFをします。

     A*-------------------------------------*
     A          R SFL01                     SFL
     A*%%TS  SD  19930614  171204  KAKEFUDA    REL-V2R2M0  5738-PW1
     A  64                                  SFLNXTCHG
     A            H1API          3S 0H
     A            S1OPT          1A  B  2  1
     A            FLDNAM        10A  O  2  3
     A  57                                  DSPATR(BL)
     A  81        S1KSEQ         2Y 0O  2 16EDTCDE(Z)
     A  82        S1CHD   →  6260A  O  2 14
     A  83        DESCR         50A  O  2 14

  ....

　   A*-------------------------------------*
     A          R FTR01
     A*%%TS  SD  19951019  173007  KAKEFUDA    REL-V3R0M5  5763-PW1
     A                       →             WINDOW(&P1LIN &P1POS 14 75 73)
     A                                      BLINK
     A                                      OVERLAY

DSPDR81のP1POSへ１ではなく２をセットして、リコンパイル。

     C******************************************************
     C*             S U B   -  R O U T I N E               ;
     C******************************************************
     C*----------------------------------------------------*
     C           *INZSR    BEGSR                           :
     C*----------------------------------------------------*
     C                     Z-ADD7         P1LIN            :
     C           →        Z-ADD1 2       P1POS            :
     C*                                                    :
     C                     Z-ADD0         RRN01   50       :

これで、F21のフィールドリストが、グラフィカルウインドウ表示になります。

[ Previous ] [ HOME ] [ Upper ] [ Next ]

You are at K's tips-n-kicks of AS/400

SEO		[PR] 爆速!無料ブログ無料ホームページ開設無料ライブ放送