Re: 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.