How to create a simple program

I downloaded JBuilder Foundation and it looks very complicated. I thought I could start a new project like you can in C++ Builder and choose "console application" and it would bring you to the code window with nothing in it or perhaps just a header file or two. But when I create a new project it brings me to a code window with a whole bunch of complicated code already there. And I don't understand any of it. Really what I want to be able to do is start a new project and just type this into the code window:
public class Welcome1 {
public static void main(String args[ ])
System.out.println("Welcome to Java!");
And then click Run and it outputs:
Welcome to Java!
But I don't know how to do that in this JBuilder. I may need to switch to another IDE or maybe just download a text editor and the Java SDK. If you can tell me what I should do that would be good. Thanks

download a text editor and the Java SDK.I'd recommend that. It's easy to learn an IDE afterwards, but many people are incapable of writing and compiling code without an IDE because they don't know how javac works etc.
For simple programs a text editor is more than enough, then once you get your head around the classpath, you're home free!

Similar Messages

How to create a simple idoc in practice? can you provide an example?

how to create a simple idoc in practice? can you provide an example with full source code?

Try with the follwoing steps
Sending System(Outbound ALE Process)
Tcode SALE ³ for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 ¡V Create Model View
Tcode BD82 ¡V Generate partner Profiles & Create Ports
Tcode BD64 ¡V Distribute the Model view
This is Receiving system Settings
Receiving System(Inbound ALE )
Tcode SALE ³ for
a) Define Logical System
b) Assign Client to Logical System
Tcode SM59-RFC Destination
Tcode BD64 ¡V Check for Model view whether it has distributed or not
Tcode BD82 -- Generate partner Profiles & Create Ports
Tcode BD11 Getting Material Data
Tcode WE05 ¡V Idoc List for inbound status codes
Message Type MATMAS
Tcode BD10 ¡V Send Material Data
Tcode WE05 ¡V Idoc List for watching any Errors
1)a Goto Tcode SALE
Click on Sending & Receiving Systems-->Select Logical Systems
Here Define Logical Systems---> Click on Execute Button
go for new entries
1) System Name : ERP000
Description : Sending System
2) System Name : ERP800
Description : Receiving System
press Enter & Save
it will ask Request
if you want new request create new Request orpress continue for transfering the objects
B) goto Tcode SALE
Select Assign Client to Logical Systems-->Execute
000--> Double click on this
Give the following Information
Client : ERP 000
City :
Logical System
Currency
Client role
Save this Data
Step 2) For RFC Creation
Goto Tcode SM59-->Select R/3 Connects
Click on Create Button
RFC Destination Name should be same as partner's logical system name and case sensitive to create the ports automatically while generating the partner profiles
give the information for required fields
RFC Destination : ERP800
Connection type: 3
Description
Target Host : ERP000
System No:000
lan : EN
Client : 800
User : Login User Name
Password:
save this & Test it & RemortLogin
3)
Goto Tcode BD64 -- click on Change mode button
click on create moduleview
short text : xxxxxxxxxxxxxx
Technical Neme : MODEL_ALV
save this & Press ok
select your just created modelview Name :'MODEL_ALV'.
goto add message type
Model Name : MODEL_ALV
sender : ERP000
Receiver : ERP800
Message type :MATMAS
save & Press Enter
4) Goto Tcode BD82
Give Model View : MODEL_ALV
Partner system : ERP800
execute this by press F8 Button
it will gives you sending system port No :A000000015(Like)
5) Goto Tcode BD64
seelct the modelview
goto >edit>modelview-->distribute
press ok & Press enter
6)goto Tcode : BD10 for Material sending
Material : mat_001
Message Type : MATMAS
Logical System : ERP800
and Execute
7)goto Tcode : BD11 for Material Receiving
Material : mat_001
Message Type : MATMAS
and Execute --> 1 request idoc created for message type Matmas
press enter
Thanks & regards
Sreenivas
Here Master Idoc set for Messge type MATMAS-->press Enter
1 Communication Idoc generated for Message Type
this is your IDOC
Take a look at this guide.
http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc
http://www.allsaplinks.com/idoc_sample.html
http://www.sappoint.com/abap/ale.pdf
http://www.sappoint.com/abap/ale2.pdf
http://www.sapgenie.com/ale/configuration.htm
http://www.sappoint.com/abap/ale.pdf
http://www.sappoint.com/abap/ale2.pdf
http://www.sapdevelopment.co.uk/training
http://www.sappro.com/downloads/OneClientDistribution.pdf
http://www.sapgenie.com/sapgenie/docs/ale_scenario_development_procedure.doc
Create The Extension Segment
Transaction: WE31
The first step in extending an IDoc is to create the new segments that will go into that IDoc. There are some rules that you need to follow when creating the segments:
- The name of each segment type must start with Z1
- For each field in the segment you need to define a field name and a
data element.
- The data element for the segment structure must be of data type CHAR.
How to create new segments:
Run the segment maintenance transaction WE31.
Type your new segment name, and click on Create.
Define the fields of your segment:
Field name
Data Element for the field (from the ABAP dictionary).
Do not change the Export length!
Save the segment
Run Segment -->Check to check the segment for consistency.
Release the segment for transport. Select Edit -->Set Release. Note that the Release column now has a check mark.
Create the Extension IDoc Type
Transaction: WE30
After you create the segments to be added to the extension type, you can create the extension type itself. Execute transaction WE30, enter the extension name, select Extension type, and click Create. You now have three options:
Create new type: Does not refer to other extension types
Create copy: Copies info from an extension type that already exists
Create successor: Extends an extension type from a previous release
of R/3. You can only have one version of an extension type for
each release.
Enter the Basic IDoc type that this extension type will extend.
The screen now shows the structure of the IDoc type you used as
a reference.
Position the cursor on one of the segments and click Create. This will insert an extension segment as a child of the selected segment.
NOTE: A segment cannot appear more than once in an IDoc type! You must control the use of duplicate segments with the segment attributes (the next screen).
The segment attribute screen appears. Enter the information and save.
Extension segments should not be mandatory (for future upgrades), and will need to have minimum and maximum number of instances defined. This answers the question, for each instance of the parent segment, how many instances of the child segment may we have?
You can press the Segment Editor pushbutton to view or change the segment definition.
Create the new Message Type
You can only use an extension IDoc type by assigning it to a message type. You can create a new message type for this.
First the message type itself needs to be created.
Transaction: WE81
Create a new entry and save. Use SAP established customer naming conventions (good form is to start with a Z and retain the rest of the related SAP message type, so, for example, MATMAS becomes ZMATMAS).
After creating the message type, associate it with the corresponding Basic IDoc Type and Extension Type. This relationship is used when IDocs are sent to or received from a partner to determine what segments are valid and what the hierarchy for those segments is.
Transaction: WE82
Create a new entry and enter the Message type, Basic IDoc type, Extension type, and Release, and save your data. Note: the release assignment is not valid for prior SAP releases.
One message type can be associated with many basic IDoc types; however, you need a one-to-one relationship for distribution via ALE.
regards,
srinivas
*reward for useful answers*</b>

