REPORT ZCR_TEST .
*TABLES : TSTCT.
**
*
*DATA : BEGIN OF I_TSTCT OCCURS 0.
*INCLUDE STRUCTURE TSTCT.
*DATA : END OF I_TSTCT.
**
*DATA I_RESULT LIKE I_TSTCT OCCURS 0 WITH HEADER LINE.
*DATA : L_TTEXT LIKE TSTCT-TTEXT.
**
*PARAMETERS : PSTR LIKE TSTCT-TTEXT.
**
*START-OF-SELECTION.
*SELECT * FROM TSTCT INTO I_TSTCT
*WHERE SPRSL = 'EN'.
*APPEND I_TSTCT.
*ENDSELECT.
**
*CONCATENATE '*' PSTR '*' INTO PSTR.
*LOOP AT I_TSTCT .
*CLEAR L_TTEXT.
*MOVE I_TSTCT-TTEXT TO L_TTEXT.
*IF L_TTEXT CP PSTR .
*MOVE-CORRESPONDING I_TSTCT TO I_RESULT.
*APPEND I_RESULT.
*ENDIF.
*ENDLOOP.
**
*WRITE :/5 'Tran. code'.
*WRITE : 20 'Description'.
*SKIP 1.
*LOOP AT I_RESULT.
*WRITE :/5 I_RESULT-TCODE.
*WRITE : 20 I_RESULT-TTEXT.
*ENDLOOP.
*******************************************
TABLES:
DATA: BEGIN OF i_mdpsx OCCURS 0.
DATA: END OF i_mdpsx.
DATA:
DATA: BEGIN OF i_mdsta OCCURS 1.
DATA: END
SELECT SINGLE mdobj
*
* IF sy-subrc = 0.
*
*
*
*
* ENDIF.
SELECT SINGLE *
SELECT SINGLE *
MOVE t001w-fabkl TO cm61w-fabkl.
MOVE t001w-fabkl TO cm61w-fabkl.
MOVE t399d-umthz TO cm61w-umthz.
MOVE cm61x-dispd TO cm61w-dispd.
MOVE t399d-gterm TO cm61w-gterm.
*--> Welche Zug?nge gehen in Bestandsreichweite 2 ein ?
MOVE t399d-selfe TO cm61w-selfe.
MOVE t399d-selbe TO cm61w-selbe.
MOVE t399d-selqm TO cm61w-selqm.
MOVE t399d-selba TO cm61w-selba.
MOVE t399d-selpa TO cm61w-selpa.
MOVE t399d-selpz TO cm61w-selpz.
MOVE t399d-selzr TO cm61w-selzr.
MOVE t399d-sella TO cm61w-sella.
MOVE 'MT61D'
MOVE sy-langu
MOVE '000000000101000022'
MOVE '2031'
CALL FUNCTION 'MATERIAL_LESEN'
CALL FUNCTION 'AUFBAUEN_MDPSX_ANZEIGEN'
*
*
*
*