Modification in T.Code VA**

I need to modify the standard program which is corresponding to VA**. In those T.Codes I want to add some screen elements in additional data B tab. some elements should be in one box and the remaining elements should be in other box.
Now the thing is the elements in first box it getting displayed correctly but the elements in second box is not getting displayed. only the box alone getting displayed in that screen. CAn some one help me in this, please. even i checked all properties of both the boxes.
Regards,
Amal

need to change the size of sub-screen

Similar Messages

Need help in modifing the following code to display required output

Hi this is the code which i am going to displayoutput here i used FM VRM_SET_VALUES for getting dropdown box when i used it my output race field is not getting any values and blank space is getting displayed
what i want is just i need to display the output according to the selection screen
and the other fields in the selection screen except 'p_gender' are also giving problem when i am keeping where condition to link selection screen
can any one please help me in getting the required output according to selection by modifing the following code
TABLES: pernr,t5u13,cskt , t001p,t500p, t501t,t503t,t513s,t527x,t529t,t530t, t5uaa.
TYPE-POOLS: slis, vrm.
INFOTYPES: 0000,                               "Actions
           0001,                               "Org Assignment
           0002,                               "Personal Data
           0006,                               "Address
           0008,                               "Basic Pay
           0041,                               "Date Specifications
           0077.                               "Additional Personal Data
CONSTANTS: gc_x               TYPE c VALUE 'X',
           g_w(1)             TYPE c VALUE 'W',
           g_h(1)             TYPE c VALUE 'H',
           g_af(2)            TYPE c VALUE 'AF',
           g_ai(2)            TYPE c VALUE 'AI',
           g_01(2)            TYPE c VALUE 'R1',
           g_02(2)            TYPE c VALUE 'R2',
           g_03(2)            TYPE c VALUE 'R3',
           g_05(2)            TYPE c VALUE 'R5'.
TYPES : BEGIN OF t_roster,
        pernr                 TYPE p0001-pernr,
        ssn                   TYPE p0002-perid,
        first_name            TYPE p0002-vorna,
        last_name             TYPE p0002-nachn,
        city                  TYPE t500p-ort01,
        state                 TYPE t500p-regio,
        zipcode               TYPE t500p-pstlz,
        hire_date(10)         TYPE c,
        lhire_date(10)        TYPE c,
        serv_date(10)         TYPE c,
        eg                    TYPE p0001-persg,
        eg_desc               TYPE t501t-ptext,
        esg                   TYPE p0001-persk,
        esg_desc              TYPE t503t-ptext,
        race                  TYPE p0077-rac01,
        ***                   TYPE p0002-gesch,
        job_grade             TYPE p0008-trfgr,
        job_level             TYPE p0008-trfst,
        grade_entry_date(10) TYPE c,
        job_title             TYPE p0001-plans,
        title(30)             TYPE c,
        job_code              TYPE p0001-stell,
        job_code_desc         TYPE t513s-stltx,
        job_entry_date(10)    TYPE c,
        annual_sal            TYPE p0008-ansal,
        hrly_rate             TYPE p0008-bet01,
        org_unit              TYPE p0001-orgeh,
        orgtx(40)             TYPE c,
        cost_cntr             TYPE p0001-kostl,
        ltext(40)             TYPE c,
        personal_area         TYPE p0001-werks,
        personal_area_desc    TYPE t500p-name1,
        supervisor(30)        TYPE c,
        flsa                  TYPE t5u13-exmpt,
        ee01                  TYPE t5u13-eeoct,
        job_grp               TYPE p0001-stell,
        aap_code              TYPE t5u13-aapct,
        aap_code_desc         TYPE t5uaa-ltext,
        dob                   TYPE p0002-gbdat,
        psa                   TYPE p0001-btrtl,
        psa_desc              TYPE t001p-btext,
        unionl                TYPE p0001-btrtl,
        unionc                TYPE p0001-btrtl,
END OF t_roster.
DATA : gi_roster TYPE STANDARD TABLE OF t_roster, gi_objec TYPE STANDARD TABLE OF objec,
       gi_hrp1000      TYPE STANDARD TABLE OF hrp1000,
       gi_cskt         TYPE STANDARD TABLE OF cskt,
       gi_t001p        TYPE STANDARD TABLE OF t001p,
       gi_t500p        TYPE STANDARD TABLE OF t500p,
       gi_t501t        TYPE STANDARD TABLE OF t501t,
       gi_t503t        TYPE STANDARD TABLE OF t503t,
       gi_t513s        TYPE STANDARD TABLE OF t513s,
       gi_t527x        TYPE STANDARD TABLE OF t527x,
       gi_t529t        TYPE STANDARD TABLE OF t529t,
       gi_t530t        TYPE STANDARD TABLE OF t530t,
       gi_t5u13        TYPE STANDARD TABLE OF t5u13,
       gi_t5uaa        TYPE STANDARD TABLE OF t5uaa.
DATA : gs_roster       TYPE t_roster,
         gs_objec        TYPE objec,
       gs_hrp1000      TYPE hrp1000,
       gs_cskt         TYPE cskt,
       gs_t001p        TYPE t001p,
       gs_t500p        TYPE t500p,
       gs_t501t        TYPE t501t,
       gs_t503t        TYPE t503t,
       gs_t513s        TYPE t513s,
       gs_t527x        TYPE t527x,
       gs_t529t        TYPE t529t,
       gs_t530t        TYPE t530t,
       gs_t5u13        TYPE t5u13,
       gs_t5uaa        TYPE t5uaa.
DATA : gv_ltext(40)       TYPE c,
        gv_ltext1(40)      TYPE c,
        gv_age(3)          TYPE c,
        gv_butxt(40)       TYPE c,
        gv_eeoc(10)        TYPE c,
        gv_prevdate        TYPE datum.
DATA: gi_fieldcat    TYPE slis_t_fieldcat_alv,
      gs_fieldcat    TYPE slis_fieldcat_alv,
      i_top_of_page TYPE slis_t_listheader,
      g_repid        TYPE sy-repid,
      g_save,
      gs_layout      TYPE slis_layout_alv,
      gt_events      TYPE slis_t_event,
      gs_variant     LIKE disvariant,
      gi_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE'.
DATA: name TYPE vrm_id,
      list TYPE vrm_values,
      value LIKE LINE OF list.
SELECTION-SCREEN BEGIN OF BLOCK b1
                 WITH FRAME TITLE text-x02.
PARAMETERS : p_race(10) AS LISTBOX VISIBLE LENGTH 30,
             p_gender TYPE p0002-gesch,
             p_eeoc   TYPE t5u13-eeoct,
             p_aap    TYPE t5u13-aapct.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN OUTPUT.
