How to declare global internal table in smartform

Hi
i need internal table in smart form with type of tline .. tline is structure and when i declare it in global definition as lines like tline it creates a structre ... kindly help me out
Regards
Ammad

This error is coming becasue u have not created an work area which is of same type as tdline.
Just double click on the error and copy paste the code here.Error now is nin ur code.
Secondly lets my internal table is GT_TLINE.
I will declare a work are GWA_TLINE type TLINE.
then i can have
loop at gt_line into gwa_tline or
read table gt_tline into gwa_tline with key etc.
Regards,
Nabheet Madan

Similar Messages

Declaring an internal table in smartform

hi,
 can anyone tell how to declare internal table in smartform.
 the internal table contains fields from 2 or more data dictionary tables(eg.kna1
 and adrc). after this from the print program(internal table containing data in print
 program) internal table should be passed to the smartform.
thanks.

hi laxya,
if u want to pass the data from internal table in print program to Smartform.. there is only way.. that is using form interface..
1. goto se11, create a structure same as the itab in the print program.ex. z_itab
2. create line type... se11>select radio button-DATA type>z_it_itab >press create>then select>TABLE Type> then entrer some text--> in the line type Field in giveth Str name u have created in STEP 1. activate it.
3. got SMARTFORMS-> form inteface>tables tabe--> give some name ex IT_tab type z_it_itab.
then acivate it.. then in the driver progam pass this table data.
Exapmpel
CALL FUNCTION fp_v_fm_name
 EXPORTING
 archive_index = toa_dara
 archive_parameters = arc_params
 control_parameters = fp_st_control_parameters
 user_settings = space
 output_options = fp_st_output_options
 wa_vbdkr = fp_st_vbdkr
 IMPORTING
 job_output_info = l_it_ssfcrescl
 job_output_options = l_it_ssfcresop
 TABLES
 IT_tab = z_it_itab (or table in driver program)
EXCEPTIONS
 formatting_error = 1
 internal_error = 2
 send_error = 3
 user_canceled = 4
 OTHERS = 5.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Another way is cteate a type in Globaldifination-->types tab..
ex:
types: begin of ty_itab,
 matnr type matnr,
 meins type meins
 vrkme type vrkme,
end of ty_itab,
ty_it_itab type standard table of ty_itab.
then GLOBAL DIFINATION>GLOBAL DATA TAB>IT)ITAB TYPE TY_IT_ITAB.
BUT In this u can't pass the data from the print Program.. if u want to populate data in to this table... u have to write the Select query in the GLOBAL DIFINATIONS-->INITILIZATIONS TAB.
Please Close this thread.. when u r problem is solved
Reward if Helpful
Regards
Naresh Reddy K
Message was edited by:
 Naresh Reddy

How to declare a internal table in start routine i.e. transformations

Hi Gurus,
How to define an internal table in a start rotuine?
any help greatly appreciated.
Best Regards,
Reddy.

Hi,
types: begin of str,
field1 type c,
field2 type c,
end of str.
data : itab type table of str with header line.
the above code should be inserted where it says insert code below this. this will be like a global decleration. this table will be available for all the routines that you write in the transformation.
All the best !!
Regards
Aparna

How to Import customized internal table to smartform from Print Program

Hi Gurus,
I want to Import customized internal table to smartform from print program, Can anybody tell me how it is possible.
With regards,
S.Saravanan

