JAAS Documentation & Sample Program

Can someone point me to the web location for the WebLogic JAAS API
documentation? I have read the "Programming WebLogic Security" document
available at http://www.weblogic.com/docs60/pdf.html. The section on JAAS
refers to a number of programming interfaces in the weblogic.security.auth
package that do not seem to be documented in the online documentation
available at http://www.weblogic.com/docs60/javadocs/index.html. Also the
"Programming WebLogic Security" document refers to a sample application
stored at weblogic600/samples/examples/security/jaas. This program does not
seem to be included in the WebLogic 6.0 Beta download that I installed. Can
anyone point me to the location for this? Thanks.
Wilker Shane Bruce, Ph.D.
[email protected]

Both the API documentation and the complete sample code should be available
in the updated Beta2 version available on our website.
Wilker Shane Bruce, Ph.D. <[email protected]> wrote in message
news:[email protected]..
Can someone point me to the web location for the WebLogic JAAS API
documentation? I have read the "Programming WebLogic Security" document
available at http://www.weblogic.com/docs60/pdf.html. The section on JAAS
refers to a number of programming interfaces in the weblogic.security.auth
package that do not seem to be documented in the online documentation
available at http://www.weblogic.com/docs60/javadocs/index.html. Also the
"Programming WebLogic Security" document refers to a sample application
stored at weblogic600/samples/examples/security/jaas. This program doesnot
seem to be included in the WebLogic 6.0 Beta download that I installed.Can
anyone point me to the location for this? Thanks.
Wilker Shane Bruce, Ph.D.
[email protected]

Similar Messages

Where can I get the latest version of the NetworkDirect SPI Sample programs?

My team is developing some NetworkDirect SPI solutions. We've got a copy of the ND SPI sample programs (e.g., ndpingpong), but the methods they call don't match the ND SPI specification online at: http://msdn.microsoft.com/en-us/library/cc904398%28v=vs.85%29.aspx
I have seen that there seems to be a set of sample ND SPI C++ programs available, but I've searched endlessly and haven't been able to find a download from MS that contains the set of sample programs that match the specification. Where can I find
the sample programs?
Thanks
PS: I had no idea which Forum Category and Forum to post this in. Couldn't find ND SPI or HPC Pack or anything seemingly close.

Hello,
Thank you for your post.
But your issue is out of support range of VS General Question forum which mainly discusses the usage issue of Visual Studio IDE such as
WPF & SL designer, Visual Studio Guidance Automation Toolkit, Developer Documentation and Help System
and Visual Studio Editor.
I did some research but don't find such sample. I am moving your question to the moderator forum ("Where is the forum for..?"). The owner of the forum will direct you to a right forum.
Best regards,
We are trying to better understand customer views on social support experience, so your participation in this interview project would be greatly appreciated if you have time. Thanks for helping make community forums a great place.
Click
HERE to participate the survey.

Send some sample program for ALV reports

Hi all ,
send some sample program for ALV reports for learing purpose
tahnks.

Hi ,
Resource Master
Program                     YPPCRR                  *
Program type                Report Program                     *
Title                       Resource Master Dara for Updation *
Author                      Naga Raju                          *
Requested By                Balaji                             *
Date Written                24.05.2007                         *
Specification Id            F2-DP-FS-2-0002                    *
Transport Request                                              *
On-line Documentation
Description
This Program updates the Location Mater through the Transaction
/SAPAPO/LOC3 Based on the User Selection
Update
Reset
No Action
Output
ALV List output of the main Program
ALV List output of the Error Log
REPORT YPPCRR NO STANDARD PAGE HEADING
               LINE-SIZE 120
               LINE-COUNT 62(4)
               MESSAGE-ID yap..
Global data
Include where all the data declarations are coded.
INCLUDE YPPCRR_data.
*Initialization
INITIALIZATION.
perform init_variant.
Constants
CONSTANTS: c_formname_top_of_page TYPE slis_formname
VALUE 'F_TOP_OF_PAGE'.
Selection-Screen
SELECTION-SCREEN : BEGIN OF BLOCK b1 WITH FRAME TITLE text-040.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS:p_prs RADIOBUTTON GROUP ztyp USER-COMMAND ucom DEFAULT 'X'.
SELECTION-SCREEN COMMENT 3(28) text-003.
position 40.
parameters: p_file1 TYPE rlgrap-filename.
SELECTION-SCREEN END OF LINE.
skip 5.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_aps RADIOBUTTON GROUP ztyp.
SELECTION-SCREEN COMMENT 3(28) text-004.
position 40.
parameters: p_file2 type rlgrap-filename.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
AT SELECTION-SCREEN .
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file1.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
   EXPORTING
     program_name        = syst-repid
DYNPRO_NUMBER       = SYST-DYNNR
     field_name          = p_file1
STATIC              = ' '
MASK                = ' '
    CHANGING
      file_name           = p_file1
EXCEPTIONS
MASK_TOO_LONG       = 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.
START-OF-SELECTION.
if p_prs = 'X'.
     PERFORM f_read_datum1 TABLES t_res_head
                      USING p_file1
                      CHANGING w_subrc.
elseif p_aps = 'X'.
     PERFORM f_read_datum2 TABLES t_res_head
                      USING p_file2
                      CHANGING w_subrc.
endif.
IF w_subrc = 0.
Validations
PERFORM VALIDATION.
PERFORM display_alv.
IF SY-UCOMM = '&F03'
or SY-UCOMM = '&F12'
or SY-UCOMM = '&F15'.
LEAVE LIST-PROCESSING.
ELSE.
ENDIF.
ELSE.
Message s100 with text-002.
ENDIF.
END-OF-SELECTION.
Forms part*
INCLUDE YPPCRR_forms.
*& Include           YPPCRR_DATA
Type-Pools
TYPE-POOLS: slis.
*TYPES
DATA: BEGIN OF tl_res_head.
        INCLUDE STRUCTURE ypp_res_head.
DATA: END OF tl_res_head.
DATA: BEGIN OF tl_res_head_val.
        INCLUDE STRUCTURE ypp_resv.
DATA: END OF tl_res_head_val.
DATA : BEGIN OF ty_errlog ,
         counter type i,
         type(2) ,
         name(10) TYPE c,
         vrsioid(22) TYPE c,
         restype TYPE c,
         message(80) TYPE c,
       END OF ty_errlog.
Global Variables
DATA : gc_flag(1) TYPE c,
       w_val_err_flag(1) type c.
DATA: w_filename TYPE rlgrap-filename,
      w_subrc TYPE sy-subrc,
      w_t_res_head TYPE slis_t_fieldcat_alv,
      wa_t_res_head TYPE slis_fieldcat_alv.
DATA : wa_date(10) TYPE c,
        wa_time(10) TYPE c,
       wa_title(40) TYPE c,
       wa_type(4) TYPE c .
DATA: BAPI_RUN_YES_NO TYPE C.
*Structure
*INTERNAL TABLES USED BY ALV
DATA:
it_fieldcat_alv TYPE slis_t_fieldcat_alv,
IT_FIELDCAT_ALV_ERR TYPE SLIS_T_FIELDCAT_ALV,
it_status TYPE slis_formname VALUE 'F_MAIN',
it_user_command TYPE slis_formname VALUE 'F_USER_COMMAND',
it_events        TYPE slis_t_event,
it_event_exit    TYPE slis_t_event_exit,
it_list_comments TYPE slis_t_listheader,
it_excluding     TYPE slis_t_extab,
it_sort          TYPE slis_t_sortinfo_alv.
*Internal Table Declarations
DATA : BEGIN OF t_imex OCCURS 0 ,
                string(256) TYPE c,
       END OF t_imex.
DATA : fcode TYPE TABLE OF sy-ucomm.
DATA : fcode_bdc TYPE TABLE OF sy-ucomm.
DATA : fcode_error TYPE TABLE OF sy-ucomm.
DATA : fcode_final TYPE TABLE OF sy-ucomm.
STRUCTURE and WORKARES
*Internal Table Declarations
DATA : t_res_head like tl_res_head occurs 0 WITH HEADER LINE.
DATA : t_res_head_val like tl_res_head_val occurs 0 with header line.
data :l_res_head LIKE LINE OF t_res_head.
DATA : w_file TYPE string.
*DATA : wa_vrsioid(22) type c,
      wa_locno(20) type c,
      wa_calendar(2) type c,
      wa_planner(3) type c.
