Sample program

Hi Friends,
I'm new to java card technology.
I'm in need of writing a sample program in java card which needs to store only employee id and their department.
for this i'm expecting a program similar to hello world.
it doesn't need to process any pin verification and all.
i wnat to know how to store those data in card. please send me the details.

Go to http://java.sun.com/products/javacard/reference/docs/index.html and check out the technical articles at http://developers.sun.com/mobility/javacard/articles/ . There are applet examples as well. With Java Card is quite easy and fast to develop applications.

Similar Messages

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.
<REMOVED BY MODERATOR>
-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..

Can any one please send me sample programs using java mapping with input and output?
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.

Sample Program for Creating ALV Tree

Hello Guys,
Can some One Send me some sample program for creating ALV Tree.
my Requirement is like below Diagram.
ALV Tree |   ALV GrId
   |
   |
I want to also about event in ALV , As per requirement when user select (Double click or press any push button) a node of ALV Tree That Node (Contain Sales order and as a child billing Doc No) In the ALV Grid All the details about Sales order Will be display.
Please guide me.
Thanks
Swati....

Hi..
check the following demo programs:
RSDEMO_DRAG_DROP_EDIT_TREE
RSDEMO_DRAG_DROP_TREE_MULTI
BCALV_GRID_DND_TREE
BCALV_GRID_DND_TREE_SIMPL
BCALV_TEST_COLUMN_TREE
BCALV_TEST_SIMPLE_TREE
BCALV_TREE_01
BCALV_TREE_02
BCALV_TREE_03
BCALV_TREE_04
BCALV_TREE_05
BCALV_TREE_06
BCALV_TREE_DEMO
BCALV_TREE_DND
BCALV_TREE_DND_MULTIPLE
BCALV_TREE_EVENT_RECEIVER
BCALV_TREE_EVENT_RECEIVER
BCALV_TREE_ITEMLAYOUT
BCALV_TREE_MOVE_NODE_TEST
BCALV_TREE_SIMPLE_DEMO
BCALV_TREE_VERIFY
hope this helps..
-kothai

USER EXIT - Sample Program or Material

Hai,
I don't know User Exit Programs.So, If anybody have Sample Program or Material, please send them to me...

