RE: output specs and indicators

["Bob Cozzi" <cozzi@xxxxxxxxx>]

Another way is to convert the indicators to IF statements. Although this
is NOT always a one-to-one comparison it can be effective.

C               if           *IN98 and *IN97 and NOT *IN99
C               Eval         X = 'ABCDEFG'
C               endif

The caveat is that the NOT'ed indies need to either be put into parens,
or placed at the end of the expression.

E.g.

C               if           (NOT *IN99) and *IN98 and *IN97


-Cozzi

-----Original Message-----
From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]
On Behalf Of Russell Conerly
Sent: Monday, December 02, 2002 9:46 AM
To: rpg400-l@midrange.com
Subject: RE: output specs and indicators



C  N99
Can 98
Can 97              eval      x = 'ABC'

Odetail    e    01 02n99
O         and  n98

Regards,
Russell Conerly


-------------------
> I have a similar question.  How do you put 3 indicators on a single
> calculation in the Calculation specs in RPGLE?  I am converting some
RPG36
> code to RPGLE and was wondering how this would be done.
>
> Thank you,
> Lori
>
> I need to put 4 indicators on a single output item in the output
specs.
> Is there a way to create a continuation line for the fourth
indicator?
>
> Thank you,
> MLR
>
>
> -----Original Message-----
> From: Bob Cozzi [mailto:cozzi@rpgiv.com]
> Sent: Monday, December 02, 2002 10:17 AM
> To: rpg400-l@midrange.com
> Subject: RE: output specs and indicators
>
>
> Mary,
>
> Use the AND option on a second line as follows (in RPG IV):
>
>      OQPRINT         01 02 03
>      O         AND   04
>
>
> RPG III has something similar.
>
> Bob Cozzi
>
>
> -----Original Message-----
> From: rpg400-l-admin@midrange.com
[mailto:rpg400-l-admin@midrange.com]
> On Behalf Of Mary Riggins
> Sent: Monday, December 02, 2002 9:07 AM
> To: rpg400-l@midrange.com
> Subject: output specs and indicators
>
>
> I need to put 4 indicators on a single output item in the output
specs.
> Is there a way to create a continuation line for the fourth
indicator?
>
> Thank you,
> MLR
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing
> list To post a message email: RPG400-L@midrange.com To subscribe,
> unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L)
mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives at
> http://archive.midrange.com/rpg400-l.
>
>
_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list To post a message email: RPG400-L@midrange.com To subscribe,
unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.