Re: Who Knew You Could Do That With MI?

[Gene_Gaunt/ReviewWorks@xxxxxxxxxxxxxxx]

Thank you, JeanMichel!  Now I see the DIM, BIT, etc. information is stored
in the symbol table, not the program creation template, so I'll have to
modify my RTVMISRC and DSPSYMTBL utitilites to handle these items.
Occassionally we've seen symbol table entries from old programs with the
"array segment present" and "extension segment present" bits set; now we
know what it means.  Here's how the debugger shows multi-dimension arrays
from the following MI source code:

DCL DD AAA AUTO CHAR(24) INIT("ABCDEFGHIJKLMNOPQRSTUVWX");
DCL DD BBB DEF(AAA) POS(1) CHAR(1) DIM(3,8);

The debug command DSPPGMVAR 'BBB(1,*)' displays the following:

'A'  'B'  'C'  'D'  'E'  'F'  'G'  'H'

The debug command DSPPGMVAR 'BBB(*,1)' displays the following:

'A'  'I'  'Q'

Also I found the MI compiler accepts an LBL statement that references a
prior branch point like this:

HERE: CPYNV X,1;
      CPYNV X,2;
      LBL HERE;

If the LBL statement occurs before the branch point the compiler gives
fatal error CPF6313, "Label not declared before being referenced to in LBL
statement."  I don't know the purpose of LBL.


+---
| This is the MI Programmers Mailing List!
| To submit a new message, send your mail to MI400@midrange.com.
| To subscribe to this list send email to MI400-SUB@midrange.com.
| To unsubscribe from this list send email to MI400-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: dr2@cssas400.com
+---