Category Archive ABAP code

Planned Independent Requirement (PIR) are managed through transaction MD6x.
(Do not confuse with Purchase infos records 😉)

FM to manage PIR with ABAP are :

• BAPI_REQUIREMENTS_CREATE
• BAPI_REQUIREMENTS_CHANGE

The goal is to convert whatever time unit declared on system into hour in ABAP.
One way to proceed is to check table T006.
Filter dimension (DIMID) on ‘TIME’ to get only time unit and retrieve fields numerator (ZAEHL), denominator (NENNR) and exponent (EXP10) to get time in seconds.

According to your needs, you can use FM AIP9_STATUS_READ or FM STATUS_READ.

FM AIP9_STATUS_READ

  DATA : lv_objnr         TYPE j_objnr,
         lv_system_status TYPE j_stext, " (CHAR40)
         lv_user_status   TYPE j_stext. " (CHAR40)

  CONCATENATE 'OR' gv_aufnr INTO lv_objnr.

  CALL FUNCTION 'AIP9_STATUS_READ'
    EXPORTING
      i_objnr = lv_objnr
      i_spras = sy-langu
    IMPORTING
      e_sysst = lv_system_status
      e_anwst = lv_user_status.

This will return in each wa list of system and user external status (in requested language) separated by space.

FM STATUS_READ :

  DATA : lv_objnr         TYPE j_objnr,
         lt_status        TYPE STANDARD TABLE OF jstat,
         lv_status_schema TYPE j_stsma.

  CONCATENATE 'OR' gv_aufnr INTO lv_objnr.

  CALL FUNCTION 'STATUS_READ'
    EXPORTING
      objnr            = lv_objnr
      only_active      = 'X'
    IMPORTING
      stsma            = lv_status_schema
    TABLES
      status           = lt_status
    EXCEPTIONS
      object_not_found = 1
      OTHERS           = 2.

This will return internal status id in LT_STATUS.

You can use the data element : UMC_Y_CONTENT.

Type RAWSRTING which has the same behavior as XSTRING.

You can use FM SAP_CONVERT_TO_CSV_FORMAT :

Use statements NMIN and NMAX.
⚠️ Maximum 9 values can be passed : val1, val2… val9.

    DATA : lv_nb1 VALUE 25,
           lv_nb2 VALUE 50,
           lv_nb3 VALUE 100.

    DATA(lv_nb_max) = nmax( val1 = lv_nb1
                            val2 = lv_nb2
                            val2 = lv_nb3 ).

    DATA(lv_nb_min) = nmin( val1 = lv_nb1
                            val2 = lv_nb2
                            val2 = lv_nb3 ).

    " ==> LV_MAX = 100
    " ==> LV_MIN = 25

Search tag: maximum minimum

Check the following post very well explained : https://sapcodes.com/2015/11/20/screen-exit-me21nme22nme23n-header/

Search tag: commande, achat, d’achat, PO, PReq, purchase, order, requisition, écran