当前位置: 首页 > news >正文

SAP-ABAP-03-课上代码

REPORT ZPROGRAM_FOO3.
INCLUDE <SYMBOL>.
INCLUDE <ICON>.*------------预定义数据类型:变量------------*
DATA LV_C(10) TYPE C VALUE 'ABCDEFG123' .
DATA LV_D TYPE D .  "日期型
DATA LV_F TYPE F VALUE '54439.98'.
DATA LV_I TYPE I VALUE 678999.  "整数型
DATA LV_N(6) TYPE N VALUE 678999.  "文本类型
DATA LV_P TYPE P VALUE '678999.99' DECIMALS 2."数值类型,
*----------------------------------必须用DECIMALS指定小数位,不指定会直接四舍五入
DATA LV_T TYPE T .  "时间型LV_D = SY-DATUM.    "VALUE后面只能定义常量,所以SY-DATUM需要用等号赋值
LV_D = LV_D + 30.   "30天后
LV_T = SY-UZEIT.WRITE : /6'LV_C:',(5)LV_C . "前面空位空格,只输出前5位
WRITE : /'LV_D:',20 LV_D .  "前面空20位空格后再输出
WRITE : /'LV_F:',LV_F .
WRITE : /'LV_I:',LV_I .
WRITE : /'LV_N:',LV_N .
WRITE : /'LV_P:',LV_P .
WRITE : /'LV_T:',LV_T .
WRITE : SY-ULINE.*------------自定义数据类型------------*
*数据元素3种定义方法:
TYPES:TY_BU_PARTNER(10) TYPE C,          "业务伙伴编号,参照预定义创建TY_BU_PARTNER1 TYPE BU_PARTNER,    "参照域创建数据类型,SE11TY_BU_PARTNER2 TYPE TY_BU_PARTNER. "参照自己之前定义过的创建数据类型
*结构:
TYPES:BEGIN OF TY_PARTNERINF, "业务伙伴信息NAME(10) TYPE C,AGE(2)   TYPE I,TEL(11)  TYPE N,END OF TY_PARTNERINF.
*表类型:以后讲*------------变量------------*
DATA:LV_PARTNER   TYPE TY_BU_PARTNER,LV_PARTNER1  TYPE TY_BU_PARTNER1,LV_PARTNER2  TYPE TY_BU_PARTNER2,LV_PARTNERINF TYPE TY_PARTNERINF .LV_PARTNER  = '张三'.
LV_PARTNER1 = '李四'.
LV_PARTNER2 = LV_PARTNER .SKIP."空一行
WRITE:/ 'LV_PARTNER :' ,LV_PARTNER .
WRITE:/ 'LV_PARTNER1:' ,LV_PARTNER1 .
WRITE:/ 'LV_PARTNER2:' ,LV_PARTNER2 .
WRITE : SY-ULINE.LV_PARTNERINF-NAME = LV_PARTNER1.
LV_PARTNERINF-AGE  = 30.
LV_PARTNERINF-TEL  = '12345678901'.
WRITE:/ 'LV_PARTNERINF:'.
WRITE:/ 'LV_PARTNERINF-NAME:',LV_PARTNERINF-NAME.
WRITE:/ 'LV_PARTNERINF-AGE:' ,LV_PARTNERINF-AGE.
WRITE:/ 'LV_PARTNERINF-TEL:' ,LV_PARTNERINF-TEL.
WRITE : SY-ULINE.*------------结构体变量------------*
*结构
DATA:BEGIN OF LS_PARTNERINF, "业务伙伴信息NAME(10) TYPE C,AGE(2)   TYPE I,TEL(11)  TYPE N,END OF LS_PARTNERINF.LS_PARTNERINF = LV_PARTNERINF.
WRITE:/ 'LS_PARTNERINF:'.
WRITE:/ 'LS_PARTNERINF-NAME:',LS_PARTNERINF-NAME.
WRITE:/ 'LS_PARTNERINF-AGE:' ,LS_PARTNERINF-AGE.
WRITE:/ 'LS_PARTNERINF-TEL:' ,LS_PARTNERINF-TEL.
WRITE : SY-ULINE.*结构体继承:
DATA: BEGIN OF LS_CUSTOMER.INCLUDE STRUCTURE LS_PARTNERINF.
DATA: ADDRESS(40) TYPE C ,END OF LS_CUSTOMER.MOVE-CORRESPONDING  LS_PARTNERINF TO LS_CUSTOMER.
LS_CUSTOMER-ADDRESS = '上海市人民广场地铁站'.
LS_CUSTOMER-NAME    = '犀利哥'.WRITE:/ 'LS_CUSTOMER:'.
WRITE:/ 'LS_CUSTOMER-NAME:'    ,LS_CUSTOMER-NAME.
WRITE:/ 'LS_CUSTOMER-AGE:'     ,LS_CUSTOMER-AGE.
WRITE:/ 'LS_CUSTOMER-TEL:'     ,LS_CUSTOMER-TEL.
WRITE:/ 'LS_CUSTOMER-ADDRESS:' ,LS_CUSTOMER-ADDRESS.*输出图标和符号(在程序开始使用include)
WRITE :/ 'SYM_LOCKED:',SYM_LOCKED   AS SYMBOL.
WRITE :/ 'ALARM ICON:'  ,ICON_ALARM AS ICON.
*颜色输出
DATA COL TYPE I VALUE 0 .  "定义的颜色码
DO 8 TIMES.COL = SY-INDEX - 1.  "颜色等于当前循环次数-1FORMAT COLOR = COL.  "使用颜色WRITE:/ COL COLOR OFF,'INTENSIFIED ON 'INTENSIFIED ON,    "背景颜色加强'INTENSIFIED OFF 'INTENSIFIED OFF,  "背景颜色减弱'INVERSE ON 'INVERSE ON.            "字体颜色加强ENDDO.