DATA: T_RETURN LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
DATA: RESOURCE_HEAD LIKE BAPI10004RESHEAD OCCURS 0 WITH HEADER LINE,
      RESOURCE_HEAD_X LIKE BAPI10004RESHEADX OCCURS 0 WITH HEADER LINE,
      RESOURCE_TEXT LIKE BAPI10004RESTEXT OCCURS 0 WITH HEADER LINE,
      RESOURCE_TEXT_X LIKE BAPI10004RESTEXTX OCCURS 0 WITH HEADER LINE.
data : t_errlog like ty_errlog occurs 0 with header line.
DATA : wk_lines TYPE i,
       wk_errlines TYPE i,
       wk_count TYPE i.
DATA:   g_tabname TYPE slis_tabname VALUE 'T_RES_HEAD'.
Variables to be used by ALV
DATA:
wk_variant          LIKE disvariant,
wx_variant         LIKE disvariant,
wk_variant_save(1) TYPE c,
wk_exit(1)          TYPE c,
wk_repid            LIKE sy-repid,
wk_user_specific(1) TYPE c,
wk_callback_ucomm   TYPE slis_formname,
wk_callback_status   TYPE slis_formname,
wk_callback_status1 TYPE slis_formname,
wk_print            TYPE slis_print_alv,
wk_layout           TYPE slis_layout_alv,
wk_html_top_of_page TYPE slis_formname,
wk_fieldcat_alv     LIKE LINE OF it_fieldcat_alv,
wk_excluding        LIKE LINE OF it_excluding,
wk_events           LIKE LINE OF it_events,
wk_event_exit       LIKE LINE OF it_event_exit,
wk_list_comments    LIKE LINE OF it_list_comments,
wk_list1_comments    LIKE LINE OF it_list_comments,
wk_list2_comments    LIKE LINE OF it_list_comments,
wk_sort             LIKE LINE OF it_sort.
*DATA :gc_delete_flag(1).
*& Include           YAPOLOC_FORMS
FORM display_alv .
PERFORM f_fieldcat_build.
PERFORM f_event_build.
PERFORM f_exclude_build.
PERFORM f_print_build.
PERFORM f_layout_build.
PERFORM f_display_data.
ENDFORM.                    " display_alv
*&      Form f_fieldcat_build
      text
FORM f_fieldcat_build .
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name   = wk_repid
      i_structure_name = 'YPP_RESV'
      i_inclname       = wk_repid
    CHANGING
      ct_fieldcat      = it_fieldcat_alv.
ENDFORM.                    " F_FIELDCAT_BUILD
*&      Form F_EVENT_BUILD
      text
> p1        text* < p2        text
FORM f_event_build .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = it_events.
READ TABLE it_events WITH KEY
name = slis_ev_top_of_page INTO wk_events.
IF sy-subrc = 0.
    MOVE c_formname_top_of_page TO wk_events-form.
    MODIFY it_events FROM wk_events INDEX sy-tabix.
ENDIF.
ENDFORM.                    " F_EVENT_BUILD
*&      Form F_EXCLUDE_BUILD
      text
--> p1        text
<-- p2        text
FORM f_exclude_build .
wk_excluding = '&GRAPH'. "Graphic
APPEND wk_excluding TO it_excluding.
ENDFORM.                    " F_EXCLUDE_BUILD
*&      Form F_PRINT_BUILD
      text
--> p1        text
<-- p2        text
FORM f_print_build .
wk_print-no_print_listinfos = 'X'.
ENDFORM.                    " F_PRINT_BUILD
*&      Form F_LAYOUT_BUILD
      text
--> p1        text
<-- p2        text
FORM f_layout_build .
wk_layout-zebra                = 'X'.
WK_LAYOUT-COLWIDTH_OPTIMIZE    = 'X'.
wk_layout-detail_popup         = 'X'.
wk_layout-detail_initial_lines = 'X'.
wk_layout-detail_titlebar      = 'Details '.
ENDFORM.                    " F_LAYOUT_BUILD
*&      Form F_DISPLAY_DATA
      text
--> p1        text
<-- p2        text
FORM f_display_data .
wk_callback_ucomm = 'CALLBACK_UCOMM'.
IF sy-ucomm = 'UPD' OR sy-ucomm = space .
    wk_callback_status   = 'CALLBACK_STATUS'.
ENDIF.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_background_id             = 'SIWB_WALLPAPER'
      i_callback_program          = wk_repid
     i_callback_html_top_of_page = 'HTML_TOP_OF_PAGE'
      i_callback_pf_status_set    = wk_callback_status
      i_callback_user_command     = wk_callback_ucomm
      it_sort                     = it_sort
      i_default                   = 'X'
      i_save                      = 'A'
      is_variant                  = wk_variant
      is_layout                   = wk_layout
      it_fieldcat                 = it_fieldcat_alv
      it_events                   = it_events
      it_event_exit               = it_event_exit
      it_excluding                = it_excluding
      is_print                    = wk_print
    TABLES
      t_outtab                    = t_res_head_val.
ENDFORM.                    " F_DISPLAY_DATA
ALV for Error Log
*&      Form display_alv_ERR
      text
--> p1        text
<-- p2        text
FORM display_alv_err .
PERFORM f_fieldcat_build_err.
PERFORM f_event_build_err.
PERFORM f_exclude_build_err.
PERFORM f_print_build_err.
PERFORM f_layout_build_err.
PERFORM f_display_data_err.
ENDFORM.                    " display_alv_ERR
*&      Form F_FIELDCAT_BUILD_err
      text
--> p1        text
<-- p2        text
FORM f_fieldcat_build_err .
BREAK-POINT.
REFRESH it_fieldcat_alv.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
    EXPORTING
      i_program_name     = wk_repid
      i_internal_tabname = 'TY_ERRLOG'
i_structure_name = 'YPP_ERR_LOG'
      i_inclname         = wk_repid
    CHANGING
      ct_fieldcat        = it_fieldcat_alv_err.
LOOP AT it_fieldcat_alv INTO wk_fieldcat_alv.
    CASE wk_fieldcat_alv-fieldname.
      WHEN 'COUNTER'.
        wk_fieldcat_alv-seltext_s = text-023.
        wk_fieldcat_alv-seltext_m = text-023.
        wk_fieldcat_alv-seltext_l = text-023.
        wk_fieldcat_alv-reptext_ddic = text-023.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN 'TYPE'.
        wk_fieldcat_alv-seltext_s = text-009.
        wk_fieldcat_alv-seltext_m = text-009.
        wk_fieldcat_alv-seltext_l = text-009.
        wk_fieldcat_alv-reptext_ddic = text-009.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN 'NAME'.
        wk_fieldcat_alv-seltext_s = text-010.
        wk_fieldcat_alv-seltext_m = text-010.
        wk_fieldcat_alv-seltext_l = text-010.
        wk_fieldcat_alv-reptext_ddic = text-010.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN 'VRSIOID'.
        wk_fieldcat_alv-seltext_s = text-011.
        wk_fieldcat_alv-seltext_m = text-011.
        wk_fieldcat_alv-seltext_l = text-011.
        wk_fieldcat_alv-reptext_ddic = text-011.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN 'RESTYPE'.
        wk_fieldcat_alv-seltext_s = text-012.
        wk_fieldcat_alv-seltext_m = text-012.
        wk_fieldcat_alv-seltext_l = text-012.
        wk_fieldcat_alv-reptext_ddic = text-012.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN 'MESSAGE'.
        wk_fieldcat_alv-seltext_s = text-013.
        wk_fieldcat_alv-seltext_m = text-013.
        wk_fieldcat_alv-seltext_l = text-013.
        wk_fieldcat_alv-reptext_ddic = text-013.
        wk_fieldcat_alv-edit         = 'X'.
      WHEN OTHERS.
    ENDCASE.
    MODIFY it_fieldcat_alv FROM wk_fieldcat_alv.