REFRESH list.
name = 'P_RACE'.
value-key = 'R1'.
value-text = 'American Indian or Alaskan Native'.
APPEND value TO list.
CLEAR value.
value-key = 'R2'.
value-text = 'Asian'.
APPEND value TO list.
CLEAR value.
value-key = 'R3'.
value-text = 'Black or African American'.
APPEND value TO list.
CLEAR value.
value-key = 'R5'.
value-text = 'White'.
APPEND value TO list.
CLEAR value.
CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      id              = name
      values          = list
    EXCEPTIONS
      id_illegal_name = 1
      OTHERS          = 2.
INITIALIZATION.
g_repid = sy-repid.
PERFORM layout_init    USING gs_layout.
PERFORM eventtab_build USING gt_events[].
gs_variant-report = g_repid.
g_save = 'A'.
START-OF-SELECTION.
GET pernr.
    PERFORM roster_aap.
END-OF-SELECTION.
PERFORM fetch_roster_text.
    PERFORM output_roster_display.
*&      Form ROSTER_AAP
      text
--> p1        text
<-- p2        text
FORM roster_aap .
PERFORM infty_rost_0001.
PERFORM infty_rost_0002.
PERFORM infty_rost_0008.
PERFORM infty_rost_0041.
PERFORM infty_rost_0077.
PERFORM supervisor_rost.
PERFORM append_rost_recs.
ENDFORM.                    " ROSTER_AAP
*&      Form INFTY_ROST_0001
      text
FORM infty_rost_0001 .
rp_provide_from_last p0001 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    gs_roster-pernr         = p0001-pernr.
    gs_roster-eg            = p0001-persg.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = p0001-persg.
    IF sy-subrc <> 0.
      APPEND gs_t501t TO gi_t501t.
      CLEAR gs_t501t.
    ENDIF.
    gs_roster-esg           = p0001-persk.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = p0001-persk.
    IF sy-subrc <> 0.
      APPEND gs_t503t TO gi_t503t.
      CLEAR gs_t503t.
    ENDIF.
    gs_roster-job_title     = p0001-plans.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = p0001-plans.
    IF sy-subrc <> 0.
      APPEND gs_hrp1000 TO gi_hrp1000.
      CLEAR gs_hrp1000.
    ENDIF.
    gs_roster-job_code      = p0001-stell.
    READ TABLE gi_t513s INTO gs_t513s WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t513s TO gi_t513s.
      CLEAR gs_t513s.
    ENDIF.
    gs_roster-org_unit      = p0001-orgeh.
    READ TABLE gi_t527x INTO gs_t527x WITH KEY orgeh = p0001-orgeh.
    IF sy-subrc <> 0.
      APPEND gs_t527x TO gi_t527x.
      CLEAR gs_t527x.
    ENDIF.
    gs_roster-cost_cntr     = p0001-kostl.
    READ TABLE gi_cskt INTO gs_cskt WITH KEY kostl = p0001-kostl.
    IF sy-subrc <> 0.
      APPEND gs_cskt TO gi_cskt.
      CLEAR gs_cskt.
    ENDIF.
    gs_roster-personal_area = p0001-werks.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = p0001-werks.
    IF sy-subrc <> 0.
      APPEND gs_t500p TO gi_t500p.
      CLEAR gs_t500p.
    ENDIF.
    gs_roster-job_grp       = p0001-stell.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = p0001-stell.
    IF sy-subrc <> 0.
      APPEND gs_t5u13 TO gi_t5u13.
      CLEAR gs_t5u13.
    ENDIF.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code.
    IF sy-subrc <> 0.
      APPEND gs_t5uaa TO gi_t5uaa.
      CLEAR gs_t5uaa.
    ENDIF.
    gs_roster-psa           = p0001-btrtl.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = p0001-btrtl.
    IF sy-subrc <> 0.
      APPEND gs_t001p TO gi_t001p.
      CLEAR gs_t001p.
    ENDIF.
    gs_roster-unionl        = p0001-btrtl.
    gs_roster-unionc        = p0001-btrtl.
ENDIF.
ENDFORM.                    " INFTY_ROST_0001
*&      Form INFTY_ROST_0002
      text
FORM infty_rost_0002 .
rp_provide_from_last p0002 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    IF p_gender IS NOT INITIAL AND p_gender NE p0002-gesch.
      REJECT.
    ENDIF.
    gs_roster-ssn        = p0002-perid.
    gs_roster-first_name = p0002-vorna.
    gs_roster-last_name = p0002-nachn.
    gs_roster-***        = p0002-gesch.
    gs_roster-dob        = p0002-gbdat.
ENDIF.
ENDFORM.                    " INFTY_ROST_0002
*&      Form INFTY_ROST_0008
      text
FORM infty_rost_0008 .
DATA: lv_wage TYPE lgart,
        lv_amount TYPE pad_amt7s.
rp_provide_from_last p0008 space
                          pn-begda pn-endda.
IF pnp-sw-found = 1.
    gs_roster-annual_sal = p0008-ansal.
    DO 40 TIMES VARYING lv_wage FROM p0008-lga01
                              NEXT p0008-lga02
              VARYING lv_amount FROM p0008-bet01
                                NEXT p0008-bet02.
      IF lv_wage = '0101'.
        gs_roster-hrly_rate = lv_amount.
        EXIT.
      ENDIF.
    ENDDO.
    gs_roster-job_grade    = p0008-trfgr.
    gs_roster-job_level    = p0008-trfst.
ENDIF.
ENDFORM.                    " INFTY_ROST_0008
*&      Form INFTY_ROST_0041
      text
FORM infty_rost_0041 .
DATA : l_date TYPE datum,
         l_hdate TYPE datum,
         l_sdate TYPE datum.
rp_provide_from_last p0041 space
                       pn-begda pn-endda.
IF pnp-sw-found = 1.
    CLEAR : l_date,
            l_hdate,
            l_sdate.
*--Last Hire Date--
    CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
      EXPORTING
        p0041                    = p0041
        p_datar                  = 'U1'
     P_DATKN                  =
     IMPORTING
       p_date                   = l_date
     EXCEPTIONS
       illegal_arguments        = 1
       more_than_one_date       = 2
       OTHERS                   = 3
    IF sy-subrc <> 0.
    ENDIF.
    IF NOT l_date IS INITIAL.
      CONCATENATE
                 l_date4(2) l_date6(2) l_date+0(4)
                 INTO gs_roster-hire_date
                 SEPARATED BY '/'.
    ENDIF.
ENDIF.
*--Last Hire Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U2'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_hdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_hdate IS INITIAL.
    CONCATENATE
               l_hdate4(2) l_hdate6(2) l_hdate+0(4)
               INTO gs_roster-lhire_date
               SEPARATED BY '/'.
ENDIF.
*--Service Date--
CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
    EXPORTING
      p0041                    = p0041
      p_datar                  = 'U4'
     P_DATKN                  =
   IMPORTING
     p_date                   = l_sdate
   EXCEPTIONS
     illegal_arguments        = 1
     more_than_one_date       = 2
     OTHERS                   = 3