HOW TO CREATE A DRILLDOWN PROGRAM NEED EXAMPLE

HAI FRIENDS
1 I WANT TO KNOW HOW TO CREATE A DRILLDOWN PROGRAM NEED EXAMPLE IN ABAP
2 NEED ABAP PROGRAM EBOOK
PLZ DO IT

CHECK THIS ALV DRILL DOWN REPORT
*& Report ZHAI_SD_CUSTOMER_DETAILS_ALV
REPORT ZHAI_SD_CUSTOMER_DETAILS_ALV.
TYPE-POOLS: SLIS.
    TYPES DECLARATIONS
TABLES : KNA1.
DATA : BEGIN OF IT_CUST OCCURS 0,
KUNNR LIKE KNA1-KUNNR,
NAME1 LIKE KNA1-NAME1,
LAND1 LIKE KNA1-LAND1,
ORT01 LIKE KNA1-ORT01,
STRAS LIKE KNA1-STRAS,
PSTLZ LIKE KNA1-PSTLZ,
       END OF IT_CUST.
DATA:BEGIN OF IT_SALE OCCURS 0,
VBELN LIKE VBAK-VBELN,"SALES DOC NO
AUDAT LIKE VBAK-AUDAT,"DATE RECIEVED AND SENT
AUART LIKE VBAK-AUART,"SALES DOC LIKE
NETWR LIKE VBAK-NETWR,"NET VALUE IN DOC CURRENCY
KUNNR LIKE VBAK-KUNNR,
      END OF IT_sale.
TYPES: BEGIN OF TY_ITEM,
VBELN TYPE VBAP-VBELN,
POSNR TYPE VBAP-POSNR,"ITEM NO
MATNR TYPE VBAP-MATNR,"MATERIAL NO
CHARG TYPE VBAP-CHARG,"BATCH
MATKL TYPE VBAP-MATKL,"MATERIAL GROUP
MEINS TYPE VBAP-MEINS,"BASE UNIT OF MEASURE
END OF TY_ITEM.
SELECT-OPTIONS : S_KUNNR FOR KNA1-KUNNR.
     INTERNAL TABLES
DATA:
     IT_CUST TYPE TABLE OF TY_CUST,
     IT_SALE TYPE TABLE OF TY_SALE,
      IT_ITEM TYPE TABLE OF TY_ITEM.
                   INTERNAL TABLES FOR ALV
DATA: IT_FCAT   TYPE SLIS_T_FIELDCAT_ALV,
      IT_FCAT1 TYPE SLIS_T_FIELDCAT_ALV,
      IT_FCAT3 TYPE SLIS_T_FIELDCAT_ALV.
DATA: IT_EVENTS TYPE TABLE OF   slis_alv_event,
      IT_EVENTS1 TYPE TABLE OF SLIS_ALV_EVENT,
      IT_EVENTS2 TYPE TABLE OF SLIS_ALV_EVENT.
DATA: IT_LISTHEADER1 TYPE SLIS_T_LISTHEADER,
      IT_LISTHEADER TYPE TABLE OF slis_listheader,
      IT_LISTHEADER3 TYPE TABLE OF SLIS_LISTHEADER,
      IT_FOOTER TYPE TABLE OF SLIS_LISTHEADER.
DATA: IT_SORT TYPE SLIS_T_SORTINFO_ALV,
      WA_SORT LIKE LINE OF IT_SORT.
                   WORK AREAS FOR ALV
DATA: WA_LAYOUT TYPE SLIS_LAYOUT_ALV,
      WA_LAYOUT1 TYPE SLIS_LAYOUT_ALV,
      WA_FCAT    LIKE LINE OF IT_FCAT,
      WA_FCAT1   LIKE LINE OF IT_FCAT1,
      WA_FCAT3   LIKE LINE OF IT_FCAT3,
      WA_EVENTS LIKE LINE OF IT_EVENTS,
      WA_EVENTS1 LIKE LINE OF IT_EVENTS,
      WA_EVENTS2 LIKE LINE OF IT_EVENTS.
        WORK VARIABLES
DATA: W_REPID TYPE SY-REPID,
      W_KUNNR TYPE KNA1-KUNNR.
$$**----
   WORK AREAS
    MACROS
DEFINE ADD_FCAT1..
WA_FCAT1-COL_POS = &1.
WA_FCAT1-FIELDNAME = &2.
WA_FCAT1-TABNAME = &3.
WA_FCAT1-REF_TABNAME = &4.
WA_FCAT1-KEY = &5.
WA_FCAT1-DO_SUM = &6.
WA_FCAT1-HOTSPOT = &7.
WA_FCAT1-EMPHASIZE = &8.
APPEND WA_FCAT1 TO IT_FCAT1.
END-OF-DEFINITION.
START-OF-SELECTION.
PERFORM F_GET_DATA.
PERFORM F_BUILD_FCAT.
PERFORM F_GET_EVENTS.
PERFORM F_BUILD_LAYOUT USING WA_LAYOUT.
PERFORM F_GET_DISPLAY.
*&      Form F_GET_DATA
FORM F_GET_DATA .
SELECT   KUNNR
          NAME1
          LAND1
          ORT01
          STRAS
          PSTLZ FROM KNA1
          INTO TABLE
IT_CUST WHERE KUNNR IN S_KUNNR.
ENDFORM.                    " F_GET_DATA
*&      Form F_GET_DISPLAY
      text
--> p1        text
<-- p2        text
FORM F_GET_DISPLAY .
CLEAR W_REPID.
MOVE SY-REPID TO W_REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = w_repid
I_CALLBACK_PF_STATUS_SET          = ' '
I_CALLBACK_USER_COMMAND           = ' '
     I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = 'DUCK'
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
   IS_LAYOUT                         = WA_LAYOUT
     IT_FIELDCAT                        = IT_FCAT
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
     IT_EVENTS                          = IT_EVENTS
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = IT_CUST
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " F_GET_DISPLAY
*&      Form F_GET_EVENTS
      text
--> p1        text
<-- p2        text
FORM F_GET_EVENTS .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      I_LIST_TYPE     = 0
    IMPORTING
      ET_EVENTS       = IT_EVENTS
    EXCEPTIONS
      LIST_TYPE_WRONG = 1
      OTHERS          = 2.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SORT IT_EVENTS.