ENDLOOP.
ENDFORM.                    " F_FIELDCAT_BUILD_err
*&      Form F_EVENT_BUILD_err
      text
--> p1        text
<-- p2        text
FORM f_event_build_err .
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
    EXPORTING
      i_list_type = 0
    IMPORTING
      et_events   = it_events.
READ TABLE it_events WITH KEY name = slis_ev_top_of_page
                               INTO wk_events.
IF sy-subrc = 0.
    MOVE c_formname_top_of_page TO wk_events-form.
    MODIFY it_events FROM wk_events INDEX sy-tabix.
ENDIF.
ENDFORM.                    " F_EVENT_BUILD_err
*&      Form F_EXCLUDE_BUILD_err
      text
--> p1        text
<-- p2        text
FORM f_exclude_build_err .
wk_excluding = '&GRAPH'. "Graphic
APPEND wk_excluding TO it_excluding.
ENDFORM.                    " F_EXCLUDE_BUILD_err
*&      Form F_PRINT_BUILD_err
      text
--> p1        text
<-- p2        text
FORM f_print_build_err .
wk_print-no_print_listinfos = 'X'.
ENDFORM.                    " F_PRINT_BUILD_err
*&      Form F_LAYOUT_BUILD_err
      text
--> p1        text
<-- p2        text
FORM f_layout_build_err .
wk_layout-zebra                = 'X'.
WK_LAYOUT-COLWIDTH_OPTIMIZE    = 'X'.
wk_layout-detail_popup         = 'X'.
wk_layout-detail_initial_lines = 'X'.
wk_layout-detail_titlebar      = 'Details '.
ENDFORM.                    " F_LAYOUT_BUILD_err
*&      Form F_DISPLAY_DATA_err
      text
--> p1        text
<-- p2        text
FORM f_display_data_err .
wk_callback_ucomm = 'CALLBACK_UCOMM'.
IF SY-UCOMM ne '&F03'.
wk_callback_status = 'CALLBACK_STATUS'.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
    EXPORTING
      i_background_id          = 'SIWB_WALLPAPER'
      i_callback_program       = wk_repid
      i_callback_pf_status_set = wk_callback_status
      i_callback_user_command = wk_callback_ucomm
      it_sort                  = it_sort
      i_default                = 'X'
      i_save                   = 'A'
      is_variant               = wk_variant
      is_layout                = wk_layout
      it_fieldcat              = it_fieldcat_alv_err
      it_events                = it_events
      it_event_exit            = it_event_exit
      it_excluding             = it_excluding
      is_print                 = wk_print
    TABLES
      t_outtab                 = t_errlog.
    KEEP EERRLOG BUTTON
SET PF-STATUS 'ZSTANDARD' EXCLUDING 'UPD' IMMEDIATELY.
ENDFORM.                    "f_display_data_err
**&      Form F_TOP_OF_PAGE
      text
FORM f_top_of_page.
CLEAR: it_list_comments[],
         wk_list_comments,
         wk_list1_comments,
         wk_list2_comments.
wk_list_comments-typ = 'H'. "H=Header,S=Selection, A=Action
wk_list_comments-key = ''.
CASE sy-ucomm.
    WHEN ''.
      wk_list_comments-info = text-030.
    WHEN 'UPD'.
      IF t_errlog[] IS INITIAL.
        wk_list_comments-info = text-031.
      ELSE.
        wk_list_comments-info = text-032.
      ENDIF.
    WHEN 'ERRLOG'.
      wk_list_comments-info = text-032.
    WHEN '&F03'.
      wk_list_comments-info = text-031.
    WHEN '&F15'.
      wk_list_comments-info = text-031.
    WHEN '&F12'.
      wk_list_comments-info = text-031.
ENDCASE.
APPEND wk_list_comments TO it_list_comments.
WRITE sy-datum TO wa_date.
WRITE sy-uzeit TO wa_time.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
wk_list_comments-info = 'User:'.
wk_list1_comments-info = sy-uname.
CONCATENATE wk_list_comments wk_list1_comments
INTO wk_list2_comments.
APPEND wk_list2_comments TO it_list_comments.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
wk_list_comments-info = '                   Run Date : '.
wk_list1_comments-info = wa_date.
CONCATENATE wk_list_comments wk_list1_comments
INTO wk_list2_comments .
APPEND wk_list2_comments TO it_list_comments.
wk_list_comments-typ = 'S'. "H=Header, S=Selection, A=Action
wk_list_comments-key = ''.
wk_list_comments-info = 'Run Time : '.
wk_list1_comments-info = wa_time.
CONCATENATE wk_list_comments wk_list1_comments
INTO wk_list2_comments .
APPEND wk_list2_comments TO it_list_comments.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
     I_LOGO             = 'ENJOYSAP_LOGO'
      it_list_commentary = it_list_comments.
ENDFORM.                    "F_TOP_OF_PAGE
      FORM USER_COMMAND_SAMPLE                                  *
--> UCOMM                                                     *
--> SELFIELD                                                  *
FORM callback_ucomm USING ucomm LIKE sy-ucomm
                     selfield TYPE slis_selfield.
DATA: v_langu(2) ,
         v_loctype TYPE /sapapo/c_loctype.
data err_flg(1).
IF bapi_run_yes_no IS INITIAL.
    CASE sy-ucomm.
      WHEN 'UPD'.
        bapi_run_yes_no = 'X'.
        LOOP AT t_res_head_val WHERE val_err_msg EQ space.
          v_langu = 'EN'.
           refresh tables
          REFRESH : resource_head ,
                    resource_head_x ,
                    resource_text ,
                    resource_text_x,
                    t_return.
          CLEAR   : resource_head ,
                    resource_head_x ,
                    resource_text ,
                    resource_text_x,
                    t_return .
          resource_head-resource   = t_res_head-name .
          resource_head-restype    = t_res_head-restype.
          resource_head-location   = t_res_head-locno.
          CLEAR : v_loctype .
          SELECT SINGLE loctype FROM /sapapo/loc CLIENT SPECIFIED
                 INTO v_loctype
                 WHERE mandt    = sy-mandt
                 AND    locno    = t_res_head-locno.
          resource_head-loctype = v_loctype.
          resource_head-calendar   = t_res_head-calendar.
          resource_head-type       = t_res_head-type.
          IF t_res_head-type = '03'.
            resource_head-dimension_bucket = t_res_head-dimension_bucket.
          ELSE.
            resource_head-dimension_bucket = space.
          ENDIF.
          APPEND resource_head.
          CLEAR resource_head.
          resource_head_x-resource = t_res_head-name.
          resource_head_x-restype = 'X'.
          resource_head_x-location = 'X'.
          resource_head_x-loctype = 'X'.
          resource_head_x-calendar = 'X'.
          resource_head_x-type     = 'X'.
          IF t_res_head-type = '03'.
            resource_head_x-dimension_bucket = 'X'.
          ELSE.
            resource_head_x-dimension_bucket = space.
          ENDIF.
          APPEND resource_head_x.
          CLEAR resource_head_x.
          resource_text-resource = t_res_head-name.
          resource_text-langu    = v_langu.
          resource_text-res_short_text = t_res_head-text.
          APPEND resource_text.
          CLEAR resource_text.
          resource_text_x-resource = t_res_head-name.
          resource_text_x-langu    = v_langu.
          resource_text_x-res_short_text = 'X'.
          APPEND resource_text_x.
          CLEAR resource_text_x.
           call bapi
          CALL FUNCTION 'BAPI_RSSRVAPS_SAVEMULTI_30A'
            EXPORTING
              logical_system                      = 'AD2CLNT200'
             business_system_group               = 'BSG001'
             commit_control                      = 'E'
           NO_CREATE                           = ' '
           TABLES
             resource_head                       = resource_head
             resource_head_x                     = resource_head_x
             resource_text                       = resource_text
             resource_text_x                     = resource_text_x
             return                              = t_return.
          IF sy-subrc = 0.
            LOOP AT t_return WHERE type = 'E'
                          OR type = 'A'.
              MOVE t_res_head_val-counter TO t_errlog-counter.
              MOVE t_res_head_val-type TO t_errlog-type.
              MOVE t_res_head_val-name TO t_errlog-name.
              MOVE t_res_head_val-vrsioid TO t_errlog-vrsioid.
              MOVE t_res_head_val-restype TO t_errlog-restype.
              MOVE t_return-message TO t_errlog-message.
              APPEND t_errlog.
              CLEAR t_errlog..
            ENDLOOP.
