Need example codes

Hi,
I cannot find any discussion forums on Forte C except here. Where can I get help?
Is there any site has some example codes for Forte C/C++?

Hi There,
If you have Forte C and C++ compiler installed
on your system then, check the directory
path for tutorial or examples.
eg: I have installed C and I can find tutorial
directory as:
/opt/WS6.0_U1/SUNWspro/WS6U1/src/examples/tutorial
Read the README file for instruction.
You can select Training and Tutorial from http://forum.sun.com.
You can also go to http://docs.sun.com and look at
C and C++ User's Guide.
You can also by the genal purpose programming books on C and C++ that has plenty of examples for each concept of the language.
Lastly, if you are interested in a example on a specific featute, just post that on this forum and we
should be able to direct you accordingly.
.....jagruti

Similar Messages

Need example code for Multiplexer

I have a RTSPServer, MediaServer [based on AVTransmit3] which is sending RTP media packets to a RTPServer [based on AVReceive3]. Now i need to implement a multiplexer in client side. I need at least one example code of multiplexer to start my own implementation. can any one give me any link of a code of multiplexer.
thanx in advance
bye

What doesn't work?
LOB->read can simply be used in a loop. You may be able to print each chunk inside the loop and use http://www.php.net/manual/en/function.flush.php but there are plenty of caveats noted in the flush() documentation
The documentation for LOB->flush is unfortunately ambiguous. "Server" refers to flushing data from PHP to the DB server, not to the web server.
Make sure you bind $id (and also filter your input from $GET): otherwise you have a SQL Injection security problem. Not to mention a scalability issue.

I need a code example for an action listener for a jcheckbox using matisse

I am trying to make it so that when some body clicks a jcheckbox it will put a figure into a jtextfield. Because I am using matisse I need to know the code for the action listener and I need to know quickly as well so I don't have time to look it up with searches etc.
Can anbody provide me with some example code please.

I thought that as you are all more experienced than I am that you would know where to look and as you would have already been to all of the sites you would have been able to save me a lot of time looking for the best one. I didn't mean to insult you sorry, I knew that I would be looking for a long time and hoped that some one could help speed that up for me.
Any way I have obviously annoyed you in that thread earlier this week. I know that you are all pee'd at me and don't believe me and that is fine. I have learnt every thing that I need to learn and would like to thank you for your help although I think that your language in your last post was not very pleasant, but that is ok.
I don't want to continue posting any more. But thank you for your help.

Needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

needed example working code for FM"LAST_DAY_IN_PERIOD_GET"

Hi,
Go through this code
*& Report Z_FICO_REP_SHIPMENTS
REPORT z_fico_rep_shipments MESSAGE-ID sd.
TYPE-POOLS : slis.
TABLES : vbak,
         kna1,
         likp,
         vbfa.
*>> DEFINE global Types
TYPES : BEGIN OF gt_vbak,
          vbeln TYPE vbeln,
          kunnr TYPE kunnr ,
          spart TYPE spart,
          audat TYPE audat,
        END OF gt_vbak,
        BEGIN OF gt_kna1,
          kunnr TYPE kunnr,
          name1 TYPE name1,
        END OF gt_kna1,
        BEGIN OF gt_likp,
          vbeln     TYPE vbeln,
          wadat_ist TYPE wadat_ist,
        END OF gt_likp,
        BEGIN OF gt_vbfa,
          vbelv     TYPE vbelv,
          erdat     TYPE erdat,
          rfwrt     TYPE rfwrt,
       END OF gt_vbfa,
        BEGIN OF gt_final,
          kunnr   TYPE kunnr,
          name1   TYPE name1,
          cumon   TYPE monat,
          trcum   TYPE rfwrt,
          trcuy   TYPE rfwrt,
          perce   TYPE rfwrt,
          fiscy   TYPE gjahr,
          ftrcum TYPE rfwrt,
          ftrcuy TYPE rfwrt,
          fperce TYPE rfwrt,
        END OF gt_final.
DATA : gwa_vbak   TYPE gt_vbak,
       gwa_kna1   TYPE gt_kna1,
       gwa_likp   TYPE gt_likp,
       gwa_vbfa   TYPE gt_vbfa,
       gwa_final TYPE gt_final,
       gwa_sort   TYPE slis_sortinfo_alv,
       gwa_layout TYPE slis_layout_alv.    "ALV Layout
DATA : gi_vbak    TYPE STANDARD TABLE OF gt_vbak,
       gi_kna1    TYPE STANDARD TABLE OF gt_kna1,
       gi_likp    TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa    TYPE STANDARD TABLE OF gt_vbfa,
       gi_likp1   TYPE STANDARD TABLE OF gt_likp,
       gi_vbfa1   TYPE STANDARD TABLE OF gt_vbfa,
       gi_final   TYPE STANDARD TABLE OF gt_final WITH HEADER LINE,
       gi_final1 TYPE STANDARD TABLE OF gt_final WITH HEADER LINE.
*>> DEFINE INTERNAL TABLE
DATA : gi_fieldcat    TYPE slis_t_fieldcat_alv,   "ALV Fieldcatalog
       gi_events      TYPE slis_t_event,          "ALV EventS
       gi_sort        TYPE slis_t_sortinfo_alv ,
       gi_top_of_page TYPE slis_t_listheader.     "ALV LIST HEADER
DATA : gv_month(2) TYPE n.
*>> GLOBAL CONSTANTS
CONSTANTS: gc_day(2) TYPE n VALUE 01,
           gc_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
           gc_x TYPE c VALUE 'X'.
SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_monat      TYPE     monat OBLIGATORY,
            p_gjahr     TYPE     gjahr OBLIGATORY.
SELECT-OPTIONS : s_bukrs      FOR      vbak-bukrs_vf OBLIGATORY,
                 s_vkorg     FOR      vbak-vkorg,
                 s_spart     FOR     vbak-spart     OBLIGATORY,
                 s_audat   FOR    vbak-audat NO-DISPLAY.
SELECTION-SCREEN:END OF BLOCK b1.
SELECTION-SCREEN:BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
PARAMETERS: p_det RADIOBUTTON GROUP grp DEFAULT 'X' ,
          p_sum RADIOBUTTON GROUP grp.
SELECTION-SCREEN:END OF BLOCK b2.
START-OF-SELECTION.
*>> Take Period And year and find starting and ending date
PERFORM fiscal_date.
PERFORM collect_data.
PERFORM manipulation_collect_data.
END-OF-SELECTION.
*>> Sort
PERFORM gi_sort_table.
*>> MEARGE FIELD CATALOG USING INTERNAL TABLE
PERFORM mearge_field_catalog.
*>> SET EVENTS
PERFORM set_event.
*>> FOR ALV HEADER
PERFORM n_top_of_page USING gi_top_of_page[].
*>>For ALV Layout
PERFORM build_layout.
*>>For output display
PERFORM alv_grid_display.
*&      Form fiscal_date
FORM fiscal_date.
TYPES : BEGIN OF lt_fisc,
            bukrs TYPE bukrs,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
          END OF lt_fisc,
          BEGIN OF lt_t009b,
            periv TYPE periv,
            bumon TYPE bumon,
            butag TYPE butag,
            poper TYPE poper,
           END OF lt_t009b.
