Re: Assistance With Embedded SQL

[Adam Glauser <adamglauser@xxxxxxxxxxxx>]

Robert Munday wrote:
> Have you ever had one of those days?  That which worked swell in the past no longer does.  It must be advancing age.
>
> I'm creating a PREPARE statement in my RPG program for an embedded SQL statement.  I have a quotation mark field defined as:
>
> D @Q              S              4A   Inz('''')                            Quotation Marks

I think that having @Q defined as 4A is probably not what you want, and 
may be causing some of the strange values you are seeing in debug.  If 
History_Code_Manual contains "123" and is defined as 3A, and you have 
the statement:
QQW = 'Where (BHBHST = ' + @Q + History_Code_Manual + @Q

Assuming QQW is defined as long enough to hold the whole statment, the 
value of QQW will be "Where (BHBHST = '   123'   ".  I think what you 
want is "Where (BHBHST = '123'".

The best solution, in my opinion, would be to create a quote() procedure 
that returns a Varying Character type containing the quoted value. 
Otherwise, @Q should probably be defined as a constant:
D @Q              C                       ''''