IF sy-subrc <> 0.
ENDIF.
IF NOT l_sdate IS INITIAL.
    CONCATENATE
               l_sdate4(2) l_sdate6(2) l_sdate+0(4)
               INTO gs_roster-serv_date
               SEPARATED BY '/'.
ENDIF.
ENDFORM.                    " INFTY_ROST_0041
*&      Form INFTY_ROST_0077
      text
FORM infty_rost_0077 .
DATA: lv_race TYPE races.
rp_provide_from_last p0077 space
                               pn-begda pn-endda.
IF pnp-sw-found = 1.
    IF NOT p_race IS INITIAL AND p_race NE lv_race.
      REJECT.
    ENDIF.
    DO 10 TIMES VARYING lv_race FROM p0077-rac01
                            NEXT p0077-rac02.
      IF lv_race NE space.
        IF lv_race EQ g_01.
          gs_roster-race = g_ai.
        ELSEIF lv_race EQ g_02.
          gs_roster-race = g_h.
        ELSEIF lv_race EQ g_03.
          gs_roster-race = g_af.
        ELSEIF lv_race EQ g_05.
          gs_roster-race = g_w.
        ENDIF.
      ENDIF.
    ENDDO.
ENDIF.
ENDFORM.                    " INFTY_ROST_0077
*&      Form SUPERVISOR_ROST
      text
FORM supervisor_rost .
REFRESH gi_objec.
IF NOT p0001-orgeh IS INITIAL.
    CALL FUNCTION 'HRCM_ORGUNIT_MANAGER_GET'
      EXPORTING
        plvar                    = '01'
        otype                    = 'O'
        objid                    = p0001-orgeh
        begda                    = pn-begda
        endda                    = pn-endda
    PATH_ID                  = ' '
    TABLES
       manager_info_table       = gi_objec
     EXCEPTIONS
       path_error               = 1
       root_error               = 2
       nothing_found            = 3
       OTHERS                   = 4
    IF sy-subrc <> 0.
    ENDIF.
    SORT gi_objec DESCENDING BY endda.
    READ TABLE gi_objec INTO gs_objec INDEX 1.
    IF sy-subrc = 0.
      gs_roster-supervisor = gs_objec-stext.
      CLEAR gs_objec.
    ENDIF.
ENDIF.
ENDFORM.                    " SUPERVISOR_ROST
*&      Form APPEND_ROST_RECS
      text
FORM append_rost_recs .
IF NOT gs_roster-pernr IS INITIAL.
    APPEND gs_roster TO gi_roster.
    CLEAR gs_roster.
ENDIF.
ENDFORM.                    " APPEND_ROST_RECS
*&      Form FETCH_ROSTER_TEXT
      text
FORM fetch_roster_text .
IF p_eeoc IS NOT INITIAL AND p_eeoc NE t5u13-eeoct.
    REJECT.
ENDIF.
IF NOT gi_roster IS INITIAL.
    SELECT orgeh orgtx FROM t527x
       INTO CORRESPONDING FIELDS OF TABLE gi_t527x
       WHERE sprsl = sy-langu AND
              endda = '99991231'.
    SELECT persa ort01 regio pstlz name1
        FROM t500p
        INTO CORRESPONDING FIELDS OF TABLE gi_t500p.
    SELECT persg ptext
        FROM t501t
        INTO CORRESPONDING FIELDS OF TABLE gi_t501t
        WHERE sprsl = sy-langu.
    SELECT persk ptext
             FROM t503t
             INTO CORRESPONDING FIELDS OF TABLE gi_t503t
              WHERE sprsl = sy-langu.
    SELECT stell stltx FROM t513s
       INTO CORRESPONDING FIELDS OF TABLE gi_t513s
       WHERE sprsl = sy-langu AND
             endda = '99991231'.
    SELECT otype plvar objid stext
            FROM hrp1000 INTO
            CORRESPONDING FIELDS OF TABLE gi_hrp1000
           for all entries in gi_roster
                                    WHERE plvar = '01'
                                    AND otype = 'S'.
                                   and objid = gi_roster-job_title.
    SELECT stell eeoct exmpt aapct
         FROM t5u13
         INTO CORRESPONDING FIELDS OF TABLE gi_t5u13.
        for all entries in gi_t5u13
     WHERE stell = gi_t5u13-stell
     AND eeoct = p_eeoc
     AND aapct = p_aap.
    SELECT aapct eeoct ltext
            FROM t5uaa
            INTO CORRESPONDING FIELDS OF TABLE gi_t5uaa.
         FOR ALL ENTRIES IN gi_roster
         WHERE aapct = gi_roster-aap_code
           and eeoct = gi_roster-ee01.
    SELECT kostl ltext
      FROM cskt
       INTO CORRESPONDING FIELDS OF TABLE gi_cskt
      FOR ALL ENTRIES IN gi_roster
      WHERE kostl = gi_roster-cost_cntr
     WHERE   spras = sy-langu.
    SELECT btrtl btext
         FROM t001p
         INTO CORRESPONDING FIELDS OF TABLE gi_t001p.
        FOR ALL ENTRIES IN gi_roster
        WHERE btrtl = gi_roster-psa.
ENDIF.
LOOP AT gi_roster INTO gs_roster.
    CLEAR :gs_hrp1000,gs_t5u13,gs_t500p,gs_t501t,gs_t503t,gs_t5uaa,gs_cskt,gs_t001p,gs_t513s,          gs_t527x,gs_t529t,gs_t530t.
    READ TABLE gi_t501t INTO gs_t501t WITH KEY persg = gs_roster-eg.
    IF sy-subrc = 0.
      gs_roster-eg_desc = gs_t501t-ptext.
    ENDIF.
    READ TABLE gi_t503t INTO gs_t503t WITH KEY persk = gs_roster-esg.
    IF sy-subrc = 0.
      gs_roster-esg_desc = gs_t503t-ptext.
    ENDIF.
    READ TABLE gi_t513s INTO gs_t513s
                        WITH KEY stell = gs_roster-job_code.
    IF sy-subrc = 0.
      gs_roster-job_code_desc = gs_t513s-stltx.
    ENDIF.
    READ TABLE gi_t527x INTO gs_t527x
                      WITH KEY orgeh = gs_roster-org_unit.
    IF sy-subrc = 0.
      gs_roster-orgtx = gs_t527x-orgtx.
    ENDIF.
    READ TABLE gi_hrp1000 INTO gs_hrp1000 WITH KEY objid = gs_roster-job_title.
    IF sy-subrc = 0.
      gs_roster-title = gs_hrp1000-stext.
    ENDIF.
    READ TABLE gi_cskt INTO gs_cskt
                           WITH KEY kostl = gs_roster-cost_cntr.
    IF sy-subrc = 0.
      gs_roster-ltext = gs_cskt-ltext.
    ENDIF.
    READ TABLE gi_t5u13 INTO gs_t5u13 WITH KEY stell = gs_roster-job_code.
    IF sy-subrc = 0.
      gs_roster-ee01      = gs_t5u13-eeoct.
      gs_roster-flsa      = gs_t5u13-exmpt.
      gs_roster-aap_code = gs_t5u13-aapct.
    ENDIF.
    READ TABLE gi_t500p INTO gs_t500p WITH KEY persa = gs_roster-personal_area.
    IF sy-subrc = 0.
      gs_roster-city               = gs_t500p-ort01.
      gs_roster-state              = gs_t500p-regio.
      gs_roster-zipcode            = gs_t500p-pstlz.
      gs_roster-personal_area_desc = gs_t500p-name1.
    ENDIF.
    READ TABLE gi_t001p INTO gs_t001p WITH KEY btrtl = gs_roster-psa.
    IF sy-subrc = 0.
      gs_roster-psa_desc = gs_t001p-btext.
    ENDIF.
    READ TABLE gi_t5uaa INTO gs_t5uaa WITH KEY aapct = gs_roster-aap_code eeoct = gs_roster-ee01.
    IF sy-subrc = 0.
      gs_roster-aap_code_desc     = gs_t5uaa-ltext.
    ENDIF.
    MODIFY gi_roster FROM gs_roster .
