RE: Quick question

In RPG III, it would be *LIKE DEFN (opcodes were limited to 5
characters).

Francis Lapeyre
IS Dept. Programmer/Analyst
Stewart Enterprises, Inc.
E-mail: flapeyre@xxxxxxxx 

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Rick.Chevalier@xxxxxxxxxxxxxxx
Sent: Tuesday, December 26, 2006 3:16 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: RE: Quick question


Doug,

You can use *LIKE DEFINE, or define it on the C-spec where it is used as
a result field.

C       *LIKE           DEFINE  Patterned on field      newfield

C       FIELD1  ADD       1                             NEWFIELD
5 0

HTH,

Rick

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Douglas Palme
Sent: Tuesday, December 26, 2006 3:11 PM
To: 'RPG programming on the AS400 / iSeries'
Subject: Quick question

I have to modify an RPG III program, and need to add a
variable and if memory serves me correctly I cannot just add
a d type to an RPG III program..would someone clarify this
for me and if I'm correct, would you mind refreshing my
feeble brain on how to do it?







**************************************************************
**************
This transmission may contain information that is privileged,
Confidential and/or exempt from disclosure under applicable law.
If you are not the intended recipient, you are hereby
notified that any disclosure, copying, distribution, or use
of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED. If you received this
transmission in error, please immediately contact the sender
and destroy the material in its entirety, whether in
electronic or hard copy format. Thank you.
**************************************************************
**************

Privileged and Confidential.  This e-mail, and any attachments there to,
is intended only for use by the addressee(s) named herein and may
contain privileged or confidential information.  If you have received
this e-mail in error, please notify me immediately by a return e-mail
and delete this e-mail.  You are hereby notified that any dissemination,
distribution or copying of this e-mail and/or any attachments thereto,
is strictly prohibited.