DATA : lwa_fisc TYPE lt_fisc,
         lwa_t009b TYPE lt_t009b.
DATA : li_fisc TYPE STANDARD TABLE OF lt_fisc,
         li_t009b TYPE STANDARD TABLE OF lt_t009b.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE c.
SELECT bukrs periv FROM t001
                     INTO TABLE li_fisc
                     WHERE bukrs IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT * FROM t009b
             INTO CORRESPONDING FIELDS OF TABLE li_t009b
             FOR ALL ENTRIES IN li_fisc
             WHERE periv EQ li_fisc-periv .
    IF sy-subrc NE 0.
      CLEAR li_t009b.
    ENDIF.
ELSE.
    CLEAR li_fisc.
ENDIF.
SORT li_t009b BY periv poper.
LOOP AT li_fisc INTO lwa_fisc.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '001'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      s_audat-option = 'EQ'.
      s_audat-sign   = 'I'.
      CALL FUNCTION 'FIRST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-low.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = '012'
                                       BINARY SEARCH.
    IF sy-subrc = 0.
      CALL FUNCTION 'LAST_DAY_IN_PERIOD_GET'
        EXPORTING
          i_gjahr = p_gjahr
          i_periv = lwa_t009b-periv
          i_poper = lwa_t009b-poper
        IMPORTING
          e_date = s_audat-high.
    ENDIF.
    CLEAR lwa_t009b.
    READ TABLE li_t009b INTO lwa_t009b WITH KEY periv = lwa_fisc-periv
                                                poper = p_monat
                                        BINARY SEARCH.
    IF sy-subrc = 0.
      lv_date = s_audat-high+6(2).
      lv_mont = s_audat-high+4(2).
      lv_year = s_audat-high(4).
      lv_mont = lwa_t009b-bumon.
      lv_date = lwa_t009b-butag.
      CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
      APPEND s_audat.
      CLEAR: lwa_fisc,lwa_t009b,lv_date,lv_mont,lv_year.
    ENDIF.
ENDLOOP.
DELETE ADJACENT DUPLICATES FROM s_audat.
ENDFORM.                    "fiscal_date
*&      Form collect_data
FORM collect_data .
SELECT vbeln kunnr spart audat
      FROM vbak
      INTO TABLE gi_vbak
      WHERE audat    GE s_audat-low AND
            audat    LT s_audat-high AND
            vkorg    IN s_vkorg AND
            spart    IN s_spart AND
            bukrs_vf IN s_bukrs.
IF sy-subrc EQ 0.
    SELECT kunnr name1
    FROM kna1
    INTO TABLE gi_kna1
    FOR ALL ENTRIES IN gi_vbak
    WHERE kunnr EQ gi_vbak-kunnr.
    IF sy-subrc NE 0.
      CLEAR gi_kna1.
    ENDIF.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa
      FOR ALL ENTRIES IN gi_likp
      WHERE vbeln   = gi_likp-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
    PERFORM change_date.
    SELECT vbeln wadat_ist
    FROM likp
    INTO TABLE gi_likp1
    WHERE wadat_ist GE s_audat-low AND
          wadat_ist LT s_audat-high .
    IF sy-subrc EQ 0.
      SELECT vbelv erdat rfwrt
      FROM vbfa
      INTO TABLE gi_vbfa1
      FOR ALL ENTRIES IN gi_likp1
      WHERE vbeln   = gi_likp1-vbeln AND
             ( vbtyp_n = 'M' OR
            vbtyp_n = 'H' ) .
      IF sy-subrc NE 0.
        CLEAR gi_vbfa.
      ENDIF.
    ELSE.
      CLEAR gi_likp.
    ENDIF.
ELSE.
    MESSAGE i261.
    LEAVE SCREEN.
ENDIF.
ENDFORM.                    "collect_data
*&      Form Manipulation_collect_data
FORM manipulation_collect_data.
SORT gi_vbak BY vbeln.
SORT gi_kna1 BY kunnr.
LOOP AT gi_vbak INTO gwa_vbak.
    MOVE-CORRESPONDING gwa_vbak TO gwa_final.
    READ TABLE gi_kna1 INTO gwa_kna1 WITH KEY kunnr = gwa_vbak-kunnr
                                   BINARY SEARCH.
    IF sy-subrc EQ 0.
      gwa_final-name1 = gwa_kna1-name1.
    ENDIF.
ENDLOOP.
*    v_month = gwa_vbak-audat+4(2).
*    gwa_final-cumon = p_monat.
*    gwa_final-fiscy = p_gjahr.
*    IF v_month = p_monat.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                  bwkey = wa_vbap-werks
*                                                  BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        CLEAR i_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-peinh = wa_nckmlcr-peinh.
*          gwa_final-kzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-kzwi5 = wa_vbap-kzwi5.
*          gwa_final-totre = gwa_final-kzwi6 + gwa_final-kzwi5.
*          gwa_final-actco = ( wa_nckmlcr-pvprs / wa_nckmlcr-peinh ) *
*                            wa_vbap-kwmeng.
*          gwa_final-profit = gwa_final-totre - gwa_final-actco.
*          gwa_final-prows = ( gwa_final-profit - gwa_final-kzwi6 ) *
*100.
*        ENDIF.
*      ENDIF.
*    ELSE.
*      CLEAR wa_ckmlhd.
*      READ TABLE i_ckmlhd INTO wa_ckmlhd WITH KEY matnr = wa_vbap-matnr
*                                                bwkey = wa_vbap-werks
*                                                BINARY SEARCH.
*      IF sy-subrc EQ 0.
*        READ TABLE i_ckmlcr INTO wa_ckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc NE 0.
*          CLEAR wa_ckmlcr.
*        ENDIF.
*        CLEAR wa_nckmlcr.
*        READ TABLE i_nckmlcr INTO wa_nckmlcr
*                             WITH KEY kalnr = wa_ckmlhd-kalnr
*                             BINARY SEARCH.
*        IF sy-subrc EQ 0.
*          gwa_final-fkzwi6 = wa_vbap-kzwi6 - wa_vbap-kzwi5.
*          gwa_final-fkzwi5 = wa_vbap-kzwi5.
*          gwa_final-ftotre = gwa_final-fkzwi6 + gwa_final-fkzwi5.
*          gwa_final-factco = ( ( wa_nckmlcr-pvprs / wa_ckmlcr-peinh )
*                               * wa_vbap-kwmeng ) / wa_nckmlcr-count.
*          gwa_final-fprofit = gwa_final-ftotre - gwa_final-factco.
*         gwa_final-fprows = ( gwa_final-fprofit - gwa_final-kzwi6 ) *
*100
*        ENDIF.
*      ENDIF.
*    ENDIF.
*    APPEND gwa_final TO gi_final.
*    CLEAR : gwa_final,wa_nckmlcr,wa_ckmlcr,wa_ckmlhd,
*            gwa_vbak,wa_vbap,gwa_kna1.
* ENDLOOP.
* gwa_final-matnr = space.gwa_final-vbeln = space.
* MODIFY gi_final FROM gwa_final TRANSPORTING vbeln matnr
*                                WHERE matnr NE space.
* SORT gi_final BY kunnr vbeln matnr.
* IF p_sum = gc_x.
*    LOOP AT gi_final INTO gwa_final.
*      COLLECT gwa_final INTO gi_final1.
*    ENDLOOP.
*    CLEAR gwa_final.REFRESH gi_final.
*    gi_final[] = gi_final1[].
* ENDIF.
ENDFORM.                    "manipulation_collect_data
*&      Form change_date
FORM change_date.
DATA : lv_date(2) TYPE c,
         lv_mont(2) TYPE c,
         lv_year(4) TYPE n.
