Indicator field not defined and *INXX

["Ken Sims at SWS Nevada" <ken.sws@xxxxxxxxx>]

Hi Simon -

>Date: Fri, 6 Aug 1999 10:08:49 +0100
>From: "Simon Thompson" <rattus@enterprise.net>
>Subject: Re: Mysterious MCH3601 errors at V4R3M0
>
>>>Is just my imagination but since using RPG400 (V4R2) I cannot use
>>>N99 99 in the indicator columns to issue a dummy operation.
>>
>>Two questions:
>>
>>1. Why would you want to?  Why use indicators?
>>
>>2. What happens?  Does the operation actually get executed?
>>
>>Ken
>
>Ken, I guess I'am just a dinosaur still using RPG2 and 3 techniques
>now again.
>The complile fails with 'field not defined' ?!

The compiler is being more picky.  Since the indicator is not set on
or off by any operation, it is "undefined".  If you would use an
indicator that is actually used in the program for something, it would
work.  Personally though, I would still recommend the never-true-IF,
so that you don't have bogus indicator references showing up in the
cross-reference listing.  If you are using RPG III, just use:
'A'   IFEQ  'B'
instead of the:
IF 'A' = 'B'
of my previous example.

>Somebody on the News400 RPG Forum has asked the question what is INXX
>as it appears on a program dump as set to '1' . I used to know but I
>cant' find it in any of the manuals, maybe I should post this as a
>seperate message ?

The following is from an IRP listing:

DCL DD *INXX CHAR(1) INIT('1')              /*INDICATOR ALWAYS ON*/

Ken
Southern Wine and Spirits of Nevada, Inc.







+---
| 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
+---