Re: Constants and IF?

["Denis Robitaille" <DRobitaille@xxxxxxxxxxxx>]

Drop the "+" at the end of the line. RPGIV does not need a caracter to tell it 
that there is more lines.

c if (sbsname = sbsqbatch) or 
c   (sbsname = sbsqinter) or 
c   (sbsname = sbsqpgmr)
<process subsystems>
c endif

Denis Robitaille
Cascades inc.
Tel: 819-363-5187
DRobitaille@cascades.com

>>> "Goodbar, Loyd (AFS-Water Valley)" <LGoodbar@afs.bwauto.com> 09/02 4:30 pm 
>>>>
I encountered a wierd problem that's been bugging me all afternoon:

I have the following in an RPG 4 program (V3R7):

d sbsqbatch c const('QBATCH    ')
d sbsqinter c const('QINTER    ')
d sbsqpgmr c const('QPGMR     ')
d jdata ds
d  sbsname 2 11       Subsystem name
d  jobname 4 13       Job name
...
c if sbsname = sbsqbatch
<process qbatch>
c endif
...
c if sbsname = sbsqinter
<process qinter>
c endif
...

This works fine. But I get errors if I use the following in the calcs:
c if (sbsname = sbsqbatch) or +
c   (sbsname = sbsqinter) or +
c   (sbsname = sbsqpgmr)
<process subsystems>
c endif

The compiler gives me this error for each of the lines in that if
statement: *RNF7421 (severity 30) Operands are not compatible with the
type of operator.

This doesn't make sense; I'm just using a combined if rather than
seperate IFs. Any suggestions??

Thanks,
Loyd Goodbar
+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com 
+---

+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to MIDRANGE-L@midrange.com.
| To subscribe to this list send email to MIDRANGE-L-SUB@midrange.com.
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---