REPORT zdemo01.
*获取后台程序执行的变式
DATA:gs_tbtcm TYPE tbtcm,
gs_tbtcp TYPE tbtcp.
PARAMETER:p_d1 TYPE i.
START-OF-SELECTION.
CALL 'GetRuntimeInfo'
ID 'JOB'
FIELD gs_tbtcm.
SELECT SINGLE * INTO gs_tbtcp
FROM tbtcp
WHERE jobname EQ gs_tbtcm-jobname
AND jobcount EQ gs_tbtcm-jobcount
AND stepcount EQ gs_tbtcm-stepcount.
WRITE:/ '变式:' ,gs_tbtcp-variant.
阅读(906) | 评论(0) | 转发(0) |
