Re: Assistance With Embedded SQL

[Michael_Schutte@xxxxxxxxxxxx]

You already have your answer but it should  be  1A for @Q   or defined as
constant.


Michael Schutte
Admin Professional
Bob Evans Farms, Inc.





midrange-l-bounces@xxxxxxxxxxxx wrote on 04/01/2008 02:42:22 PM:

> Also posted to the RPG List (they must all be at COMMON this week):
>
>
> Have you ever had one of those days?  That which worked swell in the
> past no longer does.
>
> 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 am creating a statement which contains several variable fields.  I
> have had to resort to breaking the statements into segments and
> inserting character variables.  I originally tried:
>
> // Set Where For Records Having Days Past Due In Range For The
> Selected Agency
> QQW = 'Where GRGDPD Between :DayN_From And :DayN_To ' +   // Days
> Past Due In Range
>  ' And GRGAID = :Proc_Agency ';                           // For
> This Agency
>
> The compiler could not find Proc_Agency or the Day values, so I
> broke them into segments:
>
> QQW = 'Where GRGDPD Between ' + Days_From + ' And ' + Days_To +  //
> Days Past Due In Range
>  ' And GRGAID = ' + @Q + Proc_Agency + @Q;                       //
> For This Agency
>
> The value I have for Agency, 'XXXX, is shown in debug as '   XXXX  '
> with lots of spaces between the quote mark and the field value.  In
> another example,
>
> QQW = 'Where (BHBHST = ' + @Q + History_Code_Manual + @Q +  //
> Select Manual History Code
>  ' Or BHBHST = ' + @Q + History_Code_Special + @Q + ')' +   //
> Select Special History Code
>  ' And BHBTDT >= ' + %Char(Last_Run_7) +              // Manual And
> Special Since Last Run
>  ' And BHBTDT < ' + %Char(Today_7) ;

> The history code fields are 3A, but show in debug as '    123  '.
>
> What will I need to do to tighten up these values and make my
> prepare statement function?  I don't know if the client's system is
> causing this as I have been doing prepare statements for a few years
> and haven't had this much difficulty getting my RPG embedded SQL
> programs to run.  At what point did :FIELDNAME stop working for me?
>
> Thanks for your help.
>
>
>
> Robert Munday
> Munday Software Consultants
> Montgomery, AL
> on assignment in Columbia, SC
>
>
> --
> This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
> To post a message email: MIDRANGE-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/midrange-l
> or email: MIDRANGE-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.