IF not t_errlog[] is initial..
           IF sy-subrc = 0.
            ERROR POP UP
              MESSAGE text-007 type 'I'.
            ELSE.
               err_flg = 'X'.
           SUCC POP UP
             MESSAGE text-008 type 'I'.
            ENDIF.
          ELSE.                                             "NE 0
            LOOP AT t_return WHERE type = 'E'
                          OR type = 'A'.
              MOVE t_res_head_val-counter TO t_errlog-counter.
              MOVE t_res_head_val-type TO t_errlog-type.
              MOVE t_res_head_val-name TO t_errlog-name.
              MOVE t_res_head_val-vrsioid TO t_errlog-vrsioid.
              MOVE t_res_head_val-restype TO t_errlog-restype.
              MOVE t_return-message TO t_errlog-message.
              APPEND t_errlog.
              CLEAR t_errlog..
         ENDLOOP.
            IF sy-subrc = 0.
            ELSE.
              MOVE t_res_head_val-counter TO t_errlog-counter.
              MOVE t_res_head_val-type TO t_errlog-type.
              MOVE t_res_head_val-name TO t_errlog-name.
              MOVE t_res_head_val-vrsioid TO t_errlog-vrsioid.
              MOVE t_res_head_val-restype TO t_errlog-restype.
              MOVE 'Error in Creation' TO t_errlog-message.
              APPEND t_errlog.
              CLEAR t_errlog..
            ENDIF.
          ENDIF.
      ENDLOOP.
        gc_flag = 'X'.
        REFRESH fcode.
   if err_flg = 'X'.
              MESSAGE text-008 type 'I'.
   endif.
    ENDCASE.
ENDIF.
IF NOT t_errlog[] IS INITIAL.
    wk_list_comments-info = text-032.
    APPEND wk_list_comments TO it_list_comments.
    APPEND 'UPD' TO fcode_error.
    APPEND 'ERRLOG' TO fcode_error.
    SET PF-STATUS 'ZSTANDARD' EXCLUDING fcode_error.
    PERFORM display_alv_err.
ELSE.
ENDIF.
ENDFORM.                    "CALLBACK_UCOMM=
*&      Form CALLBACK_STATUS
      text
     -->RT_EXTAB   text
FORM callback_status USING rt_extab TYPE slis_t_extab.
IF bapi_run_yes_no IS NOT INITIAL .
    IF t_errlog[] IS INITIAL.
      REFRESH fcode.
      APPEND 'UPD' TO fcode.
      APPEND 'ERRLOG' TO fcode.
        SET PF-STATUS 'ZSTANDARD' EXCLUDING 'ERRLOG'.
      SET PF-STATUS 'ZSTANDARD' EXCLUDING fcode IMMEDIATELY .
    ENDIF.
ELSE.
    SET PF-STATUS 'ZSTANDARD' EXCLUDING 'ERRLOG' IMMEDIATELY .
ENDIF.
ENDFORM.                    "CALLBACK_STATUS
*&      Form CALLBACK_STATUS1
      text
     -->RT_EXTAB   text
FORM callback_status1 USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'ZSTANDARD' EXCLUDING 'UPD'.
ENDFORM. " CALLBACK_STATUS
*&      Form CALLBACK_STATUS2
      text
     -->RT_EXTAB   text
FORM callback_status2 USING rt_extab TYPE slis_t_extab.
REFRESH fcode_final.
IF sy-ucomm NE '&F03'.
    APPEND 'UPD' TO fcode_final.
    APPEND 'ERRLOG' TO fcode_final.
    SET PF-STATUS 'ZSTANDARD' EXCLUDING fcode_final.
ELSE.
    SET PF-STATUS 'ZSTANDARD' EXCLUDING 'UPD'.
ENDIF.
ENDFORM.                    "CALLBACK_STATUS2
*&      Form callback_ucomm_E
      text
     -->UCOMM      text
     -->SELFIELD   text
FORM callback_ucomm_e USING ucomm LIKE sy-ucomm
                     selfield TYPE slis_selfield.
CASE sy-ucomm.
    WHEN 'ERRLOG' .
      PERFORM display_alv_err.
    WHEN '&F03'.
      SET PF-STATUS 'ZSTANDARD' EXCLUDING 'UPD' IMMEDIATELY .
      PERFORM display_alv .
ENDCASE.
ENDFORM.                    "CALLBACK_UCOMM=
*&      Form init_variant
      text
--> p1        text
<-- p2        text
FORM init_variant .
CLEAR: wk_variant.
wk_repid              = sy-repid.
wk_variant-report     = wk_repid.
wk_variant-username   = sy-uname.
wk_variant_save       = 'A'. "All types
ENDFORM.                    " init_variant
*&      Form f_read_datum1
      text
     -->P_T_RES_HEAD text
     -->P_P_FILE1 text
     <--P_W_SUBRC text
FORM f_read_datum1 TABLES   p_t_res_head STRUCTURE ypp_res_head
                    USING    p_p_file1
                    CHANGING p_w_subrc.
DATA : iexcel LIKE zexcel_read OCCURS 0 WITH HEADER LINE.
CLEAR p_w_subrc.
CALL FUNCTION 'ZALSM_EXCEL_TO_INTERNAL_TABLE'
    EXPORTING
      filename                = p_p_file1
      i_begin_col             = 1
      i_begin_row             = 1
      i_end_col               = 62
      i_end_row               = 50000
    TABLES
      intern                  = iexcel
    EXCEPTIONS
      inconsistent_parameters = 1
      upload_ole              = 2
      OTHERS                  = 3.
IF sy-subrc <> 0.
    p_w_subrc = 0 .
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
LOOP AT iexcel WHERE row > 2.
    IF iexcel-col = '0001'.
      p_t_res_head-type = iexcel-value.
    ENDIF.
    IF iexcel-col = '0002'.
      p_t_res_head-name = iexcel-value.
    ENDIF.
    IF iexcel-col = '0003'.
      p_t_res_head-vrsioid = iexcel-value.
    ENDIF.
    IF iexcel-col = '0004'.
      p_t_res_head-restype = iexcel-value.
    ENDIF.
    IF iexcel-col = '0005'.
      p_t_res_head-locno = iexcel-value.
    ENDIF.
    IF iexcel-col = '0006'.
      p_t_res_head-tzone = iexcel-value.
    ENDIF.
    IF iexcel-col = '0007'.
      p_t_res_head-calendar = iexcel-value.
    ENDIF.
    IF iexcel-col = '0008'.
      p_t_res_head-planner = iexcel-value.
    ENDIF.
    IF iexcel-col = '0009'.
      p_t_res_h

JAAS NT Sample

I downloaded and installed the JAAS 1.0 jar. I then configured and ran the sample program and it worked fine. But when I changed the sample_jaas.config file to use com.sun.security.auth.module.NTLoginModule , I now get :
Unexpected Exception - unable to continue
javax.security.auth.login.LoginException: java.security.AccessControlException:
access denied (java.lang.RuntimePermission loadLibrary.nt)
Has anyone gotten the NT authentication piece to work? Can they share their experience with me?
Thanks,
Scott

Hi, Scott !
There is how...
If %JAVA_HOME% refers to the directory where the JDK was installed,
1) Copy jaasmod.jar and nt.* ( from jaasmod1_0-win.zip ) to %JAVA_HOME%\jre\lib\ext
2) Add following to sample_java2.policy:
/* grant the NTLoginModule AllPermission */
grant codebase "file:%AVA_HOME%/jre/lib/ext/jaasmod.jar" {
permission java.security.AllPermission;
permission java.lang.RuntimePermission "loadLibrary.nt";
3) Run sample.bat
I downloaded and installed the JAAS 1.0 jar. I then
configured and ran the sample program and it worked
fine. But when I changed the sample_jaas.config file
to use com.sun.security.auth.module.NTLoginModule , I
now get :
Unexpected Exception - unable to continue
javax.security.auth.login.LoginException:
java.security.AccessControlException:
access denied (java.lang.RuntimePermission
loadLibrary.nt)
Has anyone gotten the NT authentication piece to work?
Can they share their experience with me?
Thanks,
Scott

