Open project ID or WBS ID

DATA: SSTART  TYPE PROJ-PSPID,
       SPROJID TYPE PROJ-PSPID,
       SPRPSID TYPE PRPS-POSID.
  SSTART = L_F_STDPRJ.”current project number or WBS

  DO.
    CALL FUNCTION 'CN_SUCHE_FREIE_NUMMER'
      EXPORTING
        SEARCH_IMP      = '1'
        PROJ_S_IMP      = SSTART
        NO_DIALOG       = '1'
      IMPORTING
        PROJ_EXP        = SPROJID
      EXCEPTIONS
        WRONG_SEARCH    = 1
        SEARCH_CANCELED = 2
        OTHERS          = 3.
    IF SY-SUBRC = 0.

      CALL FUNCTION 'CN_SUCHE_FREIE_NUMMER'
        EXPORTING
          SEARCH_IMP      = '2'
          PRPS_S_IMP      = SPROJID
          NO_DIALOG       = '1'
        IMPORTING
          PRPS_EXP        = SPRPSID
        EXCEPTIONS
          WRONG_SEARCH    = 1
          SEARCH_CANCELED = 2
          OTHERS          = 3.
      IF SY-SUBRC = 0.
        IF SPROJID = SPRPSID.
*            free number found
          P_L_F_NEWPROJECT = SPROJID.”Free project number or free WBS
          EXIT.
        ELSE.
          SSTART = SPRPSID.
        ENDIF.
      ENDIF.
    ENDIF.
  ENDDO.