A*%%TS SD 20070731 210529 QTR REL-V5R4M0 5722-WDS A*-----------------------------------------------* A* SFLENT : サブ・ファイル入力 A* A* 受注の入力 A* A* CRTEXDSPF QTROBJ/PGM201FM + A* SRCFILE(QTRSRC/QDSPSRC) LVLCHK(*NO) AUT(*ALL) A*-----------------------------------------------* A*%%EC A DSPSIZ(24 80 *DS3) A MSGLOC(24) A PRINT A HELP A ALTHELP(CA01) A HLPPNLGRP(PGM201H QTROBJ/PGM201H) A HLPTITLE(' 受注の入力 ') A R DSPHEAD A*%%TS SD 20070713 162403 QTR REL-V5R4M0 5722-WDS A TEXT(' 初期画面 ') A CF03(03 ' 終了 ') A SETOF(99) A BLINK A H HLPARA(2 12 2 17) A HLPPNLGRP('PGM201/JUCNO' - A QTROBJ/PGM201H) 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 11 15' 必要な項目を打鍵して実行キーを押 + A して下さい。 ' A* DSPATR(HI) A 11 63HTML('') A 23 2'F3= 終了 ' A COLOR(BLU) 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 9 2TEXT(' Y ') A 03 DSPATR(UL) A JHCODE R B 9 7REFFLD(SHOHINR/SHCODE QTRFIL/SHOHIN) A TEXT('*POPUP SHCODE,SHNAME,SHTANK') A 66 DSPATR(PC) A 66 DSPATR(RI) A SHNAME R O 9 18REFFLD(SHOHINR/SHNAME QTRFIL/SHOHIN) A TEXT(' 商品名 ') A JUSUR 3Y 0B 9 48TEXT(' 受注数 ') A EDTCDE(Z) A CHECK(RB) A DSPATR(CS) A 71 DSPATR(PC) A JUTANK R 7Y 0B 9 55REFFLD(SHOHINR/SHTANK QTRFIL/SHOHIN) A TEXT(' 単価 ') A EDTCDE(K) A CHECK(RB) A DSPATR(CS) A JUKING 7Y 0B 9 67TEXT(' 受注金額 ') A EDTCDE(K) A CHECK(RB) A DSPATR(CS) A ZKSU 5Y 0O 9 82TEXT(' 在庫数 ') A EDTCDE(K) A THSU 5Y 0O 9 92TEXT(' 手配数 ') A EDTCDE(K) A* A R SFCTL01 SFLCTL(SFREC01) A*%%TS SD 20070731 174853 QTR REL-V5R4M0 5722-WDS A SFLSIZ(0013) A *DS3 SFLSIZ(0011) A SFLPAG(0012) A *DS3 SFLPAG(0010) 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(*MORE) A* 45 SFLEND(*SCRBAR) A* SFLDROP(CF11) A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61) A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62) A 66 SFLMSGID(CPF9897 QSYS/QCPFMSG + A 66 &MSGDTA) A 67 SFLMSGID(CPD6A6D QSYS/QCPFMSG 67) A RTNCSRLOC(&RCD &FLD &CSRP) A H HLPARA(2 12 2 17) A HLPPNLGRP('PGM201/JUCNO' - A QTROBJ/PGM201H) A H HLPARA(4 17 4 20) A HLPPNLGRP('PGM201/JUTKCD' - A QTROBJ/PGM201H) A H HLPARA(3 71 3 78) A HLPPNLGRP('PGM201/JUDATE' - A QTROBJ/PGM201H) A H HLPARA(4 71 4 78) A HLPPNLGRP('PGM201/JUNOKI' - A QTROBJ/PGM201H) A H HLPARA(6 13 6 14) A HLPPNLGRP('PGM201/JUKBN' - A QTROBJ/PGM201H) A H HLPARA(6 45 6 46) A HLPPNLGRP('PGM201/JUSHOR' - A QTROBJ/PGM201H) A H HLPARA(6 68 6 71) A HLPPNLGRP('PGM201/JUTANT' - A QTROBJ/PGM201H) A H HLPARA(9 7 18 16) A HLPPNLGRP('PGM201/JHCODE' - A QTROBJ/PGM201H) A H HLPARA(9 48 18 50) A HLPPNLGRP('PGM201/JUSUR' - A QTROBJ/PGM201H) A H HLPARA(9 55 18 61) A HLPPNLGRP('PGM201/JUTANK' - A QTROBJ/PGM201H) A H HLPARA(9 67 18 73) A HLPPNLGRP('PGM201/JUKING' - A QTROBJ/PGM201H) A DSPREC 4S 0H SFLRCDNBR(CURSOR) A RCD 10A H A FLD 10A H A CSRP 4S 0H TEXT('SFL 表示 ﾚｺｰﾄﾞ Y ') A MSGDTA 60A P A 1 27' 受注の入力 ' A DSPATR(HI) A* COLOR(PNK) A DSPMOD 6A O 1 72DSPATR(HI) A 2 2' 受注Y ' A JUCNO 5Y 0O 2 12TEXT(' 受注Y ') A 3 80' 受注日 ' A *DS3 3 62 A JUDATE 8Y 0B 3 89TEXT(' 受注日 ') A *DS3 3 71 A 64 ERRMSG(' 受注日の誤りです。 - A ' 64) A* 編集コード :W を日付のフィールドとみなしてカレンダーを追加します。 A EDTCDE(W) A 4 2' 得意先コード ' A JUTKCD R 4A B 4 17TEXT('*POPUP TKCODE, TKNMJ') A REFFLD(TOKMASR/TKCODE QTRFIL/TOKMAS) A 63 ERRMSG(' 得意先コードの誤りです。 - A ' 63) A TKNAME R O 4 22REFFLD(TOKMASR/TKNMJ QTRFIL/TOKMAS) A 4 80' 納期 ' A *DS3 4 62 A JUNOKI 8Y 0B 4 89TEXT(' 納期 ') A *DS3 4 71 A 65 ERRMSG(' 納期の誤りです。 - A ' 65) A* 編集コード :W を日付のフィールドとみなしてカレンダーを追加します。 A EDTCDE(W) A 6 2' 受注区分 ' A JUKBN 2 B 6 13 A VALUES('01' '02') A TEXT('" 売上 " " 返品 "') A JUNAME 6A O 6 16 A 08 DSPATR(ND) A 6 34' 処理区分 ' A JUSHOR 2 B 6 45 A VALUES('01' '02') A TEXT('" 今月 " " 来勘 "') A JSNAME 6A O 6 48 A 08 DSPATR(ND) A 6 57' 担当者 ' A JUTANT R 4A B 6 66REFFLD(TANTOMR/TACODE QTRFIL/TANTO) A TEXT('*COMBO *KEY') A TTNAM R 8A O 6 71REFFLD(TANTOMR/TTNAM QTRFIL/TANTO) A TEXT('*COMBO *DATA') A 8 2' Y ' A DSPATR(HI) A 8 7' 商品コード ' A DSPATR(HI) A 8 21' 商品名 ' A DSPATR(HI) A 8 45' 受注数 ' A DSPATR(HI) A 8 57' 単価 ' A DSPATR(HI) A 8 67' 受注金額 ' A DSPATR(HI) A 8 81' 現在庫数 ' A DSPATR(HI) A 8 92' 手配数 ' A DSPATR(HI) A* A R DSPEND01 A*%%TS SD 20070731 210529 QTR REL-V5R4M0 5722-WDS A TEXT(' 機能キーの表示 ') A OVERLAY A* PUTRETAIN A 23 2'F3= 終了 ' A COLOR(BLU) A 23 17'F4= プロンプト ' A COLOR(BLU) A 23 34'F10= 更新 ' A COLOR(BLU) A 23 51'F23= 削除 ' A COLOR(BLU) A 23 68'F12= 前画面 ' A COLOR(BLU) 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