Re: front end RPG MI program
"Rich Hart" <[email protected]> Thu, 16 Aug 2007 11:44:24 -0500
| Newsgroups | gmane.comp.lang.as400.mi |
|---|---|
| Message-ID | <000b01c7e024$b41cf6b0$030fa8c0@NORIHART> |
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. ----- Original Message ----- From: "Keith Carpenter" <[email protected]> To: "MI Programming on the AS400 / iSeries" <mi400-Zwy7GipZuJhWk0Htik3J/[email protected]> Sent: Thursday, August 16, 2007 9:17 AM Subject: Re: [MI400] front end RPG MI program [email protected] wrote: > Hi Rich, > > here u have the logs when I run the RPG crtmipgm programm: > > ID message . . . . . . : CPF6301 Gravité . . . . . . . : 40 > Type de message . . . : Arrêt programme > Date d'envoi . . . . . : 16/08/07 Heure d'envoi . . . . : > 13:06:05 Are you using this version of Leif's program ? http://archive.midrange.com/mi400/199911/msg00003.html I assume by your email address that you are in France. There may be a character translation problem as Mark suggested. Look for this line in the source code array and check if the all characters look correct. CPYBLAP LINE(LINE-NBR), <23|/*'/*'/*"/*"*/; PEND;;;>, " "; Here's the documentation for the MI compiler API. http://publib.boulder.ibm.com/infocenter/iseries/v5r4/index.jsp?topic=/apis/qprcrtpg.htm You can change the program to produce a report. Using the program from the first link above change the 5 lines with ">>>" to the new values below. /*================================================================ * 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 >>> I I 'QPRINT *LIBL' 118 137 #PRTFL I B 138 1410#STRPG I 142 151 #AUT >>> 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 >>> C PARM #PRTFL C PARM 0 #STRPG C PARM '*USE' #AUT >>> C PARM #OP >>> 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.