A*%%TS SD 19991217 173730 QTR REL-V3R2M0 5738-PW1 A*-----------------------------------------------* A* GUICTLFM A* A* ＧＵＩ表示サンプル A* A*-----------------------------------------------* A*%%EC A DSPSIZ(24 80 *DS3) A MSGLOC(24) A PRINT A* IGCCNV(CF18 24) A GRDATR((*COLOR BLU) (*LINTYP SLD)) A R DSPHEAD A*%%TS SD 19931029 115004 QTR REL-V2R1M0 5738-PW1 A TEXT(' 初期画面 ') A CF03(03 ' 終了 ') A SETOF(99) A BLINK A CSRLOC(LIN POS) A 1 27' 受注の入力 ' A DSPATR(HI) A* COLOR(PNK) A 2 2' 受注Y ' A JUCNO 5Y 0B 2 12TEXT(' 受注Y ') A CHECK(RZ) A CHECK(ER) A 8 15' テスト表示 ' A DSPATR(HI) A 11 15' 必要な項目を打鍵して実行キーを押 + A して下さい。 ' A DSPATR(HI) A 23 2'F3= 終了 ' A COLOR(BLU) A LIN 3S 0H A POS 3S 0H A R SFREC01 SFL A*%%TS SD 19931217 173730 QTR REL-V2R2M0 5738-PW1 A TEXT(' ＳＦＬレコード ') A 20 AO 99 SFLNXTCHG A GYO 4A B 7 2TEXT(' Y ') A 03 DSPATR(UL) A JUTKCD 4A H TEXT(' 得意先コード ') A TKNAME R H REFFLD(@TOKMAS/TKNAME QTRFIL/TOKMAS) A JUCNO 5Y 0H TEXT(' 受注Y ') A JUGYO 2Y 0H TEXT(' 行Y ') A JUDATE 6Y 0H TEXT(' 受注日 ') A JUNOKI 6Y 0H TEXT(' 納期 ') A JHCODE 10A B 7 7TEXT(' 商品 ｺｰﾄﾞ') A 66 DSPATR(PC) A 66 DSPATR(RI) A SHNAME R O 7 18REFFLD(@SHOHIN/SHNAME QTRFIL/SHOHIN) A JUSUR 3Y 0B 7 48TEXT(' 受注数 ') A EDTCDE(Z) A CHECK(RB) A DSPATR(CS) A JUTANK 7Y 0B 7 55TEXT(' 単価 ') A EDTCDE(K) A CHECK(RB) A DSPATR(CS) A JUKING 7Y 0B 7 67TEXT(' 受注金額 ') A EDTCDE(K) A CHECK(RB) A DSPATR(CS) A* A R SFCTL01 SFLCTL(SFREC01) A*%%TS SD 19931217 171522 QTR REL-V2R2M0 5738-PW1 A TEXT(' ＳＦＬコントロール ') A ROLLUP(14 ' 次頁 ') A ROLLDOWN(15 ' 前頁 ') A CF03(03 ' 終了 ') A CF04(04 'ﾌﾟﾛﾝﾌﾟﾄ') A CF05(05 ' 照会 ') A CF10(10 ' 更新 ') A CF23(23 ' 削除 ') A CF12(12 ' 前画面 ') A SETOF(99) A BLINK A OVERLAY A 42 SFLDSP A 41 SFLDSPCTL A 43 SFLINZ A 46 SFLDLT A 44 SFLCLR A 45 SFLEND(*SCRBAR) A* SFLRNA IKD A SFLSIZ(0011) IKD A SFLPAG(0010) A 66 SFLMSG(' 商品 ｺｰﾄﾞ の誤りです。 - A ' 66) A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61) A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62) A 67 SFLMSGID(CPD6A6D QSYS/QCPFMSG 67) A RTNCSRLOC(&RCD &FLD &CSRP) A DSPREC 4S 0H SFLRCDNBR(CURSOR) A RCD 10A H A FLD 10A H A CSRP 4S 0H A TEXT('SFL 表示 ﾚｺｰﾄﾞ Y ') A 1 27' 受注の入力 ' A DSPATR(HI) A COLOR(PNK) A DSPMOD 6A O 1 72DSPATR(HI) A 6 2' Y ' A DSPATR(HI) A 6 7' 商品 ｺｰﾄﾞ' A DSPATR(HI) A 6 45' 受注数 ' A DSPATR(HI) A 6 57' 単価 ' A DSPATR(HI) A 6 67' 受注金額 ' A DSPATR(HI) A LIN 3S 0H A POS 3S 0H A 2 2' 受注Y ' A JUCNO 5Y 0O 2 12TEXT(' 受注Y ') A 4 2' 得意先コード ' A JUTKCD 4A B 4 17TEXT(' 得意先コード ') A 63 ERRMSG(' 得意先コードの誤りです。 - A ' 63) A 3 63' 受注日 ' A JUDATE 6Y 0B 3 73TEXT(' 受注日 ') A 64 ERRMSG(' 受注日の誤りです。 - A ' 64) A EDTWRD(' / / ') A 4 63' 納期 ' A JUNOKI 6Y 0B 4 73TEXT(' 納期 ') A 65 ERRMSG(' 納期の誤りです。 - A ' 65) A EDTWRD(' / / ') A 6 19' 商品名 ' A DSPATR(HI) A TKNAM# 20 O 4 22 A*( RADIO BUTTON ) A 2 50' 売上区分 ' A RADIO 2Y 0B 3 50SNGCHCFLD A CHOICE(1 ' 売上 ') A CHOICE(2 ' 返品 ') A R KEISEN A GRDRCD A*( 罫線 ) A GRDBOX((*POS (2 47 3 14)) + A (*TYPE PLAIN) + A (*COLOR RED) (*LINTYP THK) + A (*CONTROL &CNTL1)) A GRDBOX((*POS (18 4 2 14)) + A (*TYPE PLAIN) + A (*COLOR RED) (*LINTYP THK) + A (*CONTROL &CNTL2)) A CNTL1 1S 0P A CNTL2 1S 0P A R CLRKSN A GRDRCD A GRDCLR A*( COMBO BOX ) A R CMBREC SFL A CTLFLD 1Y 0H SFLCHCCTL A CMBFLD 10A O 18 6 A R CMBCTL SFLCTL(CMBREC) A SFLSNGCHC A SFLPAG(3) SFLSIZ(4) A SFLDSP SFLDSPCTL A ROLLUP(10) A 10 SFLEND(*SCRBAR) A CF03(03 ' 終了 ') A OVERLAY A* PULLDOWN(*NOSLTIND) A F3 5S 0H SFLSCROLL A CMBRRN 4S 0H SFLRCDNBR(CURSOR *TOP) A* SFLSIZ 5S 0P A R DSPEND01 A TEXT(' 機能キーの表示 ') A*----------------------------------------------------* A*%%TS SD 19930619 172426 QUATTRO REL-V2R1M0 5738-PW1 A OVERLAY A CF03(03 ' 終了 ') A*( CHECK BOX ) A CHKBOX 2Y 0B 21 66MLTCHCFLD A CHOICE(1 ' 発注手配 ') A CHCCTL(1 &CHK01) A PSHFLD 2Y 0B 22 4PSHBTNFLD(*RSTCSR (*NUMCOL 3)) A PSHBTNCHC(1 'F3= 終了 ' CF03) A PSHBTNCHC(2 'F4= プロンプト ' CF04) A PSHBTNCHC(3 'F10= 更新 ' CF10) A PSHBTNCHC(4 'F23= 削除 ' CF23) A PSHBTNCHC(5 'F12= 前画面 ' CF12) A CHCAVAIL((*COLOR BLU)) A CHK01 1Y 0H A R ENDOPT A*%%TS SD 19930612 150356 NIK REL-V2R1M0 5738-PW1 A TEXT(' 終了画面 ') A CF03(03 ' 終了 ') A CSRLOC(LIN POS) A 1 34' 終了 ' A COLOR(PNK) A DSPATR(HI) A 3 2' 処理されたレコード数 ' A 5 10' 追加 . . . . . :' A ADDREC 5Y 0O 5 35EDTCDE(4) A 6 10' 変更 . . . . . :' A CHGREC 5Y 0O 6 35EDTCDE(4) A 7 10' 削除 . . . . . :' A DLTREC 5Y 0O 7 35EDTCDE(4) A 11 2' 選択項目を打鍵して，実行キーを押 + A してください。 ' A COLOR(BLU) A 13 5' データ入力の終了 . . . . . .' A ANS 1A B 13 39VALUES('Y' 'N') A 13 53'Y=YES, N=NO' A 23 2'F3= 終了 ' A COLOR(BLU) A 23 15'F12= 前画面 ' A COLOR(BLU) A LIN 3S 0H A POS 3S 0H