ABAP 程序间传递数据

ABAP 程序间传递数据

ASSGIN
DATA : GV_FIELDNAME1 TYPE CHAR30 VALUE ‘(ZPM003)R1’,
GV_FIELDNAME2 TYPE CHAR30 VALUE ‘(ZPM003)GT_OAJG[]’,

ABAP 提供了 IMPORT/EXPORT 和 SET/GET PARAMETER 语句,可对用户内存/服务器内存/数据库进行存储和访问。不过可能很多人对此还不是很了解,下面我们通过实例来测试它们的区别和联系。

  1. ABAP Memory
    用户登陆后,最多一个系统可以开 6 个窗口,这在 SAP 中称为 External Mode。

而同一个窗口中,运行某程序后,可以通过 CALL TRANSACTION/SUBMIT 或其他代码跳转到其他程序,这个称为 Internal Mode。Internal Mode 的调用栈最多为 9 层。

那么 ABAP Memory,它是属于 Internal Mode 间可以共享的数据,而 External Mode 间无法共享。

例子. 创建程序 A,输入:

DATA matnr TYPE matnr.

IMPORT matnr FROM MEMORY ID ‘YTEST_MATNR’.

WRITE matnr.
创建程序 B,输入:

复制代码
DATA matnr TYPE matnr.

matnr = ‘000000000000001234’.

EXPORT matnr TO MEMORY ID ‘YTEST_MATNR’.

SUBMIT y_program_a. "调用程序A
复制代码
直接运行 B,发现程序 A 从 ABAP Memory 读到了值并输出到 LIST.

说明:

调试运行 B 到 EXPORT 语句后面,Goto-System Area-ABAP Memory,可以查看到名为 YTEST_MATNR 的一片内存。

如果 B 和 A 运行在不同的窗口,则 A 将访问不到数据;当用户输入/N 退出当前程序时,内存值也将被清空。

该语句适用于 CALL TRANSACTION/SUBMIT 过程中的数据共享,也常用于 User Exit,类似于定义全局变量的效果。

  1. SAP Memory
    上面说了 External Mode,那么它们之间共享数据必须通过 SET/GET PARAMETER 语句,不再是 EXPORT/IMPORT 的模式。

例子. 创建程序 A,输入:

DATA matnr TYPE matnr.

GET PARAMETER ID ‘YTEST’ FIELD matnr.

WRITE matnr.
创建程序 B,输入:

DATA: matnr TYPE matnr.

matnr = ‘000000000000012345’.

SET PARAMETER ID ‘YTEST’ FIELD matnr.
在窗口 1 运行程序 B 并关闭后,在窗口 2 运行程序 A,发现程序 A 仍然读到了 SAP Memory 的值。

说明:

调试时,可通过 Goto-System Area-SAP Memory,查看到 YTEST 及其对应的值。

SET/GET PARAMETER 的值与本次登陆有关,当用户注销后才失效。在用户登陆的时候,系统会根据每个用户 User Profile-Own Data-Parameter 下的设置,载入到 SAP Memory。

Data Element 中可以看到 Further Characteristics 下可定义 PARAMETER ID,代表该字段作为屏幕元素时,可读取该 PARAMETER ID 作为默认值。比如 VA03 会自动显示刚刚创建的订单号。

  1. SHARED MEMORY/SHARED BUFFER
    前面介绍的都是用户内存,那么不同用户间如何实现数据共享呢?可以用 SHARED MEMORY 或 SHARED BUFFER,它们是服务器上的某片所有用户共享的内存。关于 SHARED MEMORY 和 SHARED BUFFER 的区别,可以 F1 查看帮助。如果 EXPORT SHARED BUFFER,则必须 IMPORT SHARED BUFFER 才能读到,用 IMPORT SHARED MEMORY 是读不到的。反过来也是。

例子. 创建程序 A,输入:

DATA matnr TYPE matnr.

IMPORT matnr FROM SHARED BUFFER indx(aa) ID ‘YTEST_MATNR’.

WRITE matnr.
创建程序 B,输入:

DATA: matnr TYPE matnr.

matnr = ‘000000000000123456’.

EXPORT matnr TO SHARED BUFFER indx(aa) ID ‘YTEST_MATNR’.
先在用户 1 的电脑上运行程序 B,然后在用户 2 的电脑上运行程序 A,发现用户 2 可以读取到值。

说明:

既然是服务器上的所有用户共享空间,那么该值将保存到服务器关机重启为止,除非用户用 DELETE 语句清除它。其实这个跟 ENQUEUE/DEQUEUE 有点相似之处。

数据库也可共享数据,不过服务器共享肯定速度快些,理论上适合网络游戏,呵呵。

INDX 是系统中存在的符合特定格式要求的表。但这不代表该 EXPORT/IMPORT 语句将在表 INDX 中增加记录,仅仅代表服务器借用了 INDX 的结构来管理该片共享内存。

  1. DATABASE
    上面说了 SHARED BUFFER 并不访问数据库,而要访问数据库就应该用 DATABASE。

创建一个程序,录入代码:

DATA: matnr TYPE matnr.

matnr = ‘000000000000004321’.

