ABAP⑤ ã‚ªãƒ–ã‚¸ã‚§ã‚¯ãƒˆãƒ»é¸æŠžç”»é¢
目次
é¸æŠžç”»é¢
ç”»é¢ã«è¡¨ç¤ºã™ã‚‹åç§°(ラベル)è¨å®š
ABAPメニュー > ジャンプ > テã‚ストエレメント > é¸æŠžãƒ†ã‚スト
INITIALIZATION.
横ä½ç½®
SELECTION-SCREEN POSITION 50.
フレーãƒ
SELECTION-SCREEN BEGIN OF BLOCK myBlock WITH FRAME TITLE myTitle1.
 ~
SELECTION-SCREEN END OF BLOCK myBlock
myTitle1 = ‘AAA’
コメント
SELECTION-SCREEN COMMENT /2(50) myTitle2.
myTitle2 = ‘BBB’
ç·š
SELECTION-SCREEN ULINE.
改行
SELECTION-SCREEN SKIP 2.
テã‚ストボックス
PARAMETERS: Input(10) TYPE C.
範囲入力1
TYPES:
 BEGIN OF TypeId,
Name(8) TYPE C,
Age TYPE I,
 END OF TypeId.
*内部テーブル型変数を宣言
DATA: MyId TYPE typeId.
SELECT-OPTIONS: myName FOR MyId-Name.
範囲入力2
DATA: MyRow LIKE テーブルå.
SELECT-OPTIONS: myName FOR MyRow-フィールドå.
*LOWER CASE
â€»å…¥åŠ›å€¤ãŒæ–‡å—åˆ—ã®æ™‚ã«å¤§æ–‡å—変æ›ã—ãªã„
SELECT-OPTIONS: myName FOR MyRow-フィールドå LOWERE CASE.
SELECT-OPTIONS入力値ã®å–å¾—
å·¦å³ã®å…¥åŠ›å€¤ã‚’æ–‡å—列連çµã—ãŸå€¤ãŒmyNameã«æ ¼ç´ã•れる模様。
ãã—ã¦ä½•æ•…ã‹å…ˆé ã«ã€ŒIBTã€ã®æ–‡å—ãŒå…¥ã‚‹ã€‚
myName:「IBTå·¦å´å…¥åŠ›å€¤ã€€å³å´å…¥åЛ値ã€
例:左å´ï¼’aaa’ å³å´=’bbb’
myName:「IBTaaa bbbã€
*通常ã®ä½¿ã„æ–¹
SELECT * FROM INTO myTable WHERE フィールド1 IN myName.
*ラジオボタン
PARAMETERS: Radio1 RADIOBUTTON GROUP R1.
PARAMETERS: Radio2 RADIOBUTTON GROUP R1.
SELECTION-SCREEN COMMENT 横方å‘ä½ç½®(横方å‘é•·ã•) コメント内容変数.
SELECTION-SCREEN COMMENT 10(20) Radio1.
SELECTION-SCREEN COMMENT 10(20) Radio2.
â€»é¸æŠžãƒ†ã‚ストã«ã¦Radio1ã€Radio2 ã®è¡¨ç¤ºåç§°ã‚’è¨å®šã—ã¦ãŠã
*é¸æŠžç”»é¢ã®è¨˜è¿°ã¯â†“ã“ã‚Œã‚ˆã‚Šä¸Šã«æ›¸ã事。
START-OF-SELECTION.
ラジオボタンã®é¸æŠžçŠ¶æ…‹ã®å–å¾—
CASE ‘X’.
 WHEN Radio1. WRITE:/ ‘Radio1’.
 WHEN Radio1. WRITE:/ ‘Radio2’.
ENDCASE.
WRITE:/ Input.
オブジェクト
ALVリスト
 汎用モジュール「REUSE_ALV_GRID_DISPLAYã€ã‚’実行ã™ã‚‹ã¨ç”»é¢ä¸Šã«è¡¨ç¤ºã•れる帳票イメージ。
 TYPEï¼POOLS: SLIS.
 DATA: myTableTYPE TABLE OF テーブルå.
 DATA: myVariant LIKE DISVARIANT.
 *表示データå–å¾—
 SELECT * FROM テーブルå INTO TABLE myTable.
 *表示ãƒãƒªã‚¢ãƒ³ãƒˆ(ãƒ¬ã‚¤ã‚¢ã‚¦ãƒˆå®šç¾©æƒ…å ±)è¨å®š
 myVariant-REPORT = SY-REPID. *プãƒã‚°ãƒ©ãƒ å
 myVariant-HANDLE = ‘0001’ *表示ãƒãƒªã‚¢ãƒ³ãƒˆè˜åˆ¥ã‚ー(何ã§ã‚‚å¯)
 CALL FUNCTION REUSE_ALV_GRID_DISPLAY
EXPORTING
 I_STRUCTURE_NAME = テーブルå
 I_GRID_TITLE = ‘タイトルå’
 IS_VARIANT = myVariant *表示ãƒãƒªã‚¢ãƒ³ãƒˆ(ãƒ¬ã‚¤ã‚¢ã‚¦ãƒˆå®šç¾©æƒ…å ±)
 I_SAVE = ‘X’ *表示ãƒãƒªã‚¢ãƒ³ãƒˆã‚’ä¿å˜ã™ã‚‹ã‹å¦ã‹ï¼Ÿ(X:ä¿å˜ã™ã‚‹)
TABLES
 T_OUTTAB = myTable
.
 IF SY-SUBRC <> 0.
MESSAGE ID ‘SABAPDCU’ TYPE ‘E’ NUMBER 888 WITH ‘エラーãŒç™ºç”Ÿã—ã¾ã—ãŸã€‚’.
 ENDIF
 ※æˆåŠŸã™ã‚‹ã¨ç”»é¢ä¸Šã«ãƒ˜ãƒƒãƒ€ãƒ¼ä»˜ãã®ãƒ†ãƒ¼ãƒ–ルã®ãƒ‡ãƒ¼ã‚¿ãŒè¡¨ç¤ºã•れる。
ãƒãƒƒã‚¯ã‚ªãƒ–ジェクト
 DBを更新ã™ã‚‹ç‚ºã«ã€
 排他ãƒãƒƒã‚¯â‡’更新⇒排他解除
 ã¨ã„ã†å·¥ç¨‹ã‚’経る。
 SAPãƒãƒƒã‚¯
 ãƒãƒƒã‚¯ã‚ªãƒ–ジェクトã«ã‚ˆã‚‹ç†è«–çš„ãªãƒãƒƒã‚¯ã€‚
 ABAPディクショナリã«å®šç¾©ã™ã‚‹ã€‚
 登録ã™ã‚‹ã¨ãƒãƒƒã‚¯ã€ãƒãƒƒã‚¯è§£é™¤ç”¨ã®æ±Žç”¨ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚‚生æˆã•れる。
 排他ãƒãƒƒã‚¯ã€æŽ’他解除ã«ã¯ã€
 ã“ã®æ±Žç”¨ãƒ¢ã‚¸ãƒ¥ãƒ¼ãƒ«ã‚’使用ã—ã€
 ãƒãƒƒã‚¯ã‚ªãƒ–ジェクトã¸ã®ã‚¨ãƒ³ã‚ュー/デã‚ューを行ã†ã€‚