Hotspot source code

Hi,
We want to make a comparison between the source code of the Hotspot JVM v1.4.2 and the source code of Hotspot v1.6 (to analyze the system calls which are made by Hotspot under Linux when using the threading API).
However, the former seems not to be available since the JVM became Open Source after the release of the 1.4.2 version...
Is it possible to download the sources of Hotspot v1.4.2 somewhere? Is it possible/necessary to ask Sun to obtain these sources?
Thank you in advance,
Fred

Hi!!!
I am doing a project about improving certains features in the JVM ;) so I need to modify the source code of the hotspot :)
Thx!! :D

Similar Messages

  • HotSpot source code explanation

    Hi!!
    I am new in this, so I will try to be as clear as I am able :)
    I need to modify the source code of the hotspot, and I do not find any information about the meaning of each file in the directory tree. I have tried to do it by myself, but it is a bit complicated for me ;P
    Any suggestion, WP, idea or anything about the meaning or the content of each file (as many as you can) will be of a huge help :D:D:D
    Thx!! :D:D:D:D

    Hi!!!
    I am doing a project about improving certains features in the JVM ;) so I need to modify the source code of the hotspot :)
    Thx!! :D

  • After displaying result of report, my report goes back to source code edito

    Hello experts,
    I am currently having a big problem with my report. Here is the problem, after displaying the
    result(write), when I press BACK button it is not going back to my selection-screen which is the
    usual for reports. Now, what happens is that it goes back to the source code or worse, to the main menu of SAP.
    What I want to do is that when I press BACK button it should go to either selection-screen 500 or
    selection-screen 1500.
    Here's a rough flow of what is happening in my report:
    start report -> fetch records based on user input -> display results(not in ALV) ->
    after displaying report, click 'BACK' button -> it goes back to source code
    Now, here's what I want to do:
    start report -> fetch records based on user input -> display results(not in ALV) ->
    after displaying report, click 'BACK' button -> go back to either selection-screen 500 or 1500
    or call again the transaction of my report.
    Help would be greatly appreciated here.

    Hi guys,
    Thanks again for the quick replies.Here is the source code:
    REPORT zdealer_contacts NO STANDARD PAGE HEADING
                            LINE-COUNT 0
                            LINE-SIZE 255
                            MESSAGE-ID zz.
    TYPE-POOLS: slis.
    Data Dictionary Tables
    TABLES: zts0001,
            zsoemailid,
            kna1,
            zts_stpgeoloc.
    Includes
    *INCLUDE zun_globe_header.       " Globe Telecom Report Header
    Structures, internal tables and data declarations
    TYPES: BEGIN OF t_upload,
            kunnr LIKE zts0001-kunnr,
            zaddress(100),
            zcperson(30),
            zcnumber(18),
           END OF t_upload.
    TYPES: BEGIN OF t_error,
            kunnr LIKE zts0001-kunnr,
            zaddress(100),
            zcperson(30),
            zcnumber(18),
           END OF t_error.
    TYPES: BEGIN OF t_kna1,
            name1 LIKE kna1-name1,
           END OF t_kna1.
    TYPES: BEGIN OF t_zts0001,
            kunnr      LIKE zts0001-kunnr,
            cdseq      LIKE zts0001-cdseq,
            zaddress   LIKE zts0001-zaddress,
            zcperson   LIKE zts0001-zcperson,
            zcnumber   LIKE zts0001-zcnumber,
            zactivated LIKE zts0001-zactivated,
            name1      LIKE kna1-name1,
           END OF t_zts0001.
    DATA: it_upload  TYPE STANDARD TABLE OF t_upload  WITH HEADER LINE,
          it_error   TYPE STANDARD TABLE OF t_error   WITH HEADER LINE,
          it_kna1    TYPE STANDARD TABLE OF t_kna1    WITH HEADER LINE,
          it_zts0001 TYPE STANDARD TABLE OF t_zts0001 WITH HEADER LINE.
    DATA: it_ztstemp LIKE zts0001 OCCURS 100 WITH HEADER LINE,
          it_ztstemp_gloc LIKE zts_stpgeoloc OCCURS 100 WITH HEADER LINE.
    *AVH - start of insertion - 04/18/06
    FIELD-SYMBOLS: <fs_zts0001> LIKE LINE OF it_zts0001.
    **ALV Declarations
    DATA:   gt_fieldcat         TYPE slis_t_fieldcat_alv,
            g_repid             LIKE sy-repid,
            gs_layout           TYPE slis_layout_alv,
            gt_list_top_of_page TYPE slis_t_listheader,
            gt_events           TYPE slis_t_event WITH HEADER LINE,
            gt_print            TYPE slis_print_alv.
    CONSTANTS: gc_top  TYPE slis_formname  VALUE 'TOP_OF_PAGE',
               gc_topsum  TYPE slis_formname  VALUE 'TOP_OF_LIST',
               gc_ucomm  TYPE slis_formname  VALUE 'USER_COMMAND'.
    *AVH - end of insertion
    Variables
    DATA: v_kunnr LIKE zts0001-kunnr,
          v_title(100) TYPE c,
          gc_kunnr(06) TYPE c,
          v_compflag(1) TYPE c,
          v_flag(1).
    Selection Screen
    *AVH - start of modification - 06/27/06
    *if user is controller, selection-screen 500 will be called else,
    *selection-scren 1500 will be called.
    *selection-screen for controllers
    SELECTION-SCREEN BEGIN OF SCREEN 500.
    SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_upld RADIOBUTTON GROUP grp2 USER-COMMAND ucomm1.
    SELECTION-SCREEN COMMENT 2(20) text-007 FOR FIELD pr_upld.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 03(15) text-a11 FOR FIELD p_flnme.
    PARAMETERS: p_flnme LIKE rlgrap-filename DEFAULT 'C:\'.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_list1 RADIOBUTTON GROUP grp2.
    SELECTION-SCREEN COMMENT 2(7) text-003 FOR FIELD pr_list1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK b1.
    SELECTION-SCREEN END OF SCREEN 500.
    *selection-screen for non-controllers.
    SELECTION-SCREEN BEGIN OF SCREEN 1500.
    SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 1(22) text-002 FOR FIELD p_dcode.
    PARAMETERS: p_dcode LIKE vbak-kunnr,
                p_name1 LIKE kna1-name1.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_list2 RADIOBUTTON GROUP grp USER-COMMAND ucomm2.
    SELECTION-SCREEN COMMENT 2(7) text-003 FOR FIELD pr_list2.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_add  RADIOBUTTON GROUP grp.
    SELECTION-SCREEN COMMENT 2(3) text-005 FOR FIELD pr_add.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    PARAMETERS: pr_edit RADIOBUTTON GROUP grp.
    SELECTION-SCREEN COMMENT 2(4) text-006 FOR FIELD pr_edit.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN BEGIN OF LINE.
    SELECTION-SCREEN COMMENT 03(20) text-a12 FOR FIELD p_code.
    PARAMETERS: p_code LIKE zts0001-cdseq.
    SELECTION-SCREEN END OF LINE.
    SELECTION-SCREEN END OF BLOCK b2.
    SELECTION-SCREEN END OF SCREEN 1500.
    INITIALIZATION.
      SELECT SINGLE kunnr comp_flag INTO (gc_kunnr,v_compflag)
        FROM zsoemailid
       WHERE bname = sy-uname.
      IF sy-subrc <> 0.
        MESSAGE i000 WITH
             'You are not authorised to use this transaction'.
        LEAVE PROGRAM.
      ENDIF.
      IF v_compflag = 'X'.
        CALL SCREEN 500.
      ELSE.
        CALL SCREEN 1500.
      ENDIF.
    *AVH - end of modification
    AT SELECTION-SCREEN OUTPUT.
      PERFORM authority_check.
    added by derick 050125
    **-changed by weng rulloda 06012005
    *AVH - start of insertion - 05/22/06
    *no need to get value of kunnr from global memory
    *since gc_kunnr would be filled via the select statement below
    GET PARAMETER ID 'KUN' FIELD gc_kunnr.
    *AVH - end of insertion
      p_dcode = gc_kunnr.
    *AVH - start of insertion - 05/22/06
    **fetch the respective description of dealer based from p_dcode
    **and put in parameter p_name1
      SELECT SINGLE name1 FROM kna1
      INTO p_name1
      WHERE kunnr = p_dcode.
    *AVH - end of insertion
    *AVH - start of insertion - 05/22/06
    **selection-screen parameters is based if user is controller or not.
    **created new selection-screen conditions based from orig. code
      v_kunnr = gc_kunnr.
      LOOP AT SCREEN.
        IF screen-name      =  'P_DCODE'.
          screen-input      =  '0'.
          screen-output     =  '1'.
          MODIFY SCREEN.
        ELSEIF screen-name  =  'P_NAME1'.
          screen-input      =  '0'.
          screen-output     =  '1'.
          MODIFY SCREEN.
        ELSEIF screen-name  =  'P_CODE'.
          screen-input      =  '0'.
          MODIFY SCREEN.
        ENDIF.
      ENDLOOP.
      IF pr_list2 = 'X' OR pr_add = 'X'.
        LOOP AT SCREEN.
          IF screen-name   =  'P_CODE'.
            screen-input   =  '0'.
            MODIFY SCREEN.
          ENDIF.
        ENDLOOP.
      ELSEIF pr_edit = 'X'.
        LOOP AT SCREEN.
          IF screen-name   =  'P_CODE'.
            screen-input  =  '1'.
            MODIFY SCREEN.
          ENDIF.
        ENDLOOP.
      ENDIF.
      IF pr_list1   = 'X'.
        LOOP AT SCREEN.
          IF screen-name   = 'P_FLNME'.
            screen-input  = '0'.
            MODIFY SCREEN.
          ENDIF.
        ENDLOOP.
      ENDIF.
    *AVH - end of modification
    AT SELECTION-SCREEN.
    CHECK sy-ucomm = 'UCOMM1' OR sy-ucomm = 'UCOMM2'.
    *AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnme.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnme.
      CALL FUNCTION 'WS_FILENAME_GET'
           EXPORTING
                mask             = ',.,..'
                mode             = 'O'
                title            = 'File Selection'
           IMPORTING
                filename         = p_flnme
           EXCEPTIONS
                inv_winsys       = 1
                no_batch         = 2
                selection_cancel = 3
                selection_error  = 4
                OTHERS           = 5.
    *AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_code.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_code.
      DATA : BEGIN OF itab_list OCCURS 0,
              kunnr LIKE zts0001-kunnr,
              cdseq LIKE zts0001-cdseq,
              zaddress LIKE zts0001-zaddress,
              zcperson LIKE zts0001-zcperson,
              zcnumber LIKE zts0001-zcnumber,
             END OF itab_list.
      DATA: tab_fields LIKE dfies      OCCURS 0 WITH HEADER LINE,
            tab_valuetab(100) TYPE c   OCCURS 0 WITH HEADER LINE.
      DATA: tab_dynnr TYPE sy-dynnr.
      DATA: BEGIN OF tab_return_tab OCCURS 0.
              INCLUDE STRUCTURE ddshretval.
      DATA: END OF tab_return_tab.
      DATA: progname LIKE sy-repid.
      CLEAR: tab_valuetab[], tab_fields[].
      SELECT kunnr cdseq zaddress zcperson zcnumber
        INTO CORRESPONDING FIELDS OF TABLE itab_list
        FROM zts0001
        WHERE kunnr = v_kunnr.
      tab_dynnr = sy-dynnr.
      tab_fields-tabname = 'ZTS0001'.
      tab_fields-fieldname = 'KUNNR'.
      APPEND tab_fields.
      tab_dynnr = sy-dynnr.
      tab_fields-tabname = 'ZTS0001'.
      tab_fields-fieldname = 'CDSEQ'.
      APPEND tab_fields.
      tab_fields-tabname = 'ZTS0001'.
      tab_fields-fieldname = 'ZADDRESS'.
      APPEND tab_fields.
      tab_fields-tabname = 'ZTS0001'.
      tab_fields-fieldname = 'ZCPERSON'.
      APPEND tab_fields.
      tab_fields-tabname = 'ZTS0001'.
      tab_fields-fieldname = 'ZCNUMBER'.
      APPEND tab_fields.
      LOOP AT itab_list.
        tab_valuetab = itab_list-kunnr.
        APPEND tab_valuetab.
        tab_valuetab = itab_list-cdseq.
        APPEND tab_valuetab.
        tab_valuetab = itab_list-zaddress.
        APPEND tab_valuetab.
        tab_valuetab = itab_list-zcperson.
        APPEND tab_valuetab.
        tab_valuetab = itab_list-zcnumber.
        APPEND tab_valuetab.
      ENDLOOP.
      progname = sy-repid.
      CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
           EXPORTING
                retfield    = 'CDSEQ'
                dynpprog    = progname
                dynpnr      = '1000'
                dynprofield = 'P_CODE'
           TABLES
                value_tab   = tab_valuetab
                field_tab   = tab_fields
                return_tab  = tab_return_tab
           EXCEPTIONS
                OTHERS      = 0.
    START-OF-SELECTION.
      IF pr_edit = 'X' AND p_code IS INITIAL.
        MESSAGE i008 WITH 'Please specify a ship-to code.'.
         LEAVE TO TRANSACTION 'ZDCONTACT'.
      ENDIF.
      PERFORM get_data.
      IF pr_upld = 'X'.
        PERFORM upload_file.
      ELSEIF pr_add = 'X'.
        PERFORM add_record.
      ELSEIF pr_edit = 'X'.
        PERFORM edit_record.
      ELSEIF pr_list1 = 'X' OR pr_list2 = 'X'.
        PERFORM display_alv.
      ENDIF.
    END-OF-SELECTION.
    based from ALV PF-STATUS
      IF sy-ucomm = '&F03'.                  "BACK
       LEAVE TO TRANSACTION 'ZDCONTACT'.
      ELSEIF sy-ucomm = '&F15'.              "EXIT
       LEAVE TO TRANSACTION 'ZDCONTACT'.
      ELSEIF sy-ucomm = '&F12'.              "CANCEL
       LEAVE TO TRANSACTION 'ZDCONTACT'.
      ENDIF.
    *&      Form  authority_check
    FORM authority_check.
      CALL FUNCTION 'AUTHORITY_CHECK'
           EXPORTING
                field1              = 'TCD' "MDM
                object              = 'S_TCODE'
                user                = sy-uname
                value1              = 'ZMEN'
               VALUE3              = '01' MDM
           EXCEPTIONS
                user_dont_exist     = 1
                user_is_authorized  = 2
                user_not_authorized = 3
                user_is_locked      = 4
                OTHERS              = 5.
      IF sy-subrc NE 2.
    **-added by weng 04/28/2006
    **-if user is not authorized to use dealer portal check if he is
    **-  authorized to use the tcode ZDCONTACT
        CALL FUNCTION 'AUTHORITY_CHECK'
             EXPORTING
                  field1              = 'TCD' "MDM
                  object              = 'S_TCODE'
                  user                = sy-uname
                  value1              = 'ZDCONTACT'
               VALUE3              = '01' MDM
             EXCEPTIONS
                  user_dont_exist     = 1
                  user_is_authorized  = 2
                  user_not_authorized = 3
                  user_is_locked      = 4
                  OTHERS              = 5.
    **-weng
        IF sy-subrc NE 2.
          MESSAGE i000 WITH
            'You are not authorised to use this transaction'.
          LEAVE PROGRAM.
        ENDIF.
      ENDIF.
    ENDFORM.                    " AUTHORITY_CHECK
    *&      Form  get_data
    FORM get_data.
    *AVH - start of insertion - 04/19/06
    **records selected from table zts0001 that has been marked as
    **activated will be fetched otherwise, ignore.
      IF v_kunnr IS INITIAL.
        SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
          FROM zts0001.
      ELSEIF v_compflag = 'X'.
        SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
           FROM zts0001.
      ELSE.
        SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
           FROM zts0001
           WHERE kunnr = v_kunnr.
      ENDIF.
    *AVH - start of insertion - 05/24/06
    **fetch name based from kunnr and put in itab
      LOOP AT it_zts0001 ASSIGNING <fs_zts0001>.
        SELECT SINGLE name1 FROM kna1
        INTO <fs_zts0001>-name1
        WHERE kunnr = <fs_zts0001>-kunnr.
      ENDLOOP.
    *AVH - end of insertion
    ENDFORM.                    " get_data
    *&      Form  Upload_file
    FORM upload_file.
      DATA: lv_seq(5) TYPE n,
            lv_ctr(5) TYPE c,
            lv_kunnr LIKE it_upload-kunnr.
      v_title = 'Upload from File'.
      CALL FUNCTION 'WS_UPLOAD'
           EXPORTING
                filename = p_flnme
                filetype = 'DAT'
           TABLES
                data_tab = it_upload
           EXCEPTIONS
                OTHERS   = 1.
      IF sy-subrc <> 0.
        MESSAGE i008 WITH 'File does not exist.'.
        IF v_compflag IS INITIAL.
          LEAVE TO TRANSACTION 'ZDCONTACT'.
        ELSE.
          LEAVE TO TRANSACTION 'ZDCONTACT'.
        ENDIF.
      ENDIF.
      CHECK sy-subrc EQ 0.
      DELETE it_upload
        WHERE zaddress EQ space
          AND zcperson EQ space
          AND zcnumber EQ space.
      SORT it_zts0001 BY kunnr ASCENDING cdseq DESCENDING.
      SORT it_upload BY kunnr ASCENDING.
      LOOP AT it_upload.
        lv_kunnr = it_upload-kunnr.
        AT NEW kunnr.
    AVH - start of insertion - 06/30/06
          SELECT SINGLE kunnr FROM zsoemailid
          INTO lv_kunnr
          WHERE kunnr = it_upload-kunnr.
    if it_upload-kunnr is not found in table ZSOEMAILID, it will
    not be included in the upload.
          IF sy-subrc <> 0.
            DELETE it_upload.
            CLEAR it_upload.
            CONTINUE.
          ENDIF.
    AVH - end of insertion
          READ TABLE it_zts0001 WITH KEY kunnr = lv_kunnr.
          IF sy-subrc EQ 0.
            lv_seq = it_zts0001-cdseq.
          ELSE.
            CLEAR lv_seq.
          ENDIF.
        ENDAT.
        IF it_upload-zaddress IS INITIAL.
          MOVE-CORRESPONDING it_upload TO it_error.
          APPEND it_error.
          CLEAR it_error.
        ELSE.
          REPLACE '"' WITH '' INTO it_upload-zaddress.
          REPLACE '"' WITH '' INTO it_upload-zaddress.
          REPLACE '"' WITH '' INTO it_upload-zcperson.
          REPLACE '"' WITH '' INTO it_upload-zcperson.
          CONDENSE it_upload-zaddress.
          CONDENSE it_upload-zcperson
          ADD 1 TO lv_seq.
          MOVE: it_upload-kunnr    TO it_ztstemp-kunnr,
                lv_seq             TO it_ztstemp-cdseq,
                it_upload-zaddress TO it_ztstemp-zaddress,
                it_upload-zcperson TO it_ztstemp-zcperson,
                it_upload-zcnumber TO it_ztstemp-zcnumber,
                'X'                TO it_ztstemp-zactivated,
                sy-uname           TO it_ztstemp-zcreated_by,
                sy-datum           TO it_ztstemp-zchanged_date.
          MOVE-CORRESPONDING it_ztstemp TO it_ztstemp_gloc.
          APPEND: it_ztstemp, it_ztstemp_gloc.
          CLEAR: it_ztstemp, it_ztstemp_gloc.
        ENDIF.
      ENDLOOP.
      IF NOT it_ztstemp[] IS INITIAL.
        INSERT zts0001 FROM TABLE it_ztstemp.
        INSERT zts_stpgeoloc FROM TABLE it_ztstemp_gloc.
        WRITE:/ 'List of Records Uploaded.' COLOR 1 INTENSIFIED ON.
        FORMAT COLOR 1 INTENSIFIED OFF.
        WRITE:/(020) 'Dealer Code' CENTERED,
               (007) 'Code'         CENTERED,
               (100) 'Address',
               (030) 'Contact Person' CENTERED,
               (018) 'Contact Number' CENTERED.
        FORMAT COLOR OFF.
        WRITE:/(179) sy-uline.
        DESCRIBE TABLE it_ztstemp LINES lv_ctr.
        SORT it_ztstemp BY kunnr cdseq.
        LOOP AT it_ztstemp.
          WRITE:/(020) it_ztstemp-kunnr,
                 (007) it_ztstemp-cdseq,
                 (100) it_ztstemp-zaddress,
                 (030) it_ztstemp-zcperson,
                 (018) it_ztstemp-zcnumber.
        ENDLOOP.
        SKIP 1.
        WRITE:/ 'TOTAL :', lv_ctr.
      ENDIF.
      IF NOT it_error[] IS INITIAL.
        SKIP 2.
        FORMAT COLOR 1 INTENSIFIED OFF.
        WRITE:/(020) 'Dealer Code' CENTERED,
               (030) 'Contact Person' CENTERED,
               (018) 'Contact Number' CENTERED.
        FORMAT COLOR OFF.
        WRITE:/(070) sy-uline.
        DESCRIBE TABLE it_error LINES lv_ctr.
        SORT it_error BY kunnr zcperson.
        LOOP AT it_error.
          WRITE:/ 'With No Address.' COLOR 6 INTENSIFIED ON.
          WRITE:/(020) it_error-kunnr,
                 (030) it_error-zcperson,
                 (018) it_error-zcnumber.
        ENDLOOP.
        SKIP 1.
        WRITE:/ 'TOTAL :', lv_ctr.
      ENDIF.
    ENDFORM.                    " Upload_file
    *&      Form  add_record
    FORM add_record.
      v_title = ''.
      IF NOT v_kunnr IS INITIAL.
        SUBMIT zdealer_contacts_add_edit AND RETURN
                                         WITH p_kunnr = v_kunnr
                                         WITH p_name1 = p_name1  "AVH
                                         WITH p_cdseq = space
                                         WITH p_flag = 'A'
                                         WITH p_addr = it_zts0001-zaddress
                                         WITH p_pers = it_zts0001-zcperson
                                         WITH p_numb = it_zts0001-zcnumber
                                         VIA SELECTION-SCREEN.
      ENDIF.
        LEAVE TO TRANSACTION 'ZDCONTACT'.
    ENDFORM.                    " add_record
    *&      Form  edit_record
    FORM edit_record.
      v_title = ''.
      READ TABLE it_zts0001 WITH KEY kunnr = v_kunnr
                                     cdseq = p_code.
      IF sy-subrc EQ 0.
        SUBMIT zdealer_contacts_add_edit AND RETURN
                                         WITH p_kunnr = v_kunnr
                                         WITH p_name1 = p_name1  "AVH
                                         WITH p_cdseq = p_code
                                         WITH p_flag = 'E'
                                         WITH p_addr = it_zts0001-zaddress
                                         WITH p_pers = it_zts0001-zcperson
                                         WITH p_numb = it_zts0001-zcnumber
                                         WITH v_controller = v_compflag
                                         VIA SELECTION-SCREEN.
      ELSE.
        MESSAGE i008 WITH 'No record found.'.
        CALL TRANSACTION 'ZDCONTACT'.
      ENDIF.
        LEAVE TO TRANSACTION 'ZDCONTACT'.
    ENDFORM.                    " edit_record
    *&      Form  display_records
    *FORM display_records.
    IF NOT it_zts0001[] IS INITIAL.
       v_title = 'List of Dealer Contacts'.
       FORMAT COLOR 1 INTENSIFIED OFF.
       WRITE:/(020) 'Customer Number' CENTERED,
              (007) 'Code' CENTERED,
              (100) 'Address',
              (030) 'Contact Person' CENTERED,
              (018) 'Contact Number' CENTERED.
       FORMAT COLOR OFF.
       WRITE:/(179) sy-uline.
       SORT it_zts0001 BY kunnr cdseq.
       LOOP AT it_zts0001.
         WRITE:/(020) it_zts0001-kunnr,
                (007) it_zts0001-cdseq,
                (100) it_zts0001-zaddress,
                (030) it_zts0001-zcperson,
                (018) it_zts0001-zcnumber.
       ENDLOOP.
    ELSE.
       MESSAGE i008 WITH 'No records to display.'.
    ENDIF.
    *ENDFORM.                    " display_records
    *&      Form  display_alv
    FORM display_alv.
      SORT it_zts0001 BY kunnr cdseq.
      PERFORM f_build_layout USING gs_layout.
      PERFORM f_init_fieldcat USING gt_fieldcat[].
      PERFORM f_init_events USING 'BACK' gt_events[].
      g_repid = sy-repid.
      CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
           EXPORTING
                i_callback_program      = g_repid
                i_callback_top_of_page  = 'TOP_OF_PAGE'
                i_callback_user_command = 'USER_COMMAND'
                is_layout               = gs_layout
                it_fieldcat             = gt_fieldcat[]
                it_events               = gt_events[]
                i_save                  = 'X'
               it_sort                 = gt_sort
           TABLES
                t_outtab                = it_zts0001[]
           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.                    " DISPLAY_ALV
          FORM top_of_page                                          *
    FORM top_of_page.
    *ALV Header declarations
      DATA: t_header TYPE slis_t_listheader,
            wa_header TYPE slis_listheader,
            t_line LIKE wa_header-info,
            lv_title(60),
            lv_user(60),
            lv_date(10),
            lv_time(10),
            lv_time_n_date(30),
            lv_dcode_n_name(150),
            lv_dlr_n_desc(100),
            ld_lines TYPE i,
            ld_linesc(10) TYPE c.
    Title
      CLEAR: lv_title, wa_header.
      MOVE sy-title TO lv_title.
      wa_header-typ  = 'H'.
      wa_header-info = lv_title.
      APPEND wa_header TO t_header.
      CLEAR wa_header.
    User
      CLEAR: lv_user, wa_header.
      CONCATENATE: 'Generated by:' sy-uname
                   INTO lv_user SEPARATED BY space.
      wa_header-typ  =  'A'.
      wa_header-info =  lv_user.
      APPEND wa_header TO t_header.
      CLEAR wa_header.
    *Date and time
      CLEAR: lv_date, lv_time.
      WRITE: sy-datum TO lv_date MM/DD/YYYY,
             sy-uzeit TO lv_time USING EDIT MASK '__:__:__'.
      CONCATENATE: 'Generated on:' lv_date lv_time
        INTO lv_time_n_date SEPARATED BY space.
      wa_header-typ  = 'A'.
      wa_header-info =  lv_time_n_date.
      APPEND wa_header TO t_header.
      CLEAR wa_header.
      IF NOT v_kunnr IS INITIAL AND v_compflag IS INITIAL.
    *Dealer code and name
        CONCATENATE: 'Dealer:' p_dcode p_name1
          INTO lv_dcode_n_name SEPARATED BY space.
        wa_header-typ  =  'A'.
        wa_header-info =  lv_dcode_n_name.
        APPEND wa_header TO t_header.
        CLEAR wa_header.
      ENDIF.
      CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
           EXPORTING
                it_list_commentary = t_header.
    ENDFORM.                    " TOP_OF_PAGE
          FORM f_build_layout                                           *
    -->  %LAYOUT                                                       *
    FORM f_build_layout USING %layout TYPE slis_layout_alv.
      %layout-zebra             = 'X'.
      %layout-colwidth_optimize = 'X'.
    ENDFORM.                    " F_BUILD_LAYOUT
          FORM f_init_fieldcat                                          *
    -->  %FIELDCAT                                                     *
    FORM f_init_fieldcat USING %fieldcat TYPE slis_t_fieldcat_alv.
      DATA: lc_fieldcat TYPE slis_fieldcat_alv.
      CLEAR lc_fieldcat.
      DEFINE m_field.
        add 1 to lc_fieldcat-col_pos.
        lc_fieldcat-fieldname   = &1.
        lc_fieldcat-outputlen   = &2.
        lc_fieldcat-seltext_l   = &3.
        lc_fieldcat-do_sum      = &4.
        lc_fieldcat-inttype     = &5.
        lc_fieldcat-hotspot     = &6.
        lc_fieldcat-fix_column  = &7.
        lc_fieldcat-ddictxt     = 'L'.
        lc_fieldcat-no_zero     = 'X'.
        append lc_fieldcat to %fieldcat.
      END-OF-DEFINITION.
      IF v_kunnr IS INITIAL.
        m_field 'KUNNR' '5' 'Dealer Code'            ''  ''  '' ''.
      ENDIF.
      IF v_compflag = 'X'.
        m_field 'KUNNR' '5' 'Dealer Code'        ''  ''  '' ''.
      ENDIF.
      IF v_compflag = 'X'.
        m_field 'NAME1'    '40' 'Dealer Name'        ''  ''  '' ''.
      ENDIF.
      m_field 'CDSEQ' '05' 'Ship-To Code'            ''  ''  '' ''.
      m_field 'ZADDRESS' '100' 'Address'             ''  ''  '' ''.
      m_field 'ZCPERSON' '30' 'Contact Person'       ''  ''  '' ''.
      m_field 'ZCNUMBER' '18' 'Contact Number'       ''  ''  '' ''.
      IF v_kunnr IS INITIAL.
        m_field 'NAME1'    '40' 'Dealer Name'        ''  ''  '' ''.
      ENDIF.
      m_field 'ZACTIVATED' '1' 'Activated'           ''  ''  '' ''.
    ENDFORM.                    " f_init_fieldcat
          FORM f_init_events                                            *
    -->  P_TYPE                                                        *
    -->  %EVENTS                                                       *
    FORM f_init_events USING p_type CHANGING %events TYPE slis_t_event.
      CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
           EXPORTING
                i_list_type     = 0
           IMPORTING
                et_events       = %events
           EXCEPTIONS
                list_type_wrong = 1
                OTHERS          = 2.
      IF sy-subrc = 0.
        PERFORM f_build_events USING: slis_ev_user_command.
       IF p_type = 'TOP'.
         PERFORM f_build_events USING: gc_top.
       ELSEIF p_type = 'SUM'.
         PERFORM f_build_events_sum USING: gc_topsum.
       ENDIF.
      ELSE.
        MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      ENDIF.
    ENDFORM.                    " F_INIT_EVENTS
          FORM user_command                                             *
    -->  P_UCOMM                                                       *
    -->  P_SELFIELD                                                    *
    FORM user_command USING p_ucomm LIKE sy-ucomm
                            p_selfield TYPE slis_selfield.
      CASE p_ucomm.
        WHEN 'E'.
          CALL SELECTION-SCREEN 500.
      ENDCASE.
    ENDFORM.
          FORM f_build_events                                           *
    -->  %EVENT                                                        *
    FORM f_build_events USING %event.
      READ TABLE gt_events WITH KEY name = %event.
      IF sy-subrc = 0.
        MOVE: %event TO gt_events-form.
        MOVE 'USER_COMMAND' TO gt_events-form.
        MODIFY gt_events INDEX sy-tabix.
      ENDIF.
    ENDFORM.                    " F_BUILD_EVENTS

  • Help me in finding the entry points in the source code of java.....

    hi...
    I want to design a compilation server and apply some of the optimization technique's like inlining, SSA and others.
    So i require to find the entry points in source code from where i can include my code and check the performance of the program at level it is performing .
    Please help in this problem....
    and i also like to know what are hot methods in java context?

    BigDaddyLoveHandles wrote:
    Do you even know Java? Why not just let the HotSpot optimization do its thing?Good point, I would try either of two things.
    If you have a good understanding of Java internals and are confident you could optimise code better, I suggest you contribute to the OpenJDK and we can all benefit.
    Otherwise I suggest you try using the optimisation built into the compiler and the JVM.
    Note: the JVM optimises the code dramatically in ways most normal people won't have thought possible.
    The compiler doesn't optimise the code so much as it leaves this job to the JVM.
    Two examples;
    - say you call a small method often. The JVM can inline this method for you. (the same way a compiler would) However say this method can be over-ridden and later your program calls a different implementation, it can inline both methods even if the new method in a new class didn't exist when the first method was inlined.
    - In a 32-bit JVM, 32-bit registers and references are used. In a 64-bit JVM 64-bit registers and references are used without needing to recompile the code. However there is a third option of using 32-bit references in a 64-bit JVM. In this case, it assumes the bottom 3 bits are always 000 so it shifts the reference down 3 bits allowing you to access 32 GB using 32-bit references. Again, you can use this with libraries which were compiled before 64-bit JVMs were available.

  • Where to download JVM source code? Thanks.

    AhJin

    Hi,
    The JVM consists of the ClassLoader,ByteCode Verifier,and JIT.Now for the developing of the JVM you require to develop all three parts.But Classloader again have BootStrap Classloader,Extension ClassLoader and Application ClassLoader.Out of these you have the BootStrapClassLoader Developed in C++/C(You can check the code).
    BootStrap Class Loader is basically developed for all platforms as it will load the rt.jar the basic java classes.So all the OS have different implementaion of this class loader.Rest all is developed in the Java.
    Now comming to your query I would like you to check the JAVA_HOME/include directory where you can find win32 and some *.h files which are basically should be the implementation of your JVM.I am talking about the hotspot JVM.
    So with the download of hotspot for windows you have source code also embeded in that.
    Hope this helps you
    regards
    Vicky

  • I am running 10.6.8 and using iweb for my web site. After several SEO analysis they all indicate I need H1-6 header tags. After looking at the source code I see there are none in iweb. Is it necessary to add? If so, how do I add H Tags to iweb.

    I am running 10.6.8 and using iweb for my web site. After several SEO analysis they all indicate I need H1-6 header tags. After looking at the source code I see there are none in iweb. Are they necessary to add?  Why would one add these tags and how do I add H Tags to iweb? And are there examples to look at? I am slowly learning about simple web design and assumed that iweb was stand alone without having to write code. Is this one of the reasons iweb is no longer supported? Thanks for looking at this!

    A simple text page like this:
    Heading
        sub heading
              text paragraph ....
    Is traditionally represented by html tags like:
    <h1>Heading</h1>
         <h2>sub heading</h2>
              <p>text paragraph ... </p>
    I would guess that the use of h1-h6 tags helps search engines to understand the structure of a page as the tags imply a certain structure.
    This can be compared to more generic tags like <div> that could represent any kind of content - and may be what iWeb uses (you'll have to check yourself).
    I would generally recommend that you use some kind of up to date blog/site building tool, perhaps Wordpress or Squarespace (I haven't used either one myself) that support current web technologies - this should reduce your SEO issues and make it easier to properly support mobile/tablet users.

  • Source code not generated in mapping

    Hi,
      I tried mapping an Idoc to an XSD in my mnessage mapping.When I try to check my message mapping I get an error msg : "<Mappingname> has no Source Code"...My scenario is only some fields of Idoc map to the XSD and the rest are constants..I am in XI3.
    Any help is appreciated...
    -Teresa

    Hi Teresa,
    Have you tried deleting the map and re-doing it ? Or is this unfeasible ?
    Cheers
    Colin

  • Ask again:  Where can I find source code for CPRM algorithm?

    Hi, everyone.
    Where can I find reference implementation or some sample codes for CPRM(content protection for recordable media) algorithm? Can anyone help?
    Information about CPRM can be find here,
    http://www.4centity.com/
    JAVA version is preferred and C/C++ implementation is also OK.
    Thanks in advance,
    Geo

    Thanks, edsonw buddy!
    I only found C2 cipher source code and some other documents dealing with CPRM algorithm. And what I want is total CPRM implementation reference source code (C2 is only a basic module of CPRM algorithm).
    So can you provide me some useful information dealing with how to get total CPRM implementation reference source code? Both JAVA and C/C++ will be OK.
    Have a wonderful weekend,
    George

  • Functional Module:Need  some sample source code.

    Hi All,
    I have created  a customized table   u2018ZStock_Order_Dealeru2019 with the following fields:
    Stock_Order_Dealer
    Dealer Number
    S2D order Number     
    Line item Number     
    Material Number     
    Ordered Quantity     
    Batch Number     
    Received Quantity     
    S2D from D2G     
    Receiving Date
    I need to  create a remote enabled function module in CRM system to fetch the u2018Batch Numberu2019 and u2018Received Quantityu2019 fields when the Material Number is fed to it.Please note that the input and output should be tables.
    Could some one please give some sample source code for this.

    I used table types and select queries to resolve this problem.

  • How to get source code for WinCE 6.0 USB Camera Driver for ARM4I Processor

    Hi,
    I am implementing USB camera driver for my mini2440 board which has an ARM4I processor. The sample code
    "Windows Embedded CE 6.0 USB camera Driver" downloaded from:
    http://www.microsoft.com/downloads/en/details.aspx?FamilyID=2ef087c0-a4ae-42cc-abd0-c466787c11f2
    does not support ARM4I processors. When trying to generate in VS2005 Platform Builder my WinCE 6.0
    image for mini2440 with the Third party catalog items "MJPEG Decompression Filter" and "USB CameraDriver",
    the linker giver errors. Please advise where to find a working source code for USB (now revision 1.1
    ("full-speed") is supported in my WinCE 6.0 image) camera for my ARM4I processor. The code should 
    be in C# but C++ will be fine also.
    Thanks,
       Paul

    i get this on the hyperterminal when i run the cameradshowapp.exe
    Compulab Windows CE NAND X-Loader for CM-T35                                           
    Built Dec 20 2009 at 16:48:16                            
    Version 1.01.222               
    Commit Date 16/12/09                   
    Jumping to bootloader                    
    Microsoft Windows CE Bootloader Common Library Version 1.4 Built Dec 20 2009 16:                                                                               
    46:16    
    INFO:OALLogSetZones: dpCurSettings.ulZoneMask: 0x200b                                                    
    Texas Instruments Windows CE EBOOT for CM-T35, Built Dec 20 2009 at 16:48:10                                                                           
    Version 1.01.222               
    OMAP3430 Version 0x4b7ae02f (Unknown)                                    
    TPS659XX Version 0x10 (ES2.x)                            
    -OEMPinMuxSetup....                  
    System ready!            
    Preparing for download...                        
    INFO: Predownload               
    +FMD_Init        
    Checking bootloader blocks are marked as reserved (Num = 6)                                                          
    +FMD_Init        
    WARN: Boot config wasn't found, using defaults                                             
    +FMD_Init        
    OALFlashStoreOpen: 4096 blocks, 64 sectors/block                                               
    OALFlashStoreOpen: 2048 bytes/sector, 14 reserved blocks                                                       
    Calling LCD_TurnOn                 
    +FMD_Init        
    +FMD_Init        
    BLConfigureFlashPartitions: dwBootPartitionSectorCount = 0x5fff, partition actua                                                                               
    l size =0x4d3a!!!                
    Hit space to enter configuration menu 5...                                         
    Hit space to enter configuration menu 4...                                         
    Hit space to enter configuration menu 3...                                         
    Hit space to enter configuration menu 2...                                         
    Hit space to enter configuration menu 1...                                         
    INFO: Boot Device location = 0x8000020                                     
    Load NK image from flash memory                              
    +FMD_Init        
    ROMHDR (pTOC = 0x823b8c28) ---------------------                                               
      DLL First           : 0x4001c001                                 
      DLL Last            : 0x41c7c0d8                                 
      Physical First      : 0x84001000                                 
      Physical Last       : 0x863bbdec                                 
      Num Modules         :        294                                 
      RAM Start           : 0x863c0000                                 
      RAM Free            : 0x863d5000                                 
      RAM End             : 0x90800000                                 
      Num Copy Entries                        
      Copy Entries Offset : 0x85256e38                                 
      Prof Symbol Length  : 0x00000000                                 
      Prof Symbol Offset  : 0x00000000                                 
      Num Files           :        116                                 
      Kernel Flags        : 0x00000002                                 
      FileSys RAM Percent : 0x00000020                                 
      Driver Glob Start   : 0x00000000                                 
      Driver Glob Length  : 0x00000000                                 
      CPU                 :     0x01c2                                 
      MiscFlags           :     0x0002                                 
      Extensions          : 0x84002020                                 
      Tracking Mem Start  : 0x00000000                                 
      Tracking Mem Length : 0x00000000                                 
    NK Image Loaded            
    Launch Windows CE image by jumping to 0x80001000...                                                  
    Windows CE Kernel for ARM (Thumb Enabled) Built on Apr  5 2011 at 17:47:22                                                                         
    +OEMInit       
    ýSETDATAOUT access is OK....                           
    Forcing clean boot                 
    MainMemoryEndAddress = 0x90800000                                
    -OEMInit       
    +FMD_Init        
    Dumping registry defined VK                          
    Row 0:  0x18    0x9     0x25    0x0     0x0     0x0                                                  
    Row 1:  0x26    0xd     0x28    0x0     0x0     0x0                                                  
    Row 2:  0x27    0x24    0x23    0x0     0x0     0x0                                                  
    Row 3:  0x0     0x0     0x0     0x0     0x0     0x0                                                  
    Row 4:  0x0     0x0     0x0     0x0     0x0                                             
    Row 5:  0x0     0x0     0x0     0x0     0x0     0x0                                                  
    SMSC922x: Core Ethernet Init.                            
    Lan9220 identified. ID_REV = 0x92200000                                      
    SMSC922x: MAC address = 00:01:c0:0a:a0:db                                        
    Lan9220 identified. ID_REV = 0x92200000                                      
    SMSC922x: MAC address = 00:01:c0:09:88:80                                        
    SDIO8686: Loading Driver [version = 38.p44]                                          
    SDIO8686: Reset with TPS GPIO 2 --> done                                       
    !!!Kernel mode PSL 'PRdr' de-registered!!!                                         
    !!!Kernel mode PSL 'HRdr' de-registered!!!                                         
    !!!Kernel mode PSL 'FRdr' de-registered!!!                                         
    EHCI USB Host: HcdPdd_Init+                          
    [OTG] OMAPMHSUSBOTG::Init()+                           
    OMAPMHSUSBOTG::PostInit(): Start.                                
    DSPLINK Module (1.61.04) created on Date: Jun 24 2009 Time: 16:30:52                                                                   
    Display parameters:                  
            Height = 0x280                     
            Width = 0x1e0
            HSW = 0x20
            HFP = 0x8
            HBP = 0x17
            VSW = 0x1
            VFP = 0x4
            VBP = 0x3
            DVI is not enabled
            PixelClkDiv = 0x7
            LogClkDiv = 0x1
            ClkSelDSS = 0x5
    TD035:: LCDTurnOn
    TD035STEE1: Turned display on.
    TD035:: Finished LCD VGA init
    AUTOLAUNCH: Checking HKEY_LOCAL_MACHINE\Startup key for programs to run.
    Can't open HKEY_LOCAL_MACHINE\Startup key.
    [WiFi]: Firmware Version: 9.70.3.23
    CCaptureFramework: Failed setting up the camera data.
    CameraDShowApp: Initializing the camera driver list failed.CameraDShowApp: Retri
    eving the driver list failed.CameraDShowApp: Selecting the camera device failed.
    CameraDShowApp: Selecting the camera device failed.CameraDShowApp: Selecting the
     camera device failed.CameraDShowApp: Selecting the camera device failed.CCaptur
    eFramework: Retrieving the still stream config failed.
    CameraDShowApp: Initializing the capture graph failed.

  • Cannot find source code for Employee Benefit application

    Hello,
    I am trying to find the Employee Benefit Sample Application which used to be provided by Oracle at http://otn.oracle.com/sample_code/products/ias/content.html. Unfortunately I couldn’t find the source code anywhere, neither by searching through oracle sites, nor through the internet.
    Could someone please help me get it, since I just started working on applications based on this model and it is really important for me to have a complete example that works.
    Thanks in advance,
    Stefanos

    Hello,
    This sample application used to work on older versions which is no longer supported. This is the reason, it has been removed.
    Thanks.

  • I need Expert Decomposition of classes in Source Code for my reaserch purpose. Any body can help me in this regard?

    <blockquote>Locked by Moderator as a duplicate/re-post.
    Please continue the discussion in this thread: [tiki-view_forum_thread.php?comments_parentId=698286&forumId=1]
    Thanks - c</blockquote>
    == Issue
    ==
    I have another kind of problem with Firefox
    == Description
    ==
    I need Expert Decomposition of classes in Source Code of Firefox for my research purpose. Any body can help me in this regard?
    == This happened
    ==
    Not sure how often
    == Firefox version
    ==
    3.0.19
    == Operating system
    ==
    Windows XP
    == User Agent
    ==
    Mozilla/5.0 (Windows; U; Windows NT 5.1; en-US; rv:1.9.0.19) Gecko/2010031422 Firefox/3.0.19
    == Plugins installed
    ==
    *-Default Plug-in
    *RealPlayer(tm) LiveConnect-Enabled Plug-In
    *6.0.12.1662
    *Office Plugin for Netscape Navigator
    *Google Update
    *Shockwave Flash 10.1 r53
    *Yahoo Application State Plugin version 1.0.0.7
    *Next Generation Java Plug-in 1.6.0_18 for Mozilla browsers
    *Adobe PDF Plug-In For Firefox and Netscape
    *DRM Netscape Network Object
    *Npdsplay dll
    *DRM Store Netscape Plugin

    Please let me tell you that I Expert Decomposition may be of any Version of Firefox or Thunder Bird.

  • Source code has syntax error in SAP PI7.1 Mapping Test

    HI All,
    IN SAP P7.1  created simple two data types, message types and Message Mapping with only 2 fields. While testing the mapping in Message Mapping it is giving the error as
    Source text of object Message Mapping: MM_Source_to_Target | http://abc.com has syntax errors:
    Source code has syntax error:
    I am able to activate the Datatypes and Message Types but not able to activate the Messge mapping.
    Please if any body faced the same problem please give the solution.
    One more thing is I am able to test the Message Mapping available in BASIS 7.1 Software Component objects. It is executing successfully...
    but otherthan this SWC it not working success fully.....
    Regards
    Sridhar Goli

    Hi David,
    please check the default trace. It may contain the entry:
    Error in compiling : java.io.IOException: Not enough space
    If that's the case, maybe there's too little space for the swap file/device.
    You should ensure that at least 2X (preferably 3X) of Heap (-Xmx) is configured as real swap
    Hope that helps.
    Regards,
    Gábor Klauzer

  • Sample  PL/SQL Portlet Source Code for Oracle Portal 9ias

    Hi, I'm a newbie of Oracle Portal technology, and I have a problem:
    I would create a PL/SQL portlet that realizes the following functions:
    1) Retrieve the username of the portal user logged from WWCTX_API.GET_USER function.
    2) Insert into an oracle db table two values about two hidden fields in the HTML FORM of the portlet.
    3) Realize the insert commit through the click on the submit button on the Html form of the portlet. I would redirect by the same button to an other page url also.
    I've never developed in Portal, and may be useful if someone could post me the source code of the SHOW MODE SECTION in the PROCEDURE SHOW of a SAMPLE PL/SQL PORTLET that realizes the upper functions.
    Thanks a lot....

    Hi
    Here's the code from Helloworld_Portlet example:
    procedure show
    p_portlet_record wwpro_api_provider.portlet_runtime_record
    is
    l_portlet wwpro_api_provider.portlet_record;
    begin
    if (not is_runnable(
    p_provider_id => p_portlet_record.provider_id
    ,p_reference_path => p_portlet_record.reference_path)
    ) then
    raise wwpro_api_provider.PORTLET_SECURITY_EXCEPTION;
    end if;
    Retrieve the portlet information.
    l_portlet := get_portlet_info(
    p_provider_id => p_portlet_record.provider_id
    ,p_language => p_portlet_record.language
    if (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW) then
    if (p_portlet_record.has_title_region) then
    Draw the portlet header and specify what links are available
    from that header (i.e. details, customize, help, and about).
    The has_title property is set at the page region level.
    wwui_api_portlet.draw_portlet_header
    p_provider_id => p_portlet_record.provider_id
    ,p_portlet_id => p_portlet_record.portlet_id
    ,p_title => l_portlet.title
    ,p_has_details => true
    ,p_has_edit => true
    ,p_has_help => true
    ,p_has_about => true
    ,p_referencepath => p_portlet_record.reference_path
    ,p_back_url => p_portlet_record.page_url
    end if;
    Draw the portlet borders.
    The has_border property is set at the page region level.
    wwui_api_portlet.open_portlet(p_portlet_record.has_border);
    Display the content of the portlet in the show mode.
    Use the wwui_api_portlet.portlet_text() API when
    generating the content of the portlet so that the
    output uses the portlet CSS.
    htp.p(wwui_api_portlet.portlet_text(
    p_string => 'Hello World - Mode Show'
    ,p_level => 1
    if (p_portlet_record.has_border) then
    wwui_api_portlet.close_portlet;
    end if;
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW_ABOUT) then
    Display the about page for the portlet.
    htp.p('Hello World - Mode Show About');
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW_EDIT) then
    Display the edit page for the portlet.
    htp.p('Hello World - Mode Show Edit');
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW_HELP) then
    Display the help page for the portlet.
    htp.p('Hello World - Mode Show Help');
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW_EDIT_DEFAULTS) then
    Display the edit defaults page for the portlet.
    htp.p('Hello World - Mode Edit Defaults');
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_SHOW_DETAILS) then
    Display the details page for the portlet.
    htp.p('Hello World - Mode Show Details');
    elsif (p_portlet_record.exec_mode = wwpro_api_provider.MODE_PREVIEW) then
    Display the preview page for the portlet.
    htp.p('Hello World - Mode Show Preview');
    end if;
    end show;
    I think you need to add this:
    You can get the values of your html-form with this command:
    v_hidden_1 varchar2(256);
    v_hidden_2 varchar2(256);
    v_hidden_1 := wwpro_api_parameters.get_value('name_of_hidden_1_in_html_form','p');
    v_hidden_2 := wwpro_api_parameters.get_value('name_of_hidden_2_in_html_form','p');
    You can get the actual URL with this command:
    v_url := p_portlet_record.page_url;
    Hope that helps.
    Regards,
    Mark

  • Sample source code (fmb)

    I am new in oracle development. I need sample code for oracle 10g forms builder.
    I notice that This is the thing which is not even in the knowledge of Google.
    I am wondering that why oracle forms's source code is not available on web. while if we talk about other tools like .net or php! thousands of sample codes are available for almost all kind of the requirements to do a job.
    I shall be very thankful if someone provide me some sample codes (fmb, rdf etc)
    Thanks

    Hi
    Oh yes i do agree with cris u can also search for video samples it's available specially for beginners,but pls notice one thing that PHP is an Open Source like Java and yes .net is also very common it only needs trust & a little light of hope that u can get it :)
    Well for me i can provide u with such sites of Oracle as tutorials besides the sites that InoL & Chris had provided like
    iSelfSchooling ....
    Oracle PL/SQL – Forms samples for François Degrelle
    Forms samples for Andreas Weiden ....
    For the tutorials
    Oracle Forms Developer ....
    A Tutorial on Oracle9i Forms and Reports
    Pls have a look here for Oracle Forms 11g Release 1 (11.1.1) Documentation ... & Oracle Forms 10g(10.1.2) Documentation.
    Hope this helps...
    Regards,
    Amatu Allah.

Maybe you are looking for