READ TABLE IT_EVENTS INTO WA_EVENTS
WITH KEY NAME = 'TOP_OF_PAGE' BINARY SEARCH.
IF SY-SUBRC EQ 0.
WA_EVENTS-FORM = 'F_TOP_OF_PAGE'.
MODIFY IT_EVENTS INDEX SY-TABIX FROM
WA_EVENTS TRANSPORTING FORM.
ENDIF.
READ TABLE IT_EVENTS INTO WA_EVENTS
WITH KEY NAME = 'USER_COMMAND' BINARY SEARCH.
IF SY-SUBRC EQ 0.
WA_EVENTS-FORM = 'F_USER_COMMAND'.
MODIFY IT_EVENTS FROM WA_EVENTS INDEX
SY-TABIX TRANSPORTING FORM.
READ TABLE IT_EVENTS INTO WA_EVENTS
WITH KEY NAME = 'USER_COMMAND' BINARY SEARCH.
ENDIF.
READ TABLE IT_EVENTS INTO WA_EVENTS WITH
KEY NAME = 'END_OF_PAGE' BINARY SEARCH.
IF SY-SUBRC EQ 0.
WA_EVENTS-FORM = 'F_END_OF_PAGE'.
MODIFY IT_EVENTS FROM WA_EVENTS
INDEX SY-TABIX TRANSPORTING FORM.
ENDIF.
ENDFORM.                    "F_GET_EVENTS
*&      Form F_BUILD_LAYOUT
FORM F_BUILD_LAYOUT USING P_WA_LAYOUT LIKE WA_LAYOUT .
CLEAR P_WA_LAYOUT.
P_WA_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
*P_WA_LAYOUT-F2CODE = '&ETA'.
*p_wa_layout-detail_popup = 'X'.
P_WA_LAYOUT-DETAIL_TITLEBAR = 'ALV REPORT'.
*P_WA_LAYOUT-CONFIRMATION_PROMPT = 'X'.
ENDFORM.                    " F_BUILD_LAYOUT
*&      Form F_TOP_OF_PAGE
FORM F_TOP_OF_PAGE .
refresh it_listheader.
DATA: LS_LIST TYPE SLIS_LISTHEADER.
LS_LIST-TYP = 'H'.
LS_LIST-INFO = TEXT-004.
APPEND LS_LIST TO IT_LISTHEADER.
LS_LIST-typ = 'S'.
LS_LIST-key = 'Date: '.
CONCATENATE sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO LS_LIST-info. "todays date
append LS_LIST to IT_LISTHEADER.
clear: LS_LIST.
LS_LIST-TYP = 'S'.
LS_LIST-KEY = 'DEVELOPED:'.
LS_LIST-INFO = SY-UNAME.
APPEND LS_LIST TO IT_LISTHEADER.
CLEAR LS_LIST.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = IT_LISTHEADER
      I_LOGO             = 'GLOBAL'.
ENDFORM.                    " F_TOP_OF_PAGE
*&      Form F_BUILD_FCAT
FORM F_BUILD_FCAT .
CLEAR: W_REPID,
       IT_FCAT.
MOVE SY-REPID TO W_REPID.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
   EXPORTING
     I_PROGRAM_NAME               = W_REPID
     I_INTERNAL_TABNAME           = 'IT_CUST'
     I_INCLNAME                   = W_REPID
    CHANGING
      CT_FIELDCAT                  = IT_FCAT
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.
ENDFORM.                    " F_BUILD_FCAT
*&      Form F_USER_COMMAND
FORM F_USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
                          RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1'.
IF RS_SELFIELD-FIELDNAME = 'KUNNR'.
READ TABLE IT_CUST
INDEX RS_SELFIELD-TABINDEX.
MOVE rs_selfield-value TO W_KUNNR.
IF IT_CUST IS NOT INITIAL.
   PERFORM F_GET_SECONDARY_DATA.
   PERFORM F_BUILD_FCAT1.
   PERFORM F_BUILD_EVENTS.
   PERFORM F_GET_SORT.
   PERFORM F_BUILD_LAYOUT1.
PERFORM F_GET_DISPLAY1.
ENDIF.
ENDIF.
ENDCASE.
ENDFORM.                    " F_USER_COMMAND
*&      Form F_GET_SECONDARY_DATA
FORM F_GET_SECONDARY_DATA .
data:v_data.
SELECT VBELN
          AUDAT
          AUART
          NETWR
KUNNR FROM VBAK INTO TABLE IT_SALE
WHERE KUNNR EQ IT_CUST-KUNNR.
IF IT_SALE[] IS INITIAL .
   CALL FUNCTION 'POPUP_TO_CONFIRM'
     EXPORTING
      TITLEBAR                    = SY-REPID
     DIAGNOSE_OBJECT             = ' '
       TEXT_QUESTION               = 'NO SALES FOR THIS CUSTOMER'
     TEXT_BUTTON_1               = 'Ja'(001)
     ICON_BUTTON_1               = ' '
     TEXT_BUTTON_2               = 'Nein'(002)
     ICON_BUTTON_2               = ' '
      DEFAULT_BUTTON              = '1'
      DISPLAY_CANCEL_BUTTON       = 'X'
     USERDEFINED_F1_HELP         = ' '
     START_COLUMN                = 25
     START_ROW                   = 6
     POPUP_TYPE                  =
     IV_QUICKINFO_BUTTON_1       = ' '
     IV_QUICKINFO_BUTTON_2       = ' '
    IMPORTING
      ANSWER                      = v_data
   TABLES
     PARAMETER                   =
    EXCEPTIONS
      TEXT_NOT_FOUND              = 1
      OTHERS                      = 2
   IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
   ENDIF.
case v_data.
when '2'.
leave screen.
when 'A'.
leave to screen '0'.
endcase.
ENDIF.
ENDFORM.                    " F_GET_SECONDARY_DATA
*&      Form F_BUILD_FCAT1
FORM F_BUILD_FCAT1 .
REFRESH IT_FCAT1.
CLEAR WA_FCAT1.
ADD_FCAT1:
'1' 'VBELN' 'VBAK' 'VBAK' 'X' ' ' 'X' 'C500',
'2' 'AUDAT' 'VBAK' 'VBAK' ' ' ' ' ' ' 'C400',
'3' 'AUART' 'VBAK' 'VBAK' ' ' ' ' ' ' 'C100',
'4' 'NETWR' 'VBAK' 'VBAK' ' ' 'X' ' ' 'C300'.
ENDFORM.                    " F_BUILD_FCAT1
*&      Form F_GET_DISPLAY1
      text
--> p1        text
<-- p2        text
FORM F_GET_DISPLAY1 .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM                = SY-REPID
I_CALLBACK_PF_STATUS_SET          = ' '
    I_CALLBACK_USER_COMMAND           = 'F_USER_COMMAND1'
     I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE1'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
