Describe internal table

experts,
        itab
             field1         field2
               A             1
                              2
               B             3
                              4
               C             5
               D             6
above is the internal table( with field1 and field2) which contains 6 records .
how to count the number of records where field1 is not empty using ' describe statement only'
can it be done or not.
thanks in advance.

hi ,
    use the count for this .....loop the internal table check the field .. if it is empty increment the count by one ...
REPORT Zpopup message-id zmsg.
data: begin of itab occurs 0,
      field1 type c ,
      field2 type c ,
      end of itab .
itab-field1 = 'A'.
itab-field2 = '1' .
append itab .
itab-field1 = 'B'.
itab-field2 = ' ' .
append itab .
itab-field1 = 'C'.
itab-field2 = '2' .
append itab .
itab-field1 = 'C'.
itab-field2 = ' ' .
append itab .
itab-field1 = 'D'.
itab-field2 = '4' .
append itab .
data: v_count type i .
loop at itab .
if itab-field2 is initial .
v_count = v_count + 1 .
endif .
endloop .
write:/ v_count .
Edited by: venkat appikonda on Nov 26, 2008 1:07 PM

Similar Messages

How to populate data in dynamic internal table

Hi Expert,
fyi. My dynamic internal table field is created base on data selected. Eg. select table qpcd has 5 records. These 5 recods will become fieldname to my dynamic internal table. My dynamic internal table will be
...itab
 01
 02
 03
 04
 05
The 5 records from qpcd is populated in another table call viqmel. I need to find the occurance of each code in viqmel and populate the number of occurance in itab in each of column. The final dynamic itab will be like this
table itab
01 02 03 04 05 -
> field name
2 0 1 0 1 -
> data
my source code like below
Report ZPLYGRND2.
TABLES: mara, makt.
TYPE-POOLS: slis, sydes.
DATA:it_fcat TYPE slis_t_fieldcat_alv,
 is_fcat LIKE LINE OF it_fcat,
 ls_layout TYPE slis_layout_alv.
DATA: it_fieldcat TYPE lvc_t_fcat,
 is_fieldcat LIKE LINE OF it_fieldcat.
DATA: new_table TYPE REF TO data,
 new_line TYPE REF TO data,
 ob_cont_alv TYPE REF TO cl_gui_custom_container,
 ob_alv TYPE REF TO cl_gui_alv_grid,
 vg_campos(255) TYPE c,
 i_campos LIKE TABLE OF vg_campos,
 vg_campo(30) TYPE c,
 vg_tables(60) TYPE c.
types : begin of t_qpcd,
 codegruppe like qpcd-codegruppe,
 code like qpcd-code,
 end of t_qpcd.
data:wa_qpcd type t_qpcd,
 i_qpcd type standard table of t_qpcd initial size 0.
FIELD-SYMBOLS: <l_table> TYPE table,
 <l_line> TYPE ANY,
 <l_field> TYPE ANY.
select * into corresponding fields of wa_qpcd from qpcd
where katalogart = 'D'
and codegruppe = 'OOT01'.
append wa_qpcd to i_qpcd.
endselect.
loop at i_qpcd into wa_qpcd.
is_fcat-fieldname = wa_qpcd-code.
APPEND is_fcat TO it_fcat.
endloop.
LOOP AT it_fcat INTO is_fcat.
 is_fieldcat-fieldname = is_fcat-fieldname.
 is_fieldcat-ref_field = is_fcat-ref_fieldname.
 is_fieldcat-ref_table = is_fcat-ref_tabname.
 APPEND is_fieldcat TO it_fieldcat.
ENDLOOP.
*... Create the dynamic internal table
CALL METHOD cl_alv_table_create=>create_dynamic_table
 EXPORTING
 it_fieldcatalog = it_fieldcat
 IMPORTING
 ep_table = new_table.
if sy-subrc = 0.
endif.
*... Create a new line
ASSIGN new_table->* TO <l_table>.
CREATE DATA new_line LIKE LINE OF <l_table>.
ASSIGN new_line->* TO <l_line>.
LOOP AT <l_table> INTO <l_line>.
ENDLOOP.

hello dear i m giving u a code in this a dynamic table is made on the basis of table in database , and u can download this data correct it , see it, or even change it....and upload in tht table help full if u dont know the table name...in advance.
also the code to populate data in dynamic table is in this code like:
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
look at the whole program .hope this solve ur problem thanks.
REPORT ZTESTA MESSAGE-ID ZIMM .
TYPES : DATA_OBJECT TYPE REF TO DATA.
DATA : MITAB TYPE REF TO DATA .
TYPE-POOLS : SLIS .
DATA : IT_FIELDCAT TYPE STANDARD TABLE OF SLIS_FIELDCAT_ALV
WITH HEADER LINE .
DATA : IT_FIELDCATALOG TYPE LVC_T_FCAT .
DATA : WA_FIELDCATALOG TYPE LVC_S_FCAT .
DATA : I_STRUCTURE_NAME LIKE DD02L-TABNAME .
DATA : I_CALLBACK_PROGRAM LIKE SY-REPID .
DATA : DYN_LINE TYPE DATA_OBJECT .
FIELD-SYMBOLS : <FS_ITAB> TYPE STANDARD TABLE .
DATA : TABLE_NAME_IS_VALID TYPE C .
DATA : DYNAMIC_IT_INSTANTIATED TYPE C .
CONSTANTS BUTTONSELECTED TYPE C VALUE 'X' .
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_TABL.
PARAMETERS : MTABLE_N LIKE RSRD1-TBMA_VAL
MATCHCODE OBJECT DD_DBTB_16 OBLIGATORY .
DATA CHECKTABLED.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_FILE.
PARAMETERS : MFILENAM LIKE RLGRAP-FILENAME .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_DOWN.
PARAMETERS : P_DOWNLD RADIOBUTTON GROUP GRP1
USER-COMMAND M_UCOMM .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_CHKF.
PARAMETERS : P_CHKFIL RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_UPLD.
PARAMETERS : P_UPLOAD RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(29) T_SHOW.
PARAMETERS : P_SHOW_T RADIOBUTTON GROUP GRP1 .
SELECTION-SCREEN END OF LINE.
AT SELECTION-SCREEN OUTPUT .
PERFORM CHECK_FILENAME .
AT SELECTION-SCREEN.
IF SY-UCOMM = 'ONLI'.
 CHECKTABLED = MTABLE_N+0(1).
 IF CHECKTABLED NE 'Z'.
 MESSAGE I017.
 LEAVE TO SCREEN 1000.
 ENDIF.
 IF SY-UNAME NE 'KAMESH.K'.
 MESSAGE I023 WITH SY-UNAME.
 LEAVE TO SCREEN 1000.
 ENDIF.
ENDIF.
IF SY-UCOMM = 'PRIN'.
 CHECKTABLED = MTABLE_N+0(1).
 IF CHECKTABLED NE 'Z'.
 MESSAGE I017.
 LEAVE TO SCREEN 1000.
 ENDIF.
 IF SY-UNAME NE 'KAMESH.K'.
 MESSAGE I023 WITH SY-UNAME.
 LEAVE TO SCREEN 1000.
 ENDIF.
ENDIF.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR MFILENAM .
PERFORM F4_FOR_FILENAME .
INITIALIZATION .
T_TABL = 'Table Name' .
T_FILE = 'File Name' .
T_DOWN = 'Download Table' .
T_CHKF = 'Check File to Upload' .
T_UPLD = 'Upload File' .
T_SHOW = 'Show Table Contents' .
START-OF-SELECTION .
PERFORM CHECK_TABLE_NAME_IS_VALID .
END-OF-SELECTION .
IF TABLE_NAME_IS_VALID EQ ' ' .
 MESSAGE I398(00) WITH 'INVALID TABLE NAME' .
ELSE .
 PERFORM INSTANTIATE_DYNAMIC_INTERNAL_T .
 CHECK DYNAMIC_IT_INSTANTIATED = 'X' .
 CASE BUTTONSELECTED .
 WHEN P_DOWNLD .
 PERFORM SELECT_AND_DOWNLOAD .
 WHEN P_CHKFIL .
 PERFORM CHECK_FILE_TO_UPLOAD .
 WHEN P_UPLOAD .
 PERFORM UPLOAD_FROM_FILE .
 WHEN P_SHOW_T .
 PERFORM SHOW_CONTENTS .
 ENDCASE .
ENDIF .
FORM CHECK_TABLE_NAME_IS_VALID.
DATA MCOUNT TYPE I .
TABLES DD02L .
CLEAR TABLE_NAME_IS_VALID .
SELECT COUNT(*) INTO MCOUNT FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'TABL'
AND OBJ_NAME = MTABLE_N .
IF MCOUNT EQ 1 .
 CLEAR DD02L .
 SELECT SINGLE * FROM DD02L WHERE TABNAME = MTABLE_N .
 IF SY-SUBRC EQ 0.
 IF DD02L-TABCLASS = 'TRANSP' .
 TABLE_NAME_IS_VALID = 'X' .
 ENDIF .
 ENDIF.
ENDIF .
ENDFORM. " CHECK_TABLE_NAME_IS_VALID
FORM SELECT_AND_DOWNLOAD.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
IF SY-SUBRC EQ 0.
 MESSAGE I398(00) WITH 'Table' MTABLE_N
 'successfully downloaded to '
 MFILENAM .
ENDIF.
ENDFORM. " SELECT_AND_DOWNLOAD
FORM UPLOAD_FROM_FILE.
DATA : ANS TYPE C .
DATA : LINES_OF_ITAB TYPE I .
DATA : MSY_SUBRC TYPE I .
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
 EXPORTING
 TEXTLINE1 = 'Are you sure you wish to upload'
 TEXTLINE2 = 'data from ASCII File to DB table '
 TITEL = 'Confirmation of Data Upload'
 IMPORTING
 ANSWER = ANS.
IF ANS = 'J' .
 PERFORM CHECK_FILENAME.
 CLEAR MSY_SUBRC .
 CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
 MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
 IF SY-SUBRC EQ 0.
 DESCRIBE TABLE <FS_ITAB> LINES LINES_OF_ITAB .
 IF LINES_OF_ITAB GT 0 .
 MODIFY (MTABLE_N) FROM TABLE <FS_ITAB> .
 MSY_SUBRC = MSY_SUBRC + SY-SUBRC .
 ENDIF .
 ENDIF.
 IF MSY_SUBRC EQ 0 .
 MESSAGE I398(00) WITH LINES_OF_ITAB
 'Record(s) inserted in table'
 MTABLE_N .
 ELSE .
 MESSAGE I398(00) WITH
 'Errors occurred No Records inserted in table'
 MTABLE_N .
 ENDIF .
ENDIF .
ENDFORM. " UPLOAD_FROM_FILE
FORM F4_FOR_FILENAME.
CALL FUNCTION 'WS_FILENAME_GET'
 EXPORTING
 DEF_PATH = 'C:\'
 MASK = ',.,..'
 MODE = '0'
 IMPORTING
 FILENAME = MFILENAM
 EXCEPTIONS
 INV_WINSYS = 1
 NO_BATCH = 2
 SELECTION_CANCEL = 3
 SELECTION_ERROR = 4
 OTHERS = 5.
ENDFORM. " F4_FOR_FILENAME
FORM CHECK_FILENAME.
IF MFILENAM IS INITIAL
AND NOT ( MTABLE_N IS INITIAL )
AND P_SHOW_T NE BUTTONSELECTED.
 CONCATENATE 'C:\'
 MTABLE_N '.TXT' INTO MFILENAM.
ENDIF .
ENDFORM. " CHECK_FILENAME
FORM INSTANTIATE_DYNAMIC_INTERNAL_T.
CLEAR DYNAMIC_IT_INSTANTIATED .
I_STRUCTURE_NAME = MTABLE_N .
CLEAR IT_FIELDCAT[] .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_STRUCTURE_NAME = I_STRUCTURE_NAME
 CHANGING
 CT_FIELDCAT = IT_FIELDCAT[]
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC EQ 0.
 LOOP AT IT_FIELDCAT .
 CLEAR WA_FIELDCATALOG .
 MOVE-CORRESPONDING IT_FIELDCAT TO WA_FIELDCATALOG .
 WA_FIELDCATALOG-REF_FIELD = IT_FIELDCAT-FIELDNAME .
 WA_FIELDCATALOG-REF_TABLE = MTABLE_N .
 APPEND WA_FIELDCATALOG TO IT_FIELDCATALOG .
 ENDLOOP .
 CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_FIELDCATALOG
 IMPORTING
 EP_TABLE = MITAB .
 ASSIGN MITAB->* TO <FS_ITAB> .
 DYNAMIC_IT_INSTANTIATED = 'X' .
ENDIF.
ENDFORM. " INSTANTIATE_DYNAMIC_INTERNAL_T
FORM SHOW_CONTENTS.
CLEAR : <FS_ITAB> .
SELECT * FROM (MTABLE_N)
INTO CORRESPONDING FIELDS OF TABLE <FS_ITAB> .
I_CALLBACK_PROGRAM = SY-REPID .
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
 IT_FIELDCAT = IT_FIELDCAT[]
 TABLES
 T_OUTTAB = <FS_ITAB>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDFORM. " SHOW_CONTENTS
