RE: RPG Stored Procedure returning a BLOB

Thanks Bob. Had already figured you wanted to say it this way and not
myString. This did get the compiler to like it. Now on to test the web
side to see if it gets the blob

>>> cozzi@xxxxxxxxx 4/6/2006 10:34 AM >>>
Sorry, had the data backwards. You should do this:
You can't have a parameter as a data structure subfield. Hence the SQL
preprocessor is crapping out when tries to pass the input parm in the
data
structure it generates. Put the field in the program like this:

D inBlob        S             Like(myBlob)
             *ENTRY PLIST
   myBlob           PARM          inBlob

Everything else leave the same, and it should work.

-Bob Cozzi
www.RPGxTools.com
RPG xTools - Enjoy programming again.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On
Behalf Of Mike Cunningham
Sent: Thursday, April 06, 2006 8:52 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: RPG Stored Procedure returning a BLOB

I want to return a BLOB field from an RPG program that is being used
as
a stored procedure. I can create the BLOB field and get the data in it
that I want but when I add the BLOB field to the *ENTRY parameter list
to pass it back I get a compiler error that the BLOB field can be
initialized.

I defined a large string and a BLOB like this

MyString        S          20000                       
MyBlob           S                  SQLTYPE(BLOB:20000)

I put the  data I want to return in MyString and then use this SQL
command to put in the BLOB field

C/EXEC SQL                           
C+ SET :MYBLOB = BLOB(:MYSTRING)     
C/END-EXEC                           

Doing this compiles OK and I can run the app and see the data in both
MyString and MyBlob in debug.

When I add this line of code I get the compiler error
C     *ENTRY        PLIST 
C                        PARM                    MyBlob 

*RNF7306 20      1 The initial value for a pointer field is not valid.
The initial value for pointer field SQL_00006 is not valid.

               DS                                    
SQL_00000              1      2B 0 INZ(128)          
SQL_00001              3      4B 0 INZ(1)            
SQL_00002              5      8B 0 INZ(0)            
SQL_00003              9      9A   INZ('0')          
SQL_00004             10    128A                     
SQL_00005            129  20128A                     
SQL_00006                      *   INZ(%ADDR(MYBLOB))