Unicode: CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN

[Non-unicode]
    PNNNN = INFTY_TAB.


[Uni-code]
    CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
      EXPORTING
        PRELP = INFTY_TAB
      IMPORTING
        PNNNN = PNNNN.

[Sample]
  FORM GET_PSYST_WORK USING GPW_BEGDA LIKE CPREL-BEGDA
                          GPW_ENDDA LIKE CPREL-ENDDA.
  LOCAL: P0001.

  DATA ls_t77s0  TYPE t77s0.
  DATA ld_flag   TYPE boole_d.

  CHECK GPW_BEGDA CN '0 ' AND GPW_ENDDA CN '0 '.
  IF PSPAR-INFTY EQ '0001'.                                 "QNUK87361
* v========================== XRGUNI =================================v
*    MOVE cprel TO p0001.                                    "QNUK87361
    CALL METHOD CL_HR_PNNNN_TYPE_CAST=>PRELP_TO_PNNNN
      EXPORTING
        PRELP = CPREL
      IMPORTING
        PNNNN = P0001.
* ^========================== XRGUNI =================================^
    MOVE-CORRESPONDING P0001 TO PSYST.                      "QNUK87361
    PSYST-APEXT = YES.                                      "QNUK87361
  ENDIF.