Re: *ZERO vs *ZEROS

[Jeff Young <jyoung0950@xxxxxxxxx>]

Birgitta,
The code is just for explanation purposes.
The actual code is fixed form.

All,
It seems that this may be a compiler error at the client.
I will ask them to open a PSR (I do not have authority to do that).

Thanks,



On Thu, Jan 5, 2012 at 9:40 AM, Kurt Anderson
<kurt.anderson@xxxxxxxxxxxxxx>wrote:

> I'm at IBM I 7.0 and this works for me -  I set my breakpoint on *In01
>
>     D FldA            S              1A
>     D FldB            S              7S 0
>
>      /free
>
>       FldA = 'Y';
>       FldB = 0012345;
>
>       If FldA = 'Y'
>       and FldB > *ZERO;
>
>         *In01 = *On;
>
>       EndIf;
>
>       *inlr = *On;
>       Return;
>
> -Kurt Anderson
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Jeff Young
> Sent: Thursday, January 05, 2012 8:14 AM
> To: rpg400-l@xxxxxxxxxxxx
> Subject: *ZERO vs *ZEROS
>
> All,
> I have the following code:
> FldA   1A
> FldB   7S 0
>
> FldA = 'Y'
> FldB = 0012345
> /Free
>  If FldA = 'Y'
>     and FldB > *ZERO
> .
> .
> .
> .
> EndIf
>
> When I run this code using the *ZERO, the If fails and control transfers
> to the EndIf; When I change the code to use *ZEROS, it works fine.
>
> Running 6.1.1.
> PTF TL60215
>
> Why does it not work with *ZERO?
>
> Thanks,
>
>
>
>
> --
> Jeff Young
> Sr. Programmer Analyst
> --
> 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.
>
> --
> 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.