11.7.1. 汎用選択画面 解説 |
このツールの特徴
数字は、ゾーン(S)、パック(P)、バイナリ(B)のみ対応しています。浮動小数点やヘキサフィールドには、対応していません。 オペレーション方法WRKSLTと入力して、実行キーを押下します。 オプション
オプション内容
新規追加実行キー↓ 表示フィールドの選択10個以内で、表示しきれる範囲。欄の設定で確認してください。 戻しフィールドの選択選択画面の欄の形式の指定10個以内で、総100バイト以内まで選択可能。 更新確認画面各オプションの例3=コピー実行キー↓ 4=削除実行キー↓ 6=表示テスト実行キー↓ 上図は、オプション6のテスト画面です。ここで、ウインドウの中の選択フィールドを指定して、実行キーを押下すると、下図のような、選択内容の確認画面がでます。これは、定義中にしかでない画面です。また、IQI030から 戻される値の確認画面です。戻される値は100バイトまでです。 上図は、実際に組み込んで実行しているところです。 RPGへの組み込み方法上記の定義は、RPGプログラムIQI030で、実行されます。つまり、選択ウインドウをつけたい、RPGやCLPの中に、 C CALL 'IQI030' C PARM 'TEST0001'POIQID 11 C PARM *ON POKEY 1 C PARM POKEYV 30 C PARM *ON POKPOS 1 C PARM 'Y' POSLT C PARM PIDTA 1 C PARM PIRTN 100 を加える事で、可能です。 IQI030のパラメータ
将来、バージョンアップによりパラメータの個数に変動があります。 例 RPGに組み込み001 C H1RCD WHEQ 'FMT01' : *001 C H1FLD ANDEQ'V1FD31' : *001 C H1RCD OREQ 'FMT01' : *001 C H1FLD ANDEQ'V1FD32' : 001 C MOVELV1FD31 POKEYV : 001 C CALL 'IQI030' : 001 C PARM 'TEST0003'POIQID : 001 C PARM *ON POKEY : 001 C PARM POKEYV : 001 C PARM *ON POKPOS : 001 C PARM 'Y' POSLT : 001 C PARM PIDTA : 001 C PARM PIRTN : B002 C PIDTA IFEQ *ON : 002 C MOVELPIRTN W1FD31 3 : 002 C 6 SUBSTPIRTN:4 W1FD32 6 : 002 C MOVELW1FD31 V1FD31 : 002 C MOVELW1FD32 V1FD32 : E002 C END : 上記の例で定義した、IQDSPMPを使ってみます。 このイメージは古いバージョンでした。(IQI010ではなくIQI030が最新です。) 001 C CALL 'IQI030' : 001 C PARM 'IQDSPMP' POIQID : 001 C PARM *ON POKEY : 001 C PARM POKEYV : 001 C PARM *ON POKPOS : 001 C PARM 'Y' POSLT : 001 C PARM PIDTA : 001 C PARM PIRTN : として下さい。 FLD2でF4を押すと、 さらに、数字1で選択をすると、 実行キー↓ 例 CLPに組み込みPGM DCLF IQTESTD DCL &POIQID *CHAR 11 DCL &POKEY *CHAR 1 DCL &POKEYV *CHAR 30 DCL &POKPOS *CHAR 1 DCL &POSLT *CHAR 1 DCL &PIDTA *CHAR 1 DCL &PIRTN *CHAR 100 \FMT01: SNDRCVF *N FMT01 IF (&IN03) GOTO \END IF (&IN04) DO IF (&H1RCD='FMT01' & &H1FLD='V1FLD2') DO CHGVAR &POIQID 'IQDSPMP ' CHGVAR &POKEY '1' CHGVAR &POKEYV ' ' CHGVAR &POKPOS '1' CHGVAR &POSLT 'Y' CHGVAR &PIDTA ' ' CHGVAR &PIRTN ' ' CALL IQI030 (&POIQID &POKEY &POKEYV &POKPOS &POSLT &PIDTA &PIRTN) IF (&PIDTA='1') DO CHGVAR &V1FLD2 &PIRTN ENDDO GOTO \FMT01 ENDDO ENDDO GOTO \FMT01 \END: RETURN ENDPGM 画面ファイル IQTESTDA DSPSIZ(24 80 *DS3) A PRINT A INDARA A CA03(03) A CF04(04) A R FMT01 A*%%TS SD 19951116 153719 KAKEFUDA REL-V3R0M5 5763-PW1 A CA12 A KEEP A RTNCSRLOC(&H1RCD &H1FLD) A BLINK A 80 ALARM A OVERLAY A PUTOVR A H1FLD 10A H A H1RCD 10A H A 6 3'FLD 1 . . ' A V1FLD1 3Y 0B 6 14EDTCDE(3) A OVRDTA A OVRATR A 6 25'F4リスト' A 8 11'FLD 2 . . ' A V1FLD2 6A B 8 22 A OVRDTA A OVRATR A 8 33'F4リスト' A 10 16'FLD 3 . . ' A V1FD31 3Y 0B 10 27EDTCDE(3) A OVRDTA A OVRATR A V1FD32 6Y 0B 10 31EDTCDE(3) A OVRDTA A OVRATR A 10 43'F4リスト' A 12 25'FLD 4 . . ' A V1FLD4 6A B 12 36 A OVRDTA A OVRATR A 12 47'F4リスト' A 22 3'F3=終了' A DSPATR(HI) A V1MSG# 7A O 23 2DSPATR(HI) A DSPATR(BL) A OVRDTA A V1MSG 70A O 23 10DSPATR(HI) A DSPATR(BL) A OVRDTA |
You are at K's tips-n-kicks of AS/400
|
SEO | [PR] 爆速!無料ブログ 無料ホームページ開設 無料ライブ放送 | ||