此博客为原创博客,都是个人工作经历所得,转载请注明出处

OPEN SQL取单条数据DEMO

 

 

复制代码
*&---------------------------------------------------------------------*
*&      Form  FRM_GET_INFO_EDH
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      <--P_LS_I08301_D01  text
*----------------------------------------------------------------------*
FORM frm_get_info_edh  CHANGING cs_i08301_d01 TYPE ztpy_i08301_d01.

**需求描述:中间表BONUS_EMP_INFO_EDH2023 取值定义
  DATA: BEGIN OF ls_edh2023,
          emp_sap_id        TYPE char50, "员工id
          emp_no            TYPE char50, "员工工号
          emp_class         TYPE char50, "人员类别(取值idl,dl)
          bu_id             TYPE char50, "所属bu
          hr_scope_id       TYPE char50, "人事范围id
          salary_scope_id   TYPE char50, "工资范围id
          position_grade_id TYPE char50, "职级id
          position_tier     TYPE char50, "层级
        END OF ls_edh2023.

  CLEAR: ls_edh2023.
  EXEC SQL.
"注意字段间隔用逗号
SELECT emp_sap_id, emp_class, bu_id, hr_scope_id, salary_scope_id, position_grade_id, position_tier FROM BONUS_EMP_INFO_EDH2023 INTO :ls_edh2023-emp_sap_id, :ls_edh2023-emp_class, :ls_edh2023-bu_id, :ls_edh2023-hr_scope_id, :ls_edh2023-salary_scope_id, :ls_edh2023-position_grade_id, :ls_edh2023-position_tier WHERE bonus_year = :'2023' AND sap_client_id = :SY-MANDT AND emp_sap_id = :cs_i08301_d01-PERNR ENDEXEC. IF ls_edh2023-emp_sap_id NE space. cs_i08301_d01-werks = ls_edh2023-hr_scope_id . cs_i08301_d01-abkrs = ls_edh2023-salary_scope_id . cs_i08301_d01-persg = ls_edh2023-emp_class(1). cs_i08301_d01-zhr900106 = ls_edh2023-bu_id ."部门编码 cs_i08301_d01-zhr000101 = ls_edh2023-position_grade_id ."职级 cs_i08301_d01-zcjwb = ls_edh2023-position_tier ."层级文本 **cs_i08301_d01-zhr910208 = ls_edh2023-perf_level."最终等级 ENDIF. ENDFORM.
复制代码

 

posted @   Rainystuday  阅读(36)  评论(0编辑  收藏  举报
相关博文:
阅读排行:
· 10年+ .NET Coder 心语 ── 封装的思维:从隐藏、稳定开始理解其本质意义
· 地球OL攻略 —— 某应届生求职总结
· 提示词工程——AI应用必不可少的技术
· Open-Sora 2.0 重磅开源!
· 字符编码:从基础到乱码解决
历史上的今天:
2017-01-11 ABAP doi 导出程序
2017-01-11 保存文件弹出框-选择路径
2017-01-11 HR-部门内部调动报表
2017-01-11 ABAP 邮件
2017-01-11 20170111 ABAP技术小结(全半角转换)
2017-01-11 ABAP 检查全角半角
点击右上角即可分享
微信分享提示