Re: Odd Error

[Michael Ryan <michaelrtr@xxxxxxxxx>]

What's the definition of getBatchSize?

On Thu, Sep 15, 2011 at 12:23 PM, Mark Walter <mwalter@xxxxxxxxxxxxxxx> wrote:
> I'm getting a
> *RNF7416 30        004456  The types of the right and left hand side do not match in
>                           the EVAL operation.
>
> In the following code:
> 0044.53      DbatchSize        S                   like(getBatchSize)
> 0044.54      Di_batchSize      S              5i 0
> 0044.55
> 0044.56      C/exec sql
> 0044.57      C+ SELECT pmsize INTO :batchSize :i_batchSize
> 0044.58      C+ FROM Pmodel
> 0044.59      C+ WHERE pmpmtp || pmpmnm =
> 0044.60      C+  (SELECT rdType || rdpmnm
> 0044.61      C+    FROM Rmodel
> 0044.62      C+    WHERE rdschd = :rsNum
> 0044.63      C+     AND rdmstp = ' ')
> 0044.64      C/end-exec
> 0044.65
> 0044.66      C                   if        i_batchSize > 0
> 0044.67      C                   eval      batchSize = 0
> 0044.68      C                   endif
> 0044.69
> 0044.70      C                   return    batchSize
>
> Anyone know why?
>
> Thanks
>
> Mark D. Walter
> Business to Business Data Integration Specialist
> Certified IBM System I Specialist
> Paragon Consulting Services, Inc.
> mwalter@xxxxxxxxxxxxxxx
> 717-764-7909 Ext. (1)26
>
> --
> This is the RPG programming on the IBM i / System i (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.