FORM CHECK_FILE_TO_UPLOAD.
PERFORM CHECK_FILENAME.
CALL FUNCTION 'WS_UPLOAD'
 EXPORTING
 FILENAME = MFILENAM
 FILETYPE = 'DAT'
 TABLES
 DATA_TAB = <FS_ITAB>
 EXCEPTIONS
 CONVERSION_ERROR = 1
 FILE_OPEN_ERROR = 2
 FILE_READ_ERROR = 3
 INVALID_TYPE = 4
 NO_BATCH = 5
 UNKNOWN_ERROR = 6
 INVALID_TABLE_WIDTH = 7
 GUI_REFUSE_FILETRANSFER = 8
 CUSTOMER_ERROR = 9
 OTHERS = 10.
IF SY-SUBRC EQ 0.
 I_CALLBACK_PROGRAM = SY-REPID .
 CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = I_CALLBACK_PROGRAM
 IT_FIELDCAT = IT_FIELDCAT[]
 TABLES
 T_OUTTAB = <FS_ITAB>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
ENDIF .
ENDFORM. " CHECK_FILE_TO_UPLOAD
Message was edited by:
 SAURABH SINGH
 SENIOR EXECUTIVE
 SAMSUNG INDIA ELECTRONICS LTD.,NOIDA

IMPORT Statement Issue (Internal Table)

Hi All,
I am using an IMPORT statement to get all the data from other report's internal table. Now whenever this (the other report's internal table) is changed (for field addition, etc), my report throws a dump. Hence, everytime I have to add these fields in my program as well.
Is there any way by which I can include the whole internal table of that report in my program just like
'INCLUDE STRUCTURE VBRK'.
Thanks in advance

Hi, CHeck this code related to your problem..This will helpful to you...
I have done this program earlier..I hope it will helpful to u..
This programa calling the other program to import the data..
Check it out...
*" Tables declarations.................................................
TABLES:
spfli.
*" Type declarations...................................................
Type declaration of the structure to hold data from table SPFLI     *
TYPES:
BEGIN OF type_s_spfli,
    carrid LIKE spfli-carrid,          " Carrier Id
    connid LIKE spfli-connid,          " Connection Number
    cityfrom LIKE spfli-cityfrom,      " City from
    cityto LIKE spfli-cityto,          " City to
    airpfrom LIKE spfli-airpfrom,      " Airport from
    airpto LIKE spfli-airpto,          " Airport to
    countryfr LIKE spfli-countryfr,    " Country from
    countryto LIKE spfli-countryto,    " Country to
END OF type_s_spfli.
Data Declaration...................................................*
     Field String To Hold Flight Details Record from SPFLI          *
DATA
fs_spfli TYPE type_s_spfli.
Data Declaration...................................................*
     Internal Table To Hold Flight Details Records from SPFLI       *
DATA
t_spfli LIKE STANDARD TABLE OF fs_spfli.
TYPES:
BEGIN OF types_s_itab,
    carrid LIKE sflight-carrid,        " Carrier id
    connid LIKE sflight-connid,        " Connection number
    fldate LIKE sflight-fldate,        " Flight date
END OF types_s_itab.
Data Declaration...................................................*
     Field String To Hold Flight Details Record from SFLIGHT        *
DATA
fs_itab TYPE types_s_itab.
Data Declaration...................................................*
     Internal Table To Hold Flight Details Records from SFLIGHT     *
DATA
t_itab LIKE STANDARD TABLE OF fs_itab.
*" Type declarations...................................................
Type declaration of the structure to hold data from table SBOOK     *
TYPES:
BEGIN OF type_s_sbook,
   carrid LIKE sbook-carrid,           " Carrier Id
   connid LIKE sbook-connid,           " Connection Number
   fldate LIKE sbook-fldate,           " Flight date
   bookid LIKE sbook-bookid,           " Booking number
   loccuram LIKE sbook-loccuram,       " Local currency
   loccurkey LIKE sbook-loccurkey,
   order_date LIKE sbook-order_date,   " Booking date
END OF type_s_sbook.
Data Declaration...................................................*
     Field String To Hold Flight Details Record from BOOK           *
DATA
fs_sbook TYPE type_s_sbook.
Data Declaration...................................................*
     Internal Table To Hold Flight Details Records from SBOOK       *
DATA
t_sbook LIKE STANDARD TABLE OF fs_sbook.
DATA
w_checkbox.                          " Checkbox
SELECT-OPTIONS:
s_carr FOR spfli-carrid.             " Carrier id range
                      START-OF-SELECTION EVENT                      *
START-OF-SELECTION.
PERFORM selectq.
                      END-OF-SELECTION EVENT                        *
END-OF-SELECTION.
SET PF-STATUS 'YH1314_030502'.
PERFORM display_basic.
AT USER-COMMAND.
PERFORM ucomm.
*&    Form selectq
    This subroutine retreive data from SPFLI table
There are no interface parameters to be passed to this subroutine.
FORM selectq .
SELECT carrid                        " Carrier id
         connid                        " Connection number
         cityfrom                      " City from
         cityto                        " City to
         airpfrom                      " Airport from
         airpto                        " Airport to
         countryfr                     " Country from
         countryto                     " Country to
         INTO CORRESPONDING FIELDS OF TABLE t_spfli
         FROM spfli
         WHERE carrid IN s_carr.
ENDFORM.                               " Selectq
*&      Form display_basic
    This subroutine displays data from internal table
There are no interface parameters to be passed to this subroutine.
FORM display_basic .
LOOP AT t_spfli INTO fs_spfli.
    WRITE:
      / w_checkbox AS CHECKBOX,
        fs_spfli-carrid,
        fs_spfli-connid,
        fs_spfli-cityfrom,
        fs_spfli-cityto,
        fs_spfli-airpfrom,
        fs_spfli-airpto,
        fs_spfli-countryfr,
        fs_spfli-countryto.
ENDLOOP.                             " LOOP AT T-SPFLI INTO...
ENDFORM.                               " Display_basic
*&      Form UCOMM
This subroutine for at user-command event
There are no interface parameters to be passed to this subroutine.
FORM ucomm .
RANGES :
    r_carr FOR spfli-carrid,
    r_conn FOR spfli-connid,
    r_carrid FOR sflight-carrid,
    r_connid FOR sflight-connid,
    r_fldate FOR sflight-fldate.
CASE sy-ucomm.
    WHEN 'DISPLAY'.
      DATA:
        lw_lines TYPE i,
        lw_lineno TYPE i VALUE 3.
      DESCRIBE TABLE t_spfli LINES lw_lines.
      DO lw_lines TIMES.
        READ LINE lw_lineno FIELD
             VALUE w_checkbox   INTO w_checkbox
                   fs_spfli-carrid INTO fs_spfli-carrid
                   fs_spfli-connid INTO fs_spfli-connid.
        IF sy-subrc = 0.
          IF w_checkbox = 'X'.
            r_carr-sign = 'I'.
            r_carr-option = 'EQ'.
            r_carr-low = fs_spfli-carrid.
            APPEND r_carr.
            r_conn-sign = 'I'.
            r_conn-option = 'EQ'.
            r_conn-low = fs_spfli-connid.
            APPEND r_conn.
          ENDIF.                       " IF W_CHECKBOX = 'X'
        ENDIF.                         " IF SY-SUBRC = 0
        ADD 1 TO lw_lineno.
      ENDDO.                           " DO LW_LINES TIMES
      SUBMIT yh1314_030502_call
        WITH s_carr IN r_carr
        WITH s_conn IN r_conn
         AND RETURN.
      IMPORT t_itab FROM MEMORY ID 'YH1314'.
      LOOP AT t_itab INTO fs_itab.
        r_carrid-sign = 'I'.
        r_carrid-option = 'EQ'.
        r_carrid-low = fs_itab-carrid.
        APPEND r_carrid.
        r_connid-sign = 'I'.
        r_connid-option = 'EQ'.
        r_connid-low = fs_itab-connid.
        APPEND r_connid.
        r_fldate-sign = 'I'.
        r_fldate-option = 'EQ'.
        r_fldate-low = fs_itab-fldate.
        APPEND r_fldate.
      ENDLOOP.                         " LOOP AT T_ITAB INTO.....
      SELECT carrid                    " Carriee Id
             connid                    " Connection number
             fldate                    " Flight date
             bookid                    " Booking number
             loccuram                  " Local Currency
             order_date                " Booking date
         INTO CORRESPONDING FIELDS OF TABLE t_sbook
         FROM sbook
         WHERE carrid IN r_carrid AND
               connid IN r_connid AND
               fldate IN r_fldate.
      IF SY-SUBRC NE 0.
        MESSAGE 'NO RECORDS FOUND'(006) TYPE 'S'.
      ENDIF.                           " IF SY-SUBRC NE 0
      LOOP AT t_sbook INTO fs_sbook.
        AT FIRST.
          WRITE: /5 'Carrier Id'(001),
                 20 'Conn Id'(002),
                 35 'Flight date'(003),
                 50 'Book Id'(004),
                 65 'Local Currency'(005).
        ENDAT.                         " AT FIRST
        WRITE: /5 fs_sbook-carrid,
               20 fs_sbook-connid,
               35 fs_sbook-fldate,
               50 fs_sbook-bookid,
               65 fs_sbook-loccuram CURRENCY fs_sbook-loccurkey.
      ENDLOOP.                         " LOOP AT T_SBOOK INTO.....
ENDCASE.                             " CASE SY-UCOMM
ENDFORM.                               " UCOMM
Regards
Kiran

How to find the number of columns in an internal table DYNAMICALLY ?

Hi,
How to find the number of columns in an internal table DYNAMICALLY ?
Thanks and Regards,
saleem.

Hi,
you can find the number of columns and their order using
the 'REUSE_ALV_FIELDCATALOG_MERGE'
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = sy-repid
 I_INTERNAL_TABNAME = 'ITAB'
 I_INCLNAME = sy-repid
changing
 ct_fieldcat = IT_FIELDCAT
EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif
now describe your fieldcat . and find no of columns.
and their order also..
regards
vijay

Modify dynamic internal table from dynamic work area using index...

ASSIGN w_text TO <fs>.
 ASSIGN w_temp TO <fs1>.
 lint_tab_iw49[] = <tab>.
 lint_tab_iw49_t[] = <tab>.
 DELETE ADJACENT DUPLICATES FROM lint_tab_iw49 COMPARING aufnr.
 LOOP AT lint_tab_iw49 INTO lws_tab_iw49.
 READ TABLE lint_object_tab1 INTO lws_object_tab1
 WITH KEY aufnr = lws_tab_iw49-aufnr.
 IF sy-subrc EQ 0.
Collect operations in rows of an internal table.
 w_idx = 1.
 WHILE w_idx < 51.
 w_nn = w_idx.
 CONCATENATE 'lws_object_tab1-ZZOPERN' w_nn INTO w_xx.
 ASSIGN (w_xx) TO <fs>.
 CONCATENATE w_text <fs> INTO w_text SEPARATED BY ','.
 w_idx = w_idx + 1.
 ENDWHILE.
Split operations into an internal table to get operations in rows.
 SPLIT w_text AT ',' INTO TABLE lint_vornr.
 DELETE lint_vornr WHERE vornr = ' '.
 DESCRIBE TABLE lint_vornr LINES w_lines.
Collect costs in rows of an internal table
 CLEAR: w_idx, w_nn, w_xx, w_text.
 w_idx = 1.
 WHILE w_idx < 51.
 w_nn = w_idx.
 CONCATENATE 'lws_object_tab1-ZZCOST' w_nn INTO w_xx.
 ASSIGN (w_xx) TO <fs>.
 <fs1> = <fs>.
 CONCATENATE w_text <fs1> INTO w_text SEPARATED BY ','.
 w_idx = w_idx + 1.
 ENDWHILE.
Split costs into an internal table to get costs in rows.
 SPLIT w_text AT ',' INTO TABLE lint_escost.
 DELETE lint_escost WHERE cost = ' '.
 DESCRIBE TABLE lint_escost LINES w_lines_cost.
 Append lines of lint_escost from 1 to w_lines to lint_escost1.
Collect currencies in rows of an internal table
 CLEAR: w_idx, w_nn, w_xx, w_text.
 w_idx = 1.
 WHILE w_idx < 51.
 w_nn = w_idx.
 CONCATENATE 'lws_object_tab1-ZZCURR' w_nn INTO w_xx.
 ASSIGN (w_xx) TO <fs>.
 <fs1> = <fs>.
 CONCATENATE w_text <fs1> INTO w_text SEPARATED BY ','.
 w_idx = w_idx + 1.
 ENDWHILE.
Split costs into an internal table to get costs in rows.
 SPLIT w_text AT ',' INTO TABLE lint_curr.
 DELETE lint_curr WHERE curr = ' '.
 DESCRIBE TABLE lint_curr LINES w_lines_curr.
 Append lines of lint_curr from 1 to w_lines to lint_curr1.
 ENDIF.
 PERFORM update_object_tab_for_iw49n.
 ENDLOOP.
ENDIF.
ENDFORM. " modify_object_tab
*& Form update_object_tab_for_IW49N
 text
--> p1 text
<-- p2 text
FORM update_object_tab_for_iw49n .
DATA: lws_temp TYPE string VALUE 'where aufnr = lws_tab_iw49-aufnr',
 lw_index TYPE sy-index.