Finding the User Exit:
Code SE18 is used to Identify the BADI available.
Look for the string 'CL_EXITHANDLER' in the standard program. This is a class which has a method 'GET_INSTANCE' which is used to trigger BADI's from the Standard Program. The interface parameter for this static method 'EXIT_NAME' is used to pass the BADI to the method.
Open Standard Program and do a global search 'CL_EXITHANDLER'.
SE18 > give the BADI name found through above search.
CUSTOMER_ADD_DATA > which has a method SAVE_DATA.
T.Code SE19 is used to Implement BADI.
SE19 > give the implementation name > Give the Definition name as CUSTOMER_ADD_DATA and the Short Text.
User Exit
Exits are basically the hooks whcih SAP has provided to add your own code. There are two types of Exits:
1. Customer exits: Implemented as Function Modules within z includes. Anybody can change it and no access key is required.
2. User Exit: Implemented as subroutines within includes (any include except y or z includes). You need access for the specific include and then you can any subroutine (user exit) within that Include.
BADIs are the enhanced version of user exits where the same logic is implemented via classes and object (OOP)
Enchancement point is the latest once introduces with ECC6.0 . Not very sure about that but you can change it without any access key.
Please go through the following link which will help you understand the exits in a much better way:
http://help.sap.com/saphelp_nw04/helpdata/en/bf/ec07a25db911d295ae0000e82de14a/content.htm
http://www.sap-img.com/abap/what-is-the-difference-between-smod-and-cmod.htm
http://sap.niraj.tripod.com/id21.html
http://help.sap.com/saphelp_nw04/helpdata/en/c8/1975cc43b111d1896f0000e8322d00/frameset.htm
http://www.sap-img.com/ab038.htm
User Exits.
http://www.erpgenie.com/sap/abap/code/abap26.htm
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sapgenie.com/abap/code/abap26.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
http://www.easymarketplace.de/userexit.php
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sappoint.com/abap/userexit.pdfUser-Exit
customer exits
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/f1a7e790-0201-0010-0a8d-f08a4662562d
Menu Exit.
http://www.sappoint.com/abap/spmp.pdf
http://www.sappoint.com/abap/userexit.pdf
http://www.sapdevelopment.co.uk/enhance/mod_sapmenu.htm
http://www.sapdevelopment.co.uk/enhance/enhancehome.htm
USER EXIT
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sapgenie.com/abap/code/abap26.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://wiki.ittoolbox.com/index.php/HOWTO:Implement_a_screen_exit_to_a_standard_SAP_transaction
http://www.easymarketplace.de/userexit.php
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sappoint.com/abap/userexit.pdfUser-Exit
http://www.sap-img.com/ab038.htm
http://help.sap.com/saphelp_46c/helpdata/en/64/72369adc56d11195100060b03c6b76/frameset.htm
http://www.sap-img.com/abap/a-short-tutorial-on-user-exits.htm
http://www.sap-img.com/abap/what-is-user-exits.htm
http://expertanswercenter.techtarget.com/eac/knowledgebaseAnswer/0,295199,sid63_gci982756,00.html
Field Exit
If you are in 4.7 and up follow this
1. Run report RSMODPRF
2. Run on the selection screen
3. In list Field Exit > Create
4. Give your data element
5.System will generate the FM FIELD_EXIT_XXXXX
6. Activate it.
7. Select your field exit and assign to your program and screen
8. Select again .. Field exit > Activate
If you are in version below 4.7
1. CMOD
2. Go to >Text enhancment > Field exit
then follow the same step from 3 onwards as given above.
Menu Exit
Procedure for Creating MENU Exits.
1) To get into Area Menu Maintenance Screen Type SE43 T.Code in Command
Line.
2) In Area Menu Paramenter type 'S000' (S triple Zero)
3) Then Press Change Icon in Application Tool Bar. Then It may ask for
Access Key or it may display "Specify Processing mode" window. If it ask
for the Access Key Check for the availability of OSS Note and apply to open
Standard SAP Menu to include MENU Exits. Otherwise, if it display "Specify
Processing mode" window with Three Push Button. In which select "Change" and
proceed further.
4) Then it will display "Information" window with the following information
"Caution : The Original Language of the structure is German (editing lang. :
English) ". Then press "Enter Key to proceed further.
5) Then you will get into "Edit Area Menu S000".
6) for eg:- Expand Tools Menu.
7) Then Press ABAP Workbench <Icon>.
8) Then you will get into ABAP Workbench Menu Tree.
9) Then Expand Utilities Menu.
10) In the last line you will find one MENU EXIT Provision to include your
own menu. "Node Text Not Found" This text can be change by double Clicking
that. There you can find the T.Code. Here for Eg:- "+DW4".
11) for eg: - Here change the Text to "Sample Menu Exit" and then note down
the T.Code "+DW4".
12) Then Save with Change Request Number and come out of Transaction SE43.
13) Then Goto Transaction SE93.
14) Then type T.Code "+DW4" and press Create.
15) Then proceed further to create transaction called "+DW4".
I hope this could help you in Creating Menu Exit...
Creating menu exits
http://help.sap.com/saphelp_nw04/helpdata/en/c8/19762743b111d1896f0000e8322d00/content.htm
http://help.sap.com/saphelp_nw2004s/helpdata/en/83/7a18cbde6e11d195460000e82de14a/frameset.htm
Regards,

MBean sample program given in the URL is not working....

Hi, i am a newbie learning about JMX and mBean and its registration.
I am going through the following URL and downloaded jmx_examples.zip given in that page.

" http://java.sun.com/docs/books/tutorial/jmx/mbeans/standard.html "

But, when i run it from my local system, i am getting the following errors,
C:\JMX_samples>javac com\example\*.java
com\example\Client.java:15: cannot find symbol
symbol : class JMX
location: package javax.management
import javax.management.JMX;
^
com\example\QueueSample.java:9: cannot find symbol
symbol : class ConstructorProperties
location: package java.beans
import java.beans.ConstructorProperties;
^
com\example\QueueSample.java:18: cannot find symbol
symbol : class ConstructorProperties
location: class com.example.QueueSample
@ConstructorProperties({"date", "size", "head"})
^
com\example\Client.java:113: cannot find symbol
symbol : variable JMX
location: class com.example.Client
JMX.newMBeanProxy(mbsc, mbeanName, HelloMBean.class, true);
^
com\example\Client.java:167: cannot find symbol
symbol : variable JMX
location: class com.example.Client
JMX.newMXBeanProxy(mbsc, mxbeanName, QueueSamplerMXBean.class);
^
Note: com\example\QueueSampler.java uses or overrides a deprecated API.
Note: Recompile with -Xlint:deprecation for details.
Note: com\example\Client.java uses unchecked or unsafe operations.
Note: Recompile with -Xlint:unchecked for details.
5 errors
I know that, i have to include some jars, but i dont know what are they? please help me find them and also let me know what are the jars that i need to run this sample program?
Edited by: vinney_143 on Apr 7, 2009 5:31 PM

