Re: front end RPG MI program

Thanks Keith; that is more clear.  Of course, if Emil has the CRTMIPGM 
command installed, it's easier to do it that way.

However!  I remember now that Leif's original CRTMIPGM did not allow for 
those OPTION() parameters to be changed; it was very basic.  I used a 
different command that was created by a fellow whose name escapes me for the 
moment; it was published in iSeriesNetwork on the Web, I believe.  It allows 
the User to change any of the OPTION() values whenever the command is 
prompted.  Of course, the "back end" is different too (uses RPG rather than 
MI to call the QPRCRTPM Api).  I have a copy of it if Emil is interested.  A 
copy *somewhere* -- I justed upgraded to a new Windows computer and it is 
missing some things.  Anyway, the important thing is to be able to get the 
API to spit out a translation diagnostic listing; absolutely essential. 
Because you will *always* get the translation errors on first-time compiles. 
Even Leif said he did!

Rich

----- Original Message ----- 
From: "Keith Carpenter" <[email protected]>
To: "MI Programming on the AS400 / iSeries" <mi400-Zwy7GipZuJhWk0Htik3J/[email protected]>
Sent: Thursday, August 16, 2007 11:54 AM
Subject: Re: [MI400] front end RPG MI program


> Rich Hart wrote:
>> That's right; I forgot.  You have to specify to the QPRCRTPM Api that you
>> want a compile listing.  If you are using the CRTMIPGM front end that 
>> Leif
>> supplied, you can do it from the command.
>
> Rich,
>
> I'm only guessing as to which "frontend" program is being used.
>
> I made a bad choice of <<< for change markers. Came out quoted. Here's
> it again with "CHG".
>
>    /*================================================================
>      * This program creates MI compiler CRTMIPGM in *CURLIB.         =
>      * Source statements for the MI compiler are found in array MI.  =
>      *================================================================
>     E                    MI      1 208 80
>     I            DS
>     I                                    B   1   40#SRCLN
>     I I            'CRTMIPGM  *CURLIB'       5  24 #PGMLB
>     I                                       25  74 #TEXT
>     I I            '*NONE'                  75  94 #SRCFL
>     I                                       95 104 #MBR
>     I                                      105 117 #CHGDT
>     I                                      105 105 #CENT
>     I                                      106 107 #YY
>     I                                      108 111 #MMDD
>     I                                      112 117 #HMS
> CHG  I I            'QPRINT    *LIBL'       118 137 #PRTFL
>     I                                    B 138 1410#STRPG
>     I                                      142 151 #AUT
> CHG  I I            '*REPLACE   *LIST'      152 327 #OP
>     I                                    B 328 3310#NOOPT
>     C                     CALL 'QPRCRTPG'
>     C                     PARM           MI
>     C                     PARM 16640     #SRCLN
>     C                     PARM           #PGMLB
>     C                     PARM 'MI Comp' #TEXT
>     C                     PARM           #SRCFL
>     C                     PARM           #MBR
>     C                     PARM           #CHGDT
> CHG  C                     PARM           #PRTFL
>     C                     PARM 0         #STRPG
>     C                     PARM '*USE'    #AUT
> CHG  C                     PARM           #OP
> CHG  C                     PARM 2         #NOOPT
>     C                     MOVE *ON       *INLR
>
>
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/mi400
> or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.
>
> 

_______________________________________________
This is the MI Programming on the AS400 / iSeries (MI400) mailing list
To post a message email: MI400-Zwy7GipZuJhWk0Htik3J/[email protected]
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/mi400
or email: MI400-request-Zwy7GipZuJhWk0Htik3J/[email protected]
Before posting, please take a moment to review the archives
at http://archive.midrange.com/mi400.