lv_date = s_audat-low+6(2).
lv_mont = s_audat-low+4(2).
lv_year = s_audat-low(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-low.
CLEAR : lv_date ,lv_mont,lv_year.
lv_date = s_audat-high+6(2).
lv_mont = s_audat-high+4(2).
lv_year = s_audat-high(4).
lv_year = lv_year - 1.
CONCATENATE lv_year lv_mont lv_date INTO s_audat-high.
CLEAR : lv_date ,lv_mont,lv_year.
ENDFORM.                    " change_date
*&      Form gi_sort_table
FORM gi_sort_table.
IF p_det = gc_x.
    gwa_sort-spos = '1'.
    gwa_sort-fieldname = 'KUNNR'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    gwa_sort-subtot = gc_x.
    APPEND gwa_sort TO gi_sort.
    CLEAR gwa_sort.
    gwa_sort-spos = '2'.
    gwa_sort-fieldname = 'NAME1'.
    gwa_sort-tabname = 'gi_final'.
    gwa_sort-up = gc_x.
    APPEND gwa_sort TO gi_sort.
* ELSE.
*    gwa_sort-spos = '1'.
*    gwa_sort-fieldname = 'KUNNR'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    APPEND gwa_sort TO gi_sort.
*    CLEAR gwa_sort.
*    gwa_sort-spos = '2'.
*    gwa_sort-fieldname = 'NAME1'.
*    gwa_sort-tabname = 'gi_final'.
*    gwa_sort-up = gc_x.
*    gwa_sort-group = gc_x.
*    gwa_sort-subtot = gc_x.
*    APPEND gwa_sort TO gi_sort.
ENDIF.
ENDFORM.                    "gi_sort_table
*&      Form mearge_field_catalog
FORM mearge_field_catalog .
*>> LOCAL WORK AREA FOR FIELDCATALOG
DATA : lwa_fieldcata TYPE slis_fieldcat_alv.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KUNNR'.
* lwa_fieldcata-col_pos      = 1.
lwa_fieldcata-key          = 'X'.
lwa_fieldcata-key_sel      = 'X'.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer No.'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'NAME1'.
* lwa_fieldcata-col_pos      = 2.
lwa_fieldcata-ref_tabname = 'KNA1'.
lwa_fieldcata-seltext_l    = 'Customer Name'.
APPEND lwa_fieldcata TO gi_fieldcat.
IF p_det = gc_x.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'VBELN'.
*    lwa_fieldcata-col_pos      = 3.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Sales Order Number'.
    APPEND lwa_fieldcata TO gi_fieldcat.
    CLEAR lwa_fieldcata.
    lwa_fieldcata-fieldname    = 'MATNR'.
*    lwa_fieldcata-col_pos      = 4.
    lwa_fieldcata-ref_tabname = 'VBAK'.
    lwa_fieldcata-seltext_l    = 'Material No.'.
    APPEND lwa_fieldcata TO gi_fieldcat.
ENDIF.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KWMENG'.
lwa_fieldcata-col_pos      = 5.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-do_sum       = 'X'.
lwa_fieldcata-seltext_l    = 'Order Quantity'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PEINH'.
lwa_fieldcata-col_pos      = 6.
lwa_fieldcata-ref_tabname = 'CKMLCR'.
lwa_fieldcata-text_fieldname = 'PEINH'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'CUMON'.
lwa_fieldcata-col_pos      = 7.
lwa_fieldcata-ref_tabname = 'VBKPF'.
lwa_fieldcata-seltext_l    = 'Month'.
lwa_fieldcata-no_sum       = gc_x.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI6'.
lwa_fieldcata-col_pos      = 8.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'KZWI5'.
lwa_fieldcata-col_pos      = 9.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'TOTRE'.
lwa_fieldcata-col_pos      = 10.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'ACTCO'.
lwa_fieldcata-col_pos      = 11.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROFIT'.
lwa_fieldcata-col_pos      = 12.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'PROWS'.
lwa_fieldcata-col_pos      = 13.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FISCY'.
lwa_fieldcata-col_pos      = 14.
* lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Fiscal Year'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI6'.
lwa_fieldcata-col_pos      = 15.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Costed Sales'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FKZWI5'.
lwa_fieldcata-col_pos      = 16.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Surcharges'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FTOTRE'.
lwa_fieldcata-col_pos      = 17.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Total Revenues'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FACTCO'.
lwa_fieldcata-col_pos      = 18.
lwa_fieldcata-ref_tabname = 'VBAP'.
lwa_fieldcata-seltext_l    = 'Actual Cost for Period'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROFIT'.
lwa_fieldcata-col_pos      = 19.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit'.
APPEND lwa_fieldcata TO gi_fieldcat.
CLEAR lwa_fieldcata.
lwa_fieldcata-fieldname    = 'FPROWS'.
lwa_fieldcata-col_pos      = 20.
lwa_fieldcata-ref_tabname = 'VBAK'.
lwa_fieldcata-seltext_l    = 'Profit % w/surcharge'.
APPEND lwa_fieldcata TO gi_fieldcat.
ENDFORM.                    " mearge_field_catalog
*&      Form set_event
FORM set_event .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 1
    IMPORTING
      et_events   = gi_events.
SORT gi_events BY name.
*-- To read Top of Page event
PERFORM read_events USING slis_ev_top_of_page gc_top_of_page.
ENDFORM.                    " set_event
*&      Form top_of_page
FORM n_top_of_page USING lp_top_of_page TYPE slis_t_listheader.
DATA: lwa_listhead TYPE slis_listheader,
        lv_ccode TYPE string,
        lv_sales TYPE string,
        lv_divis TYPE string.
CONCATENATE 'From : ' s_bukrs-low ' To: ' s_bukrs-high INTO lv_ccode.
CONCATENATE 'From: ' s_vkorg-low       ' To: ' s_vkorg-high INTO lv_sales.
CONCATENATE 'From: ' s_spart-low       ' To: ' s_spart-high INTO lv_divis.
CLEAR lwa_listhead.
lwa_listhead-typ = 'H'.
lwa_listhead-info = text-003.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Month'.
lwa_listhead-info = p_monat.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Year'.
lwa_listhead-info = p_gjahr.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Company Code'.
lwa_listhead-info = lv_ccode.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Sales Org'.
lwa_listhead-info = lv_sales.
APPEND lwa_listhead TO lp_top_of_page.
CLEAR lwa_listhead.
lwa_listhead-typ = 'S'.
lwa_listhead-key = 'Division'.
lwa_listhead-info = lv_divis.
APPEND lwa_listhead TO lp_top_of_page.
IF p_det = gc_x.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-004.
    APPEND lwa_listhead TO lp_top_of_page.
ELSE.
    CLEAR lwa_listhead.
    lwa_listhead-typ = 'A'.
    lwa_listhead-info = text-005.
    APPEND lwa_listhead TO lp_top_of_page.
ENDIF.
ENDFORM.                    "top_of_page
*&      Form TOP_OF_PAGE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      i_logo             = 'ENJOYSAP_LOGO'
      it_list_commentary = gi_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form build_layout
FORM build_layout .
gwa_layout-no_input          = gc_x.
gwa_layout-colwidth_optimize = gc_x.
gwa_layout-zebra             = gc_x.
ENDFORM.                    "build_layout
*&      Form alv_grid_display
FORM alv_grid_display .
* Function module to display ALV report
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_callback_program = sy-repid
      is_layout          = gwa_layout
      it_fieldcat        = gi_fieldcat[]
      it_sort            = gi_sort
      i_save             = 'A'
      it_events          = gi_events[]
    TABLES
      t_outtab           = gi_final
    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.                    " alv_grid_display
*&      Form read_events
FORM read_events USING pr_events    TYPE slis_alv_event-name
                         pr_eventname TYPE slis_formname.
DATA: lwa_event TYPE slis_alv_event.
CLEAR lwa_event.
READ TABLE gi_events INTO lwa_event
                      WITH KEY name = pr_events BINARY SEARCH.
IF sy-subrc = 0.
    MOVE pr_eventname TO lwa_event-form.
    MODIFY gi_events FROM lwa_event
                    TRANSPORTING form
                    WHERE name = pr_events.
ENDIF.
ENDFORM.                    " read_events
Regards
Sandipan

One thing really needed is a example code forum ...continued...

were people can just drop in and post example code of what ever they like. then instead of asking question's over and over their would be a wealth of code snipets in one place.
then again it might not be such a good idea.

there would have to be someone or a group of people that check the code to keep it clean, and good java, so it might get a bit boggy and hard to maintain...
but a good subject, although i still think that there is sufficient examplecode to find.
You will practically never find exactely what you need online somewhere cause no application has the same possibilities, features...
dunno my 2 cents...

Need example for code use with Simple Type Enumeration

Hello,
I've created a Simple Type Enumeration in my Web DynPro Project's Local Directory.
I see that there is an option there to generate a class representation of this Enumeration. Can someone please show me an example code of how to use this Class. For example, to go over the Enumeration and get all the values?

hi Roy,
Try this.
Iterator chk =
wdContext.nodeB().getNodeInfo().getAttribute("val").getModifiableSimpleType().getSVServices().getModifiableSimpleValueSet().entrySet().iterator();
I will check it and tel u in some time...
Regards
Bharathwaj
Message was edited by: Bharathwaj R

Question on the example code 8253eventcount.c

Hi.
I saw the example code 8253eventcount.c before in the NI-DAQ6.9.x. That is very useful.But i still confuse that "Do i need to set up each clock pulse duration?". From the program, it seems that the counting process solely depends on the function NIDAQDelay(sec).....
By the way, if i am now using an old version of NI-DAQ6.8.5, How can i update some calculated voltages for each 1ms. Although i have read and followed the procedures in the user mannual of lab-pc+,but, i am still not sure how to program the counterA2 with appropriate update interval. Could anyone give me an example code? It seems that no examples are given in the version of NI-DAQ6.8.5.
I am now using lab-pc+ with Ni-daq6.8.5 by using c++ and win
dows95 as my working platform.Please help me in anyway! Thanks!
Attachments:
Lab_PC+_AO.cpp ‏2 KB

The NIDAQDelay() is only in there to control how often the program checks the current count on the counter. If it is set to 1 seconds, it will read the counter every one second and return how many counts have been read since the start. If you take that function out, the program will check the counter as fast as it can which will tie up your CPU.
As to your question about calculated voltages, can you be more specific as to what your application is and what you are trying to do, I'm a little confused.
Brian

Need sample code with RV_INVOICE_CREATE used

Hi everybody!
I need sample code with RV_INVOICE_CREATE or similar FMs used.
The thing is that I do not know how to populate parametres of this and other invoicing FMs....
For example, there are some tables to be passed to RV_INVOICE_CREATE
     TABLES
          XKOMFK     = XKOMFK
          XKOMV       = XKOMV
          XTHEAD      = XTHEAD
          XVBFS        = XVBFS
          XVBPA        = XVBPA
          XVBRK        = XVBRK
          XVBRP        = XVBRP
          XVBSS        = XVBSS
How to populate them? I mean how to fill them with needed values?
Useful answers will be awarded.
Kind regards, M.

RV_INVOICE_CREATE is the function module to create invoice based on delivery .
when you pass delivery number ,it will create invoice ,see the invoice number in vf02,vf03 transaction. and also see the data vbrk,vbrp tables
I have done this development and i have cancelled invoice,reverse goods issue,updated the delivery and again i am createing invoice..see the below progrm to get better understanding.
REPORT ZWM_OVERWEIGHT_FIX no standard page heading
                           message-id zwm.
======================================================================
Program Name : ZWM_OVERWEIGHT_FIX                                    *
Description : Tool to fix Overweight in delivery line item,         *
               Used All Function module to cancel invoice ,          *
               Reverse the goods issue ,Update Delivery qty,Create *
               invoice                                               *
Author       : Seshu                                                 *
Date         : 05/08/2007                                            *
MODIFICATION HISTORY                                                 *
DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
--|||--
05/08/07| Seshu    | DEVK921979 | Initial                            *
D A T A - D E C L A R A T I O N     *******************
Tables
Tables : vbak,
         vbap,
         vbfa,
         likp,
         lips,
         vbrk,
         vbrp.
Internal Tables
data : i_lips like lips occurs 0 with header line,
       i_vbap like vbap occurs 0 with header line.
Variables
data : v_deliv like vbfa-vbelv,
       v_invoic like vbfa-vbelv.
Data Declaration Part for Post Goods Issue
DATA: l_vbeln LIKE likp-vbeln,
      l_vbkok LIKE vbkok,
      i_prot LIKE prott OCCURS 0 WITH HEADER LINE,
      ef_error_any_0 TYPE c,
      ef_error_in_item_deletion_0 TYPE c,
      ef_error_in_pod_update_0 TYPE c,
      ef_error_in_interface_0 TYPE c,
      ef_error_in_goods_issue_0 TYPE c,
      ef_error_in_final_check_0 TYPE c,
      d_return   LIKE bapireturn1.
Internal tables for BAPI Function Module
data : i_cret like BAPIRETURN1 occurs 0 with header line,
       i_csucess like BAPIVBRKSUCcESS occurs 0 with header line,
       i_ret2 like bapiret2 ,
       flag type c,
       i_mesg like mesg occurs 0 with header line.
Data Declaration for Invoice Creation
DATA: VBSK_I     LIKE VBSK.
data: d_success type c.
DATA: XKOMFK LIKE      KOMFK   OCCURS 0 WITH HEADER LINE,
      XKOMV LIKE      KOMV    OCCURS 0 WITH HEADER LINE,
      XTHEAD LIKE      THEADVB OCCURS 0 WITH HEADER LINE,
      XVBFS LIKE      VBFS    OCCURS 0 WITH HEADER LINE,
      XVBPA LIKE      VBPAVB OCCURS 0 WITH HEADER LINE,
      XVBRK LIKE      VBRKVB OCCURS 0 WITH HEADER LINE,
      XVBRP LIKE      VBRPVB OCCURS 0 WITH HEADER LINE,
      XVBSS LIKE      VBSS    OCCURS 0 WITH HEADER LINE,
      XKOMFKGN LIKE    KOMFKGN OCCURS 0 WITH HEADER LINE.
S E L E C T I O N - S C R E E N   ******************
Selection-screen
Selection-screen : begin of block blk with frame title text-001.
parameters : p_vbeln like vbak-vbeln obligatory.
selection-screen : end of block blk.
A T - S E L E C T I O N - S C R E E N ***************
Validation on Sales order
at selection-screen on p_vbeln.
Check the data on VBAK Table
select single vbeln from vbak into vbak-vbeln
                            where vbeln = p_vbeln.
if sy-subrc ne 0.
    message e006 with p_vbeln.
endif.
S T A R T - O F - S E L E C T I O N *******************
Start-of-selection.
break sreddy.
Get the Invoice Number corresponding Sales Order Number
perform get_invoice.
Step 1.
Cancel the Invoice - Transaction VF11
perform cancel_invoice.
Reverse the goods issue
perform reverse_goodsissue.
Get the Order and Delivery Items
perform get_sales_deliv.
Delivery Change
perform Delivery_change.
Create Invoice document
perform invoice_create.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if flag = 'X'.
message i012 with p_vbeln.
endif.
*&      Form get_invoice
      Get Invoice Number
FORM get_invoice.
Clear Variables
clear : v_deliv,
          v_invoic,
          flag.
Get the Delivery Number First
select single vbeln from vbfa into v_deliv
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'J'.
if sy-subrc ne 0.
    message i004 with p_vbeln.
    stop.
endif.
Get the Invoice Number
select single vbeln from vbfa into v_invoic
                           where vbelv = p_vbeln
                           and   vbtyp_n = 'M'.
if sy-subrc ne 0.
    message i003 with p_vbeln.
    stop.
endif.
ENDFORM.                    " get_invoice
*&      Form cancel_invoice
      Cancel the Invoice
FORM cancel_invoice.
clear : i_ret2,
          i_cret,
          i_csucess.
refresh : i_cret,
            i_csucess.
CALL FUNCTION 'BAPI_BILLINGDOC_CANCEL1'
    EXPORTING
      BILLINGDOCUMENT       = v_invoic
TESTRUN               =
NO_COMMIT             =
BILLINGDATE           =
    TABLES
      RETURN                = i_cret
      SUCCESS               = i_csucess
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
       EXPORTING
            WAIT   = space
       IMPORTING
            RETURN = i_ret2.
read table i_cret with key type = 'E'.
if sy-subrc ne 0.
    message i005 with v_invoic.
    stop.
endif.
ENDFORM.                    " cancel_invoice
*&      Form reverse_goodsissue
      Reverse the goods Issue
FORM reverse_goodsissue.
Local Variable
data : lv_vbtyp like likp-vbtyp.
clear : i_mesg,
          lv_vbtyp.
refresh : i_mesg.
select single vbtyp from likp into lv_vbtyp
                           where vbeln = v_deliv.
CALL FUNCTION 'WS_REVERSE_GOODS_ISSUE'
    EXPORTING
      I_VBELN                         = v_deliv
      I_BUDAT                         = sy-datum
    I_COUNT                         =
    I_MBLNR                         =
    I_TCODE                         =
      I_VBTYP                         = lv_vbtyp
    TABLES
      T_MESG                          = i_mesg
   EXCEPTIONS
     ERROR_REVERSE_GOODS_ISSUE       = 1
     OTHERS                          = 2
if sy-subrc ne 0.
    message i007 with v_deliv.
endif.
ENDFORM.                    " reverse_goodsissue
*&      Form get_sales_deliv
      Get the Sales order and Deliv Items
FORM get_sales_deliv.
Local Variables
data : lv_kwmeng like vbap-kwmeng.
clear : i_lips,
          i_vbap.
refresh : i_lips,
            i_vbap.
Select the data from LIPS
select * from lips into table i_lips
                     where vbeln = v_deliv.
if sy-subrc ne 0.
    message i008 with v_deliv.
    stop.
endif.
sort i_lips by vbeln posnr.
Get the Sales order Item Data.
select * from vbap into table i_vbap
                          where vbeln = p_vbeln.
if sy-subrc ne 0.
    message i006 with p_vbeln.
    stop.
endif.
sort i_vbap by vbeln posnr.
Compare delivery Item and Order Items
loop at i_lips.
    clear lv_kwmeng.
    read table i_vbap with key posnr = i_lips-posnr.
    if sy-subrc eq 0.
      lv_kwmeng = i_vbap-kwmeng * 2.
      if lv_kwmeng >= i_lips-lfimg.
        i_lips-lfimg = i_vbap-kwmeng.
        modify i_lips.
      endif.
    endif.
endloop.
ENDFORM.                    " get_sales_deliv
*&      Form Delivery_change
      Delivery Update
FORM Delivery_change.
Clear : i_prot.
refresh : i_prot.
Delivery Update
CALL FUNCTION 'LE_MOB_DELIVERY_UPDATE'
       EXPORTING
            do_commit                = 'X'
       TABLES
            t_delivery_items         = i_lips
            prot                     = i_prot
       EXCEPTIONS
            conversion_overflow      = 1
            essential_data_missing   = 2
            error                    = 3
            nothing_to_update        = 4
            lock_after_update_failed = 5
            error_in_delivery_update = 6
            OTHERS                   = 7.
COMMIT WORK.
IF sy-subrc <> 0.
    MESSAGE i009 with v_deliv.
endif.
Post Goods Issue
CLEAR:    d_return,
            i_prot,
            l_vbeln,
            l_vbkok.
REFRESH i_prot.
CLEAR: ef_error_in_item_deletion_0    ,
          ef_error_in_pod_update_0       ,
          ef_error_in_interface_0        ,
          ef_error_in_goods_issue_0      ,
          ef_error_in_final_check_0      .
carry out goods issue
l_vbeln          = v_deliv.
l_vbkok-vbeln_vl = l_vbeln.
l_vbkok-wabuc    = 'X'.
carry out goods issue
l_vbeln          = v_deliv.
l_vbkok-vbeln_vl = l_vbeln.
l_vbkok-wabuc    = 'X'.
SET UPDATE TASK LOCAL.
CALL FUNCTION 'WS_DELIVERY_UPDATE'
       EXPORTING
            vbkok_wa                    = l_vbkok
            synchron                    = 'X'
            no_messages_update          = ' '
            update_picking              = 'X'
            commit                      = 'X'
            delivery                    = l_vbeln
            nicht_sperren               = 'X'
            if_error_messages_send_0    = space
       IMPORTING
            ef_error_any_0              = ef_error_any_0
            ef_error_in_item_deletion_0 = ef_error_in_item_deletion_0
            ef_error_in_pod_update_0    = ef_error_in_pod_update_0
            ef_error_in_interface_0     = ef_error_in_interface_0
            ef_error_in_goods_issue_0   = ef_error_in_goods_issue_0
            ef_error_in_final_check_0   = ef_error_in_final_check_0
       TABLES
            prot                        = i_prot
       EXCEPTIONS
            error_message               = 1
            OTHERS                      = 2.
if sy-subrc ne 0.
    message i010 with v_deliv.
else.
    COMMIT WORK .
endif.
ENDFORM.                    " Delivery_change
*&      Form invoice_create
      Invoice Creation
FORM invoice_create.
refresh: XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA, XVBRK,
           XVBRP, XVBSS.
clear : XKOMFK, XKOMV,
           XTHEAD, XVBFS,
           XVBPA, XVBRK,
           XVBRP, XVBSS,
           VBSK_I.
VBSK_I-SMART = 'F'.
XKOMFK-VBELN = v_deliv.
XKOMFK-VBTYP = 'J'.
APPEND XKOMFK.
CALL FUNCTION 'RV_INVOICE_CREATE'
       EXPORTING
            VBSK_I       = VBSK_I
            WITH_POSTING = 'C'
       TABLES
            XKOMFK       = XKOMFK
            XKOMV        = XKOMV
            XTHEAD       = XTHEAD
            XVBFS        = XVBFS
            XVBPA        = XVBPA
            XVBRK        = XVBRK
            XVBRP        = XVBRP
            XVBSS        = XVBSS.
if sy-subrc eq 0.
    COMMIT WORK.
   flag = 'X'.
else.
message i011 with p_vbeln.
endif.
ENDFORM.                    " invoice_create
Reward Points if it is helpful
Thanks
Seshu

I Need Java code for following Algorithm

* I Need Java code for following algorithm. Kindly any one help.
1. Read the contents (ideas and its corresponding scores) from two files named as 'a' and 'b'.
2. Stored the file 'a' contents in array a[].
3. Stored the file 'b' contents in array b[].
4. compare both files like
if(a.equals(b[j])
Writing the common idea and add the score from file 'a' and 'b'.
else
write the uncommon idea and its score..
For example :
Form Agents.txt
action,65
architecture,85
eco-,15
essay,30
form,85
form,85
link,40
tangent,25
Form Agents1.txt
Black holes,69
essay,78
Herewith i have above mentioned two files named as Form Agents and Form Agents1.
Form Agents has eight fields
Form Agents1 has two fields
--> 'essay' is common in two files, so store the idea 'essay' and add the score from Form Agents score is '30' and Form Agents1 has 78 (essay 108).
Finally it stores idea in another file with uncommon fields also.
Please help us.

We have tried with following code.
But we cant add the scores.
For Example:
Form Agents.txt --> has "essay,30"
Form Agents1.txt --> has "essay,78"
Result is: essay,108
Finally it stores idea in another file with uncommon fields also.
So Any one pls correct the following code.
try
DataOutputStream o1=new DataOutputStream(new
FileOutputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\CandidateResponses\\Form
Agents.txt"));
//Reading the contents of the files
BufferedReader br= new BufferedReader(new InputStreamReader(new
FileInputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\Ideological\\Form
Agents.txt")));
BufferedReader br1= new BufferedReader(new InputStreamReader(new
FileInputStream("C:\\Interfaces\\interfaces\\temp\\BlackBoard\\My Design
World\\Project\\Material\\art\\System Agents\\Form Agents\\Related\\Form
Agents.txt")));
while((s=br.readLine())!=null)
s1+=s+"\n";
while((s2=br1.readLine())!=null)
s3+=s2+"\n";
int numTokens = 0;
StringTokenizer st = new StringTokenizer(s1);
String[] a = new String[10000];
String[] br_n=new String[10000];
int i=0;
while (st.hasMoreTokens())
s2 = st.nextToken();
a=s2.substring(0,s2.length()-3);
s6=s2.substring(s2.length()-2);
br_n[i]=s6;
i++;
numTokens++;
int numTokens1 = 0;
StringTokenizer st1 = new StringTokenizer (s3);
String[] b = new String[10000];
String[] br1_n=new String[1000];
int j=0;
while (st1.hasMoreTokens())
s4 = st1.nextToken();
b[j]=s4.substring(0,s4.length()-3);
s7=s4.substring(s4.length()-2);
br1_n[j]=s7;
j++;
numTokens1++;
int x=0;
for(int m=0;m<a.length;m++)
for(int n=0;n<b.length;n++)
if(a[m].equalsIgnoreCase(b[n])){
int sc=Integer.parseInt(br_n[m]);
int sc1=Integer.parseInt(br1_n[n]);
int score=sc+sc1;
o.writeBytes(a[m]+","+score+"\n");
break;
else
o.writeBytes(a[m]+","+br_n[m]+"\n");
break;
}catch(Exception e){}

Need a code for Customer exit for extractor 0WBS_ELEMT_ATTR

Hi Guys,
I need a code for following requirement.
I have appended some fields to standard extractor 0WBS_ELEMT_ATTR which normally takes data from PRPS table. But the new fields will be getting data from PRTE and PROJ table. with common keys. Following is my code which is not working. Please help me out, I am not good in abap. Please note some lines are commented.
Thanks,
H
CODE:::::
form 0wbs_elemt_attr tables i_t_data structure biw_prps.
data: it_wbs_prps like biw_prps occurs 0.
data wa_prps like it_wbs_prps.
data: begin of it_wbs_prps occurs 0,
         PSPNR like prps-pspnr,
         POSID like prps-posid,
         PBUKR like prps-PBUKR,
         IZWEK like prps-IZWEK,
         USR10 like prps-USR10,
         USR00 like prps-USR00,
         USR02 like prps-USR02,
         OBJNR like prps-OBJNR,
       end of it_wbs_prps.
data wa_prps like it_wbs_prps.
data: begin of it_wbs_prps1 occurs 0,
          PSPNR like prps-pspnr,
          POSID like prps-posid,
        end of it_wbs_prps1.
data wa_prps1 like it_wbs_prps1.
data: begin of it_wbs_prte occurs 0,
          posnr like prte-posnr,
          PSTRT like prte-PSTRT,
          PENDE like prte-PENDE,
          ESTRT like prte-ESTRT,
          EENDE like prte-EENDE,
          ISTRT like prte-ISTRT,
          IENDE like prte-IENDE,
        end of it_wbs_prte.
data wa_prte like it_wbs_prte.
data: begin of it_wbs_proj occurs 0,
          PSPNR like proj-pspnr,
          PLFAZ like proj-plfaz,
          PLSEZ like proj-plsez,
        end of it_wbs_proj.
data wa_proj like it_wbs_proj.
refresh: it_wbs_prte, it_wbs_proj.
*it_wbs_jest.
if i_t_data[] is not initial.
Get data from PRPS WBS Master Data
     select pspnr posid PBUKR IZWEK USR10 USR00 USR02 objnr
       into corresponding fields of table it_wbs_prps
       from prps
        for all entries in i_t_data
      where POSID = i_t_data-POSID.
     sort it_wbs_prps by posid.
Get data from PRPS1 WBS Master Data
      select pspnr posid
       into corresponding fields of table it_wbs_prps1
        from prps
        for all entries in i_t_data
     where POSID = i_t_data-POSID.
    sort it_wbs_prps1 by posid.
Get data from PRTE Scheduling Data for Project Item
     if it_wbs_prps1[] is not initial.
     select posnr PSTRT PENDE ESTRT EENDE ISTRT IENDE
       into corresponding fields of table it_wbs_prte
       from prte
        for all entries in it_wbs_prps1
      where posnr = it_wbs_prps1-pspnr.
     sort it_wbs_prte by posnr.
     endif.
Get data from PROJ Project Master Data
     if it_wbs_prps1[] is not initial.
     select pspnr PLFAZ PLSEZ
       into corresponding fields of table it_wbs_proj
       from proj
       for all entries in it_wbs_prps
      where pspnr = it_wbs_proj-pspnr.
     sort it_wbs_proj by pspnr.
     endif.
loop at i_t_data.
   clear: wa_prps1, wa_prte, wa_proj.
   read table it_wbs_prps into wa_prps with key
              posid = i_t_data-posid binary search.
   read table it_wbs_prte into wa_prte with key
              posnr = wa_prps1-pspnr.
   read table it_wbs_proj into wa_proj with key
              pspnr = it_wbs_proj-pspnr.
         i_t_data-zzPBUKR = wa_prps-pbukr.
         i_t_data-zzIZWEK = wa_prps-IZWEK.
         i_t_data-zzUSR10 = wa_prps-USR10.
         i_t_data-zzUSR00 = wa_prps-USR00.
         i_t_data-zzUSR02 = wa_prps-USR02.
          i_t_data-zzPSTRT = wa_prte-PSTRT.
          i_t_data-zzPENDE = wa_prte-PENDE.
          i_t_data-zzESTRT = wa_prte-ESTRT.
          i_t_data-zzEENDE = wa_prte-EENDE.
          i_t_data-zzISTRT = wa_prte-ISTRT.
          i_t_data-zzIENDE = wa_prte-IENDE.
          i_t_data-zzPLFAZ = wa_proj-PLFAZ.
          i_t_data-zzPLSEZ = wa_proj-PLSEZ.
    modify i_t_data.
endloop.
endif.
endform.                    " 0wbs_elemt_attr

Hi,
it_wbs_prps1 .
If you are going to use this internal table to check for a null condition, shouldn't you first assign the data package to it?
For example,   it_wbs_prps1 = i_t_data[].
Because you are now using it_wbs_prps1 to select data from a table and it doesn't have any data.
Please check.
-RMP
Edit : Please ignore this. I didn't see that you are actually filling the internal table. Sorry!
Edited by: RMP on Oct 18, 2010 12:16 PM

Need a code for finding prime no.s from 0 to 100.

Hi,
i need a code for finding prime no.s from 0 to 100.
Please help me out.
Regards,
Santosh Kotra.

hai santosh,
here is an example program to find the prime number...........
EXAMPLE:
DATA: BEGIN OF primes OCCURS 0,
        number TYPE i,
        exp    TYPE i,
      END OF primes.
DATA: w_mult TYPE i,
      w_limi TYPE i,
      w_prem TYPE i.
DATA: w_outp TYPE text132.
DATA: w_rtime TYPE i,
      w_stime TYPE p DECIMALS 3.
DEFINE add_part.
sy-fdpos = strlen( &1 ) + 1.
&1+sy-fdpos(*) = &2.
condense &1.
END-OF-DEFINITION.
PARAMETERS: p_numb TYPE i,                "number to check
            p_fact TYPE c AS CHECKBOX,    "display components
            p_nbpr TYPE c AS CHECKBOX.    "nb of primes
START-OF-SELECTION.
GET RUN TIME FIELD w_rtime.
IF p_nbpr IS INITIAL OR p_numb LE 12000.
    PERFORM eratostene USING p_numb.
    add_part w_outp p_numb.
    READ TABLE primes WITH KEY number = p_numb.
    IF sy-subrc = 0.
      add_part w_outp 'is prime'.
    ELSE.
      IF p_fact IS INITIAL.
        add_part w_outp 'is not prime'.
      ELSE.
        add_part w_outp '='.
        w_limi = p_numb.
        LOOP AT primes WHERE exp GT 0.
          CHECK primes-number LE w_limi.
          IF w_prem GT 0.
            add_part w_outp '*'.
          ENDIF.
          IF primes-exp GT 1.
            add_part w_outp '('.
            add_part w_outp primes-number.
            add_part w_outp '^'.
            add_part w_outp primes-exp.
            add_part w_outp ')'.
          ELSE.
            add_part w_outp primes-number.
          ENDIF.
          w_limi = w_limi / ( primes-number ** primes-exp ).
          IF w_limi = 1.
            EXIT.
          ENDIF.
          w_prem = 1.
        ENDLOOP.
      ENDIF.
    ENDIF.
    WRITE: / w_outp.
    IF NOT p_nbpr IS INITIAL.
      DESCRIBE TABLE primes LINES sy-tmaxl.
      CLEAR: w_outp.
      add_part w_outp 'Number of primes:'.
      add_part w_outp sy-tmaxl.
      WRITE: / w_outp.
      SKIP.
      LOOP AT primes.
        WRITE: / primes-number.
      ENDLOOP.
    ENDIF.
ELSE.
    PERFORM factors.
ENDIF.
GET RUN TIME FIELD w_rtime.
w_stime = w_rtime / 1000000.
SKIP.
CLEAR: w_outp.
add_part w_outp 'Calculation time:'.
add_part w_outp w_stime.
WRITE: / w_outp.
      FORM eratostene                                               *
FORM eratostene USING in_number TYPE i.
DATA: BEGIN OF no_primes OCCURS 0,
          number TYPE i,
        END OF no_primes.
DATA: cnum TYPE i,
        dnum TYPE i,
        limi TYPE i,
        mult TYPE i,
        puis TYPE i,
        cmod TYPE i.
IF NOT ( p_fact IS INITIAL AND p_nbpr IS INITIAL ).
    limi = in_number.
ELSE.
    limi = sqrt( in_number ).
ENDIF.
cnum = 2.
WHILE cnum LE limi.
    READ TABLE no_primes WITH KEY number = cnum.
    IF sy-subrc NE 0.
      primes-number = cnum.
      mult = 2.
      puis = 1.
      dnum = mult * cnum.
      WHILE dnum LE in_number.
        READ TABLE no_primes WITH KEY number = dnum.
        IF sy-subrc NE 0.
          no_primes-number = dnum.
          APPEND no_primes.
        ENDIF.
        IF NOT p_fact IS INITIAL.
          cmod = dnum MOD ( cnum ** puis ).
          IF cmod = 0.
            cmod = in_number MOD ( cnum ** puis ).
            IF cmod = 0.
              primes-exp = puis.
              puis = puis + 1.
            ENDIF.
          ENDIF.
        ENDIF.
        mult = mult + 1.
        dnum = mult * cnum.
      ENDWHILE.
      APPEND primes.
      CLEAR: primes.
    ENDIF.
    cnum = cnum + 1.
ENDWHILE.
ENDFORM.
      FORM factors                                                  *
FORM factors.
DATA: ex_factors TYPE string,
        mod        TYPE i,
        still      TYPE f,
        factor     TYPE i,
        exponent   TYPE i,
        square     TYPE f,
        fac_string TYPE text40,
        exp_string TYPE text40.
IF p_numb LE 3.
    ex_factors = p_numb.
ELSE.
    factor = 2.
    still = p_numb.
    DO.
      CLEAR: exponent.
      mod = still MOD factor.
      WHILE mod = 0.
        exponent = exponent + 1.
        still    = still div factor.
        mod      = still MOD factor.
      ENDWHILE.
      IF exponent EQ 1.
        fac_string = factor.
        CONCATENATE ex_factors '*' fac_string
                               INTO ex_factors
                       SEPARATED BY space.
        CONDENSE ex_factors.
      ELSEIF exponent GT 1.
        fac_string = factor.
        exp_string = exponent.
        CONCATENATE ex_factors '* (' fac_string
                               '^'   exp_string ')'
                               INTO ex_factors
                       SEPARATED BY space.
        CONDENSE ex_factors.
      ENDIF.
      factor = factor + 1.
      square = factor ** 2.
      IF square GT still.
        EXIT.
      ENDIF.
    ENDDO.
    IF still GT 1.
      CATCH SYSTEM-EXCEPTIONS convt_overflow = 1.
        fac_string = factor = still.
      ENDCATCH.
      IF sy-subrc NE 0.
        fac_string = still.
      ENDIF.
      CONCATENATE ex_factors '*' fac_string
                            INTO ex_factors
                    SEPARATED BY space.
      CONDENSE ex_factors.
    ENDIF.
    SHIFT ex_factors UP TO '*'.
    SHIFT ex_factors BY 2 PLACES.
ENDIF.
WRITE: / p_numb RIGHT-JUSTIFIED.
IF ex_factors CA '*^'.
    WRITE: '=', ex_factors.
ELSE.
    WRITE: 'is prime'.
ENDIF.
ENDFORM.
HOPE THIS WILL BE HELPFULL.
regards
praba.

I need ready code for a simple paint program today

hi all I need ready code for a simple paint program today for me ics projct
plz give me a halp on this give me what you have with you and it is so good if it look like this :
Design a GUI based drawing Java application that works like a simple paint program
1-There should be a number of buttons for choosing different shapes to draw. For example, there should be a button for rectangle. If user presses the rectangle button, then he can draw a rectangle using mouse. Similarly, there should be a button for each shape(rectangle, circle, ellipse, and line etc.
2-The shapes can be filled with different colors.
3-There should be option of moving .
4- There should also be three menus including File, Shape, and Color menu.
i. File menu can have menu items New and Exit. If user selects New, the drawing area will be cleared and all shapes will be erased.
ii. Shape menu will serve the same purpose as of feature 2 described above. It will have menu items for drawing all the different shapes. For example, there will be menu item for rectangle; so user can draw a rectangle by selecting the menu item for rectangle.
iii. Color menu will serve the same purpose as of feature 3 described above. It will have menu items for all the colors which are shown in color buttons. The user can select a color from this menu and then click inside a shape to fill it with the selected color.

Read the Swing tutorial. There are sections on how to use menus and painting and all other kinds of stuff you need to do this homework assignment. Nobody here is going to write the code for you:
http://java.sun.com/docs/books/tutorial/uiswing/TOC.html

Is there example code for using Ni488 and PCI-GPIB card in non controller mode?

Is there example code for using Ni488 and PCI-GPIB card in non controller mode?

cymrieg,
Your code looks good to me. What is the problem? What happens when it fails? What is the IBSTA value on the controller, and at what point in the code does it stop? What is the IBSTA value on the slave, and at what point does it stop?
One thing is that you might not want to call IBCLR() in a loop on the device. At the beginning of the program is fine...This will send a clear command to the device and will clear out any LACS and TACS bits that might be set. Also your IBDEV call shouldn't be in a loop.
Hope this helps, but let me know if you need more information.
Scott B.
GPIB Software
National Instruments

Simple example code to connect to SQL server 2002

Hi,
I found a good website a while back which showed step by step how to connect to a sql server DB using JDBC, a re-install of windows means I cant find it again. I have searched the web, but to no avail. Basically I need to find a step by step guide to using java to access data within MS SQL server 2000. It needs to include details about where to download suitable drivers etc. and example code so that I can originally test my connection before diving much deeper.
Any help much appreciated.

Hi:
here is the code that you can use it to test your connect if you use MS sql 2000 free driver. Others, you need to make little change on
Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver"); and
con = .......... parts
goog luck !
import java.sql.*;
public class Connect{
private java.sql.Connection con = null;
private final String url = "jdbc:microsoft:sqlserver://";
private final String serverName= "localhost";
private final String portNumber = "1433";
private final String databaseName= "pubs";
private final String userName = "xxxxx";
private final String password = "xxxxx";
// Informs the driver to use server a side-cursor,
// which permits more than one active statement
// on a connection.
private final String selectMethod = "cursor";
// Constructor
public Connect(){}
private String getConnectionUrl(){
return url+serverName+":"+portNumber+";databaseName="+databaseName+";selectMethod="+selectMethod+";";
private java.sql.Connection getConnection(){
try{
Class.forName("com.microsoft.jdbc.sqlserver.SQLServerDriver");
con = java.sql.DriverManager.getConnection(getConnectionUrl(),userName,password);
if(con!=null) System.out.println("Connection Successful!");
}catch(Exception e){
e.printStackTrace();
System.out.println("Error Trace in getConnection() : " + e.getMessage());
return con;
Display the driver properties, database details
public void displayDbProperties(){
java.sql.DatabaseMetaData dm = null;
java.sql.ResultSet rs = null;
try{
con= this.getConnection();
if(con!=null){
dm = con.getMetaData();
System.out.println("Driver Information");
System.out.println("\tDriver Name: "+ dm.getDriverName());
System.out.println("\tDriver Version: "+ dm.getDriverVersion ());
System.out.println("\nDatabase Information ");
System.out.println("\tDatabase Name: "+ dm.getDatabaseProductName());
System.out.println("\tDatabase Version: "+ dm.getDatabaseProductVersion());
System.out.println("Avalilable Catalogs ");
rs = dm.getCatalogs();
while(rs.next()){
System.out.println("\tcatalog: "+ rs.getString(1));
rs.close();
rs = null;
closeConnection();
}else System.out.println("Error: No active Connection");
}catch(Exception e){
e.printStackTrace();
dm=null;
private void closeConnection(){
try{
if(con!=null)
con.close();
con=null;
}catch(Exception e){
e.printStackTrace();
public static void main(String[] args) throws Exception
Connect myDbTest = new Connect();
myDbTest.displayDbProperties();

Any Example code site for MQ v6.0 Clustering

Hi All
Can any body please help me some sites, where I can get some example codes, for MQ Clustering in java....
Windows platform
MQ Webspere v6.0
thanks in advance
Balmiki

I'm looking for exact property need to be set for SSL in Oracle MQ adapter.
It would be very helpful if Oracle have some standard docs.

Need example codes

Similar Messages

Maybe you are looking for