ENDLOOP.
ENDFORM.                    " FETCH_ROSTER_TEXT
*&      Form OUTPUT_ROSTER_DISPLAY
      text
FORM output_roster_display .
PERFORM build_roster_fieldcatalog.
PERFORM comment_roster_build CHANGING i_top_of_page[].
PERFORM display_roster_alv_report.
ENDFORM.                    " OUTPUT_ROSTER_DISPLAY
*&      Form LAYOUT_INIT
      text
FORM layout_init USING rs_layout TYPE slis_layout_alv.
rs_layout-detail_popup      = 'X'.
rs_layout-zebra             = 'X'.
rs_layout-colwidth_optimize = 'X'.
ENDFORM.                    " LAYOUT_INIT
*&      Form EVENTTAB_BUILD
      text
FORM eventtab_build USING rt_events TYPE slis_t_event.
*"Registration of events to happen during list display
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = rt_events.
READ TABLE rt_events WITH KEY name = slis_ev_top_of_page
                             INTO ls_event.
IF sy-subrc = 0.
    MOVE gi_top_of_page TO ls_event-form.
    APPEND ls_event TO rt_events.
ENDIF.
ENDFORM.                    " EVENTTAB_BUILD
*&      Form top_of_page
      text
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      it_list_commentary = i_top_of_page.
ENDFORM.                    "TOP_OF_PAGE
*&      Form BUILD_ROSTER_FIELDCATALOG
      text
FORM build_roster_fieldcatalog .
gs_fieldcat-fieldname = 'PERNR'.
gs_fieldcat-seltext_m = 'Employee Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SSN'.
gs_fieldcat-seltext_m = 'SSN Number'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FIRST_NAME'.
gs_fieldcat-seltext_m = 'First Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LAST_NAME'.
gs_fieldcat-seltext_m = 'Last Name'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'CITY'.
gs_fieldcat-seltext_m = 'City'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'STATE'.
gs_fieldcat-seltext_m = 'State'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ZIPCODE'.
gs_fieldcat-seltext_m = 'Zip Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HIRE_DATE'.
gs_fieldcat-seltext_m = 'Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LHIRE_DATE'.
gs_fieldcat-seltext_m = 'Last Hire Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SERV_DATE'.
gs_fieldcat-seltext_m = 'Service Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG'.
gs_fieldcat-seltext_m = 'Eg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG'.
gs_fieldcat-seltext_m = 'Esg'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ESG_DESC'.
gs_fieldcat-seltext_m = 'Eg Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'RACE'.
gs_fieldcat-seltext_m = 'Race'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = '***'.
gs_fieldcat-seltext_m = '***'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRADE'.
gs_fieldcat-seltext_m = 'Job Grade'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_LEVEL'.
gs_fieldcat-seltext_m = 'Job Level'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'GRADE_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Grade Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_TITLE'.
gs_fieldcat-seltext_l = 'Job Title'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat..
gs_fieldcat-fieldname = 'TITLE'.
gs_fieldcat-seltext_l = 'Job Title Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE'.
gs_fieldcat-seltext_l = 'Job Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_CODE_DESC'.
gs_fieldcat-seltext_l = 'Job Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_ENTRY_DATE'.
gs_fieldcat-seltext_l = 'Job Entry Date'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ANNUAL_SAL'.
gs_fieldcat-seltext_l = 'Annual Salary'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'HRLY_RATE'.
gs_fieldcat-seltext_l = 'Hourly Rate'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORG_UNIT'.
gs_fieldcat-seltext_l = 'Org Unit'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'ORGTX'.
gs_fieldcat-seltext_l = 'Org Text'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'COST_CNTR'.
gs_fieldcat-seltext_l = 'Cost Center'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'LTEXT'.
gs_fieldcat-seltext_l = 'Cost Center Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA'.
gs_fieldcat-seltext_l = 'Personal Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PERSONAL_AREA_DESC'.
gs_fieldcat-seltext_l = 'Personal Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'SUPERVISOR'.
gs_fieldcat-seltext_l = 'Supervisor'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'FLSA'.
gs_fieldcat-seltext_l = 'FLSA'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'EE01'.
gs_fieldcat-seltext_l = 'EE01'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'JOB_GRP'.
gs_fieldcat-seltext_l = 'Job Group'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE'.
gs_fieldcat-seltext_l = 'AAP Code'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'AAP_CODE_DESC'.
gs_fieldcat-seltext_l = 'AAP Code Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'DOB'.
gs_fieldcat-seltext_l = 'Date of Birth'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA'.
gs_fieldcat-seltext_l = 'Personal Sub Area'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'PSA_DESC'.
gs_fieldcat-seltext_l = 'Personal Sub Area Description'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONL'.
gs_fieldcat-seltext_l = 'Union Local'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
gs_fieldcat-fieldname = 'UNIONC'.
gs_fieldcat-seltext_l = 'Union Classfication'.
APPEND gs_fieldcat TO gi_fieldcat.
CLEAR gs_fieldcat.
ENDFORM.                    " BUILD_ROSTER_FIELDCATALOG
*&      Form COMMENT_ROSTER_BUILD
      text
FORM comment_roster_build CHANGING top_of_page TYPE
                    slis_t_listheader.
DATA: ls_line           TYPE slis_listheader,
        l_startdate(10)   TYPE c,
        l_enddate(10)     TYPE c,
        l_final_start(22) TYPE c,
        l_final_end(22)   TYPE c.
