ABAP学习的一些范例程序
来源:互联网 发布:淘宝点了退款怎么取消 编辑:程序博客网 时间:2024/06/13 22:53
**************************ZWTEST3**************************
REPORT ZWTEST3 LINE-SIZE 50 NO STANDARD PAGE HEADING.
data: pos(2) type C,
len type c,
FIVE TYPE P DECIMALS 2.
DO 20 TIMES.
FIVE = SY-INDEX / 5.
FIVE = FIVE MOD 2.
IF FIVE = 1.
CONTINUE.
ENDIF.
POS = SY-INDEX.
LEN = SY-INDEX MOD 3.
IF POS < 10.
WRITE: /1 '|',10 POS.
ELSE.
WRITE: /1 '|',9 POS.
ENDIF.
IF LEN = '0'.
WRITE: 20 '|', 30 LEN COLOR 6,40 '|'.
ELSE.
WRITE: 20 '|', 30 LEN, 40 '|'.
ENDIF.
ULINE /(40).
ENDDO.
TOP-OF-PAGE.
ULINE /(40).
WRITE: /1 '|', (38) 'my first report' CENTERED ,40 '|'.
ULINE /(40).
**************************ZWTEST3**************************
**************************ZWTEST4************************
REPORT ZWTEST4 NO STANDARD PAGE HEADING LINE-SIZE 50.
datA: BEGIN OF tab OCCURS 0,
one(2) type c,
two type c,
END OF tab.
data: five type p DECIMALS 2.
DO 20 TIMES.
tab-one = sy-index.
tab-two = sy-index mod 3.
append tab.CLEAR tab.
ENDDO.
LOOP AT tab.
FIVE = tab-one / 5.
FIVE = FIVE MOD 2.
IF FIVE <> 1.
IF tab-one < 10.
WRITE: /1 '|',10 tab-one.
ELSE.
WRITE: /1 '|',9 tab-one.
ENDIF.
IF tab-two = '0'.
WRITE: 20 '|', 30 tab-two COLOR 6,40 '|'.
ELSE.
WRITE: 20 '|', 30 tab-two, 40 '|'.
ENDIF.
ULINE /(40).
ENDIF.
ENDLOOP.
TOP-OF-PAGE.
ULINE /(40).
WRITE: /1 '|', (38) 'my first report' CENTERED ,40 '|'.
ULINE /(40).
**************************ZWTEST4**************************
**************************ZWTEST5**************************
REPORT ZWTEST5 NO STANDARD PAGE HEADING.
TABLES: mara.
data: zmara like mara OCCURS 0 WITH HEADER LINE.
DATA: N TYPE I VALUE 1.
*SELECT MATKL MATNR FROM MARA INTO CORRESPONDING FIELDS OF ZMARA WHERE MATKL = '1001'.
* APPEND ZMARA.CLEAR ZMARA.
*ENDSELECT.
*
*
*SELECT MATKL MATNR FROM MARA INTO (ZMARA-MATNR,ZMARA-MATKL) WHERE MATKL = '1001'.
* APPEND ZMARA.CLEAR ZMARA.
*ENDSELECT.
*
SELECT MATKL FROM MARA INTO CORRESPONDING FIELDS OF TABLE ZMARA WHERE MATKL = '1001'.
SELECT MAX( BRGEW ) FROM MARA INTO ZMARA-BRGEW WHERE MTART = 'KROH'.
*APPEND zmara. CLEAR zmara.
SELECT MIN( ntgew ) FROM MARA INTO ZMARA-ntgew WHERE MEINS = 'CL'.
*APPEND zmara. CLEAR zmara.
SELECT avg( volum ) FROM MARA INTO ZMARA-volum WHERE MEINS = 'CL' AND MTART = 'KROH'.
APPEND zmara. CLEAR zmara.
LOOP AT ZMARA.
IF N <> 6.
ZMARA-BRGEW = N.
CASE N.
WHEN 1 OR 3 OR 5.
ZMARA-NTGEW = 1.
WHEN 2 OR 4.
ZMARA-volum = 2.
ENDCASE.
* IF N = 1 OR N = 3 OR N = 5.
* ZMARA-ntgew = 1.
* ENDIF.
* IF N = 2 OR N = 4.
* ZMARA-volum = 2.
* ENDIF.
MODIFY ZMARA.
ENDIF.
N = N + 1.
ENDLOOP.
LOOP AT ZMARA.
WRITE: / ZMARA-MATKL,ZMARA-BRGEW,ZMARA-ntgew,ZMARA-volum.
ENDLOOP.
**************************ZWTEST5**************************
学习体会:
ZWTEST4 这个程序,我写的方法和老师一样都是
select <itab> from <table> where .....
select <itab> from <table> where .....
select <itab> from <table> where .....
select <itab> from <table> where .....
但是奇怪的是我调试的时候总是提示我要加endselect。
ABAP语言的有些标点符号的应用和以前知道的程序还有和纯sql数据库里的select不大一样。
还在摸索学习中。
- ABAP学习的一些范例程序
- 一些优化ABAP程序性能的方法
- 【程序优化】ABAP程序优化的一些总结
- 一些有用的ABAP程序和函数组
- 一些有用的ABAP程序和函数组
- 一些有用的ABAP程序和函数组
- 在SAP ABAP编程序常的一些语句
- 一些程序的学习!
- ABAP程序的优化
- Mysql的一些命令范例
- NSDate的一些常用范例
- 【abap调试】释放你的abap程序
- ABAP教学范例
- APD ABAP例程范例:
- ABAP ALV 的一些说明
- 一些基本的ABAP技巧
- ABAP的一些小技巧
- 一些不错的ABAP资料
- 谈谈我职业生涯中的三次潦倒--Leo病中的思考(续)
- IT人该向何处转行?
- [转]PetShop 4架构分析
- 从PowerDesigner概念设计模型(CDM)中的3种实体关系说起
- C#正则表达式例子
- ABAP学习的一些范例程序
- javascript 限制输入和粘贴 IE和火狐2.x、火狐3.x下测试通过
- MYSQL使用索引的方法
- JS收藏
- 字节对齐详解
- VegaAPI(1):创建一个静态的场景
- tomcat virtual folder and virtual host
- 网页元素可以编辑
- 很费事的