Eigenschaften | Quelltext
Titel | SET_POSITION_INFO |
Originalsprache | DE | Deutsch
Erstellt | 27.10.1998 |  | SAP |
Letzte Änderung | 23.06.2003 |  | SAP |
Status | aktiv |
Attribute
Typ | Include-Programm |
Status | Testprogramm |
Anwendung | Basis (System) |
Paket | SVIM | Basis Viewmaintenance
| Editorsperre
txt
    1
    *---------------------------------------------------------------------*
    2
    *       FORM SET_POSITION_INFO                                        *
    3
    *---------------------------------------------------------------------*
    4
    * fill position info                                                  *
    5
    *---------------------------------------------------------------------*
    6
    * SPI_POSITION      ---> current position                             *
    7
    * SPI_ENTRIES       ---> total number of entries                      *
    8
    * VIM_POSITION_INFO <--- (global) string filled with position info    *
    9
    *---------------------------------------------------------------------*
    10
    FORM SET_POSITION_INFO USING VALUE(SPI_POSITION) TYPE I
    11
                                 VALUE(SPI_ENTRIES) TYPE I.
    12
      DATA: HF1 TYPE I, HF2 TYPE I, HF3 TYPE I,
    13
            P_VIM_POSITION_INFO_LEN TYPE I.
    14
    15
      MOVE VIM_POSITION_INFO_MASK TO VIM_POSITION_INFO.
    16
      HF1 = VIM_POSITION_INFO_LG1 + 1.
    17
      IF SPI_ENTRIES EQ 0.
    18
        HF3 = 0.
    19
      ELSE.
    20
        HF3 = SPI_POSITION.
    21
      ENDIF.
    22
      WRITE HF3 TO
    23
        VIM_POSITION_INFO+HF1(VIM_POSITION_INFO_LG3) NO-SIGN.
    24
      HF1 = VIM_POSITION_INFO_LG1 + VIM_POSITION_INFO_LG2
    25
                                        + VIM_POSITION_INFO_LG3 + 3.
    26
      WRITE SPI_ENTRIES TO
    27
        VIM_POSITION_INFO+HF1(VIM_POSITION_INFO_LG3) NO-SIGN.
    28
      DO.
    29
        CONDENSE VIM_POSITION_INFO.
    30
    * XB 585898B
    31
    * call methode to caculat the visible length of vim_position_info
    32
        CALL METHOD cl_scp_linebreak_util=>get_visual_stringlength
    33
          EXPORTING
    34
            im_string               = VIM_POSITION_INFO
    35
            IM_LANGU                = SY-LANGU
    36
          IMPORTING
    37
            EX_POS_VIS              = P_VIM_POSITION_INFO_LEN
    38
    *      EXCEPTIONS
    39
    *        INVALID_TEXT_ENVIROMENT = 1
    40
    *        others                  = 2
    41
            .
    42
        IF sy-subrc <> 0.
    43
    *     MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
    44
    *                WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    45
        ENDIF.
    46
    47
    *    HF2 = VIM_POSITION_INFO_LEN - STRLEN( VIM_POSITION_INFO ).
    48
        HF2 = VIM_POSITION_INFO_LEN - P_VIM_POSITION_INFO_LEN.
    49
    * XB 585898E
    50
    51
        IF HF2 GT 0.
    52
          SHIFT VIM_POSITION_INFO RIGHT BY HF2 PLACES.
    53
        ENDIF.
    54
        IF HF2 GE 0. EXIT. ENDIF.
    55
        HF1 = STRLEN( SVIM_TEXT_028 ).
    56
        REPLACE SVIM_TEXT_028 LENGTH HF1 WITH '/' INTO VIM_POSITION_INFO.
    57
        IF SY-SUBRC NE 0.
    58
          HF1 = STRLEN( SVIM_TEXT_027 ) + HF2 - 1.
    59
          IF HF1 GT 0.
    60
            WRITE '.' TO VIM_POSITION_INFO+HF1(1).
    61
            ADD 1 TO HF1. HF2 = - HF2.
    62
            WRITE '          ' TO VIM_POSITION_INFO+HF1(HF2).
    63
          ELSE.
    64
            EXIT.
    65
          ENDIF.
    66
        ENDIF.
    67
      ENDDO.
    68
    ENDFORM.                               "set_position_info