Cacher is the code snippet organizer for pro developers

*Data Declarations:
*Constants.
CONSTANTS:
  lc_stack_loc(20)    TYPE c    VALUE '(SAPMV45A)TVAK-FPART'.
 
*Field Symbols.
FIELD-SYMBOLS:
  <fs_stackvalue>                TYPE ANY.
 
*If we have been able to read the required data
*from ABAP stack, proceed.
ASSIGN (lc_stack_loc) TO <fs_stackvalue>.
 
IF sy-subrc EQ 0
AND <fs_stackvalue> IS NOT INITIAL.
 
* Write the value read from ABAP stack.
  WRITE <fs_stackvalue>.
 
ENDIF.