It looks as if you are trying to use an example for Java 6 with a Java 5 platform. The javax.management.JMX and java.beans.ConstructorProperties classes are new with Java 6.
Regards,
Éamonn McManus -- JMX Spec Lead -- [http://weblogs.java.net/blog/emcmanus]

About HR-ABAP Sample program.

Hi,
I am new to SAP.I wanna know about basics about HR-ABAP can any one help me to get very basic ideas in HR-ABAP.
Thanks,
Sakthi.

HR deals with the INFOTYPES which are similar to Tables in General ABAP.
There are different ways of fetching data from these infotypes.
There are different areas in HR LIKE Personal Admn, Orgn Management, Benefits, Time amangement, Event Management, Payroll etc
Infotypes for these areas are different from one another area.
storing of records data in each type of area is different
LDBS like PNP are used in HR programing.
Instead of Select.. we use some ROUTINES and PROVIDE..ENDPROVIDE.. etc
and in the case of Pay roll we use Clusters and we Import and Export them for data fetching.
On the whole Normal ABAP is different from HR abap.
For Personal Admn the Infotypes start with PA0000 to PA1999
Time Related Infotypes start with PA2000 to PA2999.
Orgn related Infotypes start with HRP1000 to HRP1999.
All custom developed infotypes stsrat with PA9000 onwards.
In payroll processing we use Clusters like PCL1,2,3 and 4.
Instead of Select query we use PROVIDE and ENDPROVIDE..
You have to assign a Logical Database in the attributes PNP.
Go through the SAp doc for HR programming and start doing.
http://www.sapdevelopment.co.uk/hr/hrhome.htm
See:
http://help.sap.com/saphelp_46c/helpdata/en/4f/d5268a575e11d189270000e8322f96/content.htm
sites regarding hr-abap:
http://www.sapdevelopment.co.uk/hr/hrhome.htm
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PAPA/PAPA.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PAPD/PAPD.pdf
http://help.sap.com/printdocu/core/Print46c/en/data/pdf/PYINT/PYINT_BASICS.pdf
http://www.atomhr.com/training/Technical_Topics_in_HR.htm
http://www.planetsap.com/hr_abap_main_page.htm
You can see some Standard Program examples in this one ...
http://www.sapdevelopment.co.uk/programs/programshr.htm
http://searchsap.techtarget.com/originalContent/0,289142,sid21_gci1030179,00.html?Offer=SAlgwn12604#Certification
http://www.erpgenie.com/faq/hr.htm.
http://www.planetsap.com/hr_abap_main_page.htm
http://www.sapbrain.com/TUTORIALS/FUNCTIONAL/HR_tutorial.html
These are the FAQ's that might helps you as well.
http://www.sap-img.com/human/hr-faq.htm
http://www.sapgenie.com/faq/hr.htm
http://www.planetsap.com/hr_abap_main_page.htm
http://www.atomhr.com/library_full.htm
HR Long texts Upload
Look at the below link
BDC - hr maintain text
Please refer to the following sample program for accessing PCH LDB.
For concept to start with refer url:
http://www.sap-press.de/download/dateien/860/sappress_mysap_hr_technical_principles2.pdf
It contains info regarding PCH Reporting.
REPORT zhsol010.
TABLES: objec, gdstr.
INFOTYPES: 0002, 0006, 1003.
DATA: stabs LIKE p1003-stabs,
name LIKE p0001-ename.
INITIALIZATION.
pchotype = 'O'.
pchwegid = 'O-S-P'.
GET objec.
IF objec-otype = 'S'.
CLEAR stabs.
LOOP AT p1003 WHERE begda LE pc-endda
AND endda GE pc-begda.
IF p1003-stabs = 'X'.
stabs = 'X'.
WRITE : / objec-objid, objec-short, objec-stext.
ENDIF.
ENDLOOP.
ENDIF.
IF objec-otype = 'P' AND stabs = 'X'.
PROVIDE vorna nachn FROM p0002
subty telnr FROM p0006
BETWEEN pc-begda and pc-endda
WHERE p0006-subty = '1'.
IF p0006_valid = 'X'.
CONCATENATE p0002-vorna p0002-nachn INTO name
SEPARATED BY space.
WRITE: / name, p0006-telnr.
SKIP.
ENDIF.
ENDPROVIDE.
ENDIF.
sample code:
REPORT zpwtest .
TABLES : t001 .
TYPE-POOLS slis .
DATA : t_t001 TYPE TABLE OF t001 ,
 t_abaplist TYPE TABLE OF abaplist .
DATA : w_abaplist TYPE abaplist .
SELECT-OPTIONS : s_bukrs FOR t001-bukrs OBLIGATORY .
PARAMETERS : p_list TYPE c NO-DISPLAY .
START-OF-SELECTION .
IF sy-batch = 'X' AND p_list IS INITIAL .
Submit report and get list in memory
 SUBMIT zpwtest EXPORTING LIST TO MEMORY
 WITH s_bukrs IN s_bukrs
 WITH p_list = 'X'
 AND RETURN.
Get the list from memory.
 CALL FUNCTION 'LIST_FROM_MEMORY'
 TABLES
 listobject = t_abaplist
 EXCEPTIONS
 not_found = 1
 OTHERS = 2.
 IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
 ENDIF.
Send report to mail receipent
 PERFORM send_mail .
ELSE.
 PERFORM select_data .
 PERFORM display_data .
ENDIF.
*SO_NEW_DOCUMENT_SEND_API1
*& Form select_data
FORM select_data.
SELECT *
 INTO TABLE t_t001
 FROM t001
 WHERE bukrs IN s_bukrs .
ENDFORM. " select_data
*& Form display_data
FORM display_data.
CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'
 EXPORTING
 i_structure_name = 'T001'
 TABLES
 t_outtab = t_t001
 EXCEPTIONS
 program_error = 1
 OTHERS = 2.
IF sy-subrc <> 0.
 MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " display_data
*& Form send_mail
FORM send_mail.
DATA: message_content LIKE soli OCCURS 10 WITH HEADER LINE,
 receiver_list LIKE soos1 OCCURS 5 WITH HEADER LINE,
 packing_list LIKE soxpl OCCURS 2 WITH HEADER LINE,
 listobject LIKE abaplist OCCURS 10,
 compressed_attachment LIKE soli OCCURS 100 WITH HEADER LINE,
 w_object_hd_change LIKE sood1,
 compressed_size LIKE sy-index.
Fot external email id
receiver_list-recextnam = '[email protected]'.
receiver_list-recesc = 'E'.
receiver_list-sndart = 'INT'.
receiver_list-sndpri = '1'.
FOr internal email id
receiver_list-recnam = sy-uname .
receiver_list-esc_des = 'B'.
APPEND receiver_list.
General data
w_object_hd_change-objla = sy-langu.
w_object_hd_change-objnam = 'Object name'.
w_object_hd_change-objsns = 'P'.
Mail subject
w_object_hd_change-objdes = 'Message subject'.
Mail body
APPEND 'Message content' TO message_content.
CALL FUNCTION 'TABLE_COMPRESS'
 IMPORTING
 compressed_size = compressed_size
 TABLES
 in = t_abaplist
 out = compressed_attachment.
DESCRIBE TABLE compressed_attachment.
CLEAR packing_list.
packing_list-transf_bin = 'X'.
packing_list-head_start = 0.
packing_list-head_num = 0.
packing_list-body_start = 1.
packing_list-body_num = sy-tfill.
packing_list-objtp = 'ALI'.
packing_list-objnam = 'Object name'.
packing_list-objdes = 'Attachment description'.
packing_list-objlen = compressed_size.
APPEND packing_list.
CALL FUNCTION 'SO_OBJECT_SEND'
 EXPORTING
 object_hd_change = w_object_hd_change
 object_type = 'RAW'
 owner = sy-uname
 TABLES
 objcont = message_content
 receivers = receiver_list
 packing_list = packing_list
 att_cont = compressed_attachment.
ENDFORM. " send_mail
regards,
srinivas
*reward for useful answers*

Sample program

Similar Messages

Maybe you are looking for