EXPORT matnr TO DATABASE indx(aa) ID ‘YTEST_MATNR’.
执行程序,然后 SE16 查看表 INDX,发现新增了一条 RELID = AA, SRTFD = YTEST_MATNR 的记录。如果 EXPORT 的数据量比较大,则新增的将是多条,这些条目的字段值 SRTF2 从 0 递增。所以 EXPORT DATABASE 与普通数据库操作的不同之处是,它适合大数据量的操作,系统自动将其拆分成多条记录并存储到数据库中,比如图片或文档。而用 IMPORT DATABASE 的过程则相反,系统将把这些条相关记录又自动组合起来成为一个整体。

5.程序跳转
SET PARAMETER语句赋值,使用CALL TRANSACTION语句跳转屏幕
SET PARAMETER ID ‘AUN’ FIELD ‘111’.
CALL TRANSACTION ‘VA03’ AND SKIP FIRST SCREEN.
MM03指定跳转到某个页签
复制代码
SET PARAMETER ID ‘MXX’ FIELD I_PSTAT.
SET PARAMETER ID ‘MAT’ FIELD I_MATNR.
SET PARAMETER ID ‘WRK’ FIELD I_WERKS.
SET PARAMETER ID ‘LAG’ FIELD I_LGORT.
SET PARAMETER ID ‘BWT’ FIELD I_BWTAR.
CALL TRANSACTION ‘MM03’ AND SKIP FIRST SCREEN.
复制代码
其中根据维护状态“PSTAT”判定显示哪个页签。

维护状态 (K,E,D,B,L,A)

A Work scheduling
B Accounting
C Classification
D MRP
E Purchasing
F Production resources/tools
G Costing
K Basic data
L Storage
P Forecasting
Q Quality management
S Warehouse management
V Sales
X Plant stocks
Z Storage location stocks

事务代码MIGO无法使用“SET PARAMETER”的跳转。
因为有些字段是没有parameter ID的,这时要通过调用函数MIGO_DIALOG进行跳转。

操作可以在 MIGO 事务中执行“GOACTION”:

A01 收货
A02 返回交货
A03 取消
A04 显示
A05 下达收货冻结库存
A06 后续交货
A07 发货
A08 转移过帐
A09 出库
A10 入库
A11 后续调整

参考凭证-事务 MIGO“REFDOC”:

R01 采购订单
R02 物料凭证
R03 交货单
R04 内向交货
R05 外向交货
R06 传送
R07 运输标识代码
R08 订单
R09 预留
R10 其他

复制代码
CALL FUNCTION ‘MIGO_DIALOG’
EXPORTING
I_ACTION = ‘A04’
I_REFDOC = ‘R02’

  • I_NOTREE = ‘X’
  • I_NO_AUTH_CHECK =
  • I_SKIP_FIRST_SCREEN = ‘X’
  • I_DEADEND = ‘X’
  • I_OKCODE = ‘OK_GO’
  • I_LEAVE_AFTER_POST =
  • I_NEW_ROLLAREA = ‘X’
  • I_SYTCODE =
  • I_EBELN =
  • I_EBELP =
    I_MBLNR = ‘4900000174’
    I_MJAHR = ‘2013’
  • I_ZEILE =
  • I_TRANSPORT =
  • I_ORDER_NUMBER =
  • I_ORDER_ITEM =
  • I_TRANSPORT_MEANS =
  • I_TRANSPORTIDENT =
  • I_INBOUND_DELIV =
  • I_OUTBOUND_DELIV =
  • I_RESERVATION_NUMB =
  • I_RESERVATION_ITEM =
  • EXT =
    EXCEPTIONS
    ILLEGAL_COMBINATION = 1.
    复制代码
    调用别的程序的ALV数据并返回
    复制代码
    TYPES:BEGIN OF ty_alv,
    9000 TYPE pc2b6-anzhl, "实际出勤小时数
    9014 TYPE pc2b6-anzhl,
    9015 TYPE pc2b6-anzhl,
    END OF ty_alv .

DATA:lt_alv TYPE TABLE OF ty_alv,
ls_alv TYPE ty_alv.

DATA: lo_data TYPE REF TO data.
FIELD-SYMBOLS: TYPE table,
TYPE data.
“设置调用 alv 不显示屏幕”
cl_salv_bs_runtime_info=>set( display = ‘’ metadata = ‘’ data = ‘X’ ).

"调ZHRR008程序 将返回的ALV数据进行处理
SUBMIT zhrr008
WITH pnptimed EQ lv_pnptimed
WITH pnpbegda EQ lv_datum
WITH pnppernr IN r_pernr
WITH p_h EQ ‘X’
AND RETURN.
cl_salv_bs_runtime_info=>clear_all( ).
TRY.
cl_salv_bs_runtime_info=>get_data_ref(
IMPORTING
r_data = ls_data
).
ASSIGN lo_data->* TO .
CATCH cx_salv_bs_sc_runtime_info.
MESSAGE ‘UNABLE TO RETRIEVE ALV DATA’ TYPE ‘E’.
ENDTRY.

READ TABLE  ASSIGNING  INDEX 1.
IF sy-subrc EQ 0.
  MOVE-CORRESPONDING  TO ls_alv.
  "正班小时
  gs_data-z9000 = ls_alv-9000.
  "平时加班小时
  gs_data-z9014 = ls_alv-9014.
  "周末加班小时
  gs_data-z9015 = ls_alv-9015.
  "出勤总小时 = 正班小时+平时加班小时+周末加班小时
  gs_data-sum_anzhl = gs_data-z9000 + gs_data-z9014 + gs_data-z9015.
ENDIF.  

cl_salv_bs_runtime_info=>clear_all( ).

你可能感兴趣的:(oracle,数据库,ABAP)