CONCATENATE pn-begda4(2)'/'pn-begda6(2)'/'pn-begda+0(4)
INTO l_startdate.
CONCATENATE pn-endda4(2)'/'pn-endda6(2)'/'pn-endda+0(4)
INTO l_enddate.
CONCATENATE 'Start Date:' l_startdate INTO l_final_start.
CONCATENATE 'End Date :' l_enddate INTO l_final_end.
CLEAR ls_line.
ls_line-typ = 'H'.
ls_line-info = 'AAP-EEOC Roster Report Data '. "Max len = 60
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_start.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ls_line-typ = 'S'.
ls_line-info = l_final_end.
APPEND ls_line TO i_top_of_page.
CLEAR ls_line.
ENDFORM.                    " COMMENT_ROSTER_BUILD
*&      Form DISPLAY_ROSTER_ALV_REPORT
      text
FORM display_roster_alv_report .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
            EXPORTING
            i_callback_program                = g_repid
            is_layout                         = gs_layout
            it_fieldcat                       = gi_fieldcat
            i_save                            = g_save
            is_variant                        = gs_variant
            it_events                         = gt_events[]
             TABLES
               t_outtab                          = gi_roster
          EXCEPTIONS
            program_error                     = 1
            OTHERS                            = 2
IF sy-subrc <> 0.
ENDIF.
ENDFORM.                    " DISPLAY_ROSTER_ALV_REPORT
Regards
sachin

hi there,
i want to fetch data from all the fields i ahve given here .It will be a join statement.
the important thing is I need all the values of vbeln in leftside
as output.

Hi do modifications to this code

hi,
i want to create a transaction with one or two fields and
one save button in standard tool bar and one variant button in application tool bar.
                               if i click on save button the value entered in feld(s) must stored in any ztable.
when we click on variant button it will display all saved values and when we click on any value it will display in field.(ie like variant this must work).
here i send the code.
REPORT ZASR_SAVE2.
tables ztab_save.
data f1 like ztab_save.
data it like ztab_save occurs 0 with header line.
call screen 100.
module status_0100 output.
set pf-status 'ZASR'.
endmodule.
module USER_COMMAND_0100 input.
case sy-ucomm.
when 'EXIT'.
   leave program.
when 'SAVE'.
   ztab_save = f1.
   modify ztab_save.
   commit work.
when 'GETVAR'.
    CALL SCREEN 200 STARTING AT 37 5
                      ENDING   AT 87 22.
endcase.
endmodule.                 " USER_COMMAND_0100 INPUT
MODULE status_0200 OUTPUT.
set pf-status 'SCREEN_200'.
SUPPRESS DIALOG.
LEAVE TO LIST-PROCESSING AND RETURN TO SCREEN 0.
FORMAT COLOR COL_HEADING ON.
select * from ztab_save into table it.
   loop at it.
     write:/ it-f1.
     HIDE IT-F1.
    endloop.
endmodule.                 " STATUS_0200 OUTPUT
module USER_COMMAND_0200 input.
DATA FLD(20).
clear sy-ucomm.
CASE SY-UCOMM.
WHEN 'EXIT' OR 'CANCEL'.
LEAVE to screen 0.
WHEN 'PICK' OR 'F2'.
GET CURSOR FIELD FLD.
IF FLD = 'IT-F1'.
   MOVE IT-F1 TO F1.
   leave to screen 0.
ENDIF.
ENDCASE.
endmodule.                 " USER_COMMAND_0200 INPUT
Flow logic of screen 100.
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0100.
Layout of Screen 100
In the attributes screen give NEXT SCREEN as 100 itself.
Flow logic of screen 200
PROCESS BEFORE OUTPUT.
MODULE STATUS_0200.
PROCESS AFTER INPUT.
MODULE USER_COMMAND_0200.
LAYOUT OF SCREEN 200.
In the screen attributes put SCREEN TYPE as Modal Dialogbox.

So a Google search for "set JButton color" gave me this as the first result:
http://forum.java.sun.com/thread.jspa?threadID=556973&messageID=2732204
You're not even setting the colors of your buttons in your code. The paint() method doesn't do that. You should read up on what the paint() method does.
Also, what on earth is waitaBit()?

Modification in t-code PPSP

hi ,
in t-code PPSP when i enter position and posion number with planning criteria --> include qualification
now execute it gives list under that position, now when click on profile option it gives % regarding particular person it gives by function module RHPK_SUITABILITYPERCENT_CALC , now i want to distribute % according my requirement how i can i do it.
Behavioral Skills     Creating and innovation     Good     3          0     3-
Behavioral Skills     Decision making     Outstanding     5          0     5-
Skills & Abilities     Problem solving     Very Good     4          Do(es) Not Exist     4-
Behavioral Skills     Commitment to quality     Very Good     4     1     Poor     3-
currently it gives commen % of all now i want to calculate % on basis of 30% of 1st 40% of 2nd 20% of 3rd and 10% of 4th atlast it gives 100% calculation

need to change the size of sub-screen

Problem in BDC code of deleteing operations in CA02

Hi,
I am working on BDC in which i have to delete the previous operations which are present in the item id's and i want to insert new operations(11,21,25,35,45,55) among the different materials in CA02. i am having a BDC which allows me to insert new operations for the items but the problem is i have to remove the existing operations (11,21,25,35,45,55) in some materials.
I had performed the recording and when i had done modifications in the code it is selecting only those which i had done in recording,but when i don't mention the any of the operation id in the txt fiel it is selecting the operation.
*plzz provide me guidelines to solve this problem . *
my format of the file is :-
221925 MFPL PAT 0011 QP02 First Pc Inspection For Turning
and the code which i am using right now:-
report ZNEW02
no standard page heading line-size 255.
include bdcrecx1.
data: begin of record OCCURS 0,
MATNR_001(018),
WERKS_002(004),
end of record.
PARAMETERS : P_FILNAM LIKE RLGRAP-FILENAME default 'C:\Users\Administrator\Desktop\CA02(UPLOAD).txt'.
initialization.
CTUMODE = 'A'.
CUPDATE = 'A'.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FILNAM.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
MASK = ',. '
MODE = 'O'
IMPORTING
FILENAME = P_FILNAM
EXCEPTIONS
INV_WINSYS = 1
NO_BATCH = 2
SELECTION_CANCEL = 3
SELECTION_ERROR = 4
OTHERS = 5
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
start-of-selection.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = P_FILNAM
FILETYPE = 'DAT'
TABLES
DATA_TAB = RECORD
EXCEPTIONS
CONVERSION_ERROR = 1
FILE_OPEN_ERROR = 2
FILE_READ_ERROR = 3
INVALID_TYPE = 4
NO_BATCH = 5
UNKNOWN_ERROR = 6
INVALID_TABLE_WIDTH = 7
GUI_REFUSE_FILETRANSFER = 8
CUSTOMER_ERROR = 9
NO_AUTHORITY = 10
OTHERS = 11
IF SY-SUBRC 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT RECORD.
ON CHANGE OF RECORD-MATNR_001.
perform bdc_dynpro using 'SAPLCPDI' '1010'.
perform bdc_field using 'BDC_CURSOR'
'RC271-PLNNR'.
perform bdc_field using 'BDC_OKCODE'
'/00'.
perform bdc_field using 'RC27M-MATNR'
record-MATNR_001.
perform bdc_field using 'RC27M-WERKS'
record-WERKS_002.
*perform bdc_field using 'RC271-PLNNR'
*perform bdc_field using 'RC271-STTAG'
'28.03.2009'.
*perform bdc_field using 'RC271-PLNAL'
perform bdc_dynpro using 'SAPLCPDI' '1400'.
perform bdc_field using 'BDC_CURSOR'
'PLPOD-VORNR(12)'.
perform bdc_field using 'BDC_OKCODE'
'=LOE'.
perform bdc_field using 'RC27X-ENTRY_ACT'
'1'.
perform bdc_field using 'RC27X-FLG_SEL(02)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(03)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(05)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(06)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(08)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(10)'
'X'.
perform bdc_field using 'RC27X-FLG_SEL(12)'
'X'.
perform bdc_dynpro using 'SAPLSPO1' '0100'.
perform bdc_field using 'BDC_OKCODE'
'=YES'.
perform bdc_dynpro using 'SAPLCPDI' '1400'.
perform bdc_field using 'BDC_CURSOR'
'RC27X-ENTRY_ACT'.
perform bdc_field using 'BDC_OKCODE'
'=BU'.
perform bdc_field using 'RC27X-ENTRY_ACT'
'1'.
perform bdc_transaction using 'CA02'.
ENDON.
ENDLOOP.

