To store Reports in Blob fields

Hi,
I need to generate report(PDF) and to keep it in a Blob field.
Somebody has some idea? Thanks

HuaMin Chen wrote:
Try it like
CREATE TABLE po_xml_tab(
poid NUMBER(10),
poDoc XMLTYPE
XMLType COLUMN poDoc
STORE AS CLOB (
TABLESPACE lob_seg_ts
STORAGE (INITIAL 4096 NEXT 4096)
CHUNK 4096 NOCACHE LOGGING
);No.
CLOB storage is deprecated.
Binary XML should be used now, and it's the default starting with 11.2.0.2 (so it applies for XE).

Similar Messages

How can i store image into blob field in oracle express ??

Hi
am using oracle express *(2.1)* , i am devloping a small system , we have to store an image in blob filed in a table, we have to create a form which allow the user to store the image in the table and to generate a report contains the image
any note's please
tahnk's in advance
sam
Edited by: user485341 on Dec 22, 2008 1:28 AM

hi Andy
this is the code for download
create or replace PROCEDURE download_my_file(p_file in number) AS
v_mime VARCHAR2(48);
v_length NUMBER;
v_file_name VARCHAR2(2000);
Lob_loc BLOB;
BEGIN
SELECT MIME_TYPE, BLOB_CONTENT, FILE_NAME,DBMS_LOB.GETLENGTH(BLOB_CONTENT)
INTO v_mime,lob_loc,v_file_name,v_length
FROM A_IMAGES
WHERE IMAGE_ID = p_file;
owa_util.mime_header( nvl(v_mime,'application/octet'),FALSE );
-- set the size so the browser knows how much to download
htp.p('Content-length: ' || v_length);
-- the filename will be used by the browser if the users does a save as
htp.p('Content-Disposition: attachment;
filename="'||replace(replace(substr(v_file_name,instr(v_file_name,'/')+1)
,chr(10),null),chr(13),null)|| '"');
-- close the headers
owa_util.http_header_close;
-- download the BLOB
wpg_docload.download_file( Lob_loc );
end download_my_file;
thank's

How to store images in BLOB field in MySql database using java

Hi....
Currently am able to store character string into BLOB using byte array....in MySql.
but i cannot store images or pictures.......
to do this.........please help me out...............
Thanx..........:)Bye...........

Hello,
I have done this for Oracle but it should be similar in MySQL also. Try reading thru these links below. Mail us if you have succeeded or not.
http://forum.java.sun.com/thread.jspa?forumID=48&threadID=654086
http://forum.java.sun.com/thread.jspa?forumID=48&threadID=384768
http://forum.java.sun.com/thread.jspa?forumID=48&threadID=549705
Thanks and regards,
Pazhanikanthan. P

Read a file store in a Blob field

hi friends
has anyone read a file in a table field like using blob
fieldtype in Oracle.anybody got the java code to do it. please
help.
thanks,
aruni.

See item #2 in my reply #11 at your original post (see link shown below):
http://forum.java.sun.com/thread.jsp?thread=425174&forum=48&message=1893475
and my reply #13 which contains a link to more info on how to read/write Oracle LOB.
;o)
V.V.

Show photoes using blob field in Oracle DB

When create Crystal report using Blob field in Oracle 10g DB, the photoes are tif format stored in blod and there are multipages for every record. However in the Crystal Report,it just show the first page of the photo.
Are there some ways to display all the pages? Or is it necessary to programming using java or .net to display?

Not capable. CR will only show the first picture and not an album.

Can we use BLOB fields (that store images) in Crystal Report ?

I'm developing with ASP.NET, VS.NET 2003.
Using Crystal Report for VS.NET
DataBase: Oracle 10g
I store a BLOB field in a table. This field store images, like jpg files.
The Stored Procedure that I use to fill the report is:
OPEN MyCursor FOR
SELECT MyId , MyImg
FROM MyTable
MyImg is BLOB field
However, when I try to use the stored procedure in Crystal Report at design mode, any field can be displayed and then drag and drop to the report, but MyImg is not possible.
There is an error message:
Details: ADO Error Code: 0x80004005
Source: Microsoft OLE DB Provider for Oracle
Description: Data type is not supported
I'm afraid that is not so easy for me to change DB connector drivers.
My question is:
- Is it possible to use BLOB fields in Cyrstal Reports?
- Or should I convert them previously to something, so they can be displayed in Crystal Report at desing mode ?
- If I should change DB connector drivers, which one should I use and from where should I download it and then install it in my Web Server?
Thank you very much!