IS_LAYOUT                         =
     IT_FIELDCAT                       = IT_FCAT1
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
   IT_SORT                            = IT_SORT
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
     IT_EVENTS                         = IT_EVENTS1
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = IT_SALE
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " F_GET_DISPLAY1
*&      Form F_BUILD_EVENTS
FORM F_BUILD_EVENTS .
clear wa_events1.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
   EXPORTING
     I_LIST_TYPE           = 0
   IMPORTING
     ET_EVENTS             = IT_EVENTS1.
EXCEPTIONS
LIST_TYPE_WRONG       = 1
OTHERS                = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
SORT IT_EVENTS1.
read table It_events1 with key name = 'TOP_OF_PAGE'
into WA_eventS1.
if sy-subrc = 0.
    move 'F_TOP_OF_PAGE1' to WA_EventS1-form.
    append WA_eventS1 to it_events1.
endif.
READ TABLE IT_EVENTS WITH KEY NAME = 'USER_COMMAND'
INTO WA_EVENTS1.
IF SY-SUBRC = 0.
MOVE 'F_USER_COMMAND1' TO WA_EVENTS1-FORM.
APPEND WA_EVENTS1 TO IT_EVENTS1.
ENDIF.
*READ TABLE IT_EVENTS WITH KEY NAME = 'SUBTOTAL_TEXT'
INTO WA_EVENTS1.
IF SY-SUBRC = 0.
MOVE 'F_SUBTOTAL_TEXT' TO WA_EVENTS1-FORM.
APPEND WA_EVENTS1 TO IT_EVENTS1.
ENDIF.
ENDFORM.                    " F_BUILD_EVENTS
*&      Form F_TOP_OF_PAGE1
FORM F_TOP_OF_PAGE1 .
DATA: LS_HEADER TYPE SLIS_LISTHEADER.
REFRESH : IT_LISTHEADER1.
LS_HEADER-TYP = 'H'.
LS_HEADER-INFO = 'SALES ORDER DETAILS FOR CUSTOMER'.
APPEND LS_HEADER TO it_listheader1.
CLEAR LS_HEADER.
LS_HEADER-TYP = 'S'.
LS_HEADER-KEY = 'CUSTOMER NO:'.
LS_HEADER-INFO = W_KUNNR.
APPEND LS_HEADER TO IT_LISTHEADER1.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY       = IT_LISTHEADER1
     I_LOGO                   = 'DUCK'
I_END_OF_LIST_GRID       =
I_ALV_FORM               =
ENDFORM.                    " F_TOP_OF_PAGE
*&      Form F_END_OF_PAGE
      text
--> p1        text
<-- p2        text
FORM F_END_OF_PAGE .
DATA:LS_FOOTER TYPE SLIS_LISTHEADER.
LS_FOOTER-TYP = 'S'.
LS_FOOTER-KEY = SY-UNAME.
LS_FOOTER-INFO = 'DEVELOPED BY:'.
APPEND LS_FOOTER TO IT_FOOTER.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
    IT_LIST_COMMENTARY       = IT_FOOTER
ENDFORM.                    " F_END_OF_PAG
*&      Form F_USER_COMMAND1
      text
--> p1        text
<-- p2        text
FORM F_USER_COMMAND1 USING R_UCOMM LIKE SY-UCOMM
                           RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&IC1'.
READ TABLE IT_SALE INDEX RS_SELFIELD-TABINDEX.
PERFORM F_GET_SECONDARY2.
PERFORM F_GET_FCAT3 USING:
'VBELN' '1' 'C' '12' 'SALES_DOC'   'M' 'VBAP' 'X' 'C51' ' ',
'POSNR' '2' ' ' '5' 'ITEM_NO'      'M' 'VBAP' ' ' 'C61' ' ',
'MATNR' '3' ' ' '12' 'MATERIAL_NO' 'M' 'VBAP' ' ' 'C71' ' ',
'CHARG' '4' ' ' '10' 'BATCH_NO'    'M' 'VBAP' ' ' 'C41' ' ',
'MATKL' '5' ' ' '10' 'MAT_GROUP'   'M' 'VBAP' ' ' 'C31' ' ',
'MEINS' '6' ' ' '12' 'BASE_UNIT'   'M' 'VBAP' ' ' 'C21' 'X' .
PERFORM F_GET_EVENTS2 USING WA_EVENTS2
                     CHANGING IT_EVENTS2.
PERFORM F_GET_DISPLAY3.
REFRESH IT_FCAT3.
ENDCASE.
ENDFORM.                    " F_USER_COMMAND1
*&      Form F_GET_SECONDARY2
      text
--> p1        text
<-- p2        text
FORM F_GET_SECONDARY2 .
SELECT VBELN
       POSNR
       MATNR
       MATKL
       MEINS
       FROM VBAP INTO
       TABLE IT_ITEM WHERE
       VBELN EQ IT_SALE-VBELN.
IF SY-DBCNT EQ 0.
MESSAGE E000(ZHAI) WITH TEXT-KO1.
ENDIF.
ENDFORM.                    " F_GET_SECONDARY2
*&      Form F_GET_DISPLAY3
      text
--> p1        text
<-- p2        text
FORM F_GET_DISPLAY3 .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
   I_CALLBACK_PROGRAM                = SY-REPID
   I_CALLBACK_PF_STATUS_SET          = 'F_PF_STATUS'
I_CALLBACK_USER_COMMAND           = ' '
I_CALLBACK_TOP_OF_PAGE            = 'F_TOP_OF_PAGE3'
   I_CALLBACK_HTML_TOP_OF_PAGE       = 'F_TOP_OF_PAGE3'
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      =
I_GRID_SETTINGS                   =
   IS_LAYOUT                         = WA_LAYOUT1
   IT_FIELDCAT                       = IT_FCAT3
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           = IT_SORT
IT_FILTER                         =
IS_SEL_HIDE                       =
I_DEFAULT                         = 'X'
I_SAVE                            = ' '
IS_VARIANT                        =
   IT_EVENTS                         = IT_EVENTS2
IT_EVENT_EXIT                     =
IS_PRINT                          =
IS_REPREP_ID                      =
I_SCREEN_START_COLUMN             = 0
I_SCREEN_START_LINE               = 0
I_SCREEN_END_COLUMN               = 0
I_SCREEN_END_LINE                 = 0
I_HTML_HEIGHT_TOP                 = 0
I_HTML_HEIGHT_END                 = 0
IT_ALV_GRAPHICS                   =
IT_HYPERLINK                      =
IT_ADD_FIELDCAT                   =
IT_EXCEPT_QINFO                   =
IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
E_EXIT_CAUSED_BY_CALLER           =
ES_EXIT_CAUSED_BY_USER            =
TABLES
    T_OUTTAB                          = IT_ITEM
