Cacher is the code snippet organizer for pro developers

* Questo è il codice da inserire nella sapscript (&VBDKR-VBELN_VAUF& questa è
* una variabile presente nella SapScript
/: PERFORM F_GET_AUART IN PROGRAM 'ZS_PERFORM_SD'                           
/: USING &VBDKR-VBELN_VAUF& 
/: CHANGING &L_AUART& "Non va dichiarata nella SapScript, ma nel report           
/: ENDPERFORM

*Questo è il codice da inserire nel programma
FORM f_get_auart  TABLES in  STRUCTURE itcsy
                         out   STRUCTURE itcsy.

  DATA: l_auart TYPE vbak-auart,
        l_vbeln TYPE vbak-vbeln.

  READ TABLE in WITH KEY 'VBDKR-VBELN_VAUF'.
  CHECK sy-subrc EQ 0.
  l_vbeln = in-value.
  READ TABLE out WITH KEY 'L_AUART'.
  CHECK sy-subrc EQ 0.
  SELECT SINGLE auart FROM vbak INTO out-value WHERE vbeln EQ l_vbeln.
  CHECK sy-subrc EQ 0.
  MODIFY out INDEX sy-tabix.
ENDFORM.