READ TABLE <tab> TRANSPORTING NO FIELDS WITH KEY ('AUFNR') =
lws_tab_iw49-aufnr.
IF sy-subrc EQ 0.
 lw_index = sy-tabix.
 LOOP AT <tab> INTO <wa1> FROM lw_index.
 IF <wa1>-aufnr NE lws_tab_iw49-aufnr.
 EXIT.
 ELSE.
 CLEAR lw_index.
 lw_index = sy-tabix.
 lw_index = 1.
 WHILE lw_index LE w_lines.
 READ TABLE lint_escost INTO lws_escost INDEX lw_index.
 IF sy-subrc EQ 0.
 lw_index = lw_index + 1.
 <wa1>-zzcost1 = lws_escost-cost.
 ENDIF.
 READ TABLE lint_curr1 INTO lws_curr INDEX lw_index.
 IF sy-subrc EQ 0.
 <wa1>-zzcurr1 = lws_curr-curr.
 ENDIF.
 MODIFY <tab> FROM <wa1> "TRANSPORTING ('ZZCOST1') ('ZZCURR1')
 INDEX sy-tabix.
 IF sy-subrc EQ 0.
 ENDIF.
 lw_index = lw_index + 1.
 ENDWHILE.
 ENDIF.
 ENDLOOP.
ENDIF.
ENDFORM. " update_object
Hi,
With referene to the code snippet above I want to modify <tab> from <wa1> on specific indices or with specific where condition.
Is it achievable... How?
Many thanks in advance.
Thanks & Regards,
Shreya

You might have to split the code in to two parts to keep the formatting intact.

End Routine ABAP to read from Internal table and do calculation.

Hi All...
I have completed some coding in a start routine to extract some fields from a DSO containing Master Data (Stock Age) into an internal table (the internal table has been defined in the global declarations area) which will then be read in the end routine.
(the internal table will be read) at loadtime in the end routine and used in a calculation as described below.
I.E
GLOBAL DATA DECLARATION
Data: ITAB1 TYPE TABLE OF /BIC/DSOTAB
(DSOTAB has 3 fields PLANT, STYLE, 1STDATE (1STDATE IS A DATE FIELD)
The start routine has the following code:
IF ITAB1 IS INITIAL.
SELECT /BIC/PLANT /BIC/STYLE /BIC/1STDATE
 FROM /BIC/DSOTAB
 INTO CORRESPONDING FIELDS OF TABLE ITAB1.
This is working fine when run under simulation i.e ITAB1 is filled no problem.
I then need to do a calculation in the end routine.
1. First I have to find the record in the internal table using the key of PLANT AND STYLE from the RESULT_PACKAGE.
The code i am using now is as follows....
 READ TABLE ITAB1 TRANSPORTING NO FIELDS WITH KEY
 /BIC/PLANT = <result_fields>-/BIC/PLANT /BIC/STYLE =
 <result_fields>-/BIC/STYLE.
Once this record has been read I then have to perform the following calculation using the following additional fields
<result_fields>-/BIC/DYS1ST is a NUMC field in the <result_fields> that will be be filled by the result of the calculation described below.
<result_fields>-CALDAY is a date field which is already populated in the <result-fields> which is used in the calculation below.
The Calculation required is a difference in days between two dates
DYS1ST = CALDAY - 1STRED.
The code i am using is
If sy-subrc = 0.
 <result_fields>-/BIC/DYS1ST = <result_fields>-CALDAY -
 i_t_1stred_dso-/BIC/1STRED.
So the whole section of code inside the LOOP at RESULT PACKAGE looks like this in the end routine
 READ TABLE ITAB1 TRANSPORTING NO FIELDS WITH KEY
 /BIC/PLANT = <result_fields>-/BIC/PLANT /BIC/STYLE =
 <result_fields>-/BIC/STYLE.
IF sy-subrc = 0.
 <result_fields>-/BIC/DYS1ST = <result_fields>-CALDAY -
 i_t_1stred_dso-/BIC/1STRED.
Im getting the error
"ITAB1 " is a table without a header line and therefore has no component called "/BIC/1STRED
Please can someone advise as to what I need to do to get this fixed please.
Thanks in advance
Stevo:)