EXCEPTIONS
PROGRAM_ERROR                     = 1
OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " F_GET_DISPLAY3
*&      Form F_GET_FCAT3
FORM F_GET_FCAT3 USING    VALUE(P1)
                           VALUE(P2)
                           VALUE(P3)
                           VALUE(P4)
                           VALUE(P5)
                           VALUE(P6)
                           VALUE(P7)
                           VALUE(P8)
                           VALUE(P9)
                          VALUE(P10).
CLEAR WA_FCAT3.
WA_FCAT3-FIELDNAME = P1.
WA_FCAT3-COL_POS = P2.
WA_FCAT3-JUST = P3.
WA_FCAT3-OUTPUTLEN = P4.
WA_FCAT3-SELTEXT_M = P5.
WA_FCAT3-DDICTXT = P6.
WA_FCAT3-REF_TABNAME = P7.
WA_FCAT3-HOTSPOT = P8.
WA_FCAT3-EMPHASIZE = P9.
WA_FCAT3-DO_SUM = P10.
APPEND WA_FCAT3 TO IT_FCAT3.
ENDFORM.                    " F_GET_FCAT3
*&      Form F_BUILD_LAYOUT1
      text
--> p1        text
<-- p2        text
FORM F_BUILD_LAYOUT1 .
WA_LAYOUT1-totals_text = 'TOTAL'.
wa_layout1-detail_popup = 'X'.
ENDFORM.                    " F_BUILD_LAYO
*&      Form F_GET_EVENTS2
      text
     -->P_IT_EVENTS2 text
     <--P_WA_EVENTS2 text
FORM F_GET_EVENTS2 USING    VALUE(P_WA_EVENTS2) LIKE WA_EVENTS2
                    CHANGING P_IT_EVENTS2 LIKE IT_EVENTS2.
P_WA_EVENTS2-NAME = 'HTML_TOP_OF_PAGE'.
P_WA_EVENTS2-FORM = 'F_TOP_OF_PAGE3'.
APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
CLEAR P_WA_EVENTS2.
P_WA_EVENTS2-NAME = 'PF_STATUS'.
P_WA_EVENTS2-FORM = 'F_PF_STATUS'.
APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
CLEAR P_WA_EVENTS2.
P_WA_EVENTS2-NAME = 'USER_COMMAND'.
P_WA_EVENTS2-FORM = 'F_USER_COMMAND3'.
APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
CLEAR P_WA_EVENTS2.
p_wa_events2-name = 'HTML_END_OF_LIST'.
P_WA_EVENTS2-FORM = 'F_HTML_END_OF_LIST'.
APPEND P_WA_EVENTS2 TO P_IT_EVENTS2.
CLEAR p_wa_events2.
ENDFORM.                    " F_GET_EVENTS2
*&      Form F_TOP_OF_PAGE3
      text
--> p1        text
<-- p2        text
FORM F_TOP_OF_PAGE3 USING DOCUMENT TYPE REF TO cl_dd_document .
data : link_area type ref to cl_dd_area,
       picture_area type ref to cl_dd_area.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
    TEXT          = 'ALV REPORT'
   TEXT_TABLE    =
   FIX_LINES     =
   SAP_STYLE     =
    SAP_COLOR     = cl_dd_area=>list_background_int
    SAP_FONTSIZE = 'LARGE'
    SAP_FONTSTYLE = 'TIMES'
    SAP_EMPHASIS = 'STRONG'
   STYLE_CLASS   =
CHANGING
   DOCUMENT      =
CALL METHOD DOCUMENT->NEW_LINE.
CALL METHOD DOCUMENT->ADD_PICTURE
EXPORTING
    PICTURE_ID       = 'LOGO1'
    WIDTH            = '10%'
ENDFORM.                    " F_TOP_OF_PAGE3
*&      Form F_GET_SORT
      text
--> p1        text
<-- p2        text
FORM F_GET_SORT .
WA_SORT-FIELDNAME = 'NETWR'.
WA_SORT-SPOS = 4.
WA_SORT-UP = 'X'.
WA_SORT-SUBTOT = 'X'.
APPEND WA_SORT TO IT_SORT.
ENDFORM.                    " F_GET_SORT
*&      Form F_PF_STATUS
      text
--> p1        text
<-- p2        text
FORM F_PF_STATUS USING RS_EXTAB TYPE SLIS_T_EXTAB .
SET PF-STATUS 'ZHAIALV' EXCLUDING RS_EXTAB.
ENDFORM.                    " F_PF_STATUS
*&      Form F_USER_COMMAND3
      text
--> p1        text
<-- p2        text
FORM F_USER_COMMAND3 USING R_UCOMM LIKE SY-UCOMM
                           RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
WHEN '&SALE'.
IF RS_SELFIELD-FIELDNAME = 'VBELN'.
SET parameter ID 'AUN' FIELD rs_selfield-value.
CALL TRANSACTION 'VA02' AND SKIP FIRST SCREEN.
ENDIF.
WHEN '&MAT'.
IF RS_SELFIELD-FIELDNAME = 'MATNR'.
SET PARAMETER ID 'MAT' FIELD RS_SELFIELD-VALUE.
CALL TRANSACTION 'MM02' AND SKIP FIRST SCREEN.
ENDIF.
ENDCASE.
ENDFORM.                    " F_USER_COMMAND3
*&      Form F_HTML_END_OF_LIST
      text
--> p1        text
<-- p2        text
FORM F_HTML_END_OF_LIST USING DOCUMENT TYPE REF TO CL_DD_DOCUMENT.
DATA : PAGE TYPE SDYDO_TEXT_ELEMENT.
MOVE SY-PAGNO TO PAGE.
CALL METHOD DOCUMENT->ADD_TEXT
EXPORTING
    TEXT          = PAGE
   TEXT_TABLE    =
   FIX_LINES     =
   SAP_STYLE     =
   SAP_COLOR     =
   SAP_FONTSIZE =
   SAP_FONTSTYLE =
   SAP_EMPHASIS =
   STYLE_CLASS   =
CHANGING
   DOCUMENT      =
ENDFORM.                    " F_HTML_END_OF_LIS

How to create a schedule program in java

Hello Friends ,
Can any one provide me with an example how to create a schedule program using java.util.timer etc . I am in need of a program which should run as a schedule job that searches for a file in a directory and read the latest files from that directory in every minute of time as a schedule job .
Thanks
mahesh

I don't feel like writing my own example, but google will be happy to provide you with an example.

How can i make simple program to match colors ?(photos taken by camera)

how can i make simple program to match colors ?(photos taken by camera)

Hi khaledyr,
use a "random number" and compare for ">0.5" to get a (1 or 0) signal
What exactly are you searching for?
- Hints for choosing hardware?
- How to output voltage or relais signals?
- Help on using DAQ(mx)?
- Help on generating (boolean) waveforms?
Message Edited by GerdW on 04-16-2010 08:15 AM
Best regards,
GerdW
CLAD, using 2009SP1 + LV2011SP1 + LV2014SP1 on WinXP+Win7+cRIO
Kudos are welcome