There is no problem passing an internal table to a smarforms, smartforms have the same interface as a function module ([Defining the Form Interface|http://help.sap.com/saphelp_nw70/helpdata/en/1c/f40c5bddf311d3b574006094192fe3/frameset.htm] in [Smart Forms|http://help.sap.com/saphelp_nw70/helpdata/en/a5/de6838abce021ae10000009b38f842/frameset.htm]) so could you elaborate a little more on your requirement (is it a standard a custom forms, etc.)
Regards,
Raymond

How to pass an internal table to a SmartForm?

Hi there!
I have a program that calls a SmartForm.
I have a internal table wich I want to print.
This internal table is based on a custom structure with NO standard includes (e.g., with custom fields).
How do I declare this internal table in the transaction SMARTFORMS?
Best Regards,
Luís.

Refer below thread..
How to pass an internal table to smartform.
hope it will solve ur problem
Thanks & Regards
ilesh 24x7

Declaring the internal table in ABAP objects

Hi every1,
Please any one let me know how to declare an internal table in class (ABAP objects). Bcos i am new to this classes.
help me out.
Regards,
Madhavi

Hi,
Check this example..
TYPES: BEGIN OF TYPE_DATA,
               MATNR TYPE MATNR,
               WERKS TYPE WERKS_D,
             END OF TYPE_DATA.
DATA: T_DATA TYPE STANDARD TABLE OF TYPE_DATA.
DATA: WA_DATA TYPE TYPE_DATA.
Adding rows to the internal table.
WA_DATA-MATNR = 'AA'.
APPEND WA_DATA TO T_DATA.
Processing the interna table
LOOP AT T_DATA INTO WA_DATA.
ENDLOOP.
Thanks,
Naren

How to define internal table in smartform(urgent)

Hi all,
How can i define a internal table with header line in global data ???
i defined like
In Types,
TYPES : BEGIN OF T_XVBPLP2 ,
 VENUM(10),
 VEPOS(10),
 POSNR(6),
 VEMNG LIKE LIPS-LFIMG,
 MATNR LIKE LIPS-MATNR,
 CHARG LIKE LIPS-CHARG,
 ARKTX LIKE LIPS-ARKTX,
 END OF T_XVBPLP2.
TYPES: T_XVBPLP TYPE TABLE OF T_XVBPLP2.
In Global Data,
T_XVBPLP TYPE T_XVBPLP.
Still, i am getting error message that, Internal table is not with header line.
can u plz give me some examples , to define internal table with header line in smartform ???
any correct answers will be rewarded??
Regards
pabitra

Hi
define WA_ITAB in Global variables
variable name type assin associated type
t_text like zstc_text
you cannot define a internal table with header line in SMART Forms. Declare a internal table and a work area separately both referring to the same structure.
Then you can use the work area. So, in this case WA_ITAB is declared as a global variable of TYPE ZSTC_TEXT.
Regards
Pavan

How to Define Internal Table in Smartform

Hello,
I have some problem on define Internal Table in Smartform
I define a Temp_IT_Gen Type LBBIL_IT_GEN in Global Definiations
but i find that it is not available for me to append data into it,
the error message is Temp_IT_Gen is not a Internal Table - the Occurs n Specification is missing
so how can i solve it?
i want to use the internal table in the hold program.
Thanks a lot in advance.

Hi,
First U define the Table type in 'TYPES' tab of Global Definitions and then assing that table type to Internal table in 'Global Data' tab.
Eg:
define the Table Type like below in TYPES tab.
TYPES:BEGIN OF ty_TEMP.
        INCLUDE STRUCTURE XXXXXXX.
TYPES:END OF ty_TEMP.
TYPES: g_t_temp TYPE STANDARD TABLE OF ty_TEMP .
Now, define the Internal table in Global Data tab like below:
Variable Name    Type assignment    Associated Type
G_T_ITEM_1       TYPE                    G_T_TEMP
NOTE: whatever U define in Global Definitions can be used only in SMARTFORM, if u want to use it in Program U must define in Form Interface.
Hope it helps!!
Rgds,
Pavan

How to create an internal table with header line in smartforms

Hello Guys,
I need to append the data in my internal table in smartforms by the problem is an error occurred "a table without header line and therefore no component called tdline"
i already declared the data under types declaration tab
types : begin of ts_tline,
         TDFORMAT type tdformat,
         tdline type tdline,
        end of ts_tline.
types : it_tline type table of ts_tline.
and declare these in global data
WA_TLINE type TS_TLINE
XT_TLINE type IT_TLINE
my syntax in program lines :
LOOP AT gy_lines INTO WA_PROJ.
    SPLIT wa_proj AT cl_abap_char_utilities=>cr_lf
       INTO table IT_SPLIT.
    LOOP AT IT_SPLIT.
      MOVE it_split-commentext TO xt_TLINE-tdline.
an error occured at this part ****
     append xt_TLINE.
    ENDLOOP.
ENDLOOP.
what is wrong with my code..it cannot append data to xt_tline.
Please help.Will reward points
Thanks in advance
aVaDuDz

check this link
this will help u......
http://www.****************/Tutorials/Smartforms/SFMain.htm
reward IF..........
regards
Anbu

Internal table in smartform

In driver program:
TYPES: BEGIN OF ty_output,
       var1 TYPE c,
      var2 type c,
TYPES: END OF ty_output.
DATA: gt_output TYPE TABLE OF ty_output.
how to declare this in smartforms?
Thanks

Hi,
You can do this in two ways....
1. If you need the interal table to be accessed globally in the smartform, you can declare the internal    table in global definitions
first you need to define TYPES for the internal table in Types tab.
and this needs to be given as reference in Global Data tab for the internal table.
2. You need the internal table to be local ,then you can create a program lines node and declare the internal table as you do in the ABAP program
Hope this helps
Regards,
Sujatha

Internal Table in smartforms

how can we declare an internal table for a standard sap table in smartforms in the 'Global Setting' part of smartforms?

Hai,
You can define the standard table in smartforms like this.
In Global settings:
variable name     type assignment      reference type
it_ekpo                 type                        table structure
In Global definitions:
variable name     type assignment      reference type
it_ekpo                 type                        table structure
regards,
kamala.

PASSING INTERNAL TABLE IN SMARTFORM

HI' I M NEW TO SMARTFORMS, MY PROBLEM IS =THAT
I'VE CREATED A NEW TYPE(SAY TY_BKPF) IN THE DRIVER PROGRAM.
THEN I'VE DECLARED AN INTERNAL TABLE OF THIS TYPE.
TO PASS THIS INTERNAL TABLE INTO MY SMARTFORM I'VE PASSED THE INTERNAL TABLE'S NAME INTO THE FUNCTION MODULE UNDER THE TABLES PARAMETER.
BUT I'M NOT ABLE TO UNDERSTAND AS TO WHAT TYPE SHOULD I GIVE IT IN THE FORM INTERFACE IN THE TABLES TAB.
PLZ HELP.

Define table in smartforms
Global settings :
Form interface
Variable name Type assignment Reference type
ITAB1 TYPE Table Structure
Global definitions
Variable name Type assignment Reference type
ITAB2 TYPE Table Structure
Also have a look at below sample code. It will give you idea abt the same.
REPORT ZSMARTFORM.
Calling SMARTFORMS from your ABAP program.
Collecting all the table data in your program, and pass once to SMARTFORMS
SMARTFORMS
Declare your table type in :-
Global Settings -> Form Interface
Global Definintions -> Global Data
Main Window -> Table -> DATA
TABLES: MKPF.
DATA: FM_NAME TYPE RS38L_FNAM.
DATA: BEGIN OF INT_MKPF OCCURS 0.
 INCLUDE STRUCTURE MKPF.
DATA: END OF INT_MKPF.
SELECT-OPTIONS S_MBLNR FOR MKPF-MBLNR MEMORY ID 001.
SELECT * FROM MKPF WHERE MBLNR IN S_MBLNR.
 MOVE-CORRESPONDING MKPF TO INT_MKPF.
 APPEND INT_MKPF.
ENDSELECT.
At the end of your program.
Passing data to SMARTFORMS
call function 'SSF_FUNCTION_MODULE_NAME'
exporting
 formname = 'ZSMARTFORM'
VARIANT = ' '
DIRECT_CALL = ' '
IMPORTING
 FM_NAME = FM_NAME
EXCEPTIONS
 NO_FORM = 1
 NO_FUNCTION_MODULE = 2
 OTHERS = 3.
if sy-subrc <> 0.
 WRITE: / 'ERROR 1'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
call function FM_NAME
EXPORTING
ARCHIVE_INDEX =
ARCHIVE_INDEX_TAB =
ARCHIVE_PARAMETERS =
CONTROL_PARAMETERS =
MAIL_APPL_OBJ =
MAIL_RECIPIENT =
MAIL_SENDER =
OUTPUT_OPTIONS =
USER_SETTINGS = 'X'
IMPORTING
DOCUMENT_OUTPUT_INFO =
JOB_OUTPUT_INFO =
JOB_OUTPUT_OPTIONS =
TABLES
 GS_MKPF = INT_MKPF
EXCEPTIONS
 FORMATTING_ERROR = 1
 INTERNAL_ERROR = 2
 SEND_ERROR = 3
 USER_CANCELED = 4
 OTHERS = 5.
if sy-subrc <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
Have a look at below link for more help on smart forms.
http://sap.ionelburlacu.ro/sap0/sapsf001.htm
http://help.sap.com/saphelp_erp2004/helpdata/en/a9/de6838abce021ae10000009b38f842/frameset.htm
I hope it helps.
Best Regards,
Vibha
*Please mark all the helpful answers

How 2 create dynamic internal table and can we pass it to gui_download FM

HI all,
 How can we create a dynamic internal table?
I have a requirement where i have to create an internal table with the no. of fields depending on the selection screen values, i think tat can be possible though dynamic creation only.
 How to solve this issue..?Pointers will be very much useful..
Thanks
Sunny.

hi
Follow the code it will help you out....
REPORT YUSMM_TEXT2 .
*TABLES
TABLES: MARA, " General Material Data
 MAKT, " Material Descriptions
 T002. " Language Keys
* GLOBAL TYPE-POOL
TYPE-POOLS : SLIS.
* GLOBAL TYPES
TYPES: BEGIN OF TP_LANG ,
 SPRAS LIKE T002-SPRAS,
 LAISO LIKE T002-LAISO,
 SRNO(3) TYPE N,
 END OF TP_LANG.
TYPES: BEGIN OF TP_MATNR,
 MATNR LIKE MARA-MATNR,
 BEGRU LIKE MARA-BEGRU,
 END OF TP_MATNR.
* DECLARATION FOR GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA:GT_MAKT TYPE STANDARD TABLE OF MAKT, "Materialkurztexte,
 GT_THEAD TYPE STANDARD TABLE OF THEAD, "SAPscript: Text-Header,
 GT_LINETAB TYPE STANDARD TABLE OF TLINE, "SAPscript: Text-Zeilen,
 GT_T002 TYPE STANDARD TABLE OF T002. "Language key
DATA: BEGIN OF GV_TEXT_OUTPUT_LINE,
 MATNR LIKE MARA-MATNR,
 BEGRU LIKE MARA-BEGRU,
 MAKTX LIKE MAKT-MAKTX,
 LTXT40(1250) TYPE C,
 SRNO(3) TYPE N,
 SPRAS LIKE T002-SPRAS,
 END OF GV_TEXT_OUTPUT_LINE.
DATA: GT_MATNR TYPE STANDARD TABLE OF TP_MATNR,
 WA_GT_MATNR TYPE TP_MATNR.
DATA: GT_LANG TYPE STANDARD TABLE OF TP_LANG,
 WA_GT_LANG TYPE TP_LANG.
DATA: GT_TEXT_OUTPUT_LINE LIKE STANDARD TABLE OF GV_TEXT_OUTPUT_LINE,
 GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 GV_FIELDCAT LIKE LINE OF GT_FIELDCAT,
 CT_GT_FIELDCAT_IN LIKE GV_FIELDCAT,
 GS_LAYOUT TYPE SLIS_LAYOUT_ALV,
 GV_REPID TYPE SY-REPID.
DATA: BEGIN OF GV,
 FORMER_ERROR LIKE SY-MARKY, " Fehlermeldung bereits
 FILE_OPEN(1), " Flag open file
 REC_LENGTH TYPE I, " record length
 MATNR TYPE MARA-MATNR, " material
 REPID TYPE SYST-REPID,
 RETCO TYPE SY-SUBRC,
 END OF GV.
DATA: GV_MAKT TYPE MAKT,
 GV_T002 TYPE T002,
 GV_LANGU TYPE THEAD-TDSPRAS.
* DECLARATION FOR FIELD-SYMBOLS
FIELD-SYMBOLS: <FS_DATA> TYPE REF TO DATA,
 <FS_DATA1> TYPE REF TO DATA,
 <FS_2> TYPE STANDARD TABLE,
 <FS_22> TYPE STANDARD TABLE,
 <FS_1>,
 <FS_11>,
 <F>,
 <FA>,
 <LWA_LINE_WA>,
 <LWA_LINE_WA1>.
DATA: IT_FLDCAT TYPE LVC_T_FCAT.
DATA: T_FLDCAT1 TYPE SLIS_T_FIELDCAT_ALV.
DATA: L_LT TYPE SLIS_LAYOUT_ALV.
DATA: WA_IT_FLDCAT TYPE LVC_S_FCAT.
DATA: WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV.
DATA: GP_TABLE TYPE REF TO DATA.
DATA: WA_NEWLINE TYPE REF TO DATA.
*DECLARATION FOR CONSTANTS
CONSTANTS:
 BEGIN OF GC,
 TDID_GRUN TYPE THEAD-TDID VALUE 'GRUN',
 TDOBJECT_MAT TYPE THEAD-TDOBJECT VALUE 'MATERIAL',
 ON(01) TYPE C VALUE 'X',
 YES(01) TYPE C VALUE 'X',
 TXT(25) TYPE C VALUE 'MATERIAL DETAILS',
 MAT(25) TYPE C VALUE 'MATERIAL NUMBER',
 AUT(25) TYPE C VALUE 'AUTHORIZATION GROUP',
 FOUND TYPE SY-SUBRC VALUE '00', " Return-Code
 RC_OK TYPE SY-SUBRC VALUE '00', " Return-Code
 OFF TYPE SY-SUBRC VALUE '00', " return code
 FALSE TYPE SY-SUBRC VALUE '00', " boolean
 TRUE TYPE SY-SUBRC VALUE '01', " boolean
END OF GC.
* DECLARATION FOR VARIABLES
DATA: V(3) TYPE N,
 STR TYPE STRING,
 STR1 TYPE STRING,
 V_VAR(3) TYPE N,
 V_VAR1(3) TYPE N,
 V_FIELDNAME(15) TYPE C,
 V_CHAR(15) TYPE C,
 V_LINES(3) TYPE N,
 MAKTEXT LIKE MAKT-MAKTX,
 LT_DATA TYPE REF TO DATA,
 LT_DATA1 TYPE REF TO DATA,
 LWA_LINE TYPE REF TO DATA,
 LWA_LINE1 TYPE REF TO DATA.
*SELECTION-SCREEN AND PARAMETERS
SELECTION-SCREEN: BEGIN OF BLOCK A1 WITH FRAME TITLE TEXT-002.
SELECT-OPTIONS:
S_MATNR FOR MARA-MATNR, "MATERIAL NUMBER
S_MTART FOR MARA-MTART, "MATERIAL TEXT
S_LANG FOR MAKT-SPRAS. "LANGUAGE
PARAMETER: GP_SIZE TYPE I DEFAULT 200. "DATA LENGTH
SELECTION-SCREEN: END OF BLOCK A1.
* AT SELECTION SCREEN
AT SELECTION-SCREEN.
IF GP_SIZE < 0.
 MESSAGE E002(00).
ENDIF.
IF GP_SIZE > 50000.
 MESSAGE W130(26) WITH TEXT-004.
 SET CURSOR FIELD 'gp_size'.
ENDIF.
* INITIALIZATION
INITIALIZATION.
GV-REPID = SY-REPID.
*START-OF-SELECTION
START-OF-SELECTION.
PERFORM GET_MARA_DATA
 TABLES
 GT_TEXT_OUTPUT_LINE
 USING
 S_MATNR[]
 S_MTART[]
 GP_SIZE
 CHANGING
 GV-RETCO
PERFORM GET_MAT_TEXT
 TABLES
 GT_MAKT
 GT_TEXT_OUTPUT_LINE
 GT_THEAD
 GT_LINETAB
 USING
 GC
 GV-RETCO
 CHANGING
 GV_TEXT_OUTPUT_LINE
 GV_MAKT
PERFORM GET_LANG.
PERFORM DYNAMIC_TABLES.
PERFORM POPULATE_FINAL_TABLE.
PERFORM POPULATE_DYNAMIC_TABLE.
* END-OF-SELECTION
END-OF-SELECTION.
PERFORM DATA_OUTPUT.
*& Form get_mara_data
* Materialdaten lesen
* <->ct_gt_text_output_line Ausgabetabelle
* -->it_s_matnr Parameter Materialnummer
* -->it_s_mtart Parameter Materialart
* -->if_gp_size Parameter Anzahl Materialnummern
FORM GET_MARA_DATA TABLES CT_GT_TEXT_OUTPUT_LINE STRUCTURE
 GV_TEXT_OUTPUT_LINE
 USING IT_S_MATNR LIKE S_MATNR[]
 IT_S_MTART LIKE S_MTART[]
 IF_GP_SIZE
 CHANGING IF_GV-RETCO. "#EC *
* MARA in die Übergabestruktur einlesen
SELECT MATNR BEGRU
 FROM MARA UP TO IF_GP_SIZE ROWS
 APPENDING CORRESPONDING FIELDS OF TABLE GT_MATNR
 WHERE MATNR IN IT_S_MATNR
 AND MTART IN IT_S_MTART.
IF_GV-RETCO = SY-SUBRC.
ENDFORM. " get_mara_data
*& Form get_mat_text
* Kurz- und Langtexte zum Material lesen
* <->ct_gt_makt Materialkurztexte
* <->ct_gt_text_output_line Ausgabetabelle
* <->ct_gt_thead Kopftabelle für ALV
* <->ct_gt_linetab Zeilentabelle für ALV
* -->if_gc Globale Konstanten
* <--cf_gv_text_output_line Struktur Ausgabetabelle
* <--cf_gv_makt Struktru Materialkurztexte
FORM GET_MAT_TEXT TABLES CT_GT_MAKT STRUCTURE MAKT
 CT_GT_TEXT_OUTPUT_LINE STRUCTURE
 GV_TEXT_OUTPUT_LINE
 CT_GT_THEAD STRUCTURE THEAD
 CT_GT_LINETAB STRUCTURE TLINE
 USING
 IF_GC LIKE GC
 IF_GV-RETCO
 CHANGING CF_GV_TEXT_OUTPUT_LINE LIKE
 GV_TEXT_OUTPUT_LINE
 CF_GV_MAKT LIKE GV_MAKT
DATA: STRG TYPE STRING,
 STRG1(1255) TYPE C.
IF IF_GV-RETCO = IF_GC-FOUND.
* Materialkurztexte in alles Sprachen einlesen
 SELECT * FROM MAKT APPENDING TABLE CT_GT_MAKT
 FOR ALL ENTRIES IN GT_MATNR "ct_gt_text_output_line
 WHERE MATNR = GT_MATNR-MATNR " ct_gt_text_output_line-matnr
* Kurztexte in die sprachabhängigen Felder bringen
 LOOP AT GT_MATNR INTO WA_GT_MATNR.
 LOOP AT CT_GT_MAKT INTO CF_GV_MAKT
 WHERE MATNR = WA_GT_MATNR-MATNR.
 CF_GV_TEXT_OUTPUT_LINE-MATNR = WA_GT_MATNR-MATNR.
 CF_GV_TEXT_OUTPUT_LINE-BEGRU = WA_GT_MATNR-BEGRU.
 CF_GV_TEXT_OUTPUT_LINE-MAKTX = CF_GV_MAKT-MAKTX.
 CF_GV_TEXT_OUTPUT_LINE-SPRAS = CF_GV_MAKT-SPRAS.
* LANGTEXT
 CLEAR CT_GT_THEAD[].
 CT_GT_THEAD-TDOBJECT = IF_GC-TDOBJECT_MAT.
 CT_GT_THEAD-TDNAME = WA_GT_MATNR-MATNR.
 CT_GT_THEAD-TDID = IF_GC-TDID_GRUN.
 CT_GT_THEAD-TDSPRAS = CF_GV_MAKT-SPRAS.
 CALL FUNCTION 'TEXT_READ'
 EXPORTING
 I_HEADER = CT_GT_THEAD
 I_READONLY = IF_GC-ON
 IMPORTING
 E_HEADER = CT_GT_THEAD
 TABLES
 T_LINES = CT_GT_LINETAB[]
 EXCEPTIONS
 NOTFOUND = 1.
 IF SY-SUBRC = IF_GC-FOUND.
 LOOP AT CT_GT_LINETAB.
 STRG = CT_GT_LINETAB-TDLINE.
 IF STRG1 <> ' '.
 CONCATENATE STRG1 ';' STRG INTO STRG1.
 ELSE.
 STRG1 = STRG.
 ENDIF.
 ENDLOOP.
 CF_GV_TEXT_OUTPUT_LINE-LTXT40 = STRG1.
 APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
 CLEAR CF_GV_TEXT_OUTPUT_LINE.
 STRG1 = ' '.
 ELSE.
 APPEND CF_GV_TEXT_OUTPUT_LINE TO CT_GT_TEXT_OUTPUT_LINE.
 ENDIF.
 ENDLOOP.
 ENDLOOP.
ENDIF.
ENDFORM. " get_mat_text
*& Form data_output
* Daten mit ALV ausgeben
* <->ct_GT_FIELDCAT Feldkatalog für ALV
* <->ct_gt_text_output_line Ausgabetabelle
* -->P_GS_LAYOUT Layout für ALV
* -->if_gc Globale Konstanten
* <--cf_GV_REPID Zur Zeit aufgerufener Reportname
* <--cf_gv_fieldcat Struktur Feldkatalog
* <--cf_gv Globale Variablen
FORM DATA_OUTPUT.
PERFORM FIELDCATBUILD.
PERFORM LAYOUT.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = GV-REPID
 I_CALLBACK_PF_STATUS_SET = 'EVENT_SET_STATUS_01'
 I_CALLBACK_USER_COMMAND = 'EVENT_USER_COMMAND'
 IS_LAYOUT = L_LT
 IT_FIELDCAT = T_FLDCAT1[]
 TABLES
 T_OUTTAB = <FS_2>
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " data_output
*& Form fieldcatbuild
* text
* --> p1 text
* <-- p2 text
FORM FIELDCATBUILD. " TABLES ct_gt_fieldcat_in STRUCTURE gv_fieldcat.
LOOP AT IT_FLDCAT INTO WA_IT_FLDCAT.
 WA_IT_FLDCAT1-FIELDNAME = WA_IT_FLDCAT-FIELDNAME.
 WA_IT_FLDCAT1-TABNAME = WA_IT_FLDCAT-TABNAME.
 WA_IT_FLDCAT1-SELTEXT_L = WA_IT_FLDCAT-FIELDNAME.
 APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
 CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ENDFORM. " fieldcatbuild
* Form event_set_status_01*
FORM EVENT_SET_STATUS_01 USING LT_EXCL TYPE SLIS_T_EXTAB.
SET PF-STATUS 'ABCD' .
ENDFORM. "EVENT_SET_STATUS_01
*& Form Name: event_user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM EVENT_USER_COMMAND USING
IF_UCOMM TYPE SY-UCOMM
IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
 WHEN 'DOWNLOAD'.
 PERFORM POPULATE_DOWNLOAD_TABLE.
 DATA: L_LENGHT TYPE I.
 CALL FUNCTION 'GUI_DOWNLOAD'
 EXPORTING
 FILENAME = 'C:data.xls'
 FILETYPE = 'ASC'
 WRITE_FIELD_SEPARATOR = 'X'
 TRUNC_TRAILING_BLANKS = 'X'
 DAT_MODE = 'X'
 IMPORTING
 FILELENGTH = L_LENGHT
 TABLES
 DATA_TAB = <FS_22>.
 IF SY-SUBRC <> GC-FOUND.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 IF L_LENGHT NE GC-FOUND.
 MESSAGE S398(00) WITH 'DATA downloaded to c:data.xls'.
 ENDIF.
ENDCASE.
ENDFORM. "event_user_command
*& Form get_lang
* text
* --> p1 text
* <-- p2 text
FORM GET_LANG.
SELECT SPRAS
 LAISO FROM T002 INTO CORRESPONDING FIELDS OF TABLE GT_LANG
 WHERE SPRAS IN S_LANG.
DESCRIBE TABLE GT_LANG LINES V_LINES.
LOOP AT GT_LANG INTO WA_GT_LANG.
 V = V + 1.
 WA_GT_LANG-SRNO = V.
 MODIFY GT_LANG FROM WA_GT_LANG TRANSPORTING SRNO.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
 CONCATENATE 'MATEDESC-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
 CLEAR WA_IT_FLDCAT.
 WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
 WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-INTLEN = 40.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO IT_FLDCAT .
 CLEAR WA_GT_LANG.
ENDLOOP.
LOOP AT GT_LANG INTO WA_GT_LANG.
 CONCATENATE 'BASDAT-' WA_GT_LANG-LAISO INTO V_FIELDNAME.
 CLEAR WA_IT_FLDCAT.
 WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
 WA_IT_FLDCAT-DATATYPE = 'CHAR'.
 WA_IT_FLDCAT-INTLEN = 255.
 WA_IT_FLDCAT-SELTEXT = V_FIELDNAME.
 WA_IT_FLDCAT-TABNAME = '<FS_2>'.
 APPEND WA_IT_FLDCAT TO IT_FLDCAT .
 CLEAR WA_GT_LANG.
ENDLOOP.
V_FIELDNAME = 'MATNR'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Matnr'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 1.
V_FIELDNAME = 'BEGRU'.
CLEAR WA_IT_FLDCAT.
WA_IT_FLDCAT-FIELDNAME = V_FIELDNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'BEGRU'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO IT_FLDCAT INDEX 2.
ENDFORM. " get_lang
*& Form dynamic_tables
* text
* --> p1 text
* <-- p2 text
FORM DYNAMIC_TABLES.
ASSIGN LT_DATA TO <FS_DATA>.
* Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_FLDCAT " Fieldcatalogue
 IMPORTING
 EP_TABLE = <FS_DATA> " Dynamic Internal Table
 EXCEPTIONS
 GENERATE_SUBPOOL_DIR_FULL = 1
 OTHERS = 2.
* Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA>->* TO <FS_1>.
* Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_1> TO <FS_2>.
* Creating a Workarea
CREATE DATA LWA_LINE LIKE LINE OF <FS_2> .
* Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE->* TO <LWA_LINE_WA>.
ENDFORM. " dynamic_tables
*& Form populate_final_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_FINAL_TABLE.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 READ TABLE GT_LANG INTO WA_GT_LANG
 WITH KEY SPRAS = GV_TEXT_OUTPUT_LINE-SPRAS.
 IF SY-SUBRC EQ GC-FOUND.
 GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
 ENDIF.
 MODIFY GT_TEXT_OUTPUT_LINE FROM GV_TEXT_OUTPUT_LINE.
ENDLOOP.
ENDFORM. " populate_final_table
*& Form populate_dynamic_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_DYNAMIC_TABLE.
DATA: INDX TYPE SY-TABIX.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 AT NEW MATNR.
 INDX = SY-TABIX.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-MATNR.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-BEGRU.
 ENDAT.
 LOOP AT GT_LANG INTO WA_GT_LANG.
 IF GV_TEXT_OUTPUT_LINE-SRNO = WA_GT_LANG-SRNO.
 V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + 2.
 ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-MAKTX.
 V_VAR = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
 ASSIGN COMPONENT V_VAR OF STRUCTURE <LWA_LINE_WA> TO <F>.
 <F> = GV_TEXT_OUTPUT_LINE-LTXT40.
 ENDIF.
 ENDLOOP.
 AT END OF MATNR.
 APPEND <LWA_LINE_WA> TO <FS_2>.
 CLEAR <LWA_LINE_WA>.
 ENDAT.
ENDLOOP.
ENDFORM. " populate_dynamic_table
*& Form LAYOUT
* text
* --> p1 text
* <-- p2 text
FORM LAYOUT.
CLEAR L_LT.
L_LT-ZEBRA = GC-YES.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = GC-TXT.
ENDFORM. " LAYOUT
*& Form populate_download_table
* text
* --> p1 text
* <-- p2 text
FORM POPULATE_DOWNLOAD_TABLE.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
 EXPORTING
 IT_FIELDCATALOG = IT_FLDCAT " Fieldcatalogue
 IMPORTING
 EP_TABLE = <FS_DATA1> " Dynamic Internal table
 EXCEPTIONS
 GENERATE_SUBPOOL_DIR_FULL = 1
 OTHERS = 2.
* Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA1>->* TO <FS_11>.
* Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_11> TO <FS_22>.
* Creating a Workarea
CREATE DATA LWA_LINE1 LIKE LINE OF <FS_22> .
* Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE1->* TO <LWA_LINE_WA1>.
DATA: STRN1 TYPE STRING,
 STRN2 TYPE STRING,
 INDX TYPE SY-TABIX.
ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-MAT.
ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
<FA> = GC-AUT.
LOOP AT GT_LANG INTO WA_GT_LANG.
 V_VAR1 = WA_GT_LANG-SRNO + 2.
 CONCATENATE 'MATERIALDESCRIPTION-' WA_GT_LANG-LAISO INTO STRN1.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = STRN1.
 V_VAR1 = WA_GT_LANG-SRNO + V_LINES + 2.
 CONCATENATE 'BASICDATA-' WA_GT_LANG-LAISO INTO STRN2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = STRN2.
ENDLOOP.
APPEND <LWA_LINE_WA1> TO <FS_22>.
CLEAR <LWA_LINE_WA1>.
APPEND <LWA_LINE_WA1> TO <FS_22>.
V_VAR1 = 0.
LOOP AT GT_TEXT_OUTPUT_LINE INTO GV_TEXT_OUTPUT_LINE.
 AT NEW MATNR.
 INDX = SY-TABIX.
 ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-MATNR.
 ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-BEGRU.
 ENDAT.
 LOOP AT GT_LANG INTO WA_GT_LANG.
 IF GV_TEXT_OUTPUT_LINE-SRNO EQ WA_GT_LANG-SRNO.
 V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + 2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
 <FA> = GV_TEXT_OUTPUT_LINE-MAKTX.
 V_VAR1 = GV_TEXT_OUTPUT_LINE-SRNO + V_LINES + 2.
 ASSIGN COMPONENT V_VAR1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
* STR = GV_TEXT_OUTPUT_LINE-LTXT40.
* SEARCH STR FOR ';'.
* DO.
* IF SY-SUBRC = 0.
* SPLIT STR AT ';' INTO STR1 STR.
* <FA> = STR1.
* APPEND <LWA_LINE_WA1> TO <FS_22>.
* SEARCH STR FOR ';'.
* CLEAR <LWA_LINE_WA1>.
* ELSE.
* EXIT.
* ENDIF.
* ENDDO.
* <FA> = STR.
* APPEND <LWA_LINE_WA1> TO <FS_22>.
 <FA> = GV_TEXT_OUTPUT_LINE-LTXT40.
 ENDIF.
 ENDLOOP.
 AT END OF MATNR.
 APPEND <LWA_LINE_WA1> TO <FS_22>.
 CLEAR <LWA_LINE_WA1>.
 ENDAT.
ENDLOOP.
ENDFORM. " populate_download_table
thanks
Nitya

Avoiding Z-table and having a global internal table during Sales Order

Hi All,
I have a requirement like this.
1. In the R/3 system I am creating Sales order.
2. For each line item, it will call APO system to check the availability of the materials and the informaiton is returned back to
R/3 system.
3. As the soon as the informaiton is recieved in R/3 system, we found one enhancement point and this informaiton is being captured now in a Z-table to do some processing while saving the order after processing all the line items
4. I wanted to avoid the Z-table and want to have some global internal table which will be available till the end of the processing of the sales order.
Solution I am thinking of:
1. One option could be creating a global internal table in SAPMV45A program in one of the enhancement points in the TOP declaration. But, that global internal table is not accessible in the enhancement point where I wanted to store the information. Because, I am actually updating the table in a FM.
2. Export it to memory and import it when needed. But, how to update the informaiton in this intenal table(which is in memory) for every line item
Please guide me. Any help on this would be highly appreciated.
Thanks,
Babu Kilari

>
Babu Kilari wrote:
> Solution I am thinking of:
>
> 1. One option could be creating a global internal table in SAPMV45A program in one of the enhancement points in the TOP declaration. But, that global internal table is not accessible in the enhancement point where I wanted to store the information. Because, I am actually updating the table in a FM.
> Babu Kilari
If you are updating this table in a FM, you can always add one tables parameter to the function ( if it is a custom function) and pass the globally declared internal table to the function call in the user exit update the table in the FM and when the end function is reached, you will have the updated internal table again at the user exit after the function call.
Imp- Declare your internal table in MV45ATZZ.
KR,
Advait
Edited by: Advait Gode on Aug 6, 2009 8:16 AM

Read two files and store it to Global Internal table in LSMW

Hi
I have a requirement in LSMW, there are two files which needs to read the data and upload into SAP based on 2nd file data with some conditions.
Example :
File One : Customer Details.
File Two : Customer Master.
when we upload the customer master data into SAP we have to cross check customer aganist file two(customer master).
If the customer is does not exist in the file two, then only we have create the customer other wise skip the record.
How to go about this, can we create any global internal table in LSMW and how to store the 2nd file data for cross check.
I tryed with define two source structures, but at any point of time 1st file data is only one record is available.
Please suggest some solutions.
Advance Thanks
Murali.

Hi Jürgen L.
If customer is exist in the both files, then we need to extend him to other company codes.
Some reasons the data is not available in SAP, for writing select query. apart from this we have to do some validation based on 2nd file data.
Is there any possibility for global internal tables
Thanks
Murali

How to declare global internal table in smartform

Similar Messages

Maybe you are looking for