SAP/Help

RSS Post Feed
  • Alternative to READ_TEXT Function Module (to fetch multiple long text at one go ) September 8, 2014
    Multi READ_TEXT Code in SAP   *&---------------------------------------------------------------------* *& Report  ZMULTI_READ_TEXT *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------* REPORT  ZMULTI_READ_TEXT. *---------------------------------------------------------------------** data declaration*---------------------------------------------------------------------*TABLES vbap.DATA curs TYPE cursor.TYPES: BEGIN OF ty_stxl,          tdname TYPE stxl-tdname,          tdid   TYPE stxl-tdid,          clustr TYPE stxl-clustr,          clustd TYPE stxl-clustd,        END OF ty_stxl.TYPES: BEGIN OF ty_stxh,          tdobject TYPE stxh-tdobject,          tdname   TYPE stxh-tdname,          tdid TYPE stxh-tdid,        END OF ty_stxh.TYPES: BEGIN OF ty_tdid,      sign  TYPE ddsign,      option  TYPE ddoption,      low  TYPE stxl-tdid,      high  TYPE stxl-tdid ,  END OF ty_tdid.DATA lt_tdid TYPE STANDARD TABLE OF ty_tdid.DATA ls_tdid TYPE ty_tdid.DATA lv_text  TYPE string.DATA:  t_stxl TYPE STANDARD TABLE OF ty_stxl.DATA:  t_stxh TYPE STANDARD TABLE OF ty_stxh.FIELD-SYMBOLS:  TYPE ty_stxl.* compressed text data without text nameTYPES: BEGIN OF ty_stxl_raw,          clustr TYPE stxl-clustr,          clustd TYPE stxl-clustd,        END OF ty_stxl_raw.DATA:  t_stxl_raw TYPE STANDARD TABLE OF ty_stxl_raw.DATA:  w_stxl_raw TYPE ty_stxl_raw.* decompressed textDATA:  t_tline TYPE STANDARD TABLE OF tline.FIELD-SYMBOLS:  TYPE tline.*---------------------------------------------------------------------** selection screen*---------------------------------------------------------------------*SELECT-OPTIONS s_vbeln FOR vbap-vbeln.SELECT-OPTIONS s_tdid FOR stxh-tdid .*---------------------------------------------------------------------** select on header*---------------------------------------------------------------------*SELECT tdobject tdname tdid   FROM stxh     INTO TABLE t_stxh    WHERE tdobject = 'VBBK' AND tdname IN s_vbeln AND tdid IN s_tdid  AND tdspras = 'E'.*---------------------------------------------------------------------** select compressed text lines into cursor*---------------------------------------------------------------------*OPEN CURSOR curs FOR SELECT tdname tdid clustr clustd        FROM stxl        FOR ALL ENTRIES IN t_stxh "WITH APPLICATION DATA AND TDNAME        WHERE relid    = 'TX'          "standard text          AND tdobject = t_stxh-tdobject          AND tdname   = t_stxh-tdname          AND tdid     = t_stxh-tdid          AND tdspras  = sy-langu.*---------------------------------------------------------------------** select compressed text lines in blocks of 1000 (adjustable) from cursor*---------------------------------------------------------------------*DO.  FETCH NEXT CURSOR curs INTO TABLE t_stxl PACKAGE SIZE 1000.  IF sy-subrc  0.    EXIT.  ELSE.    LOOP AT t_stxl ASSIGNING .*---------------------------------------------------------------------**   decompress text *---------------------------------------------------------------------*      CLEAR: t_stxl_raw[], t_tline[].      w_stxl_raw-clustr = -clustr.      w_stxl_raw-clustd = -clustd.      APPEND w_stxl_raw TO t_stxl_raw.*---------------------------------------------------------------------**  access text lines for further processing*---------------------------------------------------------------------*      IMPORT tline = t_tline FROM INTERNAL TABLE t_stxl_raw.*---------------------------------------------------------------------**  aadd text in one row by seprater*---------------------------------------------------------------------*      LOOP AT t_tline ASSIGNING .        IF lv_text IS INITIAL.          lv_text = -tdline .        ELSE.          CONCATENATE lv_text -tdline INTO lv_text SEPARATED BY cl_abap_char_utilities=>newline.        ENDIF.      ENDLOOP.*---------------------------------------------------------------------**  write text to screen with name id and text*---------------------------------------------------------------------*      WRITE: /  -tdname  ,-tdid ,lv_text .      CLEAR lv_text.  ENDLOOP.  FREE t_stxl.ENDIF.ENDDO.
    Jitendra Prasad
  • Untitled March 28, 2012
    How To add Attribute Dynamical in Existing Context Node SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } *-------------------------------------------------------*  add attribute in existing context node*-------------------------------------------------------  data LR_PAR_NODE type ref to IF_WD_CONTEXT_NODE_INFO.  data LR_NODE     type ref to IF_WD_CONTEXT_NODE_INFO.  data LT_ATT      type STRING_TABLE.  data LR_ATTRIBUTE type WDR_CONTEXT_ATTRIBUTE_INFO.*****to get context node information  LR_PAR_NODE = WD_CONTEXT->GET_NODE_INFO( ).* Name of node where you want to add attribute  LR_NODE = LR_PAR_NODE->GET_CHILD_NODE( `TEST` ).*  get all existing attribute name  LT_ATT = LR_NODE->GET_ATTRIBUTE_NAMES( ).  LR_ATTRIBUTE-NAME = `DUMMY`.  LR_ATTRIBUTE-TYPE_NAME ='CHAR40'.*  check attribute is present or not*  if not present then create attribute in node  read table LT_ATT transporting no fields              with key TABLE_LINE = `DUMMY`.  if SY-SUBRC ne 0.    call method LR_NODE->ADD_ATTRIBUTE      exporting        ATTRIBUTE_INFO = LR_ATTRIBUTE.    clear LR_ATTRIBUTE.  endif.
    Jitendra Prasad
  • Untitled March 28, 2012
    How to Create Dynamic Node with attribute SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; }  SPAN { font-family: "Courier New"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { […]
    Jitendra Prasad

Leave a Reply