How to creat a Dialer Program in Java

Help me in creating a Dialer program which dials to a specifie ISP.It should work like the Dialer provided in windows.Help!! Can we code such a program in JAVA.If yes, HOW!!!!
Abhishek([email protected])

Get the Java Communications package - javax.comm (comm.jar)
This will give you access to Windows/Solaris serial (and parallel) ports from Java.
You then need some simple modem handling to perform the dial and initial handshake.
Steve

How to Run a simple program using JMS Queue.!!

Hi All,
I am trying to run simple program on JMS Queue.
Using SOA Suite 10.1.3.2
I created a connection factory and queue using EM.
Connection Factory => Domain : Queue JNDI Location : jms/sidConnectionFactory
Queue Name : SidQueue JNDI Location : jms/SidQueue
Tried running a simple java class to send the messages to queue.[Pls find the file attached].
Getting this error
javax.naming.NamingException: META-INF/application-client.xml not found (see J2EE spec, application-client chapter for requirements and format of the file)
at oracle.j2ee.naming.ApplicationClientInitialContextFactory.getRequiredClasspathResource(ApplicationClientInitialContextFactory.java:239)
at oracle.j2ee.naming.ApplicationClientInitialContextFactory.getArchive(ApplicationClientInitialContextFactory.java:161)
at oracle.j2ee.naming.ApplicationClientInitialContextFactory.getInitialContext(ApplicationClientInitialContextFactory.java:111)
at javax.naming.spi.NamingManager.getInitialContext(NamingManager.java:667)
Can some one tell me how i need to create this file and where to place this[i.e is this need to be placed in my project or some directory structure of <SOA-HOME>
Thx,
Siddhardha.
Code:
package demo;
import java.io.IOException;
import java.io.PrintWriter;
import java.util.Properties;
import javax.jms.*;
import javax.naming.*;
import javax.servlet.*;
import javax.servlet.http.*;
public class JMSQueue {
public static void main(String args[])
QueueConnection queueConnection;
QueueSession queueSession;
//private MessageProducer producer;
QueueSender queueSender;
try {
String message = "Test";
String connectionFactoryName = "jms/sidConnectionFactory";
String destinationName = "jms/SidQueue";
/*Do i need to use this .......
* If so where is the error in below statements...
* Properties env = new Properties( );
// ... specify the JNDI properties specific to the vendor
env.put(Context.SECURITY_PRINCIPAL, "admin");
env.put(Context.SECURITY_CREDENTIALS, "welcome");
env.put(Context.INITIAL_CONTEXT_FACTORY,
"com.evermind.server.ApplicationClientInitialContextFactory");
env.put(Context.PROVIDER_URL,
"ormi://localhost:23791");
Context ctx = new InitialContext();
// Get the connection factory.
QueueConnectionFactory cf = (QueueConnectionFactory)ctx.lookup(connectionFactoryName);
// Get the destination.
Queue destination = (Queue) ctx.lookup(destinationName);
// Use the connection factory to create a connection.
queueConnection = cf.createQueueConnection();
// Start the connection.
queueConnection.start();
// Use the connection to create a session.
queueSession = queueConnection.createQueueSession(false, Session.AUTO_ACKNOWLEDGE);
// Use the session and destination to create a message producer and a message consumer.
//producer = queueSession.createProducer(destination);
queueSender = queueSession.createSender(destination);
TextMessage msg = queueSession.createTextMessage(message);
queueSender.send(msg);
queueSession.close();
queueConnection.close();
catch (Exception ex) {
ex.printStackTrace();
* Attached following libraries to the Project
* jms.jar
* optic.jar
* oc4jclient.jar
*/

Hi,
You need to change the INITIAL_CONTEXT_FACTORY to com.evermind.server.RMIInitialContextFactory.
Regards,
Sandeep

How i create a simple sequence in OWB (Example)

Hi,
i want create an simple sequence in OWB. But how i make a simple sequence in the oracle data Warehouse Builder.
Until now i goes into expression Builder of the sequence.
where already written is:
*"SEQ_ACCOUNT".NEXTVAL*
so my idea was to write behind this start with 1 increment by 1
also looks it practically so
*"SEQ_ACCOUNT".NEXTVAL start with 1 increment by 1*
but this doesn´t work. But was is wrong?
Can me give anyone an concrete example for a simple sequence or show how it must write that it will be correct.
I look forward for your replies :)

I have found the solution for this problem :) To create a seqeunce goes to sequences in project explorer ---> new sequences ---> give name and bla bla bla --> right click on to created sequence and choose confiugre. Here you can under sequence parameter configure things as Increment By and Start with But how goes it into expression builder of a sequence?

How to create Add-On program for SAP Business One 2007

Hi,
When I create my Add-On into SBO I have some issues.
Which program do I use to create an Add-On into SBO?
Is there a URL or Path where I find the program?
I am using a 2003 program which is built by my colleague.
I assume SAP provide the Add-On program for SAP Business One 2007
Thank you,
Rune

Rune,
At a high level ...
1) VS2005
2) Compile your program
3) Generate and Add-on Identifier
4) Create a registration datafile
5) Create the setup program consisting of your .EXE and the .ARD file
6) Add-On is created and running in SBO
Again ... the details on deploying and packaging your add-on can be found in the SAP Business One SDK Help Center Documentation and the SDK eLearning.
Also, you can use B1DE using the Simple Installer or Professional Installer will do most of the work for you after you have coded the add-on.
Eddy
Edited by: Edward Neveux on Jan 30, 2008 9:11 PM

How to create a simple app using the MVC approach?

Hello gurus i'm trying to learn the SAPUI5 and i'm trying to create a simple app using the MVC i created the app and trying to add a lable to the view but there is nothing appear when i run it the code for the HTML page
<!DOCTYPE HTML>
<html>
<head>
<meta http-equiv="X-UA-Compatible" content="IE=edge">
<meta http-equiv='Content-Type' content='text/html;charset=UTF-8'/>
<script src="https://sapui5.hana.ondemand.com/resources/sap-ui-core.js"
id="sap-ui-bootstrap"
data-sap-ui-libs="sap.m"
data-sap-ui-theme="sap_bluecrystal">
</script>