Error while compiling xdk C sample program

hello,
the following error happens with xdk version 9.2.0.6 and oracle 9.2.0.4 installed on linux SUSE 9.1:
while compiling the xdk C sample program "SAXSample.c" in
$ORACLE_HOME/xdk/demo/c/parser, I got many "undefined reference" messages.
Here follows an excerpt of the first few lines of the error log:
oracle@cassius:/exp/oracle/xdk/demo/c/parser> make SAXSample
cc -o SAXSample -I ../../../../xdk/include SAXSample.c -L ../../../../lib -lxml9 -lxsd9 -lcore9 -lnls9 -lunls9 -lcore9 -lnls9 -lcore9 -lnls9 -lnsl -lm -lpthread
../../../../lib/libxml9.a(lpxerr.o)(.text+0x4d9): In function `LpxErrVPrintf':
: undefined reference to `__ctype_b'
../../../../lib/libxml9.a(lpxm.o)(.text+0x37dd): In function `LpxmA2L':
: undefined reference to `__ctype_b'
../../../../lib/libxml9.a(lpxm.o)(.text+0x38f9): In function `LpxmA2UL':
: undefined reference to `__ctype_b'
and so on.
Has anybody had this problem before? What's wrong with the libraries?
Thanks in advance.

I don't see a specific Proc or precompiler forum around here.
Perhaps your best bet would be at [Call interface (OCI)|http://forums.oracle.com/forums/forum.jspa?forumID=67] forum or maybe [SQL and PL/SQL|http://forums.oracle.com/forums/forum.jspa?forumID=75] since it's more of a developers' forum.

Need a sample program for hierarchial oops ALV report

Hello experts,
                 I Need a sample program for hierarchial oops ALV report.

Hi,
   Check the following sample code...
T A B L E S
tables : ekko.
data definition
types : begin of ty_ekko,
          ebeln type ekko-ebeln,
          lifnr type ekko-lifnr,
          bsart type ekko-bsart,
          aedat type ekko-aedat,
          ernam type ekko-ernam,
        end of ty_ekko.
types : begin of ty_eket,
           ebeln type ekpo-ebeln,
           ebelp type ekpo-ebelp,
           werks type ekpo-werks,
           matnr type ekpo-matnr,
           menge type eket-menge,
           wamng type eket-wamng,
           netpr type ekpo-netpr,
        end of ty_eket.
data : it_ekko type table of ty_ekko,
       it_eket type table of ty_eket.
data: ob_hieralv type ref to cl_salv_hierseq_table.
data: it_binding type salv_t_hierseq_binding,
      is_binding type salv_s_hierseq_binding.
S E L C T O P T I O N S
select-options : s_ebeln for ekko-ebeln.
S T A R T O F S E L E C T I O N
start-of-selection.
select ebeln
       lifnr
       bsart
       aedat
       ernam from ekko
into corresponding fields of table it_ekko
where ebeln in s_ebeln.
if sy-subrc eq 0.
select aebeln aebelp
       awerks amatnr
       bmenge bwamng
       a~netpr from ekpo as a join eket as b
                 on amandt = bmandt
                 and aebeln = bebeln
                 and aebelp = bebelp
               into corresponding fields of table it_eket
              where a~ebeln in s_ebeln.
endif.
is_binding-master = 'EBELN'.
is_binding-slave = 'EBELN'.
append is_binding to it_binding.
*TRY.
call method cl_salv_hierseq_table=>factory
exporting
t_binding_level1_level2 = it_binding
importing
r_hierseq = ob_hieralv
changing
t_table_level1 = it_ekko
t_table_level2 = it_eket .
*CATCH cx_salv_data_error .
*CATCH cx_salv_not_found .
*ENDTRY.
call method ob_hieralv->display( ).
Cheers,
Ram

Sample program for FM: BAPI_ACC_INVOICE_RECEIPT_POST

Can anyone provide a sample program using the function module - BAPI_ACC_INVOICE_RECEIPT_POST.
Thanx in advance.
<b><REMOVED BY MODERATOR></b>
-Mohan
Message was edited by:
Alvaro Tejada Galindo

Hi,
Check these links -
BAPI_ACC_INVOICE_RECEIPT_POST
http://translate.google.com/translate?hl=en&sl=ru&u=http://www.sapnet.ru/viewtopic.php%3Fp%3D313%26sid%3D9fb6646f6842ff46850081e2cc94ba82&sa=X&oi=translate&resnum=10&ct=result&prev=/search%3Fq%3DBAPI_ACC_INVOICE_RECEIPT_POST%2Bcode%26hl%3Den%26sa%3DG
http://translate.google.com/translate?hl=en&sl=zh-CN&u=http://blog.csdn.net/CompassButton/archive/2007/05/08/1600607.aspx&sa=X&oi=translate&resnum=9&ct=result&prev=/search%3Fq%3DBAPI_ACC_INVOICE_RECEIPT_POST%2Bcode%26hl%3Den%26sa%3DG
Hope this helps.
ashish

OCI - Sample program works on Windows but gives error in Solaris ??

Hi,
I am new to OCI. I was trying the following sample program:
#include<iostream>
#include<conio.h>
#include<firstheader.h>
//#include<stdafx.h>
#include<string.h>
using namespace std;
class OCIClass
public:
     OCIClass()
int p_bvi;
char p_sli[20];
int rc;
char errbuf[100];
int errcode;
const char *s;
printf("Hello\n");
string sql;
string sql2="select substr(ename,1,3) from emp where job='ANALYST'";
cout<<sql2;
//char sql[512];
int flag=0;
sql += "SELECT * from emp where job='";
if (flag==0)
sql += "MANAGER";
else
sql += "ANALYST";
sql += "'";
cout<<sql + "\n";
s=sql.c_str();
char* cstr = new char[sql.size()+1];
strcpy (cstr, sql.c_str());
char* cstr2 = new char[sql2.size()+1];
strcpy (cstr2, sql2.c_str());
sql=" ";
/* Initialize evironment */
rc=OCIEnvCreate((OCIEnv **)&p_env,(ub4)OCI_DEFAULT ,(void *)0, (void * (*)(void *, size_t))0,
(void * (*)(void *, void *, size_t))0,(void (*)(void *, void *))0,(size_t)0, (void **)0);
/* Initialize handles */
rc = OCIHandleAlloc( (dvoid *) p_env, (dvoid **) &p_err, OCI_HTYPE_ERROR,
(size_t) 0, (dvoid **) 0);
printf("Error handle allocated\n");
rc = OCIHandleAlloc( (dvoid *) p_env, (dvoid **) &p_svc, OCI_HTYPE_SVCCTX,
(size_t) 0, (dvoid **) 0);
printf("service handle allocated\n");
printf("Value of RC before Logon\n %d", rc);
/* Connect to database server */
rc = OCILogon(p_env, p_err, &p_svc, (OraText *)"scott", 5,(OraText *) "welcome", 7,(OraText *) "", 0);
printf("Value of RC after Logon\n %d", rc);
if (rc != 0) {
OCIErrorGet((dvoid *)p_err, (ub4) 1, (text *) NULL, &errcode, (OraText *)errbuf, (ub4) sizeof(errbuf), OCI_HTYPE_ERROR);
printf("Error - %s\n",errbuf);
     printf("error");
//exit(8);
     getch();
printf("Connect successful\n");
/* Allocate and prepare SQL statement */
rc = OCIHandleAlloc( (dvoid *) p_env, (dvoid **) &p_sql,
OCI_HTYPE_STMT, (size_t) 0, (dvoid **) 0);
rc = OCIStmtPrepare(p_sql, p_err, (OraText*) cstr,
(ub4) 37, (ub4) OCI_NTV_SYNTAX, (ub4) OCI_DEFAULT);
/* Bind the values for the bind variables
p_bvi = 10; /* Use DEPTNO=10
rc = OCIBindByName(p_sql, &p_bnd, p_err, (text *) ":x",
-1, (dvoid *) &p_bvi, sizeof(int), SQLT_INT, (dvoid *) 0,
(ub2 *) 0, (ub2 *) 0, (ub4) 0, (ub4 *) 0, OCI_DEFAULT);*/
/* Define the select list items */
rc = OCIDefineByPos(p_sql, &p_dfn, p_err, 1, (dvoid *) &p_sli,
(sword) 20, SQLT_STR, (dvoid *) 0, (ub2 *)0,
(ub2 *)0, OCI_DEFAULT);
/* Execute the SQL statment */
rc = OCIStmtExecute(p_svc, p_sql, p_err, (ub4) 1, (ub4) 0,
(CONST OCISnapshot *) NULL, (OCISnapshot *) NULL, OCI_DEFAULT);
while (rc != OCI_NO_DATA) {             /* Fetch the remaining data */
printf("%s\n",p_sli);
rc = OCIStmtFetch(p_sql, p_err, 1, 0, 0);
printf("After fetch\n");
rc = OCILogoff(p_svc, p_err); /* Disconnect */
rc = OCIHandleFree((dvoid *) p_sql, OCI_HTYPE_STMT); /* Free handles */
rc = OCIHandleFree((dvoid *) p_svc, OCI_HTYPE_SVCCTX);
rc = OCIHandleFree((dvoid *) p_err, OCI_HTYPE_ERROR);
void main()
OCIClass c1;
getch();
The above program works on my Windows desktop. If I try this in Solaris, OCILogon fails and gives an error. If I check the value of rc, I find that it is -2. I can connect to the database using SQLPlus, but not through the program. Not sure how to debug this...
Any pointers ?
Thanks in advance,
mrk

Did you make the required port entry in the /etc/services file? You will need to add the gateway service port there. Then try to run your program.
T00th

Please give me some sample program releated BOM

please give me some sample program releated BOM

Hi,
*& Module : PP                                                         |
*& Application : The program loads the Bill of Material                |
*&                                                                     |
*| Modification Log                                                    |
*| -
                                                    |
*| Programmer                                                          |
*|                                                       Change        |
*| -
|
REPORT zpp0120 NO STANDARD PAGE HEADING
                                  MESSAGE-ID z0
                                  LINE-SIZE 132
                                  LINE-COUNT 65(2).
                     Internal Tables                                 *
*Internal table for the BOM file.
DATA: BEGIN OF i_bom OCCURS 0,
      matnr(18),
      werks(4),
      stlan(1),
      stlal(2),
      stktx(40),
      bmeng(16),
      menge(16),
      posnr(4),
      postp(1),
      meins(3),
      datuv(10),
      fmeng(1),
      idnrk(18),
      potx1(40),
      ausch(7),
      END OF i_bom.
Extracting Document and Doc type for POSTP = D.
DATA : BEGIN OF i_stpo OCCURS 1,
       doknr(25),
       dokar(3),
       posnr(4),
       stlnr LIKE mast-stlnr,
       END   OF i_stpo.
Local work area
DATA: g_my_rec_in   LIKE i_bom.
Declare internal table for Call Transaction and BDC Session
DATA: i_bdc_table LIKE bdcdata OCCURS 0 WITH HEADER LINE.
                     Global Variables                                *
DATA: g_counter(2) TYPE n,
      g_field_name(18) TYPE c,
      zc_yes TYPE syftype VALUE 'X'.
                     Selection Screen                                *
SELECTION-SCREEN BEGIN OF BLOCK a WITH FRAME TITLE text-001.
PARAMETERS: p_fname1 TYPE localfile .
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN BEGIN OF BLOCK b WITH FRAME TITLE text-002.
PARAMETERS: p_rloc1 AS CHECKBOX DEFAULT 'X'.
SELECTION-SCREEN BEGIN OF BLOCK c WITH FRAME TITLE text-005.
PARAMETERS p_group(12) OBLIGATORY DEFAULT 'ZBOM'.
SELECTION-SCREEN END OF BLOCK c.
SELECTION-SCREEN END OF BLOCK b.
SELECTION-SCREEN END OF BLOCK a.
**WRITE the report header
TOP-OF-PAGE.
INCLUDE zheading.
                     Start of selection                              *
START-OF-SELECTION.
Load Input file
PERFORM f_load_input_file.
Create BDC records.
PERFORM create_bdc_records .
*&      Form Create_BDC_records
      text:* perform the BDC for the records in the internal table
--> p1        text
<-- p2        text
FORM create_bdc_records .
DATA: v_stlnr LIKE mast-stlnr.
DATA: v_postp(1) VALUE 'D'.
IF NOT i_bom[] IS INITIAL.
Open BDC session
    PERFORM open_bdc_session.
    SORT i_bom BY matnr werks posnr.
    SELECT SINGLE stlnr INTO v_stlnr
    FROM mast
    WHERE    matnr = i_bom-matnr
     AND     werks = i_bom-werks.
    SELECT doknr dokar posnr stlnr
                INTO TABLE i_stpo
                FROM stpo
                FOR ALL ENTRIES IN i_bom
                WHERE postp = v_postp
                AND   posnr = i_bom-posnr
                AND   stlnr = v_stlnr.
    SORT i_stpo BY posnr stlnr.
    LOOP AT i_bom.
      g_my_rec_in = i_bom.
      READ TABLE i_stpo WITH KEY posnr = i_bom-posnr
                                 stlnr = v_stlnr
                                 BINARY SEARCH.
      AT NEW matnr.
        CLEAR i_bdc_table[].
        PERFORM insert_screen_header.
      ENDAT.
Setting up counter for 20 line items
      IF g_counter = 20.
        g_counter = 1.
      ENDIF.
      PERFORM bdc_field USING 'BDC_OKCODE'
                                    '/00'.
*next screen
      PERFORM bdc_dynpro USING 'SAPLCSDI' '0140'.
      PERFORM bdc_field USING 'BDC_CURSOR' 'RC29P-FMENG(01)'.
      PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
      CONCATENATE 'RC29P-POSNR(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-posnr.
      CONCATENATE 'RC29P-IDNRK(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-idnrk.
      CONCATENATE 'RC29P-MENGE(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-menge.
      CONCATENATE 'RC29P-MEINS(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-meins.
      CONCATENATE 'RC29P-POSTP(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-postp.
      CONCATENATE 'RC29P-FMENG(' g_counter ')' INTO g_field_name.
      PERFORM bdc_field USING g_field_name i_bom-fmeng.
*next screen
      PERFORM bdc_dynpro USING 'SAPLCSDI' '0130'.
      PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
Check the Item category to direct the screen flow accordingly.
      CASE i_bom-postp.
        WHEN 'B'.
          PERFORM item_text_insert.
        WHEN 'Z'.
          PERFORM item_text_insert.
        WHEN 'T'.
          PERFORM item_text_insert.
        WHEN 'N'.
          PERFORM bdc_field   USING 'BDC_CURSOR' 'RC29P-AUSCH'.
          PERFORM bdc_field   USING 'RC29P-AUSCH' i_bom-ausch.
next screen
          PERFORM item_text_insert.
*next screen
          PERFORM bdc_dynpro USING 'SAPLCSDI' '0133'.
          PERFORM bdc_field   USING 'BDC_OKCODE' '/00'.
          PERFORM bdc_field   USING 'RC29P-EKORG' ' '.
        WHEN 'D'.
          PERFORM bdc_field   USING 'RC29P-DOKNR' i_stpo-doknr.
          PERFORM bdc_field   USING 'RC29P-DOKAR' i_stpo-dokar.
next screen
          PERFORM item_text_insert.
When POSTP = X, L.
        WHEN OTHERS.
          PERFORM bdc_field   USING 'BDC_CURSOR' 'RC29P-AUSCH'.
          PERFORM bdc_field   USING 'RC29P-AUSCH' i_bom-ausch.
next screen
          PERFORM item_text_insert.
      ENDCASE.
      g_counter = g_counter + 1.
next screen
      PERFORM bdc_dynpro      USING 'SAPLCSDI' '0140'.
      PERFORM bdc_field       USING 'BDC_CURSOR' 'RC29P-POSNR(01)'.
      PERFORM bdc_field       USING 'BDC_OKCODE' '=FCBU'.
      AT END OF matnr.
        PERFORM insert_bdc_new.
      ENDAT.
    ENDLOOP.
    CLEAR i_bom[].
    PERFORM close_bdc_session.
Release the BDC sessions created
    PERFORM release_bdc.
ENDIF.
ENDFORM.                    " open_group
*&      Form bdc_dynpro_start
      Initialize the screen
     -->P_G_PROGRAM_1
     -->P_G_SCREEN
FORM bdc_dynpro USING    p_g_program_1
                                p_g_screen.
CLEAR i_bdc_table.
i_bdc_table-program = p_g_program_1.
i_bdc_table-dynpro   = p_g_screen.
i_bdc_table-dynbegin = 'X'.
APPEND i_bdc_table.
ENDFORM.                    " bdc_dynpro_start
*&      Form bdc_field
       Insert field                                                  *
FORM bdc_field USING f_name f_value.
CLEAR i_bdc_table.
i_bdc_table-fnam = f_name.
i_bdc_table-fval = f_value.
APPEND i_bdc_table.
ENDFORM.                    "bdc_insert_field
*&      Form open_bdc_session
     Open the BDC session
FORM open_bdc_session .
Open BDC session and creat and update condition records
CALL FUNCTION 'BDC_OPEN_GROUP'
    EXPORTING
      client                    = sy-mandt
      DEST                      = FILLER8
      group                     = p_group
      HOLDDATE                  = FILLER8
      keep                      = 'X'
      user                      = sy-uname
      RECORD                    = FILLER1
      PROG                      = SY-CPROG
    IMPORTING
      QID                       =
EXCEPTIONS
   client_invalid            = 1
   destination_invalid       = 2
   group_invalid             = 3
   group_is_locked           = 4
   holddate_invalid          = 5
   internal_error            = 6
   queue_error               = 7
   running                   = 8
   system_lock_error         = 9
   user_invalid              = 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.
ENDFORM.                    " create_bdc_session
*&      Form insert_screen_header
      Insert the Header data into the screens
FORM insert_screen_header .
g_counter = 1.
PERFORM bdc_dynpro USING 'SAPLCSDI' '0100'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29N-STLAL'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RC29N-MATNR' g_my_rec_in-matnr.
PERFORM bdc_field USING 'RC29N-WERKS' g_my_rec_in-werks.
PERFORM bdc_field USING 'RC29N-STLAN' g_my_rec_in-stlan.
PERFORM bdc_field USING 'RC29N-STLAL' g_my_rec_in-stlal.
PERFORM bdc_field USING 'RC29N-DATUV' g_my_rec_in-datuv.
next screen
PERFORM bdc_dynpro USING 'SAPLCSDI' '0110'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29K-BMENG'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'RC29K-STKTX' g_my_rec_in-stktx.
PERFORM bdc_field USING 'RC29K-BMENG' g_my_rec_in-bmeng.
*next screen
PERFORM bdc_dynpro USING 'SAPLCSDI' '0111'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29K-LABOR'.
ENDFORM.                    " insert_screen_header
*&      Form insert_bdc
     Insert the BDC session
FORM insert_bdc_new .
CALL FUNCTION 'BDC_INSERT'
     EXPORTING
       tcode                  = 'CS01'
      POST_LOCAL             = NOVBLOCAL
      PRINTING               = NOPRINT
      SIMUBATCH              = ' '
      CTUPARAMS              = ' '
     TABLES
       dynprotab              = i_bdc_table
EXCEPTIONS
    internal_error         = 1
    not_open               = 2
    queue_error            = 3
    tcode_invalid          = 4
    printing_invalid       = 5
    posting_invalid        = 6
    OTHERS                 = 7
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
    WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
CLEAR i_bdc_table[].
ENDFORM.                    " insert_bdc
*&      Form close_bdc_session
      Close the BDC session
FORM close_bdc_session .
CALL FUNCTION 'BDC_CLOSE_GROUP'
       EXCEPTIONS
            not_open    = 1
            queue_error = 2
            OTHERS      = 3.
IF sy-subrc <> 0.
    MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.                    " close_bdc_session
*&      Form f_load_input_file
     Load the file into the Internal table
FORM f_load_input_file.
IF p_rloc1 = zc_yes.
    CALL FUNCTION 'WS_UPLOAD'
         EXPORTING
              filename                = p_fname1
              filetype                = 'DAT'
         TABLES
              data_tab                = i_bom
         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
              OTHERS                  = 10.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
      STOP.
    ENDIF.
ENDIF.
ENDFORM.                    " f_load_input_file
*&      Form release_bdc
     Release BDC session
FORM release_bdc.
SUBMIT rsbdcsub WITH mappe EQ p_group
                  WITH von EQ sy-datum
                  WITH bis EQ sy-datum
                  WITH fehler EQ '.'
                  EXPORTING LIST TO MEMORY
                  AND RETURN.
ENDFORM.                    " release_bdc
*&      Form item_text_insert
      Repetitive code in the screen flow
FORM item_text_insert.
PERFORM bdc_dynpro USING 'SAPLCSDI' '0131'.
PERFORM bdc_field USING 'BDC_OKCODE' '/00'.
PERFORM bdc_field USING 'BDC_CURSOR' 'RC29P-POTX1'.
PERFORM bdc_field USING 'RC29P-POTX1' i_bom-potx1.
ENDFORM.                    " item_text_insert

Why do SQL sample programs work when there is no entry for the data sources in the ODBC Data Source Administrator that are used by the sample program?

Hi,
I am trying to understand how to access an SQL database from CVI.
I don't understand how the sample programs shipped with the toolkit can access the database they use if it is not listed in the ODBC Data Source Administrator.
In the code, I see the line:
hdbc = DBConnect ("DSN=CVI SQL Samples");
However, there is not an entry that I can find in the ODBC Administrator for "CVI SQL Samples."
The SQL help suggests there should be a User DSN named, "CVI32_Samples", but I don't see that entry in the ODBC Administrator on my win-7 system.
I believe the sample program is accessing a database file named, "C:\Users\Public\Documents\National Instruments\CVI\Samples\sql\samples.mdb".
Exactly how is the call to DBConnect() translated to the file, "samples.MDB", if there is no entry in the ODBC Administrator?
Regards,
Mark

I figured it out. There is a 32 bit ODBC administrator and a 64 bit ODBC administrator. The ODBC administrator I run through the control panel is the 64 bit ODBC administrator. To access the 32 bit administrator I need to run, "C:\Windows\SysWOW64\odbcad32.exe".
I am running the samples in 32 bit mode, so I need to use the 32 bit ODBC administrator.
Best,
Mark

HR Technical : Sample program to check if PERNR is changed PART TIME.

Hi Guys,
I will appreciate if somebody can give me the sample program / subroutine to check if a PERNR has been converted from FULL TIME to PART TIME using PERSK.
Thanks

HI, Use P0001-PERSG employee group to identify whether permenant or temporary etc. You can compare current value and previous value. Also you can check the action for demotion in P0000.

Can any one please send me sample programs using java mapping..

<b>Can any one please send me sample programs using java mapping with input and output?</b>
please let me know how to get started with java mapping?
Prerequisites for java mapping ?
What are the jars need to be deployed for SAX,DOM. And how to do it in NWDS?
Use of Execute() and setparameter() ... StreamTransformation?
Some sample program using java mapping with simple logic(input and output)?

Hi,
Did you go thro these blogs?
/people/prasad.ulagappan2/blog/2005/06/29/java-mapping-part-i
/people/prasad.ulagappan2/blog/2005/06/29/java-mapping-part-ii
/people/prasad.ulagappan2/blog/2005/06/29/java-mapping-part-iii
Nice blogs to start Java Mapping.
Go thro this one too.
/people/stefan.grube/blog/2006/10/23/testing-and-debugging-java-mapping-in-developer-studio
Regards,
P.Venkat
Message was edited by:
Venkataramanan

ODM Sample Program Run Time Errors

I try to run Data Mining Sample programs against Oracle Sample schema data.
When run Java Programs, (in all algorithms) following Exception occur when build model :
--- Build Model - using cost matrix ---
treeBuildTask_jdm is started, please wait. javax.datamining.JDMException: Generic Error.
at oracle.dmt.jdm.resource.OraExceptionHandler.createException(OraExceptionHandler.java:142)
at oracle.dmt.jdm.resource.OraExceptionHandler.createException(OraExceptionHandler.java:91)
at oracle.dmt.jdm.OraDMObject.createException(OraDMObject.java:111)
at oracle.dmt.jdm.OraExecutionHandle.waitForCompletion(OraExecutionHandle.java:232)
at com.cbc.mytest.dmsConn.executeTask(dmsConn.java:229)
at com.cbc.mytest.dmsConn.buildModel(dmsConn.java:200)
at com.cbc.mytest.dmsConn.main(dmsConn.java:142)
Caused by: java.sql.SQLException: Conversion to String failed
at oracle.sql.Datum.stringValue(Datum.java:172)
at oracle.dmt.jdm.scheduler.OraJobInfo.getExecutionDuration(OraJobInfo.java:235)
at oracle.dmt.jdm.scheduler.OraJobInfo.updateJobInfo(OraJobInfo.java:168)
at oracle.dmt.jdm.scheduler.OraJob.waitForCompletion(OraJob.java:139)
at oracle.dmt.jdm.OraExecutionHandle.waitForCompletion(OraExecutionHandle.java:227)
... 3 more
When run sql scripts following error occur when build model:
SQL> -- Build a DT model
SQL> BEGIN
2 DBMS_DATA_MINING.CREATE_MODEL(
3 model_name => 'DT_SH_Clas_sample',
4 mining_function => dbms_data_mining.classification,
5 data_table_name => 'mining_data_build_v',
6 case_id_column_name => 'cust_id',
7 target_column_name => 'affinity_card',
8 settings_table_name => 'dt_sh_sample_settings');
9 END;
10 /
BEGIN
ERROR at line 1:
ORA-00942: table or view does not exist
ORA-06512: at "DMSYS.DBMS_DATA_MINING", line 305
ORA-06512: at line 2
Wonder if these two appeard different errors are actually related.
Model Build against the same data in Data Miner are fine. So that make me think Data and data type is fine. Is runtime environment needed to set in certain way???
Please give me your valuable input in which direction to look for solutions.
Thank you so much!
Zhene
Our system setting:
Database: 10g R2 Oracle Database with OLAP, DM options.
schema SH installed,
Jdk 1.4.2.

Good Morning! Xiafang,
I just talked to our DBA, he send a the information you asked for. Please let me know if you have any suggestions.
Thanks,
Zhene
Our DBA's e-mail:
I gave dmuser everything that I normally give to myself. It has the following:
grant sysdba,dba,connect,resource,select any dictionary to dmuser;
This should remove privileges as an issue.
If you execute a profile in /opt/app/oracle called .profile10 you get the following environment. Maybe you can copy .profile10 to your unix logins home directory and execute it : . ./.profile10
PATH=./:/usr/java1.2/bin:/opt/app/oracle/product/10.2.0.1/bin:./:/usr/bin::/usr//bin:/opt/app/oracle/product/9.2/bin:/opt/SUNWspro/bin:/usr/local/bin:/usr/ucb:/usr/java1.2/bin:/opt/app/oracle/product/9.2/bin:/opt/SUNWspro/bin:/usr/local/bin:/usr/ucb
ORACLE_BASE=/opt/app/oracle
JAVA_PATH=/usr/j2se/bin:/usr/j2se/include:/opt/app/bea/tuxedo8.0/bin
TUXDIR=/opt/app/bea/tuxedo8.0
ORACLE_PATH=/opt/app/oracle/product/9.2/bin
ORACLE_SID=OLAPDM
DBHOST=kenny
PS1=^[[5mkenny%oracle:$ORACLE_SID:$PWD> ${e}[0m
ORACLE_LIBRARY_PATH=/opt/app/oracle/product/9.2/lib32:/opt/app/oracle/product/9.2/lib
JAVA_LIBRARY_PATH=/usr/j2se/lib:/usr/j2se/jre/lib/sparc
JAVA_VERSION=java1.2
LD_LIBRARY_PATH=/usr/lib/:/opt/app/oracle/product/10.2.0.1/lib:/opt/app/oracle/product/10.2.0.1/rdbms/lib:/opt/openv/netbackup/bin
JAVA_SUFFIX1=12
ORACLE_HOME=/opt/app/oracle/product/10.2.0.1
Don

Memory leak in OCI Direct Path sample program in threaded mode

I have a slightly (okay, more than slightly) modified version of the sample program cdemodp.c, which uses OCI to do a Direct Path load. Since my eventual aim is to make a C++ module that loads a table from a file as part of a multithreaded program, I made the necessary changes so that cdemodp.c would compile with g++ (v3.3.1, on Solaris 2.8), and I put in the following in place of the OCIInitialize() and OCIEnvCreate() calls (since the docs say those are deprecated):
OCI_CHECK(0, 0, ociret, ctlp, OCIEnvCreate(&ctlp->envhp_ctl, OCI_THREADED, (void *) 0, 0, 0, 0, (size_t) 0, (void **) 0));
When I compile and run this version of the program using Purify, I get a 60-byte memory leak inside the OCI code (meaning I can't see the source-code line that is causing the leak). I am pretty sure it's not anything in my code (i.e., me failing to free all handles or something) because when I change the above line so that the mode parameter is OCI_DEFAULT and recompile, there is no memory leak. Since this will be part of a threaded application that is always running, it is critical to make sure there are no leaks.
Purify says that the leaked memory was allocated from:
malloc [rtlib.o]
calloc [rtlib.o]
nlepeinit [nlepe.c]
nlstdggo [nlstdgo.c]
nlstdgg [nlstdgo.c]
nigini1 [nigini.c]
I am using Oracle 10g (client version 10.1.0).
Anyone else had this happen?
Thanks,
--Tina Mancuso

This sounds very similar to the memory leak I have in Oracle 9i using Pro*C++. Everytime a connect is made memory appears to leak and it only happens in multithreaded mode not default mode. There is a thread about this under the Oracle C++ call interface. Under 9i it appears to leak about 60K per connect rather than 60 bytes.
Paul

ABAP Sample Program for T Code FFB4

Hi guys: I have the structure that t code FFB4 requires, but now I need to code a program for SAP to read the csv or text file and convert it automatically to match the structures required by FFB4 to post successfully. Does anyone please have a sample program that they have written for this purpose? The CSV/txt file is being generated by an external system but now SAP needs to make sense of it.
The structures are:
Header record (record type 0, structure FEBSCSA).
Memo record    (record type 1, structure FEBSCSB).
Clearing record (record type 2, structure FEBSCSC).
Please provide a sample code so I can debug & tweak it.
Thanks so much
Full points will be rewarded.
Brian

No. However, you just have to write a custom program to do the following.
data : gi_filename like rlgrap-filename,
         gi_name     like thead-tdname," You image name
         gi_spras    like thead-tdspras,
         gi_object   like thead-tdobject value 'GRAPHICS',
         gi_id       like thead-tdid value 'BMAP',
         l_extension like rlgrap-filename value 'BMP',
         gi_title    like bapisignat-prop_value,
         gi_resident like rsscg-resident,
         gi_btype    like stxbitmaps-tdbtype value 'BMON',
         gi_autoheight like rsscg-autoheight value ' ',
         gi_resolution like stxbitmaps-resolution value '600',
         l_stxbitmaps like stxbitmaps.
For each image do the following perform.
perform import_bitmap_bds(saplstxbitmaps)
                            using    gi_filename
                                     gi_name
                                     gi_object
                                     gi_id
                                     gi_btype
                                     l_extension
                                     gi_title
                                     gi_resident
                                     gi_autoheight
                       changing l_docid
                                     gi_resolution.

JAAS Documentation & Sample Program

Similar Messages

Maybe you are looking for