Hi,
You will have to do few changes in your code as below,
GLOBAL DATA DECLARATION
Data: ITAB1 TYPE standard TABLE OF /BIC/DSOTAB.
After that declare a workarea to read the values.
DATA: i_wa_itab1 type /bic/dsotab.
(DSOTAB has 3 fields PLANT, STYLE, 1STDATE (1STDATE IS A DATE FIELD)
The start routine has the following code:
IF ITAB1 IS INITIAL.
SELECT /BIC/PLANT /BIC/STYLE /BIC/1STDATE
FROM /BIC/DSOTAB
INTO CORRESPONDING FIELDS OF TABLE ITAB1.
This is working fine when run under simulation i.e ITAB1 is filled no problem.
I then need to do a calculation in the end routine.
1. First I have to find the record in the internal table using the key of PLANT AND STYLE from the RESULT_PACKAGE.
The code i am using now is as follows....
READ TABLE ITAB1 TRANSPORTING NO FIELDS WITH KEY
/BIC/PLANT = <result_fields>-/BIC/PLANT /BIC/STYLE =
<result_fields>-/BIC/STYLE.
Once this record has been read I then have to perform the following calculation using the following additional fields
<result_fields>-/BIC/DYS1ST is a NUMC field in the <result_fields> that will be be filled by the result of the calculation described below.
<result_fields>-CALDAY is a date field which is already populated in the <result-fields> which is used in the calculation below.
The Calculation required is a difference in days between two dates
DYS1ST = CALDAY - 1STRED.
The code i am using is
If sy-subrc = 0.
<result_fields>-/BIC/DYS1ST = <result_fields>-CALDAY -
i_t_1stred_dso-/BIC/1STRED.
So the whole section of code inside the LOOP at RESULT PACKAGE looks like this in the end routine
READ TABLE ITAB1 into i_wa_itab1 WITH KEY
/BIC/PLANT = <result_fields>-/BIC/PLANT /BIC/STYLE =
<result_fields>-/BIC/STYLE.
IF sy-subrc = 0.
<result_fields>-/BIC/DYS1ST = <result_fields>-CALDAY -
i_wa_itab1-/BIC/1STRED.
Once you do this changes, your code will work fine.
Regards,
Durgesh.

Insert statement in to internal table

I have an editable ALV LIST report with the check box to it. When the user checks the check box on the report and hits a push Button it should copy the row from the internal table and insert the row to the same internal table in the next line.
I had my code in this way,
 WHEN 'COPY'.
 LOOP AT t_output INTO wa_output.
 IF wa_output-chkbox = 'X'.
 wa_output-zactual = 0.
 wa_output-zqty = 0.
 INSERT wa_output INTO t_output INDEX sy-tabix.
 ENDIF.
 ENDLOOP.
However the problem was,
For e.g. let say I have only 3 rows in the internal table. So when the user selects the last, 3rd row and hits the push button the 3rd row copied and is inserted in the 3rd row. The user wanted the copied row in the next row, ie the 4th row.
SO I changed the above code as below and now it goes to an endless loop.
 WHEN 'COPY'.
 LOOP AT t_output INTO wa_output.
 IF wa_output-chkbox = 'X'.
 wa_output-zactual = 0.
 wa_output-zqty = 0.
 Sy-tabix = sy-tabix + 1.
 INSERT wa_output INTO t_output INDEX sy-tabix.
 ENDIF.
 ENDLOOP.
I dont want to use another internal table.
I hope I am clear.
Please suggest,
Ster.

Hi,
Change the code as follows.
data: lv_cnt type i.
 describe table t_output lines lv_cnt.
 LOOP AT t_output INTO wa_output where wa_output-chkbox = 'X'
 and wa_output-zactual = 0
 and wa_output-zqty = 0.
 lv_cnt = lv_cnt + 1.
 INSERT wa_output INTO t_output INDEX lv_cnt.
 ENDLOOP.
Regards
Sailaja.

Fields in internal table

Hi,
How to get number of fields in an internal table?
Please send a solution.
Thanks & Regards,
Vani.

Hi,
you can find the number of columns and their order using
the 'REUSE_ALV_FIELDCATALOG_MERGE'
call function 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
 I_PROGRAM_NAME = sy-repid
 I_INTERNAL_TABNAME = 'ITAB'
 I_INCLNAME = sy-repid
changing
 ct_fieldcat = IT_FIELDCAT
EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif
now describe your fieldcat . and find no of columns.
and their order also..
Regards
vijay

Fields in an internal table

How to find number of fields in an internal table ?
my requirement is i have 20 internal tables and the data is being uploaded into an application server. so how to find no of fields in a particular internal table

concatenate all the fields and move them to final internal table , call the function module "GET_COMPONENT_LIST" and pass the work area of the final internal table in the parameter fieldname
***For getting no of FIELDS in an internal table ********
CALL FUNCTION 'GET_COMPONENT_LIST'
EXPORTING
    PROGRAM          = syrepid
    FIELDNAME        = 't_payr'
TABLES
    COMPONENTS       = fieldlist.
describe table fieldlist lines pyr_no_fields.
********end of getting no of fields**********
TRANSFER wa_mat_out_head TO P_FNAME.
LOOP AT GT_PAYR.
MOVE: GT_payr-LIFNR TO T_payr-lifnr,
       GT_payr-ZBUKR TO T_payr-zbukr,
       GT_payr-LAUFD TO T_payr-LAUFD,
       GT_payr-CHECT TO T_payr-CHECT,
       GT_payr-RWBTR TO T_payr-RWBTR.
Concatenate T_payr-lifnr t_payr-zbukr T_payr-laufd T_payr-chect
            T_payr-rwbtr into wa_mat_out-rec SEPARATED by ',' .

Time out error 1.6 million internal table fields are computed using FMs

Hi , All ...
The Report running fine in server with less 300 record but ...production server which has 1.6 million record it gives error as time-out error and takes hell amount of time.
Please suggest ugently ..
I have tried few things
Internal table having 1.6 lacs ... fields to compute .. i have token in a batch
loop at i_cinfo into s_cinfo from 1 to 100000.
and so on ...also applied all the performace related .. like indexs, work areas , deleting adjacent duplicates , for all entries ..wherever applicable.
Please Suggest .
Report is as below
REPORT ZUSOTCBD_CREDIT_REPORT .
TABLES : KNA1, " General Data Customer Master
 KNB1, " Customer Master (Company Code)
 KNC1, " Customer master (transaction figures)
 KNKK, " Customer master credit management: Control area data
 T009, " Fiscal Year Variants P
 T009Y, " Shortened fiscal years in Asset Accounting P
 T001, " Co. Codes
 T001CM, " Permitted Credit Control Areas per Company Code
 RF42B, " Structure to hold credit data.
 RF035, " Structure to hold credit managment fields
 RF02L, " Structure to hold credit data.
 TRAS, " Interval for Days in Arrears P
 T000CM. " Data for DSO calculation.
Types
TYPES:
BEGIN OF type_final,
 string(50) TYPE c, " String Value for Title
END OF type_final.
data:wa_final TYPE type_final. " Work Area to hold Title Data
DATA: RASID TYPE RF035-RASID value 'R03N'. " For Days in interval
DATA: MONAT(2) TYPE N.
DATA: GJAHR TYPE KNC1-GJAHR.
DATA: LD_PERIODS(32) TYPE N
 VALUE '01020304050607080910111213141516'.
DATA sytabix type sy-tabix.
DATA LAND TYPE KNA1-LAND1 VALUE 'US'. " Country Key
DATA: LD_PERIOD TYPE BSID-MONAT, " Fiscal Year Variant
 LD_GJAHR TYPE KNC1-GJAHR,
 LD_COUNTER TYPE SY-TABIX.
Internal Tables
Internal table to hold Title Data *
DATA:
i_final TYPE STANDARD TABLE OF type_final.
**Internal Table Permitted Credit Control Areas per Company Code
DATA: BEGIN OF TCMTAB OCCURS 10.
 INCLUDE STRUCTURE T001CM.
DATA: END OF TCMTAB.
*Internal table to store Customer no.
DATA : BEGIN OF ICUST OCCURS 0,
 KUNNR TYPE KNA1-KUNNR, " Customer No.
 END OF ICUST.
DATA: BEGIN OF BUKTAB OCCURS 20,
 KKBER LIKE T001-KKBER, " Credit Control Area
 BUKRS LIKE T001-BUKRS, " Co. Code
 WAERS LIKE T001-WAERS, " Currency
 PERIV LIKE T001-PERIV, " Fiscal Year Variant
 BUTXT LIKE T001-BUTXT,
 END OF BUKTAB.
Internal Table to store Fiscal year Data .
DATA: BEGIN OF GJATAB OCCURS 5,
 PERIV LIKE T001-PERIV, " Fiscal Year Variant
 GJAHR LIKE KNC1-GJAHR, " Fiscal Year
 MONAT LIKE T009-ANZBP, "
 ANZBP LIKE T009-ANZBP, " Number of posting periods
 END OF GJATAB.
*Main Output internal table to be used to store credit history Information
DATA : BEGIN OF I_CINFO occurs 0,
 KUNNR TYPE KNB1-KUNNR, " Customer
 KNKLI TYPE KNKK-KNKLI, " Customer's account number with credit limit reference
 KKBER TYPE KNKK-KKBER, " Credit Control Area
 CTLPC TYPE KNKK-CTLPC, " Risk Category
 KLIMK TYPE KNKK-KLIMK, " Credit Limit
 SBGRP TYPE KNKK-SBGRP, " Credit representative group for credit management
 ERDAT TYPE KNKK-ERDAT, " Created On
 DTREV TYPE KNKK-DTREV, " Last Internal Review
 REVDB TYPE KNKK-REVDB, " Last External Review
 SALDO TYPE RF42B-SALDO, " Balance
 DSOIN TYPE RF02L-DSOIN, " DSO
 H06SA TYPE RF035-H06SA, " Highest Balance at the end of 6 Months
 H06JA TYPE RF035-H06JA, " Year highest Balance 6 Months
 H06MO TYPE RF035-H06MO, " Month OF hihest Balance 6 Months
 H12SA TYPE RF035-H12SA, " Highest Balance at the end of 12 Months
 H12JA TYPE RF035-H12JA, " Year highest Balance 12 Months
 H12MO TYPE RF035-H12MO, " Month OF hihest Balance 12 Months
 UMP2U TYPE RF42B-UMP2U, " Sales from the current Year
 UMP1U TYPE RF42B-UMP1U, " Sales from the Previous Year
 SFAEL TYPE RF035-SFAEL, " Total Past Due Open Item
 SFAE1 TYPE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 TYPE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 TYPE RF035-SFAE3, " Aging buckets 31-60
 SFAE4 TYPE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 TYPE RF035-SFAE5, " Aging buckets Over 90
 END Of I_CINFO.
DATA : BEGIN OF S_CINFO ,
 KUNNR TYPE KNB1-KUNNR, " Customer
 KNKLI TYPE KNKK-KNKLI, " Customer's account number with credit limit reference
 KKBER TYPE KNKK-KKBER, " Credit Control Area
 CTLPC TYPE KNKK-CTLPC, " Risk Category
 KLIMK TYPE KNKK-KLIMK, " Credit Limit
 SBGRP TYPE KNKK-SBGRP, " Credit representative group for credit management
 ERDAT TYPE KNKK-ERDAT, " Created On
 DTREV TYPE KNKK-DTREV, " Last Internal Review
 REVDB TYPE KNKK-REVDB, " Last External Review
 SALDO TYPE RF42B-SALDO, " Balance
 DSOIN TYPE RF02L-DSOIN, " DSO
 H06SA TYPE RF035-H06SA, " Highest Balance at the end of 6 Months
 H06JA TYPE RF035-H06JA, " Year highest Balance 6 Months
 H06MO TYPE RF035-H06MO, " Month OF hihest Balance 6 Months
 H12SA TYPE RF035-H12SA, " Highest Balance at the end of 12 Months
 H12JA TYPE RF035-H12JA, " Year highest Balance 12 Months
 H12MO TYPE RF035-H12MO, " Month OF hihest Balance 12 Months
 UMP2U TYPE RF42B-UMP2U, " Sales from the current Year
 UMP1U TYPE RF42B-UMP1U, " Sales from the Previous Year
 SFAEL TYPE RF035-SFAEL, " Total Past Due Open Item
 SFAE1 TYPE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 TYPE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 TYPE RF035-SFAE3, " Aging buckets 31-60
 SFAE4 TYPE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 TYPE RF035-SFAE5, " Aging buckets Over 90
 END Of s_cinfo.
*Internal table to hold month-wise balance.
DATA: BEGIN OF SALTAB OCCURS 12,
 LNUMM(2) TYPE N, " Month
 SALDO LIKE RF42B-SALDO, " Balance
 END OF SALTAB.
*Internal table used for computing the Balance fields
DATA: BEGIN OF SALDO,
 UML01 LIKE KNC1-UM01S,
 UML02 LIKE KNC1-UM01S,
 UML03 LIKE KNC1-UM01S,
 UML04 LIKE KNC1-UM01S,
 UML05 LIKE KNC1-UM01S,
 UML06 LIKE KNC1-UM01S,
 UML07 LIKE KNC1-UM01S,
 UML08 LIKE KNC1-UM01S,
 UML09 LIKE KNC1-UM01S,
 UML10 LIKE KNC1-UM01S,
 UML11 LIKE KNC1-UM01S,
 UML12 LIKE KNC1-UM01S,
 END OF SALDO.
Structure to hold Bal fields ------ -------
DATA: BEGIN OF SKNKK,
 KUNNR LIKE KNA1-KUNNR, " Customer Number 1: Debitor
 KONTO LIKE KNKK-KUNNR,
 SFAE1 LIKE RF035-SFAE1, " Aging buckets 0-15
 SFAE2 LIKE RF035-SFAE2, " Aging buckets 16-30
 SFAE3 LIKE RF035-SFAE3, " Aging buckets 30-60
 SFAE4 LIKE RF035-SFAE4, " Aging buckets 60-90
 SFAE5 LIKE RF035-SFAE5, " Aging buckets Over 90
 SFAEL LIKE RF035-SFAEL, " Total Due of Items
 UML01 LIKE KNC1-UM01S,
 UML02 LIKE KNC1-UM01S,
 UML03 LIKE KNC1-UM01S,
 UML04 LIKE KNC1-UM01S,
 UML05 LIKE KNC1-UM01S,
 UML06 LIKE KNC1-UM01S,
 UML07 LIKE KNC1-UM01S,
 UML08 LIKE KNC1-UM01S,
 UML09 LIKE KNC1-UM01S,
 UML10 LIKE KNC1-UM01S,
 UML11 LIKE KNC1-UM01S,
 UML12 LIKE KNC1-UM01S,
 UMP1U LIKE RF42B-UMP1U, " Sales from the Previous Year
 UMP2U LIKE RF42B-UMP2U, " Sales from the current Year
 SALDO LIKE RF42B-SALDO, " Balance
 END OF SKNKK.
DATA : BEGIN OF ICUST1 OCCURS 0,
 KUNNR TYPE KNA1-KUNNR, "For Customer Filter.
 END OF ICUST1.
**Internal table to hold fiscal varriants
DATA: BEGIN OF LT_PERIODS OCCURS 12,
 PERIOD LIKE BSID-MONAT,
 GJAHR LIKE KNC1-GJAHR,
 END OF LT_PERIODS.
**Constants
constants : BUKRS1 TYPE KNB1-BUKRS VALUE '1000',
 BUKRS2 TYPE KNB1-BUKRS VALUE '1031',
 Recs Type i value '200',
 B_count type i value '2'.
 INITIALIZATION
INITIALIZATION.
IF RASID IS INITIAL.
 SELECT * FROM TRAS.
 EXIT.
 ENDSELECT.
 IF SY-SUBRC = 0.
 RASID = TRAS-RASID.
 ENDIF.
ENDIF.
SELECTION-SCREEN
parameters : p_path type rlgrap-filename default 'C:\Documents and Settings\C890971\Desktop\Credit_history.XLS'.
Start of selection processing
START-OF-SELECTION.
**Get Customers for Co. Code 1000 & 1031.
PERFORM GET_CUST.
Get / Compute Credit Information data for Company Codes 1000 & 1031.
PERFORM GET_CREDIT_DATA.
End of selection processing
*END-OF-SELECTION.
Listing Credit History Data
PERFORM DOWNLOAD_CREDIT_DATA.
S U B R O U T I N E S
*& Form GET_CUST
 text
--> p1 text
<-- p2 text
FORM GET_CUST .
Get US only Customers.
Refresh icust.
Select kunnr from kna1 appending table icust
 where Land1 = land.
**Delete duplicate records
Delete Adjacent duplicates from icust comparing kunnr.
if icust[] is not initial.
 Limit the selection some more to Co. Code 1000 & 1031
As join will cost overhead as compared.
Select kunnr from knb1 into table icust1
 for all entries in icust
 where kunnr = icust-kunnr
 and bukrs = bukrs1
 OR bukrs = bukrs2.
**Delete duplicate records
Delete Adjacent duplicates from icust1 comparing kunnr.
 endif.
**Free memory.
Free icust.
Credit Control Area
select * from T001CM into table TCMTAB
 where bukrs = bukrs1 OR
 bukrs = bukrs2.
ENDFORM. " GET_CUST
*& Form GET_CREDIT_DATA
 text
--> p1 text
<-- p2 text
FORM GET_CREDIT_DATA .
DATA : L_TEXT(60) TYPE C ,
 Ltext1(50) type C value 'Computing Credit-History Data For',
 Ltext2(10) type C value 'Customers',
 L_PCT type i value '10',
 L_recs type i,
 l_batch_recs type i,
 l_s_rec type i value 1,
 l_recs1(7) type N.
***Fetch data from KNKK table
PERFORM GET_KNKK_DATA .
***Computing Crredit Fields
**Number of Customers For whom Deatils needed.
Describe table I_CINFO lines l_recs.
l_recs1 = l_recs.
Concatenate Ltext1 l_recs1 Ltext2 into l_text separated by ' '.
PERFORM GET_PGRESS_INDICATOR USING l_text l_pct.
***If records are more than 200000, should be processed batch-wise
If l_recs > recs.
 l_batch_recs = abs( l_recs / b_count ).
 Do b_count times.
 loop at i_cinfo INTO S_CINFO from l_S_REC to l_batch_recs.
**Remember the row
 sytabix = sy-tabix.
**Compute DSO
 PERFORM GET_DSO_FIELD .
Compute rest credit history data.
 PERFORM COMPUTE_SFIELDS.
 endloop.
 l_S_REC = l_S_REC + l_batch_recs.
 l_batch_recs = l_batch_recs + l_batch_recs.
 IF l_batch_recs ge l_recs.
 l_batch_recs = l_recs.
 eNDIF.
Commit up to here to release the DB locks.
 Commit work.
 enddo.
else.
 loop at i_cinfo INTO S_CINFO.
**Remember the row
 sytabix = sy-tabix.
**Compute DSO
 PERFORM GET_DSO_FIELD .
Compute rest credit history data.
 PERFORM COMPUTE_SFIELDS.
 endloop.
Endif.
ENDFORM. " GET_CREDIT_DATA
*& Form GET_KNKK_DATA
 text
 -->P_ICUST_KUNNR text
FORM GET_KNKK_DATA .
if icust1[] is not initial.
SELECT KUNNR KNKLI KKBER CTLPC KLIMK
 SBGRP ERDAT DTREV REVDB
 from KNKK into corresponding fields of table I_Cinfo
 for all entries in icust1
 where kunnr = icust1-kunnr.
Delete Adjacent duplicates from i_cinfo comparing kunnr.
endif.
**Free Memory for internal table icust1.
Free icust1.
ENDFORM. " GET_KNKK_DATA
**& Form GET_DSO_FIELD
 text
--> p1 text
<-- p2 text
FORM GET_DSO_FIELD .
***Determine DSO Parameter
PERFORM DSO_PARAMETER.
***Compute DSO
CALL FUNCTION 'CUSTOMER_DSO_CALCULATION'
 EXPORTING
 I_KKBER = s_cinfo-kkber
 I_KUNNR = s_cinfo-kunnr
 I_ANZBUPER = T000CM-DSOPP
 I_XCHILDS = T000CM-DSOCH
 I_ACTBALANCE = T000CM-DSOAB
 IMPORTING
 E_DSOIN = RF02L-DSOIN
 EXCEPTIONS
 ERROR_MESSAGE = 1.
ENDFORM. " GET_DSO_FIELD
*& Form DSO_PARAMETER
 text
--> p1 text
<-- p2 text
FORM DSO_PARAMETER.
IF T000CM-DSOPP IS INITIAL.
 SELECT SINGLE * FROM T000CM.
 IF SY-SUBRC EQ 0.
 IF T000CM-DSOPP IS INITIAL.
 T000CM-DSOPP = '003'.
 ENDIF.
 ELSE.
 T000CM-DSOPP = '003'.
 T000CM-DSOCH = ' '.
 T000CM-DSOAB = 'X'.
 ENDIF.
ENDIF.
ENDFORM. " DSO_PARAMETER
--> p1 text
<-- p2 text
FORM PERIODE_ERMITTELN_EXC USING
 P03_BUDAT LIKE SYST-DATUM
 P03_GJAHR LIKE KNC1-GJAHR
 P03_MONAT LIKE MONAT.
CALL FUNCTION 'FI_PERIOD_DETERMINE'
 EXPORTING
 I_BUDAT = P03_BUDAT
 I_PERIV = T001-PERIV
 I_BUKRS = T001-BUKRS
 I_GJAHR = P03_GJAHR
 I_MONAT = P03_MONAT
 IMPORTING
 E_GJAHR = P03_GJAHR
 E_MONAT = P03_MONAT
 EXCEPTIONS
 ERROR_MESSAGE = 1.
ENDFORM. "PERIODE_ERMITTELN_EXC
*& Form COMPUTE_SFIELDS
 text
--> p1 text
<-- p2 text
FORM COMPUTE_SFIELDS .
**Compute Balance
PERFORM GET_SFIELDS .
S_CINFO-DSOIN = RF02L-DSOIN.
S_CINFO-SALDO = RF035-SALDO.
S_CINFO-H06SA = RF035-H06SA.
S_CINFO-H06JA = RF035-H06JA.
S_CINFO-H06MO = RF035-H06MO.
S_CINFO-H12SA = RF035-H12SA.
S_CINFO-H12JA = RF035-H12JA.
S_CINFO-H12MO = RF035-H12MO.
S_CINFO-UMP2U = RF42B-UMP2U.
S_CINFO-UMP1U = RF42B-UMP1U.
S_CINFO-SFAEL = RF035-SFAEL.
S_CINFO-SFAE1 = RF035-SFAE1.
S_CINFO-SFAE2 = RF035-SFAE2.
S_CINFO-SFAE3 = RF035-SFAE3.
S_CINFO-SFAE4 = RF035-SFAE4.
S_CINFO-SFAE5 = RF035-SFAE5.
modify..
MODIFY I_CINFO FROM S_CINFO INDEX sytabix.
CLEAR: S_CINFO,RF035,RF02L, RF42B.
ENDFORM. " COMPUTE_SFIELDS
 text
 -->P_C_INFO_KUNNR text
FORM GET_CUST_BAL_INFO.
LOOP AT TCMTAB.
 CALL FUNCTION 'FI_COMPANY_CODE_DATA'
 EXPORTING
 I_BUKRS = TCMTAB-BUKRS
 IMPORTING
 E_T001 = T001
 EXCEPTIONS
 ERROR_MESSAGE = 1.
 IF SY-SUBRC = 0.
 MOVE-CORRESPONDING T001 TO BUKTAB.
 BUKTAB-KKBER = TCMTAB-KKBER.
 COLLECT BUKTAB.
 ENDIF.
ENDLOOP.
LOOP AT BUKTAB WHERE PERIV NE SPACE.
 GJATAB-PERIV = BUKTAB-PERIV.
 COLLECT GJATAB.
ENDLOOP.
CLEAR: MONAT.
LOOP AT GJATAB.
 T001-PERIV = GJATAB-PERIV.
 CLEAR: GJAHR, MONAT.
 PERFORM PERIODE_ERMITTELN_EXC USING SY-DATLO GJAHR MONAT.
 CHECK SY-SUBRC = 0.
 GJATAB-GJAHR = GJAHR.
 GJATAB-MONAT = MONAT.
 SELECT SINGLE * FROM T009 WHERE PERIV = GJATAB-PERIV.
 IF SY-SUBRC = 0.
 GJATAB-ANZBP = T009-ANZBP.
 ENDIF.
 MODIFY GJATAB.
ENDLOOP.
LOOP AT BUKTAB.
 CHECK NOT ( BUKTAB-PERIV IS INITIAL ).
 READ TABLE GJATAB WITH KEY BUKTAB-PERIV.
 CHECK SY-SUBRC = 0
 AND NOT ( GJATAB-GJAHR IS INITIAL ).
 CALL FUNCTION 'CUSTOMER_BALANCE'
 EXPORTING
 KUNNR = S_cinfo-kunnr
 BUKRS = BUKTAB-BUKRS
 GJAHR = GJATAB-GJAHR
 MONAT = GJATAB-MONAT
 PERIV = GJATAB-PERIV
 ANZBP = GJATAB-ANZBP
 XH6MON = 'X'
 XH12MON = 'X'
 IMPORTING
 UMP2U = RF42B-UMP2U
 VMP2U = RF42B-UMP1U
 SALDO = RF035-SALDO
 UML01 = SALDO-UML01
 UML02 = SALDO-UML02
 UML03 = SALDO-UML03
 UML04 = SALDO-UML04
 UML05 = SALDO-UML05
 UML06 = SALDO-UML06
 UML07 = SALDO-UML07
 UML08 = SALDO-UML08
 UML09 = SALDO-UML09
 UML10 = SALDO-UML10
 UML11 = SALDO-UML11
 UML12 = SALDO-UML12
 EXCEPTIONS
 NO_BALANCE = 4.
 IF SY-SUBRC = 0.
 SKNKK-UMP1U = SKNKK-UMP1U + RF42B-UMP1U.
 SKNKK-UMP2U = SKNKK-UMP2U + RF42B-UMP2U.
 SKNKK-SALDO = SKNKK-SALDO + RF035-SALDO.
 SKNKK-UML01 = SKNKK-UML01 + SALDO-UML01.
 SKNKK-UML02 = SKNKK-UML02 + SALDO-UML02.
 SKNKK-UML03 = SKNKK-UML03 + SALDO-UML03.
 SKNKK-UML04 = SKNKK-UML04 + SALDO-UML04.
 SKNKK-UML05 = SKNKK-UML05 + SALDO-UML05.
 SKNKK-UML06 = SKNKK-UML06 + SALDO-UML06.
 SKNKK-UML07 = SKNKK-UML07 + SALDO-UML07.
 SKNKK-UML08 = SKNKK-UML08 + SALDO-UML08.
 SKNKK-UML09 = SKNKK-UML09 + SALDO-UML09.
 SKNKK-UML10 = SKNKK-UML10 + SALDO-UML10.
 SKNKK-UML11 = SKNKK-UML11 + SALDO-UML11.
 SKNKK-UML12 = SKNKK-UML12 + SALDO-UML12.
 ENDIF.
ENDLOOP.
ENDFORM. "
*& Form GET_SFIELDS
 text
--> p1 text
<-- p2 text
FORM GET_SFIELDS .
sknkk-kunnr = S_CINFO-KUNNR.
**Clear target to store computed values
CLEAR: RF035.
**Compute Balance fields
PERFORM GET_CUST_BAL_INFO.
REFRESH: SALTAB.
SALTAB-LNUMM = '01'. SALTAB-SALDO = SKNKK-UML01. APPEND SALTAB.
SALTAB-LNUMM = '02'. SALTAB-SALDO = SKNKK-UML02. APPEND SALTAB.
SALTAB-LNUMM = '03'. SALTAB-SALDO = SKNKK-UML03. APPEND SALTAB.
SALTAB-LNUMM = '04'. SALTAB-SALDO = SKNKK-UML04. APPEND SALTAB.
SALTAB-LNUMM = '05'. SALTAB-SALDO = SKNKK-UML05. APPEND SALTAB.
SALTAB-LNUMM = '06'. SALTAB-SALDO = SKNKK-UML06. APPEND SALTAB.
SALTAB-LNUMM = '07'. SALTAB-SALDO = SKNKK-UML07. APPEND SALTAB.
SALTAB-LNUMM = '08'. SALTAB-SALDO = SKNKK-UML08. APPEND SALTAB.
SALTAB-LNUMM = '09'. SALTAB-SALDO = SKNKK-UML09. APPEND SALTAB.
SALTAB-LNUMM = '10'. SALTAB-SALDO = SKNKK-UML10. APPEND SALTAB.
SALTAB-LNUMM = '11'. SALTAB-SALDO = SKNKK-UML11. APPEND SALTAB.
SALTAB-LNUMM = '12'. SALTAB-SALDO = SKNKK-UML12. APPEND SALTAB.
READ TABLE SALTAB INDEX 1.
RF035-H06SA = SALTAB-SALDO.
RF035-H06MO = SALTAB-LNUMM.
RF035-H12SA = SALTAB-SALDO.
RF035-H12MO = SALTAB-LNUMM.
------ SALTAB ---------------------------------------------
LOOP AT SALTAB.
 IF SALTAB-SALDO > RF035-H06SA
 AND SY-TABIX < 7.
 RF035-H06SA = SALTAB-SALDO.
 RF035-H06MO = SALTAB-LNUMM.
 ENDIF.
 IF SALTAB-SALDO > RF035-H12SA
 AND SY-TABIX < 13.
 RF035-H12SA = SALTAB-SALDO.
 RF035-H12MO = SALTAB-LNUMM.
 ENDIF.
ENDLOOP.
------ Period--------------------
REFRESH LT_PERIODS.
CLEAR LD_COUNTER.
READ TABLE BUKTAB INDEX 1.
IF SY-SUBRC = 0.
 READ TABLE GJATAB WITH KEY BUKTAB-PERIV.
 DO GJATAB-MONAT TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 LT_PERIODS-GJAHR = GJATAB-GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 LD_COUNTER = LD_COUNTER + 1.
 APPEND LT_PERIODS.
 ENDDO.
 IF LD_COUNTER LT 12.
 LD_GJAHR = GJATAB-GJAHR - 1.
 CLEAR T009Y.
 SELECT SINGLE * FROM T009Y WHERE PERIV = GJATAB-PERIV
 AND GJAHR = LD_GJAHR.
 DO GJATAB-ANZBP TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 IF T009Y-ANZBP > 0.
 CHECK SY-INDEX <= T009Y-ANZBP.
 ENDIF.
 LD_COUNTER = LD_COUNTER + 1.
 LT_PERIODS-GJAHR = LD_GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 APPEND LT_PERIODS.
 ENDDO.
 ENDIF.
 IF LD_COUNTER LT 12.
 LD_GJAHR = LD_GJAHR - 1.
 DO GJATAB-ANZBP TIMES
 VARYING LD_PERIOD FROM LD_PERIODS(2) NEXT LD_PERIODS+2(2)
 RANGE LD_PERIODS.
 LD_COUNTER = LD_COUNTER + 1.
 LT_PERIODS-GJAHR = LD_GJAHR.
 LT_PERIODS-PERIOD = LD_PERIOD.
 APPEND LT_PERIODS.
 ENDDO.
 ENDIF.
 SORT LT_PERIODS BY GJAHR ASCENDING PERIOD ASCENDING.
 LD_COUNTER = LD_COUNTER - 12.
 DO LD_COUNTER TIMES.
 DELETE LT_PERIODS INDEX 1.
 ENDDO.
 SORT LT_PERIODS BY GJAHR DESCENDING PERIOD DESCENDING.
 READ TABLE LT_PERIODS INDEX RF035-H06MO.
 RF035-H06MO = LT_PERIODS-PERIOD.
 RF035-H06JA = LT_PERIODS-GJAHR.
 READ TABLE LT_PERIODS INDEX RF035-H12MO.
 RF035-H12MO = LT_PERIODS-PERIOD.
 RF035-H12JA = LT_PERIODS-GJAHR.
ENDIF.
**Compute Due Dates fields
PERFORM GET_AGING_BUCKETS .
RF035-SFAE1 = SKNKK-SFAE1.
RF035-SFAE2 = SKNKK-SFAE2.
RF035-SFAE3 = SKNKK-SFAE3.
RF035-SFAE4 = SKNKK-SFAE4 .
RF035-SFAE5 = SKNKK-SFAE5.
ENDLOOP.
ENDFORM. " GET_BALANCE_SFIELDS
*& Form GET_AGING_BUCKETS
 text
--> p1 text
<-- p2 text
FORM GET_AGING_BUCKETS .
DATA: BEGIN OF LT_BUKRS OCCURS 0,
 BUKRS LIKE T001-BUKRS,
 END OF LT_BUKRS.
DATA: BEGIN OF LT_BUKTAB OCCURS 0,
 BUKRS LIKE T001-BUKRS,
 WAERS LIKE T001-WAERS,
 KKBER LIKE T014-KKBER,
 END OF LT_BUKTAB.
DATA: LD_LINES LIKE SY-TABIX.
*...performance optimization: for more than one company codes check....*
*...if balances exist and avoid selection of open items, if they don't.*
*...exist..............................................................*
REFRESH LT_BUKRS.
REFRESH LT_BUKTAB.
DESCRIBE TABLE BUKTAB LINES LD_LINES.
IF LD_LINES GT 1.
 SELECT DISTINCT BUKRS APPENDING CORRESPONDING FIELDS
 OF TABLE LT_BUKRS
 FROM KNC1 FOR ALL ENTRIES IN BUKTAB
 WHERE BUKRS = BUKTAB-BUKRS AND
 KUNNR = Sknkk-KUNNR.
 SELECT DISTINCT BUKRS APPENDING CORRESPONDING FIELDS
 OF TABLE LT_BUKRS
 FROM KNC3 FOR ALL ENTRIES IN BUKTAB
 WHERE BUKRS = BUKTAB-BUKRS AND
 KUNNR = Sknkk-KUNNR.
 SORT LT_BUKRS.
 DELETE ADJACENT DUPLICATES FROM LT_BUKRS.
 LOOP AT LT_BUKRS.
 LOOP AT BUKTAB WHERE BUKRS = LT_BUKRS-BUKRS.
 MOVE-CORRESPONDING BUKTAB TO LT_BUKTAB.
 APPEND LT_BUKTAB.
 ENDLOOP.
 ENDLOOP.
ELSE.
 READ TABLE BUKTAB INDEX 1.
 MOVE-CORRESPONDING BUKTAB TO LT_BUKTAB.
 APPEND LT_BUKTAB.
ENDIF.
*...process company codes for customer given by interface..........*
LOOP AT LT_BUKTAB WHERE KKBER = s_cinfo-KKBER.
 CALL FUNCTION 'CUSTOMER_DUE_DATE_ANALYSIS'
 EXPORTING BUKRS = LT_BUKTAB-BUKRS
 KKBER = ' '
 KKBER = s_cinfo-KKBER
 KUNNR = Sknkk-KUNNR
 RASID = RASID
 IMPORTING SFAE1 = RF035-SFAE1
 SFAE2 = RF035-SFAE2
 SFAE3 = RF035-SFAE3
 SFAE4 = RF035-SFAE4
 SFAE5 = RF035-SFAE5
 SFAEL = RF035-SFAEL
 EXCEPTIONS NO_OPEN_ITEMS = 4.
 IF SY-SUBRC = 0.
*-- RF035 -
 SKNKK-SFAE1 = SKNKK-SFAE1 + RF035-SFAE1.
 SKNKK-SFAE2 = SKNKK-SFAE2 + RF035-SFAE2.
 SKNKK-SFAE3 = SKNKK-SFAE3 + RF035-SFAE3.
 SKNKK-SFAE4 = SKNKK-SFAE4 + RF035-SFAE4.
 SKNKK-SFAE5 = SKNKK-SFAE5 + RF035-SFAE5.
 SKNKK-SFAE5 = SKNKK-SFAE5 + RF035-SFAE5.
 SKNKK-SFAEL = SKNKK-SFAEL + RF035-SFAEL.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_AGING_BUCKETS
*& Form header
This Subroutine gets data for displaying title *
There are no interface parameters to be passed to this subroutine. *
FORM header .
wa_final-string = text-000. APPEND wa_final TO i_final.
wa_final-string = text-001. APPEND wa_final TO i_final.
wa_final-string = text-002. APPEND wa_final TO i_final.
wa_final-string = text-003. APPEND wa_final TO i_final.
wa_final-string = text-004. APPEND wa_final TO i_final.
wa_final-string = text-005. APPEND wa_final TO i_final.
wa_final-string = text-006. APPEND wa_final TO i_final.
wa_final-string = text-007. APPEND wa_final TO i_final.
wa_final-string = text-008. APPEND wa_final TO i_final.
wa_final-string = text-009. APPEND wa_final TO i_final.
wa_final-string = text-010. APPEND wa_final TO i_final.
wa_final-string = text-011. APPEND wa_final TO i_final.
wa_final-string = text-012. APPEND wa_final TO i_final.
wa_final-string = text-013. APPEND wa_final TO i_final.
wa_final-string = text-014. APPEND wa_final TO i_final.
wa_final-string = text-015. APPEND wa_final TO i_final.
wa_final-string = text-016. APPEND wa_final TO i_final.
wa_final-string = text-017. APPEND wa_final TO i_final.
wa_final-string = text-018. APPEND wa_final TO i_final.
wa_final-string = text-019. APPEND wa_final TO i_final.
wa_final-string = text-020. APPEND wa_final TO i_final.
wa_final-string = text-021. APPEND wa_final TO i_final.
wa_final-string = text-022. APPEND wa_final TO i_final.
wa_final-string = text-023. APPEND wa_final TO i_final.
wa_final-string = text-024. APPEND wa_final TO i_final.
ENDFORM. " header
*& Form DOWNLOADCREDITDATA
 text
 -->P_P_PATH text
FORM DOWNLOADCREDITDATA USING P_PATH.
DATA:
 lw_file2 TYPE string . " File Path
lw_file2 = p_PATH.
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
BIN_FILESIZE = BIN_FILESIZE
 filename = lw_file2
 filetype = 'DBF'
APPEND = ' '
 write_field_separator = ' '
HEADER = '00'
TRUNC_TRAILING_BLANKS = 'X'
WRITE_LF = 'X'
 COL_SELECT = 'X'
COL_SELECT_MASK = ' '
DAT_MODE = 'X'
CONFIRM_OVERWRITE = ' '
NO_AUTH_CHECK = ' '
CODEPAGE = ' '
IGNORE_CERR = ABAP_TRUE
REPLACEMENT = '#'
WRITE_BOM = ' '
TRUNC_TRAILING_BLANKS_EOL = 'X'
WK1_N_FORMAT = '0'
WK1_N_SIZE = ' '
WK1_T_FORMAT = ' '
WK1_T_SIZE = ' '
IMPORTING
FILELENGTH = FILELENGTH
 TABLES
 data_tab = I_CINFO
 fieldnames = i_final
 EXCEPTIONS
 file_write_error = 1
 no_batch = 2
 gui_refuse_filetransfer = 3
 invalid_type = 4
 no_authority = 5
 unknown_error = 6
 header_not_allowed = 7
 separator_not_allowed = 8
 filesize_not_allowed = 9
 header_too_long = 10
 dp_error_create = 11
 dp_error_send = 12
 dp_error_write = 13
 unknown_dp_error = 14
 access_denied = 15
 dp_out_of_memory = 16
 disk_full = 17
 dp_timeout = 18
 file_not_found = 19
 dataprovider_exception = 20
 control_flush_error = 21
IF sy-subrc <> 0.
Messege
ENDIF. " IF sy-subrc EQ 0
ENDFORM. " DOWNLOADCREDITDATA
*& Form DOWNLOAD_CREDIT_DATA
 text
--> p1 text
<-- p2 text
FORM DOWNLOAD_CREDIT_DATA .
PERFORM HEADER.
PERFORM DOWNLOADCREDITDATA USING P_PATH.
ENDFORM. " DOWNLOAD_CREDIT_DATA
*& Form GET_PGRESS_INDICATOR
 text
 -->P_L_TEXT text
 -->P_L_PCT text
FORM GET_PGRESS_INDICATOR USING L_TEXT
 L_PCT.
CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'
 EXPORTING
 PERCENTAGE = l_pct
 TEXT = l_TEXT.
ENDFORM. " GET_PGRESS_INDICATOR

If you are just Downloading to a Flat file then why dont you have logic in place for the program to dump the data read into the file to that point depending on any criteria like accounts or customer then clear the internal table and run it in the back ground.
try to use cursor to read the records from the table which will make it a bit more efficient than plain select stement.

Short dump-internal table size issue

Hi,
I get the following message in the short dump analysis for a report.
No storage space available for extending table "IT_920".
You attempted to extend an internal table, but the required space was not available.
Error Analysis:
The internal table "IT_920" could not be enlarged further.
To extend the internal table, 9696 bytes of storage space was
needed, but none was available. At this point, the table "IT_920" has
1008240 entries.
Its an old report and I saw the internal table declaration using the "OCCURS" clause in the internal table declaration.
begin of itab occurs 100.
end of itab.
I tried the option of changing to "OCCURS 0", still issue persists.
Any help would be highly appretiated
CM

Hello CMV,
This is basic problem with SAP internal tables. For every internal table memory is alocated ( Max..256K)...once you cross the memory size/limit of the internal table it resuls in short dump.
Only way to overcome this problem is handle limited number of records at a time..
Please refer following sample code which will help you to avoid short dump while processing large number of records....
SORT TAB_RESULT.
DESCRIBE TABLE TAB_RESULT LINES W_RECORDS.
W_LOW = 1.
W_UP = 1000.
*Spliting the records from tab_result1 by pakage of 1000 at a time
*to avoid short dump in case of more records
WHILE W_LOW <= W_RECORDS.
 R_PKUNWE-SIGN = 'I'.
 R_PKUNWE-OPTION = 'EQ'.
 R_WERKS-SIGN = 'I'.
 R_WERKS-OPTION = 'EQ'.
 LOOP AT TAB_RESULT FROM W_LOW TO W_UP.
 MOVE TAB_RESULT-PKUNWE TO R_PKUNWE-LOW.
 MOVE TAB_RESULT-WERKS TO R_WERKS-LOW.
 APPEND R_PKUNWE.
 APPEND R_WERKS.
 ENDLOOP.
*fetch sold to party
 SELECT KUNNR NAME1
 FROM KNA1
 APPENDING CORRESPONDING FIELDS OF TABLE TAB_KNA1
 WHERE KUNNR IN R_PKUNWE.
*fetch plant
SELECT WERKS NAME1
 FROM T001W
 APPENDING CORRESPONDING FIELDS OF TABLE TAB_T001W
 WHERE WERKS IN R_WERKS.
 REFRESH: R_PKUNWE,
 R_WERKS.
 W_LOW = W_LOW + 1000.
 W_UP = W_UP + 1000.
ENDWHILE.
Hope this will help you to solve problem.
Cheers,
Nilesh

How to Send Internal table to SAP Spool using Function Modules or Methods?

Hi Experts,
How to Send Internal table to SAP Spool using Function Modules or Methods?
Thanks ,
Kiran

This is my code.
I still get the no ABAP list data for the spool, even tho I can see it sp01?
REPORT Z_MAIL_PAYSLIP.
* Declaration Part *
tables: PERNR, PV000, T549Q, V_T514D, HRPY_RGDIR.
infotypes: 0000, 0001, 0105, 0655.
data: begin of ITAB occurs 0,
MTEXT(25) type C,
PERNR like PA0001-PERNR,
ABKRS like PA0001-ABKRS,
ENAME like PA0001-ENAME,
USRID_LONG like PA0105-USRID_LONG,
end of ITAB.
data: W_BEGDA like HRPY_RGDIR-FPBEG,
 W_ENDDA like HRPY_RGDIR-FPEND.
data: RETURN like BAPIRETURN1 occurs 0 with header line.
data: P_INFO like PC407,
 P_FORM like PC408 occurs 0 with header line.
data: P_IDX type I,
 MY_MONTH type T549Q-PABRP,
 STR_MY_MONTH(2) type C,
 MY_YEAR type T549Q-PABRJ,
 STR_MY_YEAR(4) type C,
 CRLF(2) type x value '0D0A'.
data: W_CMONTH(10) type C.
data: TAB_LINES type I,
 ATT_TYPE like SOODK-OBJTP.
data: begin of P_INDEX occurs 0,
 INDEX type I,
end of P_INDEX.
constants: begin of F__LTYPE, "type of line
 CMD like PC408-LTYPE value '/:', "command
 TXT like PC408-LTYPE value 's', "textline
end of F__LTYPE.
constants: begin of F__CMD, "commands
NEWPAGE like PC408-LINDA value '',
end of F__CMD.
data: P_LIST like ABAPLIST occurs 1 with header line.
*data: OBJBIN like SOLISTI1 occurs 10 with header line,
data: OBJBIN like LVC_S_1022 occurs 10 with header line,
 DOCDATA like SODOCCHGI1,
 OBJTXT like SOLISTI1 occurs 10 with header line,
 OBJPACK like SOPCKLSTI1 occurs 1 with header line,
 RECLIST like SOMLRECI1 occurs 1 with header line,
 OBJHEAD like SOLISTI1 occurs 1 with header line,
 it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 gd_buffer type string,
 l_no_of_bytes TYPE i,
 l_pdf_spoolid LIKE tsp01-rqident,
 l_jobname LIKE tbtcjob-jobname.
data: file_length type int4,
 spool_id type rspoid,
 line_cnt type i.
*-------------------------------------------------------------------* * INITIALIZATION *
OBJBIN = ' | '.
append OBJBIN.
OBJPACK-HEAD_START = 1.
data: S_ABKRS like PV000-ABKRS.
data: S_PABRP like T549Q-PABRP.
data: S_PABRJ like T549Q-PABRJ.
* SELECTION SCREEN *
selection-screen begin of block BL1.
parameters: PAY_VAR like BAPI7004-PAYSLIP_VARIANT default 'ESS_PAYSLIPS' obligatory.
selection-screen end of block BL1.
START-OF-SELECTION.
s_ABKRS = PNPXABKR.
S_PABRP = PNPPABRP.
s_pabrj = PNPPABRJ.
w_begda = PN-BEGDA.
w_endda = PN-ENDDA.
get pernr.
* "Check active employees
rp-provide-from-last p0000 space pn-begda pn-endda.
CHECK P0000-STAT2 IN PNPSTAT2.
* "Check Payslip Mail flag
rp-provide-from-last p0655 space pn-begda pn-endda.
CHECK P0655-ESSONLY = 'X'.
rp-provide-from-last p0001 space pn-begda pn-endda.
* "Find email address
RP-PROVIDE-FROM-LAST P0105 '0030' PN-BEGDA PN-ENDDA.
if p0105-usrid_LONG ne ''.
 ITAB-PERNR = P0001-PERNR.
 ITAB-ABKRS = P0001-ABKRS.
 ITAB-ENAME = P0001-ENAME.
 ITAB-USRID_LONG = P0105-USRID_LONG.
 append itab.
 clear itab.
endif.
"SY-UCOMM ='ONLI'
END-OF-SELECTION.
*------------------------------------------------------------------* start-of-selection.
write : / 'Payroll Area : ', S_ABKRS.
write : / 'Payroll Period/Year : ',STR_MY_MONTH,'-',STR_MY_YEAR. write : / 'System Date : ', SY-DATUM.
write : / 'System Time : ', SY-UZEIT.
write : / 'User Name : ', SY-UNAME.
write : / SY-ULINE.
sort ITAB by PERNR.
loop at ITAB.
 clear : P_INFO, P_FORM, P_INDEX, P_LIST, OBJBIN, DOCDATA, OBJTXT, OBJPACK, RECLIST, TAB_LINES.
 refresh : P_FORM, P_INDEX, P_LIST, OBJBIN, OBJTXT, OBJPACK, RECLIST.
* Retrieve Payroll results sequence number for this run
 select single * from HRPY_RGDIR where PERNR eq ITAB-PERNR
 and FPBEG ge W_BEGDA
 and FPEND le W_ENDDA
 and SRTZA eq 'A'.
* Produce payslip for those payroll results
 if SY-SUBRC = 0.
 call function 'GET_PAYSLIP'
 EXPORTING
 EMPLOYEE_NUMBER = ITAB-PERNR
 SEQUENCE_NUMBER = HRPY_RGDIR-SEQNR
 PAYSLIP_VARIANT = PAY_VAR
 IMPORTING
 RETURN = RETURN
 P_INFO = P_INFO
 TABLES
 P_FORM = P_FORM.
 check RETURN is initial.
* remove linetype from generated payslip
 loop at p_form.
 objbin = p_form-linda.
 append objbin.
 line_cnt = line_cnt + 1.
 endloop.
 file_length = line_cnt * 1022.
* create spool file of paylsip
 CALL FUNCTION 'SLVC_TABLE_PS_TO_SPOOL'
 EXPORTING
 i_file_length = file_length
 IMPORTING
 e_spoolid = spool_id
 TABLES
 it_textdata = objbin.
 IF sy-subrc EQ 0.
 WRITE spool_id.
 ENDIF.
 DESCRIBE table objbin.
 DATA PDF LIKE TLINE OCCURS 100 WITH HEADER LINE.
 CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 SRC_SPOOLID = spool_id
 NO_DIALOG = ' '
 DST_DEVICE = 'MAIL'
* PDF_DESTINATION =
* IMPORTING
* PDF_BYTECOUNT = l_no_of_bytes
* PDF_SPOOLID = l_pdf_spoolid
* LIST_PAGECOUNT =
* BTC_JOBNAME =
* BTC_JOBCOUNT =
 TABLES
 PDF = pdf
 EXCEPTIONS
 ERR_NO_ABAP_SPOOLJOB = 1
 ERR_NO_SPOOLJOB = 2
 ERR_NO_PERMISSION = 3
 ERR_CONV_NOT_POSSIBLE = 4
 ERR_BAD_DESTDEVICE = 5
 USER_CANCELLED = 6
 ERR_SPOOLERROR = 7
 ERR_TEMSEERROR = 8
 ERR_BTCJOB_OPEN_FAILED = 9
 ERR_BTCJOB_SUBMIT_FAILED = 10
 ERR_BTCJOB_CLOSE_FAILED = 11
 OTHERS = 12
 IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
*Download PDF file C Drive
CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 filename = 'C:\itab_to_pdf.pdf'
 filetype = 'BIN'
 TABLES
 data_tab = pdf.
* Transfer the 132-long strings to 255-long strings
* LOOP AT pdf.
* TRANSLATE pdf USING ' ~'.
* CONCATENATE gd_buffer pdf INTO gd_buffer.
* ENDLOOP.
* TRANSLATE gd_buffer USING '~ '.
* DO.
* it_mess_att = gd_buffer.
* APPEND it_mess_att.
* SHIFT gd_buffer LEFT BY 255 PLACES.
* IF gd_buffer IS INITIAL.
* EXIT.
* ENDIF.
* ENDDO.
 OBJHEAD = 'Objhead'.
 append OBJHEAD.
* preparing email subject
 concatenate W_ENDDA(6)
 ' Payslip-'
 ITAB-ENAME+0(28)
 ITAB-PERNR+4(4) ')'
 into DOCDATA-OBJ_DESCR.
 DOCDATA-OBJ_NAME = 'Pay Slip'.
 DOCDATA-OBJ_LANGU = SY-LANGU.
 OBJTXT = 'Pay Slip.'.
 append OBJTXT.
*prepare email lines
 OBJTXT = DOCDATA-OBJ_DESCR.
 append OBJTXT.
 OBJTXT = 'Please find enclosed your current payslip.'.
 append OBJTXT.
* Write Attachment(Main)
* 3 has been fixed because OBJTXT has fix three lines
 read table OBJTXT index 3.
* DOCDATA-DOC_SIZE = ( 3 - 1 ) * 255 + strlen( OBJTXT ).
 clear OBJPACK-TRANSF_BIN.
 OBJPACK-HEAD_START = 1.
 OBJPACK-HEAD_NUM = 0.
 OBJPACK-BODY_START = 1.
 OBJPACK-BODY_NUM = 3.
 OBJPACK-DOC_TYPE = 'RAW'.
 append OBJPACK.
* Create Message Attachment
 ATT_TYPE = 'PDF'.
 describe table OBJBIN lines TAB_LINES.
 read table OBJBIN index TAB_LINES.
* OBJPACK-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + strlen( OBJBIN ).
 OBJPACK-TRANSF_BIN = 'X'.
 OBJPACK-HEAD_START = 1.
 OBJPACK-HEAD_NUM = 0.
 OBJPACK-BODY_START = 1.
 OBJPACK-BODY_NUM = TAB_LINES.
 OBJPACK-DOC_TYPE = ATT_TYPE.
 OBJPACK-OBJ_NAME = 'ATTACHMENT'.
 OBJPACK-OBJ_DESCR = 'Payslip'.
 append OBJPACK.
* Create receiver list refresh RECLIST.
 clear RECLIST.
 RECLIST-RECEIVER = itab-USRID_long.
 translate RECLIST-RECEIVER to lower case.
 RECLIST-REC_TYPE = 'U'.
 append RECLIST.
* Send the document
*SO_NEW_DOCUMENT_ATT_SEND_API1
 call function 'SO_DOCUMENT_SEND_API1'
 exporting
 DOCUMENT_DATA = DOCDATA
 PUT_IN_OUTBOX = 'X'
 COMMIT_WORK = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
 tables
 PACKING_LIST = OBJPACK
 OBJECT_HEADER = OBJHEAD
 CONTENTS_BIN = pdf
 CONTENTS_TXT = OBJTXT
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
 RECEIVERS = RECLIST
 exceptions
 TOO_MANY_RECEIVERS = 1
 DOCUMENT_NOT_SENT = 2
 DOCUMENT_TYPE_NOT_EXIST = 3
 OPERATION_NO_AUTHORIZATION = 4
 PARAMETER_ERROR = 5
 X_ERROR = 6
 ENQUEUE_ERROR = 7
 others = 8.
 if SY-SUBRC NE 0.
 ITAB-MTEXT = 'Message Not Sent to : '.
 else.
 ITAB-MTEXT = 'Message Sent to : '.
 endif.
* else.
* ITAB-MTEXT = 'Message Not Sent to : '.
* endif.
 else.
 "SY-SUBRC Not = 0
 ITAB-MTEXT = 'Payroll data not found : '.
 endif.
 "end of SY-SUBRC = 0.
 modify ITAB.
endloop. "end loop at ITAB
sort ITAB by MTEXT PERNR.
loop at ITAB.
 at new MTEXT.
 uline.
 write : / ITAB-MTEXT color 4 intensified on.
 write : / 'Emp. Code' color 2 intensified on,
 12 'Emp. Name' color 2 intensified on,
 54 'Email ID' color 2 intensified on.
 endat.
 write : / ITAB-PERNR, 12 ITAB-ENAME, 54 ITAB-USRID_LONG.
endloop.

Download the KTOPL field data and GLT0 table data into one Internal table

Hi,
I have downloaded GLT0 table fields data to PC file . But i need to download KTOPL(Chart Of Accounts) data also. in GLT0 table there is no KTOPL field.
But in SKA1 table have KTOPL field. Then what is the issue is GLT0 data & KTOPL field data needs to download into one Internal Table.
anybody could you please solve this problem. immediately need to solve this.
Below is the code.
REPORT ZFXXEABL_1 NO STANDARD PAGE HEADING
 LINE-SIZE 200.
Tables Declaration
TABLES : GLT0.
Data Declaration
DATA : FP(8) TYPE C,
 YEAR LIKE GLT0-RYEAR,
 PERIOD(3) TYPE C,
 DBALANCE LIKE VBAP-NETWR VALUE 0 ,
 CBALANCE LIKE VBAP-NETWR VALUE 0.
*Internal table for for final data..
DATA : BEGIN OF REC1 OCCURS 0,
 BAL LIKE GLT0-TSLVT value 0,
 COAREA LIKE GLT0-RBUSA,
 CA(4) TYPE C,
 KTOPL LIKE ska1-ktopl,
 CCODE LIKE GLT0-BUKRS,
 CREDIT LIKE VBAP-NETWR,
 CURRENCY LIKE GLT0-RTCUR,
 CURTYPE(2) TYPE N,
 DEBIT LIKE VBAP-NETWR,
 YEAR(8) TYPE C,
 FY(2) TYPE C,
 ACCOUNT LIKE GLT0-RACCT,
 VER LIKE GLT0-RVERS,
 VTYPE(2) TYPE N,
 CLNT LIKE SY-MANDT,
 S_SYS(3) TYPE C,
 INDICATOR LIKE GLT0-DRCRK,
 END OF REC1.
DATA : C(2) TYPE N,
 D(2) TYPE N.
DATA REC1_H LIKE REC1.
Variable declarations
DATA :
 W_FILES(4) TYPE N,
 W_DEBIT LIKE GLT0-TSLVT,
 W_CREDIT LIKE GLT0-TSLVT,
 W_PCFILE LIKE RLGRAP-FILENAME ,
 W_UNIXFILE LIKE RLGRAP-FILENAME,
 W_PCFILE1 LIKE RLGRAP-FILENAME,
 W_UNIXFIL1 LIKE RLGRAP-FILENAME,
 W_EXT(3) TYPE C,
 W_UEXT(3) TYPE C,
 W_PATH LIKE RLGRAP-FILENAME,
 W_UPATH LIKE RLGRAP-FILENAME,
 W_FIRST(1) TYPE C VALUE 'Y',
 W_CFIRST(1) TYPE C VALUE 'Y',
 W_PCFIL LIKE RLGRAP-FILENAME.
DATA: "REC LIKE GLT0 OCCURS 0 WITH HEADER LINE,
 T_TEMP LIKE GLT0 OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF REC3 OCCURS 0.
 INCLUDE STRUCTURE GLT0.
DATA: KTOPL LIKE SKA1-KTOPL,
 END OF REC3.
DATA: BEGIN OF T_KTOPL OCCURS 0,
 KTOPL LIKE SKA1-KTOPL,
 SAKNR LIKE SKA1-SAKNR,
 END OF T_KTOPL.
Download data.
DATA: BEGIN OF I_REC2 OCCURS 0,
 BAL(17), " like GLT0-TSLVT value 0,
 COAREA(4), " like glt0-rbusa,
 CA(4), " chart of accounts
 CCODE(4), " like glt0-bukrs,
 CREDIT(17), " like vbap-netwr,
 CURRENCY(5), " like glt0-rtcur,
 CURTYPE(2), " type n,
 DEBIT(17), " like vbap-netwr,
 YEAR(8), " type c,
 FY(2), " type c, fiscal yr variant
 ACCOUNT(10), " like glt0-racct,
 VER(3), " like glt0-rvers,
 VTYPE(3), " type n,
 CLNT(3), "like sy-mandt,
 S_SYS(3), "like sy-sysid,
 INDICATOR(1), " like glt0-drcrk,
 END OF I_REC2.
Selection screen. *
SELECTION-SCREEN BEGIN OF BLOCK BL1 WITH FRAME TITLE TEXT-BL1.
SELECT-OPTIONS : COMPCODE FOR GLT0-BUKRS,
 GLACC FOR GLT0-RACCT,
 FISYEAR FOR GLT0-RYEAR,
 no intervals no-extension, "- BG6661-070212
 FISCPER FOR GLT0-RPMAX,
 busarea for glt0-rbusa,
 CURRENCY FOR GLT0-RTCUR.
SELECTION-SCREEN END OF BLOCK BL1.
SELECTION-SCREEN BEGIN OF BLOCK BL2 WITH FRAME TITLE TEXT-BL2.
PARAMETERS:
P_UNIX AS CHECKBOX, "Check box for Unix Option
P_UNFIL LIKE RLGRAP-FILENAME, " Unix file Dnload file name
 default '/var/opt/arch/extract/GLT0.ASC', "- BG6661-070212
P_PCFILE AS CHECKBOX, "Check box for Local PC download.
P_PCFIL LIKE RLGRAP-FILENAME " PC file Dnload file name
 default 'C:\GLT0.ASC'. "- BG6661-070212
 DEFAULT 'C:\glt0_gl_balance_all.asc'. "+ BG6661-070212
SELECTION-SCREEN END OF BLOCK BL2.
*eject
Initialization. *
INITIALIZATION.
Try to default download filename
p_pcfil = c_pcfile.
p_unfil = c_unixfile.
if sy-sysid eq c_n01.
 p_unfil = c_unixfile.
endif.
if sy-sysid eq c_g21.
 p_unfil = c_g21_unixfile.
endif.
if sy-sysid eq c_g9d.
 p_unfil = c_g9d_unixfile.
endif.
Default for download filename
*{ Begin of BG6661-070212
CONCATENATE C_UNIXFILE
 SY-SYSID C_FSLASH C_CHRON C_FILENAME INTO P_UNFIL.
*} End of BG6661-070212
AT SELECTION-SCREEN OUTPUT.
loop at screen.
 if screen-name = 'P_PCFIL'. "PC FILE
 screen-input = '0'.
 modify screen.
 endif.
 if screen-name = 'P_UNFIL'. "UN FILE
 screen-input = '0'.
 modify screen.
 endif.
endloop.
if w_first = 'Y'.
 perform path_file.
 w_first = 'N'.
endif.
if w_cfirst = 'Y'.
 perform cpath_file.
 w_cfirst = 'N'.
endif.
Start-of-Selection. *
START-OF-SELECTION.
*COLLECT DATA
PERFORM COLLECT_DATA.
*BUILD FILENAMES
PERFORM BUILD_FILES.
*LOCAL
IF P_PCFILE = C_YES.
 PERFORM LOCAL_DOWNLOAD.
ENDIF.
*UNIX
IF P_UNIX = C_YES.
 PERFORM UNIX_DOWNLOAD.
ENDIF.
IF P_PCFILE IS INITIAL AND P_UNIX IS INITIAL.
 MESSAGE I000(ZL) WITH 'Down load flags both are unchecked'.
ENDIF.
END-OF-SELECTION.
IF P_PCFILE = C_YES.
WRITE :/ 'PC File' , C_UNDER, P_PCFIL.
ENDIF.
*& Form DOWNLOAD
 Download *
FORM DOWNLOAD.
P_PCFIL = W_PATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
CALL FUNCTION 'WS_DOWNLOAD'
 EXPORTING
 FILENAME = P_PCFIL
 FILETYPE = C_ASC "c_dat "dat
 TABLES
 DATA_TAB = I_REC2 " t_str
 fieldnames = t_strhd
 EXCEPTIONS
 FILE_OPEN_ERROR = 1
 FILE_WRITE_ERROR = 2
 INVALID_FILESIZE = 3
 INVALID_TABLE_WIDTH = 4
 INVALID_TYPE = 5
 NO_BATCH = 6
 UNKNOWN_ERROR = 7
 OTHERS = 8.
IF SY-SUBRC EQ 0.
ENDIF.
ENDFORM.
*& Form WRITE_TO_SERVER
 text *
--> p1 text
<-- p2 text
FORM WRITE_TO_SERVER.
DATA : L_MSG(100) TYPE C,
 L_LINE(5000) TYPE C.
P_UNFIL = W_UPATH.
DATA LIN TYPE I.
DESCRIBE TABLE I_REC2 LINES LIN.
WRITE:/ 'No of Records downloaded = ',LIN.
OPEN DATASET P_UNFIL FOR OUTPUT IN TEXT MODE. " message l_msg.
IF SY-SUBRC <> 0.
 WRITE: / L_MSG.
ENDIF.
perform header_text1.
LOOP AT I_REC2.
 TRANSFER I_REC2 TO P_UNFIL.
ENDLOOP.
CLOSE DATASET P_UNFIL.
WRITE : / C_TEXT , W_UPATH.
SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
CLEAR W_UPATH.
IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ELSE.
 W_UEXT = C_ASC. " c_csv.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
ENDIF.
ENDFORM. " WRITE_TO_SERVER
*& Form BUILD_FILES
FORM BUILD_FILES.
IF P_PCFILE = C_YES.
 W_PCFILE = P_PCFIL.
***Split path at dot**
 SPLIT W_PCFILE AT C_DOT INTO W_PCFILE1 W_EXT.
 IF NOT W_EXT IS INITIAL.
 CONCATENATE W_PCFILE1 C_DOT W_EXT INTO W_PATH.
 ELSE.
 W_PATH = W_PCFILE1.
 ENDIF.
ENDIF.
IF P_UNIX = C_YES.
 W_UNIXFILE = P_UNFIL.
 SPLIT W_UNIXFILE AT C_DOT INTO W_UNIXFIL1 W_UEXT.
 IF NOT W_UEXT IS INITIAL.
 CONCATENATE W_UNIXFIL1 C_DOT W_UEXT INTO W_UPATH.
 ELSE.
 W_UPATH = W_UNIXFIL1.
 ENDIF.
ENDIF.
ENDFORM.
FORM CPATH_FILE.
CLEAR P_PCFIL.
 CONCATENATE C_PCFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_PCFIL.
ENDFORM. " CPATH_FILE
FORM PATH_FILE.
CLEAR P_UNFIL.
if sy-sysid eq c_n01.
 CONCATENATE C_UNIXFILE
 C_COMFILE SY-SYSID C_UNDER SY-DATUM SY-UZEIT
 C_DOT C_ASC INTO P_UNFIL.
endif.
if sy-sysid eq c_g21.
concatenate c_g21_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
if sy-sysid eq c_g9d.
concatenate c_g9d_unixfile
 c_comfile sy-sysid c_under sy-datum sy-uzeit
 c_dot c_asc into p_unfil.
endif.
ENDFORM. " PATH_FILE
Local_Download *
 Local *
FORM LOCAL_DOWNLOAD.
perform header_text.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 REC1-CLNT TO I_REC2-CLNT,
 REC1-S_SYS TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM DOWNLOAD .
 CLEAR I_REC2.
 REFRESH I_REC2.
 ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " LOCAL_DOWNLOAD
*& Form UNIX_DOWNLOAD
FORM UNIX_DOWNLOAD.
LOOP AT REC1.
REC1-CLNT = SY-MANDT.
REC1-S_SYS = SY-SYSID.
MOVE: REC1-BAL TO I_REC2-BAL,
 REC1-COAREA TO I_REC2-COAREA,
 REC1-CA TO I_REC2-CA,
 REC1-KTOPL TO I_REC2-CA,
 REC1-CCODE TO I_REC2-CCODE,
 REC1-CREDIT TO I_REC2-CREDIT,
 REC1-CURRENCY TO I_REC2-CURRENCY,
 REC1-CURTYPE TO I_REC2-CURTYPE,
 REC1-DEBIT TO I_REC2-DEBIT,
 REC1-YEAR TO I_REC2-YEAR,
 REC1-FY TO I_REC2-FY,
 REC1-ACCOUNT TO I_REC2-ACCOUNT,
 REC1-VER TO I_REC2-VER,
 REC1-VTYPE TO I_REC2-VTYPE,
 SY-MANDT TO I_REC2-CLNT,
 SY-SYSID TO I_REC2-S_SYS,
 REC1-INDICATOR TO I_REC2-INDICATOR.
APPEND I_REC2.
CLEAR I_REC2.
ENDLOOP.
IF NOT I_REC2[] IS INITIAL.
 PERFORM WRITE_TO_SERVER.
 CLEAR I_REC2.
 REFRESH I_REC2.
ELSE.
 WRITE : / ' no record exist due to unavailability of data'.
ENDIF.
ENDFORM. " UNIX_DOWNLOAD
*& Form HEADER_TEXT
 text *
--> p1 text
<-- p2 text
*form header_text.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd
 separated by c_comma.
append t_strhd.
*endform. " HEADER_TEXT
*& Form HEADER_TEXT1
 text *
*form header_text1.
concatenate c_bal c_ba c_ca c_cc c_credit c_currency c_curtype
 c_debit c_fisyear c_fisvar c_acct c_ver c_vtype c_indicator
 into t_strhd1
 separated by c_comma.
append t_strhd1.
transfer t_strhd1 to p_unfil.
*endform. " HEADER_TEXT1
*& Form COLLECT_DATA
 Collect Data *
FORM COLLECT_DATA.
SELECT * FROM GLT0 INTO TABLE REC3
 WHERE BUKRS IN COMPCODE
 AND RYEAR IN FISYEAR
 AND RPMAX IN FISCPER
 AND RACCT IN GLACC
 AND RTCUR IN CURRENCY.
SELECT KTOPL FROM SKA1
 INTO TABLE T_KTOPL
 FOR ALL ENTRIES IN REC3
 WHERE SAKNR = REC3-RACCT.
LOOP AT REC3 .
 select *
 from glt0
 into table t_temp
 where rldnr = rec-rldnr
 and rrcty = rec-rrcty
 and rvers = rec-rvers
 and bukrs = rec-bukrs
 and ryear = rec-ryear
 and racct = rec-racct
 and rbusa = rec-rbusa
 and rtcur <> 'ZAR'
 and rpmax = rec-rpmax.
if sy-subrc = 0.
 rec1-bal = '0.00'.
else.
rec1-bal = rec-hslvt.
endif.
*READ TABLE T_KTOPL WITH KEY SAKNR = REC-RACCT BINARY SEARCH.
MOVE T_KTOPL-KTOPL TO REC3-KTOPL.
CLEAR: CBALANCE, DBALANCE.
REC1-BAL = REC3-HSLVT.
IF REC3-DRCRK = 'S'.
IF REC3-HSLVT NE C_ZERO.
 YEAR = REC-RYEAR.
 PERIOD = '000'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC-DRCRK.
 REC1-DEBIT = C_ZERO.
 REC1-CREDIT = C_ZERO.
 REC1-CCODE = REC-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC-RTCUR.
 REC1-ACCOUNT = REC-RACCT.
 rec1-bal = rec-hslvt.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC-RBUSA.
 REC1-VER = REC-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 APPEND REC1.
 C = 0.
 PERFORM D.
ENDIF.
IF REC3-HSL01 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '001'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL01 .
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl01 + dbalance.
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART.
 REC1-KTOPL = REC3-KTOPL.
 APPEND REC1.
 C = 1.
 PERFORM D.
ENDIF.
IF REC3-HSL02 NE C_ZERO.
 REC1-DEBIT = REC3-HSL02.
 YEAR = REC3-RYEAR.
 PERIOD = '002'.
CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL02.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
rec1-bal = REC3-hsl02 + dbalance.
dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 2.
PERFORM D.
ENDIF.
IF REC3-HSL03 NE C_ZERO.
 YEAR = REC3-RYEAR.
 PERIOD = '003'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL03.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl03 + dbalance .
 dbalance = rec1-bal.
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 C = 3.
PERFORM D.
ENDIF.
IF REC3-HSL04 NE C_ZERO.
 REC1-DEBIT = REC3-HSL04.
 YEAR = REC3-RYEAR.
 PERIOD = '004'.
 CONCATENATE PERIOD C_DOT YEAR INTO FP.
 REC1-INDICATOR = REC3-DRCRK.
 REC1-DEBIT = REC3-HSL04.
 REC1-CCODE = REC3-BUKRS.
 REC1-YEAR = FP.
 REC1-CURRENCY = REC3-RTCUR.
 REC1-ACCOUNT = REC3-RACCT.
 rec1-bal = REC3-hsl04 + dbalance .
 REC1-CURTYPE = C_CTYPE.
 REC1-FY = C_FY.
 REC1-COAREA = REC3-RBUSA.
 REC1-VER = REC3-RVERS.
 REC1-VTYPE = C_CTYPE.
 REC1-CA = C_CHART. "-BF7957-070503
 REC1-KTOPL = REC3-KTOPL. "+BF7957-070503
 APPEND REC1.
 dbalance = rec1-bal.
 C = 4.
 PERFORM D.
ENDIF.
Thanks and Regards,
Ram

use logical database SDF, nodes ska1 and skc1c
A.

How to count no of line present in internal table depending on condtion.

Hi,
I want to count no of line present in one internal table.
For example: I have an internal table with output tax line item
lwa_gt_alv-ty_auste_ep consider this internal table having 100 lines
depending on the condition copany code(BUKRS), Year(GJAHR), and Document number(BELNR).
I want to count the number of line present for above mentioned condition in internal table lwa_gt_alv-ty_auste_ep.
Kindly help as soon as possible.
Thanks and best regards,
Niteesh Rai

Hello
So, count into exist loop/endloop:
data: counter type i.
loop at itab.
* do anything here ...
if BUKRS = " condition for bukrs here
and GJAHR = " condition for gjahr here
and BELNR = " condition for belnr here
    counter = counter + 1.
endif.
* do anything here ...
endloop.
write counter.
Also you may to try other way:
data: counter type i.
data: itab1 like itab occurs 0.
itab1[] = itab[].
delete itab1 where BUKRS NE " condition for bukrs here
               and GJAHR NE " condition for gjahr here
               and BELNR NE " condition for belnr here
describe table itab1 lines counter.
write counter.

Regarding Internal Table Manipulation

Hi All,
I have a issue when working against Internal Table inside a function module.
Issue is:
My I.Table declaration is as below:
DATA: BEGIN OF i_vbfa_tab OCCURS 0.
 INCLUDE STRUCTURE vbfa.
DATA: END OF i_vbfa_tab.
Then in code i had written following logic:
SELECT VBELV
 VBELN
 VBTYP_N
 VBTYP_V
 FROM VBFA
 INTO ( V_VBELV, V_VBELN, V_VBTYP_N, V_VBTYP_V )
 WHERE VBELN = V_SO_ORDER2 AND
 VBTYP_N = 'G' AND
 STUFE = '00'.
IF SY-SUBRC EQ 0.
 I_VBFA_TABVBELN = V_VBELN.
 I_VBFA_TABVBELV = V_VBELV.
 I_VBFA_TABVBTYP_N = V_VBTYP_N.
 I_VBFA_TABVBTYP_V = V_VBTYP_V.
 APPEND I_VBFA_TAB.
 CLEAR I_VBFA_TAB.
ENDIF.
Then when i am checking for F2[Syntax] it is giving error as 'The Field I_VBFA_TAB-VBELN is unknown'. This is the case with all 4 assignment statements.
Can anybody tell me what is the issue over here.
What can i do to assign those values to internal table and append. I had tried with MOVE that is also giving same error.
Can anybody solve my issue.
Thanks in advance.
Thanks & Regards,
Prasad.

If you are doing something like:
call function 'Z_FUNC'
tables i_vbfa_tab = vbfa_tab.
and in the FM:
function z_func
*" TABLES
*" i_vbfa_tab STRUCTURE vbfa OPTIONAL
perform get_vbfa.
and then in an include
form get_vbfa
SELECT VBELV
VBELN
VBTYP_N
VBTYP_V
FROM VBFA
INTO ( V_VBELV, V_VBELN, V_VBTYP_N, V_VBTYP_V )
WHERE VBELN = V_SO_ORDER2 AND
VBTYP_N = 'G' AND
STUFE = '00'.
I think you'll get the syntax arror you describe. Try:
call function 'Z_FUNC'
tables i_vbfa_tab = vbfa_tab.
and in the FM:
function z_func
*" TABLES
*" i_vbfa_tab STRUCTURE vbfa OPTIONAL
perform get_vbfa
 tables i_vbfa_tab.
and then in the include
form get_vbfa
 tables i_vbfa structure vbfa.
data: v_vbelv like vbfa-vbelv,
 v_vbeln like vbfa-vbeln,
 v_VBTYP_N like vbfa-VBTYP_N,
 v_VBTYP_v like vbfa-VBTYP_v,
SELECT VBELV
VBELN
VBTYP_N
VBTYP_V
FROM VBFA
INTO ( V_VBELV, V_VBELN, V_VBTYP_N, V_VBTYP_V )
WHERE VBELN = V_SO_ORDER2 AND
VBTYP_N = 'G' AND
STUFE = '00'.
IF SY-SUBRC EQ 0.
I_VBFA_TABVBELN = V_VBELN.
I_VBFA_TABVBELV = V_VBELV.
I_VBFA_TABVBTYP_N = V_VBTYP_N.
I_VBFA_TABVBTYP_V = V_VBTYP_V.
APPEND I_VBFA_TAB.
CLEAR I_VBFA_TAB.
ENDIF.
I didn't test this, so if you use it, test it thoroughly.
Rob

Describe internal table

Similar Messages

Maybe you are looking for