<script>
sap.ui.localResources("mytestapp");
var view = sap.ui.view({id:"idshell1", viewName:"mytestapp.shell", type:sap.ui.core.mvc.ViewType.JS});
view.placeAt("content");
</script>
</head>
<body class="sapUiBody" role="application">
<div id="content"></div>
</body>
</html>
the code for the view
sap.ui.jsview("mytestapp.shell", {
/** Specifies the Controller belonging to this View.
* In the case that it is not implemented, or that "null" is returned, this View does not have a Controller.
* @memberOf mytestapp.shell
getControllerName : function() {
return "mytestapp.shell";
/** Is initially called once after the Controller has been instantiated. It is the place where the UI is constructed.
* Since the Controller is given to this method, its event handlers can be attached right away.
* @memberOf mytestapp.shell
createContent : function(oController) {
var oLabel = new sap.ui.commons.Label("l1");
oLabel.setText("Test label");
oLabel.placeAt("content");
i dont know what is wrong or if i should use a container to display my controls
any help will be appreciated
thanks in advance

Hi,
Instead of oLabel.placeAt("content"); use return oLabel;
so it will as below,
createContent : function(oController) {
var oLabel = new sap.ui.commons.Label("l1");
oLabel.setText("Test label");
return oLable;
Regards,
Chandra

How to create a simple input form in BPC 10.0 and the details are below

Hi Experts,
I would like to know how to create attached input form and what are the dimension would require to use in order to populate correct report
Please provide your comments and the sample report has been attached.
MGA Index
Column
Head Count Planning Required
Approver authority
Asset
Row_Cost Center
Business Development
Finance
Procurement -
C&P
Legal
HSS & Environment
Petroleum Engg
Drilling
Subsurface
Thanks in advance.
Regards,
SK.

Hello,
The new update of Muse allows you to use the Webforms widget with a non Business Catalyst host as well.
However, Captcha is something which currently cannot be used via Muse without using Business Catalyst as host.
This document might be of some help : http://forums.adobe.com/docs/DOC-3581
Regards,
Sachin

How I create a simple instaltion to Oracle 10g Client

Firstly I dont know where I post about this... So Post here. I need create a Simple instalation to Oracle Client...
example: Next, next and conclude. when I define the parameters previously... this is possible?

Hi;
You need to use response file
http://docs.oracle.com/html/B13804_02/advance.htm
http://docs.oracle.com/cd/B19306_01/install.102/b14312/advance.htm
Also please use search mechanism which we discussed similar issue many times. Also notice 10g not supported anymore.
PS:Please dont forget to change thread status to answered if it possible when u belive your thread has been answered, it pretend to lose time of other forums user while they are searching open question which is not answered,thanks for understanding
Regard
Helios

How to create a BDC program for given recording.

i have to create a BDC program for uploading a file.
currently i am using call function
CALL FUNCTION 'F4_FILENAME'

just check out the code below it is for updating two transactions
                       types Declaration                      *
types: begin of t_tab1 ,
            vendor(10),
            material(18),
            pur_org(4),
            wglif(18),
      end of t_tab1.
              Data Declaration                                 *
data : begin of it_tab5 occurs 0,
          vendor(10),
          material(18),
         end of it_tab5.
**DATA : BEGIN OF IT_TAB6 OCCURS 0,
         VENDOR(10),
         MATERIAL(18),
        END OF IT_TAB6.
data: it_tab1 type standard table of t_tab1 with header line.
data: wa_tab1 type t_tab1.
data: wa_tab2 type t_tab1.
data: it_tab3 like bdcdata occurs 0 with header line.
data: it_tab4 like bdcdata occurs 0 with header line.
data: it_tab2 type table of bdcmsgcoll with header line.
data: d_file_name like ibipparms-path,
      d_file_name1 type string.
                   Start-of-selection                        *
start-of-selection.
FM for finding the flat file
call function 'F4_FILENAME'
EXPORTING
PROGRAM_NAME        = SYST-CPROG
DYNPRO_NUMBER       = SYST-DYNNR
FIELD_NAME          = ' '
   importing
     file_name           = d_file_name.
d_file_name1 = d_file_name.
******FM for uploading data from flat file into internal table
call function 'GUI_UPLOAD'
    exporting
      filename                      = d_file_name1
     filetype                      = 'ASC'
HAS_FIELD_SEPARATOR           = ' '
HEADER_LENGTH                 = 0
READ_BY_LINE                  = 'X'
DAT_MODE                      = ' '
CODEPAGE                      = ' '
IGNORE_CERR                   = ABAP_TRUE
REPLACEMENT                   = '#'
CHECK_BOM                     = ' '
IMPORTING
FILELENGTH                    =
HEADER                        =
    tables
      data_tab                      = it_tab5
exceptions
   file_open_error               = 1
   file_read_error               = 2
   no_batch                      = 3
   gui_refuse_filetransfer       = 4
   invalid_type                  = 5
   no_authority                  = 6
   unknown_error                 = 7
   bad_data_format               = 8
   header_not_allowed            = 9
   separator_not_allowed         = 10
   header_too_long               = 11
   unknown_dp_error              = 12
   access_denied                 = 13
   dp_out_of_memory              = 14
   disk_full                     = 15
   dp_timeout                    = 16
   others                        = 17.
if sy-subrc <> 0.
    message id sy-msgid type sy-msgty number sy-msgno
            with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
endif.
                 End-of-selection                         *
end-of-selection.
sort it_tab5 by vendor.
loop at it_tab5.
    perform bdc_dynpro using 'SAPLBG00' 0101 .
    perform bdc_field using 'BDC_OKCODE' '/00' .
    perform bdc_dynpro using 'SAPLBG00' 1000 .
    perform bdc_field using 'BDC_OKCODE' '=BUCH' .
    perform bdc_field using 'BDC_SUBSCR'
    'SAPLBG00                                1101KOPF_1000'.
    perform bdc_field using 'GBGMK-GAART' '2' .
    perform bdc_field using 'GBGMK-GAERB' 'X' .
    perform bdc_field using 'BDC_SUBSCR'
      'SAPLBG00                          1103TAB_SUB_1000'.
    perform bdc_field using 'BDC_CURSOR' 'GBGMP-LSTNR(01)' .
    perform bdc_field using 'GBGMP-LSTNR(01)' it_tab5-material .
   call transaction 'BGM1' using it_tab3 mode 'E' messages into it_tab2
    refresh it_tab3.
    wa_tab1-pur_org = 'ABCP'.
    loop at it_tab2.
    endloop.
    perform bdc_dynpro using 'SAPMM06I' 0100 .
    perform bdc_field using 'BDC_CURSOR' 'EINE-EKORG' .
    perform bdc_field using 'BDC_OKCODE' '/00' .
    perform bdc_field using 'EINA-LIFNR' it_tab5-vendor .
    perform bdc_field using 'EINA-MATNR' it_tab5-material .
    perform bdc_field using 'EINE-EKORG' wa_tab1-pur_org .
    perform bdc_field using 'RM06I-NORMB' 'X' .
    perform bdc_dynpro using 'SAPMM06I' 0101 .
    perform bdc_field using 'BDC_CURSOR' 'EINA-WGLIF' .
    perform bdc_field using 'BDC_OKCODE' '=BU' .
    perform bdc_field using 'EINA-WGLIF' it_tab2-msgv1 .
    call transaction 'ME12' using it_tab3 mode 'E'.
    refresh it_tab3.
    refresh it_tab2.
endloop.
*&      Form BDC_DYNPRO
     Start new screen
     -->P_FNAM text
     -->P_FVAL text
form bdc_dynpro using   program
                         dynpro.
clear it_tab3.
it_tab3-program = program.
it_tab3-dynpro   = dynpro.
it_tab3-dynbegin = 'X'.
append it_tab3.
endform.                    " BDC_DYNPRO
*&      Form BDC_FIELD
   Insert field
     -->P_FNAM text
     -->P_FVAL text
form bdc_field using    fnam
                         fval.
clear it_tab3.
it_tab3-fnam = fnam.
it_tab3-fval = fval.
append it_tab3.
endform.                    " BDC_FIELD
<REMOVED BY MODERATOR>
Edited by: Alvaro Tejada Galindo on Apr 14, 2008 6:20 PM

How to create an online program according to the specification mentioned be

Create an online program according to the specifications mentioned below.
Initial screen: 9000
Screen 9000: next screen = 9001
As you are creating this online program, try to identify each component you are creating: radio buttons, check boxes, frames, and pushbuttons.
The u201CInstructoru201D input/output template should be 30-length character field. The u201CEvaluationu201D input/output template should be a scrollable field with a defined length of 60 characters and a visible length of 30 characters. The u2018Submit Evaluationu2019 pushbutton should have an icon and be assigned the function code u201CEVALu201D. The radio button group should have only one selected as shown in screen below.

There must be something fundamentally wrong with you.
Previous posts by have been blocked yet you still continue to post nonsense. I suspect this time round though your account will be deleted.
Calling all moderators! Show this guy the door please and not to return.

How to create WWWBinaryFileAsset through programming

Hi, Could anybody provide me steps to create WWWBinaryFileAsset through programming.
I followed below steps but i am getting error,
MutableRepository pubRepository = getPublishingRepository();
// pub repository is pointing to /atg/epub/file/SecuredPublishingFileRepository
wwwBinaryFileAsset = pubRepository.createItem(filesProperties.getWwwBinaryFileAssetItemDescriptorName());
     if (wwwBinaryFileAsset != null) {
     wwwBinaryFileAsset.setPropertyValue(filesProperties.getFilenamePropertyName(), imageName);
     wwwBinaryFileAsset.setPropertyValue(filesProperties.getParentFolderPropertyName(), parentFolder);
     wwwBinaryFileAsset.setPropertyValue("content", new File("D:\\media\\images\\hmc\\Penguins.jpg"));
     pubRepository.addItem(wwwBinaryFileAsset);
Thanks,
Raj

Hi,
I am able to create project and adding binary file asset to the project with code as i copy/pasted in this query, after creation, also i am able to see the asset in BCC editor as well.
I can say asset looks like as it was created in BCC editor, means there are nodifferences in assest properties which created through programming from asset created in BCC editor.
I am not sure what i am missing. But only the problem is, i am getting the error when deploying project from BCC, error stack trace is,
/atg/epub/DeploymentServer 14000002:Production:atg.deployment.adapter.DistributedDeploymentAdapter.pollTillDataApplied(DistributedDeploymentAdapter.java:2588) Polling Until Data Appplied
/atg/deployment/DeploymentManager Starting deployment with id: 14000002
/atg/deployment/DeploymentManager Executing deployment in LOCAL mode
/atg/deployment/DeploymentManager item = fileMarker:mark7800001 cause = java.lang.IllegalArgumentException: Negative initial size: -1
/atg/deployment/DeploymentManager at java.io.ByteArrayOutputStream.<init>(ByteArrayOutputStream.java:57)
/atg/deployment/DeploymentManager at atg.deployment.file.FileDeploymentCommandImpl.getUncompressedInputStream(FileDeploymentCommandImpl.java:398)
/atg/deployment/DeploymentManager at atg.deployment.file.FileDeploymentCommandImpl.getInputStream(FileDeploymentCommandImpl.java:470)
/atg/deployment/DeploymentManager at atg.deployment.file.DeploymentProtocolImpl.sendFileDeploymentCommand(DeploymentProtocolImpl.java:913)
/atg/deployment/DeploymentManager at atg.deployment.file.DeploymentProtocolImpl.sendCommand(DeploymentProtocolImpl.java:179)
/atg/deployment/DeploymentManager at atg.deployment.file.FileWorkerThread.runCommand(FileWorkerThread.java:716)
/atg/deployment/DeploymentManager at atg.deployment.file.FileWorkerThread.processMarkerForAddUpdatePhase(FileWorkerThread.java:441)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.processMarkerPhase(DeploymentWorkerThread.java:521)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.run(DeploymentWorkerThread.java:300)
/atg/deployment/DeploymentManager message = Deployment Failed time = Wed Jun 20 09:12:50 IST 2012 atg.deployment.DeploymentFailure@93d841 java.lang.IllegalArgumentException: Negative initial size: -1
/atg/deployment/DeploymentManager at java.io.ByteArrayOutputStream.<init>(ByteArrayOutputStream.java:57)
/atg/deployment/DeploymentManager at atg.deployment.file.FileDeploymentCommandImpl.getUncompressedInputStream(FileDeploymentCommandImpl.java:398)
/atg/deployment/DeploymentManager at atg.deployment.file.FileDeploymentCommandImpl.getInputStream(FileDeploymentCommandImpl.java:470)
/atg/deployment/DeploymentManager at atg.deployment.file.DeploymentProtocolImpl.sendFileDeploymentCommand(DeploymentProtocolImpl.java:913)
/atg/deployment/DeploymentManager at atg.deployment.file.DeploymentProtocolImpl.sendCommand(DeploymentProtocolImpl.java:179)
/atg/deployment/DeploymentManager at atg.deployment.file.FileWorkerThread.runCommand(FileWorkerThread.java:716)
/atg/deployment/DeploymentManager at atg.deployment.file.FileWorkerThread.processMarkerForAddUpdatePhase(FileWorkerThread.java:441)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.processMarkerPhase(DeploymentWorkerThread.java:521)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.run(DeploymentWorkerThread.java:300)
/atg/deployment/DeploymentManager
/atg/deployment/DeploymentManager Unexpected error occurred. DeploymentWorkerThread terminated prematurely. atg.deployment.DistributedDeploymentException: Exceeded allowable error count (0)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.processMarkerPhase(DeploymentWorkerThread.java:626)
/atg/deployment/DeploymentManager at atg.deployment.DeploymentWorkerThread.run(DeploymentWorkerThread.java:300)
Thanks.
Edited by: 938890 on Jun 19, 2012 9:09 PM

How to create a simple program

Similar Messages

Maybe you are looking for