画面出力①

"データオブジェクトやテーブルなどの宣言
TYPES:
  BEGIN OF zty_write,
    bukrs type bkpf-bukrs,
    belnr type bkpf-belnr,
    gjahr type gjahr,
  END OF zty_write.

DATA: zd_write type zty_write,
      zt_write type standard table of zty_write.

"画面入力項目(PARAMETERS)宣言
PARAMETERS: p_bukrs type bukrs,
            p_gjahr type gjahr.

"初期化
CLEAR: zd_write,
       zt_write.

"1回出力
WRITE p_bukrs.

"改行したいときは「/」を使う
WEITE / p_bukrs.


"DBテーブルからデータ取得
SELECT bukrs
       belnr
       gjahr
  FROM bkpf
  INTO TABLE zt_write
  WHERE bukrs = p_bukrs
    AND gjahr = p_gjahr.


"LOOPしてテーブルの内容を1行ずつ表示
LOOP AT zt_write into zd_write.
  WRITE : / zd_write-bukrs,
            zd_write-belnr,
            zd_write-gjahr.
ENDLOOP.

"下線を引く
ULINE.

"空白行を入れる
SKIP.

"出力位置を指定する
"左から5つ半角スペース開けて10文字出力
WRITE 5(10) p_bukrs.

"指定した部分だけ出力する

"1文字目から2文字出力
WRITE p_bukrs+0(2).