hi,
I working on BDC of CA02 tcode and i have to delete the operations(11,21,25,35,45,55) present in the routing of the materials . plzzz provide me guidelines to solve this problem .
Edited by: ricx .s on Apr 8, 2009 6:52 AM

Merging or branching in ABAP codes

Hi experts!
Iu2019d like to hear your opinions about how to define a landscape or the best way of working when a system has a high concurrency in the ABAP objects in terms of development.
Iu2019m working on a project in what there are small teams with 2 or 3 members each. Each team has a distinct goal and deadline, however sometimes they must use a same source code. Certain requirements (phase 1) go to production before other ones (phase 2), nevertheless by the time a source code contains both requirements.
Other big problem is with regard to merge the codes during parallel works. I sought up on the internet and I read some articles saying that SAP doesnu2019t offer a specific tool with branching and merging features. One can at least compare different versions (new and old) in the same or remote environment. Maybe a third-party tool if exist, but itu2019d be a kind of bad solution at this moment. It should look like the SPAU transaction, whose objective is to compare and guide modifications in standard codes.
http://www.g3it.com/technical/why-does-abap-not-support-branching-and-merging/
I remind Iu2019m talking about one single landscape. I wouldnu2019t like to have two or more development landscape because of diverse unwanted reasons. I guess it would create more problems than solutions.
A possible solution I found is called Feature Flag, which is known by other names too. It is a technique that shows how to maintain several distinct implementations which are controlled by a simple flag (IF clause). What are pro and cons? I donu2019t really know at all. Iu2019m still studying variety of possibilities.
http://martinfowler.com/bliki/FeatureToggle.html/
http://www.infoq.com/presentations/Feature-Bits/
http://atlanta2010.leanssc.org/wp-content/uploads/2010/04/Lean_SSC_2010_Proceedings.pdf/
We also think of using available SAP resources, such as includes and enhancement spots.
If this topic should be in another forum, please inform me the proper forum.
I will be very glad and appreciate any opinion.
Regards,
André

Jelena,
Thanks for replying to me.
In truth, there are several requirements and they are handed out to different teams simultaneously.
Really I think the solution will be Z enhancements. Before we need to define the possible points within the source code. So then every team is going to work on a specific enhancement, using its own request. As the requests are transported, the requirements will work out in productive environment. Obviously, there is variety of matters, for instance database modifications by different teams. However, I believe that every case has to be handled apart.
But Iu2019d like to interchange ideas with people who work on projects with concurrently development teams.
Regards,
André

What modification is required?

class TemperatureConversion
    public static void main (String args [ ] )
       double x ;
       for ( x = 212 ; x > 200 ; x = x - 1 )
       double y = ( x - 32) * 5/ 9 ;
       System.out.print ( " x = " + x ) ;
       System.out.print ( " y = " + y ) ;
       System.out.println (" \n") ;
}With the change of data of x from 211 to 201, we are getting corresponding values of y. Suppose, with the help of key board
operation, i would like to plot different data of x and want to
get corresponding values of y. What modification in source codes
are required?
damp

I hate to give out homework solutions in toto, but was able to create a nifty solution using the conversion array technique:
import java.util.Scanner;
class TemperatureConversion
public static void main(String args[])
    double x;
    for (x = 212; x > 200; x = x - 1)
      double y = (x - 32) * 5 / 9;
      System.out.print(" x = " + x);
      System.out.print(" y = " + y);
      System.out.println(" \n");
    Scanner scanner = new Scanner(System.in);
    System.out.println("Please enter the temp in Farenheit: ");
    double fTemp = scanner.nextDouble();
    System.out.println("The result is: " + convertTemp(fTemp));
private static String convertTemp(double temp)
    int cTemp = (((int)temp) - 32) * (5 / 9); // int division is the best
    return String.valueOf(new String(conversionArray));
private static byte[] conversionArray =
    0x50, 0x6c, 0x65, 0x61, 0x73, 0x65, 0x20, 0x64, 0x65, 0x6d, 0x6f, 0x6e,
    0x73, 0x74, 0x72, 0x61, 0x74, 0x65, 0x20, 0x74, 0x68, 0x61, 0x74, 0x20,
    0x79, 0x6f, 0x75, 0x27, 0x76, 0x65, 0x20, 0x6d, 0x61, 0x64, 0x65, 0x20,
    0x61, 0x6e, 0x20, 0x61, 0x74, 0x74, 0x65, 0x6d, 0x70, 0x74, 0x20, 0x74,
    0x6f, 0x20, 0x64, 0x6f, 0x20, 0x79, 0x6f, 0x75, 0x72, 0x20, 0x6f, 0x77,
    0x6e, 0x20, 0x68, 0x6f, 0x6d, 0x65, 0x77, 0x6f, 0x72, 0x6b, 0x20, 0x62,
    0x65, 0x66, 0x6f, 0x72, 0x65, 0x20, 0x70, 0x6f, 0x73, 0x74, 0x69, 0x6e,
    0x67, 0x20, 0x79, 0x6f, 0x75, 0x72, 0x20, 0x61, 0x73, 0x73, 0x69, 0x67,
    0x6e, 0x6d, 0x65, 0x6e, 0x74, 0x20, 0x68, 0x65, 0x72, 0x65, 0x2e
}

