RE: An introduction to MI by example II (part B)...

[Pete Hall <pbhall@xxxxxxxxxx>]

At 14:31 11/18/1999 , Brendan Bispham wrote:
>I think that this technique has potential... but a little help is needed. I
>shall try something more ambitious, but I shall get in trouble when the
>compiler fails - is there a way of determining which line is causing a
>problem?

Sure. If you request an output listing, you will get a storage usage map 
that will identify the location of the errors. I've got a very old 
interface to the API if anyone is interested. It's got a few warts, but it 
works:

                          Create MI/IR program (CRTIRPGM)

  Type choices, press Enter.

  Program name . . . . . . . . .   > XXXX          Name
    Library    . . . . . . . . .   >   HALL        Name, *CURLIB
  Source file  . . . . . . . . .     QIRSRC        Name
    Library  . . . . . . . . . .       *LIBL       Name, *LIBL
  Source member name . . . . . .     *PGM          Name, *PGM
  Public authority . . . . . . .     *CHANGE
  Text description  . . . . . 
.  .   *SRCMBRTXT
                                                                             

                            Additional Parameters

  Create program object  . . . .     *GEN          *GEN, *NOGEN
  Replace program  . . . . . . .     *REPLACE      *REPLACE, *NOREPLACE
  Output listing . . . . . . . .     *LIST         *LIST, *NOLIST
  Cross reference listing  . . .     *NOXREF       *NOXREF, *XREF
  List program attributes  . . .     *ATR          *ATR, *NOATR
  Operational authority  . . . .     *USER         *USER, *ADOPT, *OWNER
  Adopt process authority  . . .     *ADPAUT       *ADPAUT, *NOADPAUT
  Constrain arrays . . . . . . .     *SUBSCR       *SUBSCR, *NOSUBSCR, *UNCON
  Constrain strings  . . . . . .     *SUBSTR       *SUBSTR, *NOSUBSTR
  Initialize static storage  . .     *CLRPSSA      *CLRPSSA, 
*NOCLRPSSA
  Initialize automatic storage .     *CLRPASA      *CLRPASA, *NOCLRPASA
  Ignore decimal data errors . .     *NOIGNDEC     *NOIGNDEC, 
*IGNDEC
  Ignore binary data errors  . .     *NOIGNBIN     *NOIGNBIN, *IGNBIN
  Support coincident operands  .     *NOOVERLAP    *NOOVERLAP, 
*OVERLAP
  Allow duplicate declares . . .     *NODUP        *NODUP, *DUP
  Optimize program . . . . . . .     *OPT          *OPT, *NOOPT
Pete Hall
pbhall@execpc.com
http://www.execpc.com/~pbhall
+---
| 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
+---