相关文章:

  • 【车载开发系列】汽车嵌入式开发常用工具介绍
  • 功能测试 之 单模块测试----抢购模块
  • [BFS广搜]迷阵
  • Android 一个改善的okHttp封装库
  • 第十一章:接口
  • Linux C编译器从零开发三
  • 02-ES6新语法
  • shell 三剑客-grep
  • SpringSecurity-入门代码
  • 【Linux】如何创建yum 组(yum groups)
  • 计算机类期刊含金量横纵向对比(一)
  • 计算机网络 —— 运输层(UDP和TCP)
  • 面试专区|【32道HDFS高频题整理(附答案背诵版)】
  • 2024 年 Python 基于 Kimi 智能助手 Moonshot Ai 模型搭建微信机器人(更新中)
  • 003.Linux SSH协议工具
  • JavaScript-如何实现克隆(clone)函数
  • [LeetCode] Wiggle Sort
  • CSS中外联样式表代表的含义
  • Git初体验
  • Laravel 菜鸟晋级之路
  • laravel 用artisan创建自己的模板
  • laravel5.5 视图共享数据
  • Redis 懒删除(lazy free)简史
  • 如何学习JavaEE,项目又该如何做?
  • 使用putty远程连接linux
  • 译自由幺半群
  • 自制字幕遮挡器
  • ​ 全球云科技基础设施:亚马逊云科技的海外服务器网络如何演进
  • ( 10 )MySQL中的外键
  • (26)4.7 字符函数和字符串函数
  • (33)STM32——485实验笔记
  • (C#)一个最简单的链表类
  • (C语言)strcpy与strcpy详解,与模拟实现
  • (九)One-Wire总线-DS18B20
  • (切换多语言)vantUI+vue-i18n进行国际化配置及新增没有的语言包
  • (数据结构)顺序表的定义
  • (四) Graphivz 颜色选择
  • (一)80c52学习之旅-起始篇
  • (一)python发送HTTP 请求的两种方式(get和post )
  • **PHP分步表单提交思路(分页表单提交)
  • .net Application的目录
  • .NET C#版本和.NET版本以及VS版本的对应关系
  • .net mvc 获取url中controller和action
  • .NET WebClient 类下载部分文件会错误?可能是解压缩的锅
  • .Net 基于.Net8开发的一个Asp.Net Core Webapi小型易用框架
  • .net 提取注释生成API文档 帮助文档
  • .Net 中的反射(动态创建类型实例) - Part.4(转自http://www.tracefact.net/CLR-and-Framework/Reflection-Part4.aspx)...
  • .NET学习教程二——.net基础定义+VS常用设置
  • /etc/X11/xorg.conf 文件被误改后进不了图形化界面
  • /run/containerd/containerd.sock connect: connection refused
  • ??eclipse的安装配置问题!??
  • @Service注解让spring找到你的Service bean
  • [ CTF ] WriteUp- 2022年第三届“网鼎杯”网络安全大赛(白虎组)
  • [ Linux Audio 篇 ] 音频开发入门基础知识
  • [Android 数据通信] android cmwap接入点