Re: front end RPG MI program
Keith Carpenter <[email protected]> Thu, 16 Aug 2007 09:54:44 -0700
| Newsgroups | gmane.comp.lang.as400.mi |
|---|---|
| Message-ID | <[email protected]> |
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.