ABAP面向对象（OO）上下文中PACK语句的等效实现方法是什么？

场景说明 #

我们从文本文件读取到固定长度13位的压缩格式数值字符串，这类数值没有显式小数点，固定预留2位小数位：

• 源字符串示例：0000000627909
• 对应真实数值：6279.09

原有实现的局限性 #

传统过程式ABAP开发中，可直接使用PACK语句完成该类转换，基础语法为：

PACK 字符型数值源 TO 目标压缩数值类型

但该语句在当前开发约束下存在明显限制：

• 无法在面向对象（OO）上下文的类方法、局部方法中使用，会直接触发语法错误
• 已被标记为废弃语法，官方文档提及“普通赋值可实现同等转换效果”

实际验证的偏差 #

实际测试中，上述官方说明完全不适用于带隐含小数位的转换场景：普通类型赋值根本无法得到正确结果。
以下是可直接运行的验证测试代码：

REPORT zzpj_unpack_test.
DATA:
  BEGIN OF gs_structured,
    loan_entitlement TYPE c LENGTH 13,
  END OF gs_structured.
DATA: gv_packed TYPE p LENGTH 13 DECIMALS 2.

INITIALIZATION.
  gs_structured = VALUE #(
      loan_entitlement = '0000000627909'
    ).
  DATA(gs_dc) = CORRESPONDING /ibs/sbsc_change_main( gs_structured ).
  " 传统PACK语句执行结果：完全符合预期
  PACK gs_structured-loan_entitlement TO gv_packed.
  " 普通赋值执行结果：完全忽略小数位规则
  gv_packed = gs_structured-loan_entitlement.

CLASS lcl_main DEFINITION FINAL CREATE PRIVATE.
  PUBLIC SECTION.
    CLASS-METHODS:
      main.
ENDCLASS.

CLASS lcl_main IMPLEMENTATION.
  METHOD main.
    DATA ls_structured LIKE gs_structured.
    DATA lv_packed TYPE p LENGTH 13 DECIMALS 2.

    ls_structured = VALUE #(
      loan_entitlement = '0000000627909'
    ).
    " PACK语句在OO上下文会触发语法校验错误，无法编译
    " PACK ls_structured-loan_entitlement TO lv_packed.
    " 普通赋值执行结果：转换结果完全错误
    lv_packed = ls_structured-loan_entitlement.
  ENDMETHOD.
ENDCLASS.

START-OF-SELECTION.
  lcl_main=>main( ).

普通赋值的实际转换结果是将原本应为6279.09的数值错误输出为627909.00，完全不符合业务规则。

核心提问 #

在面向对象（OO）开发上下文中，和PACK语句转换逻辑完全等效的合规可实现方式是什么？

内容的提问来源于stack exchange，提问作者Jagger