Ver datos inaccesibles desde otro programa

Ver datos inaccesibles desde otro programa en el mismo hilo de ejecución.

TYPES: BEGIN OF xvbap.
INCLUDE STRUCTURE vbapvb.
TYPES: END OF xvbap.

TYPES: t_vbap TYPE STANDARD TABLE OF xvbap.

**-- Field Symbols Declarations
FIELD-SYMBOLS : TYPE ANY,
TYPE ANY,
TYPE t_vbap.

**-- Structure Declaration for field symbols
DATA : str_vbap TYPE vbap,
str_vbak TYPE vbak.

*Table for XVBAP
DATA: lit_xvbap TYPE t_vbap.

*Work area
DATA: lst_xvbap TYPE xvbap.

DATA: l_cepok LIKE vbap-cepok.

**--- Field Symbol Declarations
DATA : l_vbak(20) VALUE '(SAPMV45A)VBAK',
l_vbap(20) VALUE '(SAPMV45A)VBAP',
l_xvbap(20) VALUE '(SAPMV45A)XVBAP'.

**---Logic to get the Sales Order Header data
ASSIGN (l_vbak) TO .
IF sy-subrc EQ 0.
IF NOT IS INITIAL.
MOVE TO str_vbak.
ENDIF.
ENDIF.

**---Logic to get the Sales Order Item data
ASSIGN (l_vbap) TO .
IF sy-subrc EQ 0.
IF NOT IS INITIAL.
MOVE TO str_vbap.
ENDIF.
ENDIF.

**---Logic to get the Sales Order Item data (all item)
ASSIGN (l_xvbap) TO .
IF sy-subrc EQ 0.
IF NOT IS INITIAL.
MOVE TO lit_xvbap.
ENDIF.
ENDIF.

IF NOT lit_xvbap[] IS INITIAL.
* loop at sales order line item
LOOP AT lit_xvbap INTO lst_xvbap.
l_cepok = lst_xvbap-cepok.
CHECK: l_cepok >< ' AND l_cepok >< '.
sy-subrc = 0.
ENDLOOP.
ENDIF.