Hi,
I dont know much at all about CR, but I do know Microsoft's OLEDB Provider for Oracle doesnt support Blob datatype.. http://support.microsoft.com/kb/q244661/
Oracle's OLEDB provider does though, you can get it as part of the ODAC download on OTN.
Hope that helps,
Greg

Error while trying to store PDF in Oracle's BLOB field

Hi folks!
I'm having problems while trying to store PDF file in a BLOB field of an Oracle table
This is the message code:
Exception in thread "main" java.sql.SQLException: Data size bigger than max size for this type: 169894
at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java:134)
at oracle.jdbc.dbaccess.DBError.throwSqlException(DBError.java:179)
at oracle.jdbc.ttc7.TTCItem.setArrayData(TTCItem.java:95)
at oracle.jdbc.dbaccess.DBDataSetImpl.setBytesBindItem(DBDataSetImpl.java:2414)
at oracle.jdbc.driver.OraclePreparedStatement.setItem(OraclePreparedStatement.java:1134)
at oracle.jdbc.driver.OraclePreparedStatement.setBytes(OraclePreparedStatement.java:2170)
at vgoactualizacion.Main.main(Main.java:84)
This is the piece of code i'm using:
Assuming conn = conection to Oracle 10g Database ( it's working )
String miProcedimientoAlmacenado = "{ call package_name.update_client(?,?, ?) }";
CallableStatement miComando = conn.prepareCall(miProcedimientoAlmacenado);
miComando.setString(1,miClienteID ); //first parameter : IN
               //second parameter : IN
File miPDF = new File(pathPDF + "//" + miClienteID + ".pdf");
byte[] bodyIn = readFully(miPDF); //readFully procedure is shown below
miComando.setBytes(2, bodyIn); //THIS IS THE LINE WHERE THE ERROR IS PRODUCED
          //3rd parameter: OUT
miComando.registerOutParameter(3, java.sql.Types.VARCHAR);
miComando.execute();
private static byte[] readFully(File miPDF) throws FileNotFoundException, IOException {
FileInputStream fis = new FileInputStream(miPDF);
byte[] tmp = new byte[1024];
byte[] data = null;
int sz, len = 0;
while ((sz = fis.read(tmp)) != -1) {
if (data == null) {
len = sz;
data = tmp;
} else {
byte[] narr;
int nlen;
nlen = len + sz;
narr = new byte[nlen];
System.arraycopy(data, 0, narr, 0, len);
System.arraycopy(tmp, 0, narr, len, sz);
data = narr;
len = nlen;
if (len != data.length) {
byte[] narr = new byte[len];
System.arraycopy(data, 0, narr, 0, len);
data = narr;
return data;
}//fin readFully
This approach indicates that the PDF file is converted into an array of bytes, then is stored as binary in the BLOB field.
Thanx in advance, and looking forward for your comments.

You will probably need to use the setBinaryStream() method instead of setBytes().

How to store file content in BLOB field MySql database using java

Hi!
i want to store the file content in a BLOB field in MySql database using java.
Please help me out..........
thanx in advance...
bye

i stored images in db, and retrieved them. like that cant i store pdf file in db, and retrieve it back using oracle db?
Plz help me out how to put a file in db. i need complete code. thanks in advance.

BLOB field in report causes suppresion of one record

I am using Crystal Reports 10 connecting to a view in an Oracle 10g database using an Oracle driver connection.
We have a report that has been in use for sometime that displays the image in a BLOB field in the Report Footer. A parameter based on a unique ID field allows us to select all data that matches that ID number. The data is displayed as rows in the Details section. There is one BLOB field for each unique ID. We recently noted that the 2nd record in all the datasets fail to display in the report. Regardless of the sort order used, it is always the 2nd record. The view returns the proper amount of records, and the report's SQL query, when copied and pasted into a SQL editor, also returns the proper amount of records. However, the 2nd record fails to display. If the BOB field is removed from the report, the 2nd record appears. This behaivor can be reproduced at will. There are no suppression formulas in the report.
Anybody have any ideas at what may be causing this to occur?

Please re-post if this is still an issue to the Data Connectivity - Crystal Reports Forum or purchase a case and have a dedicated support engineer work with you directly

Report not showing my image in BLOB field

Hi,
I m using report 6i.
But I just upgraded my server from Oracle 8.0 to 9i and now that I have a new table with image, I created the field to be a BLOB field.
However, in old days, I uses LongRaw and I save my images using the following:-
READ_IMAGE_FILE(filename, 'BMP', 'logos.logo')
it works perfectly when I call the file outfrom my report but now, after I changed to BLOB, I use the report to open the BLOB field and stated it as image, it shows error stating that the report cannot identify the image.
Any advice on this please?
Thankz

Develop a simple form including the BLOB field and set the properties of the image item accordingly.
See help in forms 9i for details & examples.
Use read_image_file built-in to read the image from the file to the BLOB item of this form.
In the report, you set the properties of the BLOB field as in my previous reply. Run the report. That's all!
In the reports developer, I don't think you can use read_image_file built in.

Retrieve XMLP documents directly from BLOB fields in E1; Tools Release 8.97

Hi,
I want to be able to retrieve XML Publisher reports (PDF, RTF, HTML) directly from the database BLOB fields in EnterpriseOne. Instead of making users manually save each report to get a soft-copy of the report, I wanted to be able to retrieve the reports from a BLOB field, create a new external file for it, and open the file with the related editor (MS Word, Adobe, IE, etc.).
We are on Oracle 10g, and I was able to get a file populated with some BLOB data for a particular RTF file. However, when I try to open the file in MS Word, all I get is junk.
Does anyone know if JDE stores these documents differently into BLOB fields than standard?
Here is the code I used using PL/SQL...
DECLARE
xmlstr BLOB;
warn VARCHAR2(400);
v_file Utl_File.file_type;
line_buf RAW(32767);
maxbufsize BINARY_INTEGER := 32767;
amount BINARY_INTEGER;
offset BINARY_INTEGER;
dir varchar2(50) := 'XMLP_DIR';
filename varchar2(50) := 'JPARK_TEST.rtf';
bsize NUMBER;
BEGIN
v_file := utl_file.fopen(dir,filename,'wb',maxbufsize);
SELECT xorpdxpblb INTO xmlstr FROM sy812.F95631 WHERE xorpdorgud = '2115630440008e-SMNQTWZCFI-YEKRWCIOUA';
--SELECT xdrpdubblb INTO xmlstr FROM sy812.F95630 WHERE xdrpduogud = '21080156900001-SMNQTWZCFI-ORORNYFSYJ';
bsize := dbms_lob.getLength(xmlstr);
dbms_output.put_line(bsize);
amount := maxbufsize;
offset := 1;
WHILE (offset<bsize) LOOP
DBMS_LOB.read(xmlstr,amount,offset,line_buf);
utl_file.put_raw(v_file,line_buf, TRUE);
offset := offset+amount;
--utl_file.fflush(v_file);
--Dbms_Output.put_line(offset);
END LOOP;
utl_file.fclose(v_file);
EXCEPTION
WHEN OTHERS THEN
UTL_FILE.FCLOSE_ALL;
DBMS_OUTPUT.PUT_LINE('WHEN OTHERS');
dbms_output.put_line(substr(sqlerrm,1,254));
END;

the database and blob fields are identical. In the 11i (eBusiness suite) we would store this information in fnd_lobs.
Ike Wiggins
http://bipublisher.blogspot.com

How can i use a blob field in a formula field object

Hi ,
We are using Crystal Report Server XI R2. i have a field "ANSWER" in my datasource which stores value 1 or 0.
And i have table to store two images as blob fields are "EVALTICKIMAGE" and "EVALCROSSIMAGE".
Now i need to show an image in my report for the field "ANSWER" instead of 0 or 1.
So i written a formula to achieve this. my formula text is follows:-
oFormulaField.Text = @"if {CSP_PROCESS_REPORT.ANSWER} = ""1"" then {EVALIMAGE.EVALTICKIMAGE} else {EVALIMAGE.EVALCROSSIMAGE} ";
but this does not works for me. i recieve an error "A blob field cannot be used in a formula".
is there any other way to show images based on a condition.
or is that possible to use blob fields formulafield, kindly help me.
Thanks,
Padmanaban V

You can use conditional suppression instead.
Place both image fields on the report. Right click the 1st image field (EVALIMAGE.EVALTICKIMAGE) and choose Format Graphic and make sure the Format Editor is on the Common Tab.
Click the x-2 button across from Suppress and enter the following formula:
IF({CSP_PROCESS_REPORT.ANSWER} = 1 THEN FALSE ELSE TRUE
For EVALIMAGE.EVALCROSSIMAGE, do the same thing except change the formula to:
IF({CSP_PROCESS_REPORT.ANSWER} = 0 THEN FALSE ELSE TRUE
Once that's done, you can set one image directly on top of the other.
HTH,
Jason

Creating Packages from BLOB field contents, line wrap problems

Good afternoon,
we use an in-house developed database-driven update system to update both our databases and filesystems, the system itself performs really well but there is still one problem I can't fix without some expert help:
the code of to-be-updated Oracle packages is stored inside of a BLOB field, the BLOB field will contain both the package specification and package body and needs to be split into two parts to first execute the spec and then to execute the package body (I tried to execute both in a single step but this didn't work). This works for packages with less than 32767 characters and also works in some other cases but I found one case where the executed code contains an extra line wrap right in the middle of a word.
To make it more clear (I hope it's comprehensible), imagine the following database content:
CREATE OR REPLACE Package
MyPack
AS
[... a lot procedure headers ...]
END MyPack;
CREATE OR REPLACE
Package Body MyPack AS
[... a lot more procedures ...]
PROCEDURE myTest (intID OUT integer)
AS
BEGIN
SELECT count (*) into intID FROM MyTa[--this is where the dbms_lob.substr() ends --]ble;
END;
END MyPack;My code searches for the second occurrence of the "Create or replace package", splits the code into spec and body, executes the specification and keeps on adding the rest of the code to a VARCHAR2A variable called "storedCode" from the BLOB. Now in the above example, after the specification has been removed from the string, the remaining characters (ending with the "MyTa" string) are added to the varchar2a variable, the next line is fetched from the BLOB via "dbms_lob.substr()" and added as long as dbms_lob.substr() does not return a NULL value (end of BLOB). When the code is executed after all has been fetched, the generated Package Body will contain an extra line wrap right in the middle of the "MyTable" word compiling the package invalid.
This is the procedure code I use (definitely improvable, I'm better in MSSQL and MySQL dialects ...) to load, parse and execute the BLOB content:
   -- to run package code
procedure runPackageCode (stepRef integer)
AS
    numLines integer default 1;
    pos     integer default 1;
    storedCode    LOG_CHANGEDOBJECT.STOREDOBJECT%type;
    objectCursor integer;
    lSqlOut     integer;
    sqlCommand dbms_sql.varchar2a;
    emptyCommand dbms_sql.varchar2a;
    pIsError integer := 0;
    pErrorMsg varchar2(200) := '';
    updateRef integer := 0;
    currentUpdate integer := 0;
    schemaReference varchar2(20);
    -- required to do string cutting
    strLine varchar2(32767);
    strLeftFromSlash varchar2(32767);
    strRemaining varchar2(32767);
    intDelimiterPos integer := 0;
begin
    -- retrieve update ID
    SELECT log_update_ref INTO currentUpdate FROM link_update_with_taskstep WHERE log_taskstep_ref = stepRef;
     begin
        select storedobject, change_area
        into storedCode, schemaReference
        from vw_storedobjects
        where step_id = stepRef;
     exception
      when no_data_found then
        pIsError := 1;
        pErrorMsg := 'Invalid SQL ID ' || stepRef;
        pkg_generic.LogError(updateRef, 'LocalUpdater', stepRef, 'Run package code failed: ' || pErrorMsg);
     end;
      if pIsError = 0 then
        begin
          -- change schema
          execute immediate 'alter session set current_schema = ' || schemaReference;
          objectCursor := dbms_sql.open_cursor;
          loop
            strLine := UTL_RAW.CAST_TO_VARCHAR2(dbms_lob.substr(storedCode, 32767, pos));
            intDelimiterPos := regexp_instr(strLine, '\s*Create\s*or\s*Replace\s*Package', 2, 1, 0, 'i');
            while intDelimiterPos > 0
            loop
              -- '/' found, execute currently stored statement
              strLeftFromSlash := substr(strLine, 1, intDelimiterPos-1);
              strLine := substr(strLine, intDelimiterPos);
              -- execute the extracted part without any '/' in it
              sqlCommand(numLines) := regexp_replace(strLeftFromSlash, '(^|\s+)/(\s+|$)', '', 1, 0, 'm');
              if (sqlCommand(numLines) is not null) then
                objectCursor := dbms_sql.open_cursor;
                dbms_sql.parse(objectCursor, sqlCommand, 1, numLines, true, dbms_sql.native);
                lSqlOut := dbms_sql.execute(objectCursor);
                dbms_sql.close_cursor(objectCursor);
              end if;
              -- reset sqlCommand
              sqlCommand := emptyCommand;
              -- reset line counter and store remaining string
              numLines := 1;
              -- check for further '/'s
              intDelimiterPos := regexp_instr(strLine, '\s*Create\s*or\s*Replace\s*Package', 2, 1, 0, 'i');
            end loop;
            -- add the remaining strLine to the sqlCommand
            strLine := regexp_replace(strLine, '(^|\s+)/(\s+|$)', '', 1, 0, 'm');
   --> I assume this line breaks the code, lpad()'ing the content to move it to the end of a varchar2a line didn't help
            sqlCommand(numLines) := strLine;
            exit when sqlCommand(numLines) is null;
            pos := pos+32767;
            numLines := numLines+1;
          end loop;
          objectCursor := dbms_sql.open_cursor;
          dbms_sql.parse(objectCursor, sqlCommand, 1, numLines, true, dbms_sql.native);
          lSqlOut := dbms_sql.execute(objectCursor);
          dbms_sql.close_cursor(objectCursor);
          commit;
          -- reset schema
          execute immediate 'alter session set current_schema = UPDATE_DB';
          -- set state to installed
          pkg_update.setstepstate(stepRef, 'Installed');
    exception
    when others then
          -- reset schema
          execute immediate 'alter session set current_schema = UPDATE_DB';
          -- set state to installFailed
          pkg_update.setstepstate(stepRef, 'InstallFailed');
          pkg_generic.LogError(updateRef, 'Database', stepRef, 'Run package code failed: ' || sqlerrm);
    end;
    end if;
END;    Thanks if you kept on reading so far, I would really appreciate any feedback!
Regards, Sascha

Welcome to the forum!
Whenever you post provide your 4 digit Oracle version (result of SELECT * FROM V$VERSION).
Thanks for providing an easy-to-understand problem statement and for using code tags.
>
the code of to-be-updated Oracle packages is stored inside of a BLOB field
>
This should be stored in a CLOB since it is character data. Why are you using BLOB?
>
the BLOB field will contain both the package specification and package body and needs to be split into two parts to first execute the spec and then to execute the package body
>
Good, clear problem statement. So why doesn't your code do just what you said it should do: 1) split the code into two parts, 2) execute the spec and 3) execute the body.
Instead of writing code that does these three relatively simple steps your code tries to combine splitting and executing and mushes/mashes it all together. The result, as you found, is code that is hard to understand, hard to debug, doesn't work and doesn't report on what it is doing.
Code like this doesn't have a performance issue so the code should implement the simple step-by-step process that you so elegantly stated in your problem description:
1. split the code into two parts
2. execute the spec
3. execute the body
My advice is to refactor your code to perform the above steps in the proper order and to add proper exception handling and reporting for each step. Then when a step isn't working you will know exactly where and what the problem is.
Here are my recommendations.
1. Add two CLOB variables - one will hold the spec, the second will hold the body
2. Add a comment (you have some good ones in the code now) for every step no matter how trivial it may be
3. Add exception/error handling to EVERY STEP
Your code for the first step has a comment but no exception handling. What should happen if you don't get any data? Why aren't you validating the data you get? Dynamic SQL using table-driven data is great, I love it, but you MUST validate that the data you get is what you expect to get.
    -- retrieve update ID
    SELECT log_update_ref INTO currentUpdate FROM link_update_with_taskstep WHERE log_taskstep_ref = stepRef;Recommended
    -- step 1 - retrieve update ID - This is the id that determines BLAH, BLAH, BLAH - add appropriate to tell a new developer what this ID is and what it means.
    BEGIN
        SELECT log_update_ref INTO currentUpdate FROM link_update_with_taskstep WHERE log_taskstep_ref = stepRef;
    EXCEPTION
        WHEN ??? THEN -- what should happen if step 1 fails? Do it here - don't default to an exception handler that is several pages away.
    END;Your code
     begin
        select storedobject, change_area
        into storedCode, schemaReference
        from vw_storedobjects
        where step_id = stepRef;
     exception
      when no_data_found then
        pIsError := 1;
        pErrorMsg := 'Invalid SQL ID ' || stepRef;
        pkg_generic.LogError(updateRef, 'LocalUpdater', stepRef, 'Run package code failed: ' || pErrorMsg);
     end;
Good - except there is no comment that says what this does - I assume that the query above and this block are the 'retrieve update ID ' step?
You log an error message and set the error flag to '1'. But since you don't want to continue why aren't you exiting the procedure and returning right here?
      if pIsError = 0 then
        beginSo now you check the error flag and do several pages of code if there were no errors.
I don't like that 'inverted' logic.
If you don't want to continue then STOP right now! Don't make a developer scan through pages and pages of code to find out you really aren't doing anything else if there was an error.
Either put a RETURN statement in the exception handler above or change your code to
      if pIsError = 1 then
        RETURN;
      end if;Now the rest of the code doesn' t have to be indented; you will never get there if there is an error. Check for errors after every step and exit right then as appropriate.
          -- change schema
          execute immediate 'alter session set current_schema = ' || schemaReference;
          objectCursor := dbms_sql.open_cursor;
          loop
            strLine := UTL_RAW.CAST_TO_VARCHAR2(dbms_lob.substr(storedCode, 32767, pos));
            intDelimiterPos := regexp_instr(strLine, '\s*Create\s*or\s*Replace\s*Package', 2, 1, 0, 'i');
            while intDelimiterPos > 0
            loopThis code mixes all of the steps together into one giant mess. You open a cursor, try to split the BLOB into spec and body and try to parse and execute both all within a double nested loop.
Even if that works correctly another developer will have a hard time understanding what the code is doing and fixing it if it goes wrong. And it will go wrong if you let me test if for you because I will put garbage into the BLOB for the spec, body or both to make sure it breaks and to see how your code handles it.
I suggest you rewrite this double nested loop to perform the three steps separately.
1. split the code into two parts
a. put the spec into one new CLOB variable and the body into the other.
b. use DBMS_OUTPUT (or a work table) to output the spec and body so you can see what the code is and make sure the 'split' process worked properly. You probably created that BLOB by manually concatenating the SPEC and BODY to begin with so now create a SPLIT process to split them again and give them back to you. This is such a fundamental component that I suggest creating a new SPLIT_MY_BLOB procedure. This procedure would take a BLOB and return two CLOBS as OUT parameters: one CLOB is the spec and one is the body. Then you can reuse this 'split' procedure in other code or more complex versions of code. Modular programming is the key.
2. execute the spec - Now have a step that executes the spec and does something appropriate if the step succeeds or if it fails. I mean, do you really want to do execute the body if the spec execution fails? What do you want to do? Should you delete the body and spec? If you don't you might wind up with an INVALID body based on old code and an INVALID spec based on the new code you were trying to use. How will anyone, including you, know that the spec and body in the ALL_SOURCE view is really two different versions of things?
This suggests that for your use case you may want to consider DROPPING the entire package, spec and body, before trying to recreate them both. At least if the package is totally missing anyone will know that the entire thing needs to be put back. Ahhhh - but to do that you need to know the package name so you can drop it. Than may require adding another step to get the package name from your data-driven table and adding a DROP PACKAGE step.
3. execute the body - This step executes the body. Hmmmm - we have two nearly identical steps. So why don't you create a new function/procedure that takes a CLOB as input, uses dynamic sql to execute it and returns a result code. That would be useful. Then you could execute ANY sql stored in a CLOB and have a generic function that you can use for other things.
Right now you are using the VARCHAR2 table version of DBMS_SQL.PARSE but you would change this to use the CLOB version.
The end result of this refactoring is a main function/procedure that acts as the CONTROL - it decides what to do and what data (BLOB) to do it with. But it doesn't actually do ANY of the work. It just controls what is done.
And you have a couple of generic, reuseable functions that actually do the work. One knows how to split a CLOB into spec and body. The other knows how to use dynamic SQL to execute a CLOB.
Now you have a modular architecture that is easy to understand, easy to code and easy to test.

Create a Procedural ALV Report with editable fields and save the changes

Hi,
I am new to ABAP. I have created a Procedural ALV Report with 3 fields. I want to make 2 fields editable. When executed, if the fields are modified, I want to save the changes. All this I want to do without using OO concepts. Please help . Also, I checked out the forum and also the examples
BCALV_TEST_GRID_EDIT_01
BCALV_TEST_GRID_EDIT_02
BCALV_TEST_GRID_EDIT_04_FORMS
BCALV_TEST_GRID_EDITABLE
BCALV_EDIT_01
BCALV_EDIT_02
BCALV_EDIT_03
BCALV_EDIT_04
BCALV_EDIT_05
BCALV_EDIT_06
BCALV_EDIT_07
BCALV_EDIT_08
BCALV_FULLSCREEN_GRID_EDIT
But all these are using OO Concepts.
Please help.
Regards,
Smruthi

TABLES:     ekko.
TYPE-POOLS: slis.                                 "ALV Declarations
*Data Declaration
TYPES: BEGIN OF t_ekko,
ebeln TYPE ekpo-ebeln,
ebelp TYPE ekpo-ebelp,
statu TYPE ekpo-statu,
aedat TYPE ekpo-aedat,
matnr TYPE ekpo-matnr,
menge TYPE ekpo-menge,
meins TYPE ekpo-meins,
netpr TYPE ekpo-netpr,
peinh TYPE ekpo-peinh,
line_color(4) TYPE c,     "Used to store row color attributes
END OF t_ekko.
DATA: it_ekko TYPE STANDARD TABLE OF t_ekko INITIAL SIZE 0,
      wa_ekko TYPE t_ekko.
*ALV data declarations
DATA: fieldcatalog TYPE slis_t_fieldcat_alv WITH HEADER LINE,
      gd_tab_group TYPE slis_t_sp_group_alv,
      gd_layout    TYPE slis_layout_alv,
      gd_repid     LIKE sy-repid.
START-OF-SELECTION.
PERFORM data_retrieval.
PERFORM build_fieldcatalog.
PERFORM build_layout.
PERFORM display_alv_report.
*&      Form BUILD_FIELDCATALOG
      Build Fieldcatalog for ALV Report
FORM build_fieldcatalog.
fieldcatalog-fieldname   = 'EBELN'.
fieldcatalog-seltext_m   = 'Purchase Order'.
fieldcatalog-col_pos     = 0.
fieldcatalog-outputlen   = 10.
fieldcatalog-emphasize   = 'X'.
fieldcatalog-key         = 'X'.
fieldcatalog-do_sum      = 'X'.
fieldcatalog-no_zero     = 'X'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'EBELP'.
fieldcatalog-seltext_m   = 'PO Item'.
fieldcatalog-col_pos     = 1.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'STATU'.
fieldcatalog-seltext_m   = 'Status'.
fieldcatalog-col_pos     = 2.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'AEDAT'.
fieldcatalog-seltext_m   = 'Item change date'.
fieldcatalog-col_pos     = 3.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MATNR'.
fieldcatalog-seltext_m   = 'Material Number'.
fieldcatalog-col_pos     = 4.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MENGE'.
fieldcatalog-seltext_m   = 'PO quantity'.
fieldcatalog-edit             = 'X'
fieldcatalog-col_pos     = 5.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'MEINS'.
fieldcatalog-seltext_m   = 'Order Unit'.
fieldcatalog-col_pos     = 6.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'NETPR'.
fieldcatalog-seltext_m   = 'Net Price'.
fieldcatalog-col_pos     = 7.
fieldcatalog-outputlen   = 15.
fieldcatalog-datatype     = 'CURR'.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
fieldcatalog-fieldname   = 'PEINH'.
fieldcatalog-seltext_m   = 'Price Unit'.
fieldcatalog-col_pos     = 8.
APPEND fieldcatalog TO fieldcatalog.
CLEAR fieldcatalog.
ENDFORM.                    " BUILD_FIELDCATALOG
*&      Form BUILD_LAYOUT
      Build layout for ALV grid report
FORM build_layout.
gd_layout-no_input          = 'X'.
gd_layout-colwidth_optimize = 'X'.
gd_layout-totals_text       = 'Totals'(201).
gd_layout-info_fieldname =      'LINE_COLOR'.
ENDFORM.                    " BUILD_LAYOUT
*&      Form DISPLAY_ALV_REPORT
      Display report using ALV grid
FORM display_alv_report.
gd_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            i_callback_program      = gd_repid
            i_callback_pf_status_set = 'STATUS'
            i_callback_top_of_page   = 'TOP-OF-PAGE'
           i_callback_user_command = 'USER_COMMAND'
           i_grid_title           = outtext
            is_layout               = gd_layout
            it_fieldcat             = fieldcatalog[]
           it_special_groups       = gd_tabgroup
           IT_EVENTS                = GT_XEVENTS
            i_save                  = 'X'
           is_variant              = z_template
       TABLES
            t_outtab                = it_ekko
       EXCEPTIONS
            program_error           = 1
            OTHERS                  = 2.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form DATA_RETRIEVAL
      Retrieve data form EKPO table and populate itab it_ekko
FORM data_retrieval.
DATA: ld_color(1) TYPE c.
SELECT ebeln ebelp statu aedat matnr menge meins netpr peinh
   UP TO 10 ROWS
    FROM ekpo
    INTO TABLE it_ekko.
LOOP AT it_ekko INTO wa_ekko.
    ld_color = ld_color + 1.
    IF ld_color = 8.
      ld_color = 1.
    ENDIF.
    CONCATENATE 'C' ld_color '10' INTO wa_ekko-line_color.
    MODIFY it_ekko FROM wa_ekko.
ENDLOOP.
ENDFORM.                    " DATA_RETRIEVAL
      FORM top-of-page                                              *
FORM top-of-page.
WRITE:/ 'This is First Line of the Page'.
ENDFORM.
      FORM status                                                   *
FORM status USING rt_extab TYPE slis_t_extab. .
SET PF-STATUS 'ALV'.
ENDFORM.
      FORM USER_COMMAND                                          *
--> RF_UCOMM                                                      *
--> RS                                                            *
FORM user_command USING rf_ucomm LIKE sy-ucomm
                         rs TYPE slis_selfield.
DATA ref1 TYPE REF TO cl_gui_alv_grid.
CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR'
    IMPORTING
      e_grid = ref1.
CALL METHOD ref1->check_changed_data.
CASE rf_ucomm.
when 'SAVE'.
get all the modified entries and store them in an internal table and udpate them in to the required transaction or your custom table.
endcase.
endform.
ENDFORM.
here u need to 2 performs for PF status and USER_COMMAND in the ALV parameters.
create a custom PF status and create push buttons and assign your ok codes in your PF status.
if the field has to be edited in the ALV then pass EDIT = 'X' for that field in the fieldcatlog preparation.
Hope this will help you.
Regards,
phani.

To store PDF into BLOB and retrieve into OLE/OCX

We would like to:
1. Store a PDF file (output of a report saved in file server) into a BLOB
column.
2. Retrieve previously stored PDF in the BLOB column and display using either
OLE automation or ActiveX (OCX) control.
I read all related documents in metalink that addresses this issue however cant
get this to work. We have Acrobat Reader 4.0. Here are some issues from the
tests that I did:
1. To load the PDF file the program code that uses BFILE and LOADFROMFILE does
not work since the database is on a remote server and the PDF file is on a
local file server. The DIRECTORY created on the database is unable to find the
PDF file.
2. Though I want the loading of the file to be programmatic, I tried
right-click on the OLE container and inserted object from file. This loaded the
file into the container (Icon on the container appeared) however I was not able
to view the document by double-clicking. An error in Adobe occured: 'There was
an error opening this document. A file read error occured'. My guess is the
'Insert Object' did not insert the file properly into the BLOB.
3. When trying to display the PDF file stored in file server (in case storing
into BLOB does not work), I used an OCX control, right-clicked and Insert
Object and select Adobe Control for ActiveX. The problem here is when I run the
form, the OCX control shows up empty and I have to 'Insert Object' again in
runtime. Once I manually insert object from runtime the GET_INTERFACE POINTER &
SET_PROPERTY works fine is displaying the document. Is there any way to
maintain the control property of the OCX when the form is run?
4. Are there any workarounds and better solution to store PDFs into BLOBs and
retrieve and display in OLE/OCX controls? Using temporary file into local drive
is not an issue.
5. Would I be able to make use of 'PDF.PdfCtrl.1' OLE class?
6. Does OLE automation work for Acrobat Reader 4.0.?
I would appreciate all the help.
Shyam

Im facing a similar kind of problem. I want to store and retrieve Office files, PDF and Jpegs into/from the database to view them on web in disconnected mode. Please reply as I cant find any help/documentation regarding saving BLOB data into files. I was able to store file data into BLOB, using DBMS_LOB package.
Shahzad

To store Reports in Blob fields

Similar Messages

Maybe you are looking for