A*%%TS SD 20080109 094723 QTR REL-V5R4M0 5722-WDS
A*-----------------------------------------------*
A* SFLENT : サブ・ファイル入力
A*
A* 部課マスターの登録
A*
A*-----------------------------------------------*
A DSPSIZ(24 80 *DS3)
A MSGLOC(24)
A PRINT
A R DSPHEAD
A TEXT(' 初期画面 ')
A*%%TS SD 19930612 135725 QUATTRO REL-V2R1M0 5738-PW1
A CF03(03 ' 終了 ')
A SETOF(99)
A BLINK
A*( この後に表示内容を記述しなさい )
A* 1 27' 部課マスターの登録 '
A TITLE_ 20A O 1 27MSGID(MSG0001 QTROBJ/USRMSG)
A TEXT(' 部課マスターの登録 ')
A DSPATR(HI)
A* 2 2' 部課コード '
A BUKA_ 24G O 2 2MSGID(MSG0002 QTROBJ/USRMSG)
A TEXT(' 部課コード ')
A BKFROM 2A B 2 15TEXT(' 部課コード ')
A* 11 15' 必要な項目を打鍵して実行キーを押 +
A* して下さい。 '
A ENTMSG_ 46A O 11 15MSGID(MSG0009 QTROBJ/USRMSG)
A DSPATR(HI)
A* 23 2'F3= 終了 '
A F3_ 9A O 23 2MSGID(MSG0007 QTROBJ/USRMSG)
A COLOR(BLU)
A R SFREC01 SFL
A*%%TS SD 20080109 094723 QTR REL-V5R4M0 5722-WDS
A TEXT(' ＳＦＬレコード ')
A 20
AO 99 SFLNXTCHG
A GYO 4A B 8 2TEXT(' Y ')
A 03 DSPATR(UL)
A BKCODE 2A B 8 9TEXT(' 部課コード ')
A BKNAME 10O B 8 21TEXT(' 部課名 ')
A BKHOUR 3Y 0B 8 36TEXT(' 当月労働時間計 ')
A EDTCDE(K)
A CHECK(RB)
A DSPATR(CS)
A BKRATE 5Y 0B 8 49TEXT(' 時間当賃金 ')
A EDTCDE(K)
A CHECK(RB)
A DSPATR(CS)
A*
A R SFCTL01 SFLCTL(SFREC01)
A SFLSIZ(0014)
A SFLPAG(0013)
A TEXT(' ＳＦＬコントロール ')
A OVERLAY
A 41 SFLDSPCTL
A 42 SFLDSP
A 43 SFLINZ
A SFLRNA
A 44 SFLCLR
A 45 SFLEND(*MORE)
A 46 SFLDLT
A ROLLUP(14 ' 次頁 ')
A CF03(03 ' 終了 ')
A CF10(10 ' 更新 ')
A CF23(23 ' 削除 ')
A CF12(12 ' 前画面 ')
A SETOF(99)
A BLINK
A 61 SFLMSGID(EDT0411 QPDA/QEDTMSG 61)
A 62 SFLMSGID(EDT0410 QPDA/QEDTMSG 62)
A 63 SFLMSG(' 品種 ｺｰﾄﾞ の誤りです。 -
A ' 63)
A PGM 10A O 1 2TEXT(' プログラム名 ')
A DSPREC 4S 0H SFLRCDNBR(CURSOR)
A TEXT('SFL 表示 ﾚｺｰﾄﾞ Y ')
A* 1 27' 部課マスターの登録 '
A TITLE_ 20A O 1 27MSGID(MSG0001 QTROBJ/USRMSG)
A TEXT(' 部課マスターの登録 ')
A DSPATR(HI)
A* 1 60' システム '
A SYSTEM_ 10A O 1 60MSGID(MSG0004 QTROBJ/USRMSG)
A 1 71SYSNAME
A* 2 60' 日付 '
A DATE_ 6A O 2 60MSGID(MSG0011 QTROBJ/USRMSG)
A 2 68DATE(*YY) EDTCDE(W)
A* 3 2' 部課コード '
A BUKA_ 12A O 3 2MSGID(MSG0002 QTROBJ/USRMSG)
A BKFROM 2A O 3 15TEXT(' 部課コード ')
A* 3 18' から '
A KARA_ 6A O 3 18MSGID(MSG0003 QTROBJ/USRMSG)
A* 3 60' 時刻 '
A TIME_ 6A O 3 60MSGID(MSG0012 QTROBJ/USRMSG)
A 3 68TIME EDTWRD(' : : ')
A* 4 60' ユーザー '
A USER_ 10A O 4 60MSGID(MSG0005 QTROBJ/USRMSG)
A 4 71USER
A* 5 60' 言語 '
A LANG_ 6A O 5 60MSGID(MSG0013 QTROBJ/USRMSG)
A LANG 3A B 5 67
A VALUES('JPN' 'CHN')
A TEXT('" 日本語 " " 中国語 " *SBM')
A*( DSPF ソース・ボタン )
A 5 2HTML('')
A*( RPG ソース・ボタン )
A 5 18HTML('')
A*( 国旗 )
A 6 67HTML(&FLGIMG)
A FLGIMG 128A P
A*( 明細行の桁見出し )
A 7 2' Y '
A DSPATR(HI)
A* 7 7' 部課コード '
A BUKA__ 12A O 7 7MSGID(MSG0002 QTROBJ/USRMSG)
A DSPATR(HI)
A* 7 20' 部課名 '
A BUKANM_ 10A O 7 20MSGID(MSG0014 QTROBJ/USRMSG)
A DSPATR(HI)
A* 7 32' 当月労働時間 '
A WRKDAY_ 14A O 7 32MSGID(MSG0015 QTROBJ/USRMSG)
A DSPATR(HI)
A* 7 47' 時間当賃金 '
A WRKMON_ 12A O 7 47MSGID(MSG0016 QTROBJ/USRMSG)
A DSPATR(HI)
A*( 見出しの項目 )
A R DSPEND01
A TEXT(' 機能キーの表示 ')
A*----------------------------------------------------*
A OVERLAY
A CF03(03 ' 終了 ')
A* 23 2'F3= 終了 '
A F3_ 9A O 23 2MSGID(MSG0007 QTROBJ/USRMSG)
A COLOR(BLU)
A* 23 34'F10= 更新 '
A F10_ 12A O 23 34MSGID(MSG0010 QTROBJ/USRMSG)
A COLOR(BLU)
A* 23 51'F23= 削除 '
A F23_ 12A O 23 51MSGID(MSG0008 QTROBJ/USRMSG)
A COLOR(BLU)
A* 23 68'F12= 前画面 '
A F12_ 12A O 23 68MSGID(MSG0006 QTROBJ/USRMSG)
A COLOR(BLU)
A R ENDOPT
A TEXT(' 終了画面 ')
A CF03(03 ' 終了 ')
A 1 34' 終了 '
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 F3_ 9A O 23 2MSGID(MSG0007 QTROBJ/USRMSG)
A COLOR(BLU)
A* 23 15'F12= 前画面 '
A F12_ 12A O 23 15MSGID(MSG0006 QTROBJ/USRMSG)
A COLOR(BLU)