ABAP
初めまして。
配属されて、いきなりテーブル定義書を渡され
「練習問題作ったからプログラム書いて」
と言われたのですがさっぱり判りません。
本を探しても、入門書が無く途方に暮れています。
下に問題とテーブル定義書の内容を書きますので、誰か助けて下さい。お願いします。
問い
個人情報より情報を取得し、レポート出力して下さい。
（出力の桁数はFull出力・各項目との間は１桁のスペースを入れる）
出力結果
社員コード 姓・漢字 名・漢字 姓・カナ 名・カナ 性別 生年月日 婚姻状況
ｘｘｘｘ YYYY YYYY ZZZ ZZZ 1 19990411 1
テーブル定義書
テーブルID：ZABC01
連番 項目 項目名称 型 項目長
１ EMPNO 社員コード DEC ４
２ SEI 姓・漢字 CHAR １０
３ MEI 名・漢字 CHAR １０
４ SEIKANA 姓・カナ CHAR １０
５ MEIKANA 名・カナ CHAR １０
６ SEXCD 性別 DEC １ （1:男、2:女）
７ BIRTH 生年月日 DAT ８
８ MARRYCD 婚姻状況 DEC １ （1:未婚、2:既婚）
ながながとすみません。
配属されて、いきなりテーブル定義書を渡され
「練習問題作ったからプログラム書いて」
と言われたのですがさっぱり判りません。
本を探しても、入門書が無く途方に暮れています。
下に問題とテーブル定義書の内容を書きますので、誰か助けて下さい。お願いします。
問い
個人情報より情報を取得し、レポート出力して下さい。
（出力の桁数はFull出力・各項目との間は１桁のスペースを入れる）
出力結果
社員コード 姓・漢字 名・漢字 姓・カナ 名・カナ 性別 生年月日 婚姻状況
ｘｘｘｘ YYYY YYYY ZZZ ZZZ 1 19990411 1
テーブル定義書
テーブルID：ZABC01
連番 項目 項目名称 型 項目長
１ EMPNO 社員コード DEC ４
２ SEI 姓・漢字 CHAR １０
３ MEI 名・漢字 CHAR １０
４ SEIKANA 姓・カナ CHAR １０
５ MEIKANA 名・カナ CHAR １０
６ SEXCD 性別 DEC １ （1:男、2:女）
７ BIRTH 生年月日 DAT ８
８ MARRYCD 婚姻状況 DEC １ （1:未婚、2:既婚）
ながながとすみません。
|
|
|
2 ：非決定性名無しさん：2001/08/15(水) 00:21
ほらよ。微調整は自分でしな。
DECなんて型は記憶にないので数値にしてみた。
ちなみにもうちょい短くも書ける。（内部テーブルのあたり）
入門書はでかい本屋でないとないぞ。
（日本語だと2冊しかこの世に存在しないはず）
ところで新入社員かい？
*DATA DIFINITION
TABLE : ZABC01.
DATA : EMPNO(4) TYPE P,
SEI(10) TYPE C,
MEI(10) TYPE C,
SEIKANA(10) TYPE C,
MEIKANA(10) TYPE C,
SEXCD TYPE P,
BIRTH(8) TYPE D,
MARRYCD TYPE P. " (1:未婚、2:既婚）
DATA : BEGIN OF ITAB OCCURS 0,
EMPNO LIKE ZABC01-EMPNO,
SEI LIKE ZABC01-SEI,
MEI LIKE ZABC01-MEI,
SEIKANA LIKE ZABC01-SEIKANA,
MEIKANA LIKE ZABC01-MEIKANA,
SEXCD LIKE ZABC01-SEXCD,
BIRTH LIKE ZABC01-BIRTH,
MARRYCD LIKE ZABC01-MARRYCD,
END OF ITAB.
*PROGRAM BLOCK
SELECT * FROM ITAB.
ITAB-EMPNO = ENPNO.
ITAB-SEI = SEI.
ITAB-MEI = MEI.
ITAB-SEIKANA = SEIKANA.
ITAB-MEIKANA = MEIKANA.
ITAB-SEXCD = SEXCD.
ITAB-BIRTH = BIRTH.
ITAB-MARRYCD = MARRYCD.
ENDSELECT.
WRITE: '社員コード','姓・漢字','名・漢字','姓・カナ',
'名・カナ','性別','生年月日','婚姻状況'.
LOOP AT ITAB.
WRITE : /,
ITAB-EMPNO,ITAB-SEI,ITAB-MEI,
ITAB-SEIKANA,ITAB-MEIKANA,
ITAB-SEXCD,ITAB-BIRTH,
ITAB-MARRYCD.
ENDLOOP.
DECなんて型は記憶にないので数値にしてみた。
ちなみにもうちょい短くも書ける。（内部テーブルのあたり）
入門書はでかい本屋でないとないぞ。
（日本語だと2冊しかこの世に存在しないはず）
ところで新入社員かい？
*DATA DIFINITION
TABLE : ZABC01.
DATA : EMPNO(4) TYPE P,
SEI(10) TYPE C,
MEI(10) TYPE C,
SEIKANA(10) TYPE C,
MEIKANA(10) TYPE C,
SEXCD TYPE P,
BIRTH(8) TYPE D,
MARRYCD TYPE P. " (1:未婚、2:既婚）
DATA : BEGIN OF ITAB OCCURS 0,
EMPNO LIKE ZABC01-EMPNO,
SEI LIKE ZABC01-SEI,
MEI LIKE ZABC01-MEI,
SEIKANA LIKE ZABC01-SEIKANA,
MEIKANA LIKE ZABC01-MEIKANA,
SEXCD LIKE ZABC01-SEXCD,
BIRTH LIKE ZABC01-BIRTH,
MARRYCD LIKE ZABC01-MARRYCD,
END OF ITAB.
*PROGRAM BLOCK
SELECT * FROM ITAB.
ITAB-EMPNO = ENPNO.
ITAB-SEI = SEI.
ITAB-MEI = MEI.
ITAB-SEIKANA = SEIKANA.
ITAB-MEIKANA = MEIKANA.
ITAB-SEXCD = SEXCD.
ITAB-BIRTH = BIRTH.
ITAB-MARRYCD = MARRYCD.
ENDSELECT.
WRITE: '社員コード','姓・漢字','名・漢字','姓・カナ',
'名・カナ','性別','生年月日','婚姻状況'.
LOOP AT ITAB.
WRITE : /,
ITAB-EMPNO,ITAB-SEI,ITAB-MEI,
ITAB-SEIKANA,ITAB-MEIKANA,
ITAB-SEXCD,ITAB-BIRTH,
ITAB-MARRYCD.
ENDLOOP.
親切だね〜
ちっ。ずれちまったか。
まぁ、１は頑張れ。
まぁ、１は頑張れ。
>>2
先生、できました！
report zbc01 .
data: gt_zbc01 type standard table of zbc01.
select *
into table gt_zbc01
from zbc01.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_structure_name = 'ZBC01'
tables
t_outtab = gt_zbc01.
先生、できました！
report zbc01 .
data: gt_zbc01 type standard table of zbc01.
select *
into table gt_zbc01
from zbc01.
call function 'REUSE_ALV_GRID_DISPLAY'
exporting
i_structure_name = 'ZBC01'
tables
t_outtab = gt_zbc01.
>>7
たまたまちょっとやってただけです。
>>2
これじゃ構文エラーでまくり…
「微調整」もいいんだけど、とりあえず動くもの出してね。
ちなみに、
>>5
は4.6B〜じゃないと動かないのであしからず。
たまたまちょっとやってただけです。
>>2
これじゃ構文エラーでまくり…
「微調整」もいいんだけど、とりあえず動くもの出してね。
ちなみに、
>>5
は4.6B〜じゃないと動かないのであしからず。
* おれも先週からABAPやってるけど、こんなのでどう？？？
report z_renshu no standard page heading
line-size 150.
tables zabc01.
data begin of itab occurs 0.
include structure zabc01.
data end of itab.
start-of-selection.
select * into corresponding fields of table itab
from zabc01.
write : / '社員コード',
'姓・漢字',
'名・漢字',
'姓・カナ',
'名・カナ',
'性別',
'生年月日',
'婚姻状況'.
loop at itab.
* 省略・・・・(^^)/
endloop.
report z_renshu no standard page heading
line-size 150.
tables zabc01.
data begin of itab occurs 0.
include structure zabc01.
data end of itab.
start-of-selection.
select * into corresponding fields of table itab
from zabc01.
write : / '社員コード',
'姓・漢字',
'名・漢字',
'姓・カナ',
'名・カナ',
'性別',
'生年月日',
'婚姻状況'.
loop at itab.
* 省略・・・・(^^)/
endloop.
10 ：非決定性名無しさん：2001/08/15(水) 02:23
結構ABAPやってる人っているんだー
>2
>SELECT * FROM ITAB.
いくらなんでも、ひどすぎるな。
絶対にこれは間違いだろう。
ＡＢＡＰなんて知らんが俺でも分った。
>SELECT * FROM ITAB.
いくらなんでも、ひどすぎるな。
絶対にこれは間違いだろう。
ＡＢＡＰなんて知らんが俺でも分った。
12 ：BASIS屋：2001/08/23(木) 15:37
ABAPやるなら、SELECT * FROM の "*"はやめて項目でひっつかむ習慣つけてね
13 ：やるならトコトン！！：2001/08/23(木) 17:06
>> 12
ついでに、細かな編集もしとくと便利かもね。
ついでに、細かな編集もしとくと便利かもね。
14 ：非決定性名無しさん：01/09/12 16:35
保全あげ
15 ：非決定性名無しさん：01/09/19 00:51
クエリーとBAPIが良くわかんないので教えてください。
16 ：非決定性名無しさん：01/10/16 05:57
マジレス禁止
17 ：BCG：01/12/30 11:34
質問っす。
OracleとR/3の組み合わせで使用していますが、ABAPのSELECT文に
実行計画のためのヒント/*+ */を入れることはできますか？
OracleとR/3の組み合わせで使用していますが、ABAPのSELECT文に
実行計画のためのヒント/*+ */を入れることはできますか？
18 ：非決定性名無しさん：01/12/30 11:43
ABAPやってて不安にならんの？
19 ：非決定性名無しさん：01/12/30 20:53
ＥＡＳＹかと思ったけど違うのね。
ココらで四軒目だわ なァ ハジメテ来たわ なァ そして逝くわ なァ
串てすと