Re: front end RPG MI program
[email protected] Fri, 17 Aug 2007 09:59:37 +0200
| Newsgroups | gmane.comp.lang.as400.mi |
|---|---|
| Message-ID | <[email protected]> |
Hi Keith,
look at this message I receive when I run crtmipgm after changing the line with :I I '*REPLACE *LIST' 152 327 $OP
ID message . . . . . . : CPD3C53 Gravité . . . . . . . : 30
Type de message . . . : Diagnostic
Date d'envoi . . . . . : 17/08/07 Heure d'envoi . . . . : 09:53:51
Message . . . . : Option template entry is not valid.
Cause . . . . . : Value *LIST in option template entry 2 was not valid.
Recovery . . . : Specify a valid value and try the request again. Refer to
the OS/400 APIs topic in the Information Center book,
----Message d'origine----
>Date: Thu, 16 Aug 2007 09:54:44 -0700
>De: Keith Carpenter <[email protected]>
>A: MI Programming on the AS400 / iSeries <mi400-Zwy7GipZuJhWk0Htik3J/[email protected]>
>Sujet: 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.
>
>
-------------------------------------------------------------
Noos, votre bureau virtuel sur Internet : Mail...
Web : webmail.noos.fr
_______________________________________________
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.