Hdatedit(*ymd) nomain
     DgetVI            pr             5i 0
     D viKey                         10    const

     PgetVI            b                   export
     DgetVI            pi             5i 0
     D viKey                         10    const

     D viCount         s              5i 0

     C/exec sql values ( select count(*) from accpth
     c+                  where apfile = :viKey ) into :viCount
     C/end-exec

     C                   return    viCount
     P                 e

That returns a COUNT() for any variable viKey passed into that WHERE clause. But perhaps you mean something different. An example that shows what you need might be useful.

Tom

Unfortunately, the “prepare”/”execute” method will not work with a Select statement. I thought I’d give it a try anyway, and got SQLSTT of 42618 (host variable not permitted here). It looks like the cursor is the way I will have to go to get the record count fetched into a host variable (since I have a dynamic “where” clause).

/Free
w@Cmd = ‘Create Alias QTEMP/ALIAS1 For ‘
+ %Trim(s1OrigLib) + ‘/’ + %Trim(s1OrigFile)
+ ‘(‘ + %Trim(s1Member) + ‘)’;
/End-Free

C/Exec SQL
C+ Prepare w@Statement From :w@Cmd
C/End-Exec

C/Exec SQL
C+ Execute w@Statement
C/End-Exec

Obviously the SQL statement in w@Cmd isn’t relevant to what you are doing but you should get the idea on how to do it for your problem.

Now I have a question for Vatchy concerning not having to declare a cursor to obtain a record count. My situation is that the “where” part of the select statement will be dynamic. The only examples I have found which involved a dynamic select stmt always used a cursor. In view of the dynamic nature of the select, is there a way to obtain the count without a cursor?