Re: [MI400] A Blast from the Past

["Bruce Wilson" <bruce.wilson2@xxxxxxxxxxx>]

My home grown version of CRTMIPGM allows a %INCLUDE directive to pull in 
standardized common MI
routines and a conditional pair of bracketing %IFDEF and %END which optionally 
includes code based on
comparison with a parameter on the command.  This was useful for MI differences 
between S/38 and
AS400.  Depth of nesting allows %INCLUDEs within %INCLUDEs to the second level.

Jim Langston wrote:

> Just a comment on the 2nd type.
>
> If MI follows C, then they are not quite the same.
>
> #Define NAMED-CONSTANT = 'ANYTHING'
> When you use that in your program, the compiler will replace NAMED-CONSTANT 
>with 'ANYTHING'.
>
> DD  CON  NAMED-CONSTANT  CHAR(10)  INIT('ANYTHING');
> When you use that in your program, the compiler will the address of the 
>constant.
>
> The main difference being that the #Define uses the object stack.  The CON 
>uses the program stack.
>
> That's how it would work in C, anyway.  It may actually work different in MI.
>
> Regards,
>
> Jim Langston
>
> -----Original Message-----
> From: Richard Hart [mailto:rhart@ATCDG.COM]
>
> About two kinds of macros:
>
> (1)  complicated ones
> (2)  simple ones (as:  %Define CARRIAGE-RETURN = X'0D'  /* In Ascii */
>
> The second kind is really just a named constant, right?  I guess we have the
>
>                 DD  CON  NAMED-CONSTANT  CHAR(10)  INIT('ANYTHING');
>
> Definition type for that.
> _______________________________________________
> This is the MI Programming on the AS400 / iSeries (MI400) mailing list
> To post a message email: MI400@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/mi400
> or email: MI400-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/mi400.


"WorldSecure Server <safeway.com>" made the following
 annotations on 10/22/02 17:03:06
------------------------------------------------------------------------------
Warning:
All e-mail sent to this address will be received by the Safeway corporate 
e-mail system, and is subject to archival and review by someone other than the 
recipient.  This e-mail may contain information proprietary to Safeway and is 
intended only for the use of the intended recipient(s).  If the reader of this 
message is not the intended recipient(s), you are notified that you have 
received this message in error and that any review, dissemination, distribution 
or copying of this message is strictly prohibited.  If you have received this 
message in error, please notify the sender immediately.


==============================================================================