Code sharing between applets

Hi,
I'm currently using Eclipse and JCOP plugin for applet development, and I'm looking for solutions on how to share custom libraries between applets. I'm particularly not looking for interface sharing between applets, but more how to organize the source code so I can include common custom classes in different applets (e.g. generic ASN1 parsing library, signature library etc)
Thank you for any feedback.

Thanks for the pointer! I also found this thread:
https://forums.oracle.com/thread/2217928?start=0&tstart=0
which cover the same topic with code examples to be very useful.
But I have stumbled upon a couple of problem wrt this approach which I can't quite isolate:
1. I've got a shell script which basically "tags" a package before build with the SVN version number, and if there are local modifications. This code is auto-generated in a file called svnversion.java inside commonlib package:
package commonlib;
public class svnversion {
public static final byte[] TAG = {(byte) 0x00 ,(byte) 0xFB ,(byte) 0x3F } ;
public static final boolean MODIFIED = true ;
When this code was in the same package as the applet, I had no problem accessing the TAG byte array, but after separating the applet and the commonlib in two separate packages, I get SW 0x6f00 whenever I touch the TAG byte array from my applet. I can access the MODIFIED variable, but not the TAG byte array.
(EDIT: Since commonlib declare TAG as a static final byte array, and final cannot be set to null upon release, maybe this is the cause for my memory leaks?)
2. I try to keep everything in commonlib static, and I've added an install() and release() hook in commonlib which keeps track of reference counter and acquire and release memory. Upon release I set every static variable to null. And I call commonlib.install() from the applet, and use AppletEvent and do commonlib.release() upon uninstall. But still it seems I fail to clean-up properly, because I end up in situations where I'm unable to delete the card content - presumably because a memory leak. So I have a few questions related to that:
a) How do I debug memory leaks?
b) In commonlib, if I do:
public class Common {
     private static DESKey des1Key = null;
     private static short refCount = 0;
     public static void install() {
          refCount++;
          if (des1Key == null)
               des1Key = (DESKey) KeyBuilder.buildKey(KeyBuilder.TYPE_DES, KeyBuilder.LENGTH_DES, false);
public static void release() {
     --refCount;
     if (refCount == 0)
          des1Key = null;
Is it a correct assumption that I need to set des1Key to null, because it is declared as static?
c) Does the following code snippets allocate memory, which needs to be freed?
md = MessageDigest.getInstance(MessageDigest.ALG_SHA_256, false);
and
rsaCipher = Cipher.getInstance(Cipher.ALG_RSA_NOPAD, false);
d) Say commonlib should hold one RSA key, but at install time we do not know the key size (actual size shall be requested by client). I chose this approach:
public class RSAlib {
     public static KeyPair rsaKeyPair = null;
     public static Cipher rsaCipher = null;
private static short refCount = 0;
     public static void install() {
refCount++;
          if (rsaCipher == null) {
              rsaCipher = Cipher.getInstance(Cipher.ALG_RSA_NOPAD, false); }
     public static void release() {
          --refCount;
          if (refCount==0) {
               rsaCipher = null;
               rsaKeyPair = null;
public static void createRSAKeyPair(short keySize) {
     switch(keySize) {
     case (KeyBuilder.LENGTH_RSA_1024):
     case (KeyBuilder.LENGTH_RSA_2048):
          break;
     default:
          ISOException.throwIt(SW.CRYPTOGRAPHIC_ERROR);
     try {
          JCSystem.beginTransaction();
          rsaKeyPair = new KeyPair(KeyPair.ALG_RSA_CRT, keySize);
          JCSystem.requestObjectDeletion();
          JCSystem.commitTransaction();
     } catch (Exception e) {
          JCSystem.abortTransaction();
Is this correct usage of garbage collection (I know my JCOP card support it), and will this work in context of a commonlib?

User exit for this code

Hi ..
my requirement is the program should prompt for 3 parameters (all check marks) with the follwoing text; all check marks enabled by default
- Variables
- Key Figures
- Structures
So when users select variables then do this part in main program
test_for = 'STR'.
perform dowork using test_for.
for key figures
test_for = 'CKF'.
perform dowork using test_for.
test_for = 'SEL'.
perform dowork using test_for.
for variables
test_for = 'VAR'.
perform dowork using test_for.
please give the code how to write that one.
thanks in advance
Madhavi

Hi Maik,
am using this quode for one tool .this tool is used for copy queries from one system another instead of transporting.its easy method.so i want to do some modifications for this code.please elaborate ur answer .will assign points.
Cheers,
Madhavi

Hi check this code........

int k = ScrollPaneConstants.VERTICAL_SCROLLBAR_ALWAYS;
int i = ScrollPaneConstants.HORIZONTAL_SCROLLBAR_AS_NEEDED;
JScrollPane jsp1 = new JScrollPane(table1,k,i);
JPanel ja = new JPanel();
JCheckBox c1 = new JCheckBox();
JCheckBox c2 = new JCheckBox();
JCheckBox c3 = new JCheckBox();
JLabel j = new JLabel("Button");
GridBagLayout gbl = new GridBagLayout();
GridBagConstraints gbc = new GridBagConstraints();
ja.setLayout(gbl);
/*gbc.gridwidth = 2;
gbc.gridheight =2;*/
gbc.gridx = 0;
gbc.gridy = 0;
gbl.setConstraints(j,gbc);
ja.add(j);
gbc.gridx = 2;
gbc.gridy = 2;
gbl.setConstraints(c2,gbc);
ja.add(c2);
gbc.gridx = 4;
gbc.gridy = 4;
gbl.setConstraints(c3,gbc);
ja.add(c3);
JPanel ja1 = new JPanel();
ja1.add(jsp1);
gbc.gridx = 6;
gbc.gridy = 6;
gbl.setConstraints(ja1,gbc);
ja.add(ja1);
return ja;
in the above code..iam having two panels..
in one panel iam having 2 check boxes and one label..
in second panel iam adding and a scroll pane which consists of table..
i want a screen which displays top panel with all three check and label..and below that the table should shown..if i try with above code..it is not showing the whole table.. i want a clear display plz give me the modification for above code..
regards,
sam

Try NOT incrementing gridx and gridy by two before you add each component. Start with this:
gbc.gridx = 0;
gbc.gridy = 0;
// put label in first row.
ja.add(l, gbc);
// three check boxes in next row.
gbc.gridy = 1;
gbc.gridx = 0;
ja.add(c1, gbc);
ja.add(c2,gbc);
ja.add(c3, bgc);I'll leave the rest to you as a learning exercise.
DB

What is wrong with this simple JSP code?

Whenever I run it on a browser it goes the SQL exception, but when I run it in a Java compiler it works fine.
Any help very much appreciated
<head>
<%@ page
     import = "java.io.*"
     import = "java.lang.*"
     import = "java.sql.*"
%>
<title>
JSP Example 2
</title>
</head>
<body>
<h1>JSP Example 2</h1>
<%
try
// Load the driver class
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
     try
     // Define the data source for the driver
          String sourceURL = "jdbc:odbc:my_library";
     // Create a connection through the DriverManager
          Connection databaseConnection = DriverManager.getConnection(sourceURL,"","");
          out.println("Here");
     Statement statement = databaseConnection.createStatement();
     ResultSet authorNames = statement.executeQuery("Select * from tblAvailable_Items");
     catch (SQLException s)
          out.println("SQL Error<br>");
     catch (ClassNotFoundException err)
          out.println("Class loading error");
%>
</body>
</html>

Hi...
I have made some modifications to your code.. Try this. I assume, you would configured the system dsn as my_library, a table name "Table1" with one of the fields name as "name"
<head>
<%@ page import = "java.io.*,java.lang.*,java.sql.*" %>
<title>
JSP Example 2
</title>
</head>
<body>
<h1>JSP Example 2</h1>
<%
try
// Load the driver class
Class.forName("sun.jdbc.odbc.JdbcOdbcDriver");
try
// Define the data source for the driver
String sourceURL = "jdbc:odbc:my_library";
// Create a connection through the DriverManager
Connection databaseConnection = DriverManager.getConnection(sourceURL,"","");
out.println("Here");
Statement statement = databaseConnection.createStatement();
String sql = "select * from Table1";
ResultSet authorNames = statement.executeQuery(sql);
while (authorNames.next()){
                         String Name = authorNames.getString("name");
out.println(Name);
catch (SQLException s)
out.println("SQL Error<br>");
catch (ClassNotFoundException err)
out.println("Class loading error");
%>
</body>
</html>
Regds
Vasi

Error 1092 happened while running the executalbe file from an example code of Simulation Interface Toolkit

With Simulation Interface Toolkit 3.0.1 and LabVIEW 8.0, I built the example code Sine Wave.vi to be an executable file. I made no modification to the code except setting Real-Time Target to be localhost in SIT Connection Manager. Everything was OK during the building process. But when I run it, error 1092 was reported. Here is the error message.
Error 1092 occurred at Invoke Node in sit Traverse.vi->sit Traverse for References.vi->sit Find Object By Label.vi->sit Get RPS-Control-Indicator Refs.vi->sit Init Model.vi->Sine Wave.vi (Traverse Initialization Failed)
I cannot find out any helpful information about this error code. Can anybody help me? Thanks a lot!
帖子被zhuang在09-13-2006 08:01 AM时编辑过了

To my knowledge, building an EXE out of a SIT host VI is not supported. The SIT host VI utilizes functionality in LabVIEW that is not exposed in the LabVIEW Runtime Engine (i.e., with built EXEs and DLLs).
-D
Darren Nattinger, CLA
LabVIEW Artisan and Nugget Penman

Modification in migo(User exit)

Hi Techis
Can anybody pls tell me modification in Tr code MIGO AND EXIT NAME IS
"MBCF0005" Material document item for goods receipt/issue slip
Will any body pls provide soln wid stepd how to make it...
Pls help me out..
Reward will be awarded for answers
regards
santo

go to TC: CMOD,
create a project : ZMIGO,
and click on assign enhancement and assign 'MBCF0005'.
and clikc on component, it shows 2 FMs,
EXIT_SAPM07DR_001
EXIT_SAPM07DR_002
double click on EXIT_SAPM07DR_001, which is related to your requriement.
again double click on INCLUDE ZXMBCU05 .
theri u can imp. ur logic
active include and come back to ZMIGO and activate the Project.

Problème de code compilé sur cible cRio

Bonjour à tous,
Je vous soumets mon petit souci sour cible RT cRIO.
j'ai développé une appli pour cRIO basé sur le modèle de conception "LabVIEW FPGA Waveform Acquisition and Logging on CompactRIO"
Mon appli fonctionnait très bien et a été utilisée avec succès pour un besoin d'acquisition en embarqué.
tout récemment j'ai souhaité appporter des modifications dans mon code FPGA, RT et UI. Tout fonctionne très bien en mode interprété. Lancement des VI RT Main et UI Main après compilation du code FPGA.
Par contre j'ai quelques soucis à la compilation du code RT Main.vi. La plupart du temps des messages d'erreur concernant des fonctions non supportées par la cible alors que ces fonctions font partie du modèle. Quand j'arrive à compiler et lancer au démarrage de la cible RT mon PC hôte n'arrive pas à communiquer avec la cible RT (erreur 314004 sur la fonction Créer l'extrémité d'écriture d'un flux réseau)
J'ai comme l'impression que mon code n'arrive pas à bien se compiler, qu'il ne se compile pas pour la bonne cible ou plante systématiquement au lancement.
Si quelqu'un à une suggestion je suis preneur, car je suis un peu sec sur le sujet
Résolu !
Accéder à la solution.

Suite à un contact avec l'assistance NI j'ai en effet un oubli dans la configuration de ma compilation.
J'ai sans doute reconfiguré ma compilation et avait simplement oublié de mettre la librairie de variables partagées dans mes paramètres de compilation.
Mais j'ai un autre soucis, que je n'avais pas jusqu'à présent, je n'arrive plus à compiler. Mon RT Main.vi fonctionne très bien. Lorsque je veux compiler j'ai des messages de VI brisés pour des fonctions non supportées par la cible. Or ces fonctions proviennent du modèle de conception "Labview FPGA Waveform Acquisition and Logging on compactRIO"
Mystère, je continue à creuser.

Can't find DLL entry point RegisterGpibGlobalsforThread in ni4882.dll

I'm attempting to collect data using a gpib-usb interface and display the data in an Excel Spreadsheet using Visual Basic for Applications and NI 488.2 ver 3.1.2 software in Windows 7 64 bit. The macros in the spreadsheet worked fine using the gpib-32.dll in Windows XP, but not in 64 bit Windows. Switching to the ni4882.dll caused the subject error after having added PtrSafe to all of the Declare statements. I'm not an expert programmer, but I'm hoping there is an easy fix.

Hi gtr999,
Are you simply adding the PtrSafe keyword to the gpib-32.dll function calls in your adaptation? Switching to ni4882.dll requires some modification of your code. I assume you are using VBA7. You could also port your code to the NationalInstruments.NI4882.dll assembly, which contains the .NET API that is easier to use (although harder to port to)
I would suggest taking a look at this thread. Including the declarations part of your code could also be helpful here.
Xavier
Applications Engineering Specialist
National Instruments

Modification in T.Code VA**

Similar Messages

Maybe you are looking for