Re: How do you move a text 30 char long to a field?

["Booth Martin" <Booth@xxxxxxxxxxxx>]

--
--
[ Picked text/plain from multipart/alternative ]
Hans, I can't agree more about moving to "Eval" land, but I am discovering
that sometimes people just need a poke to get going on a stumper.

RPGIII also offers CAT in many varieties, but if a programmer doesn't
already know the RPGIII CAT, then there's no valid reason to learn it
because its cleaned up and useful in RPGIV.



---------------------------------------------------------
Booth Martin   http://www.MartinVT.com
Booth@MartinVT.com
---------------------------------------------------------

-------Original Message-------

From: rpg400-l@midrange.com
Date: Tuesday, December 11, 2001 12:30:45 PM
To: rpg400-l@midrange.com
Subject: Re: How do you move a text 30 char long to a field?

Booth wrote:
>C MOVEL'Initial' TMP14 14

>C MOVE ' Balanc'TMP14

>C MOVELTMP14 IETEXT

>C MOVEL'e - Eur' TMP14

>C MOVE 'o Migra' TMP14

>C MOVE 'tion' TMP18 18

>C MOVELTMP14 TMP18

>C MOVE TMP18 IETEXT

>

>I've counted wrong there somewhere, but you get the idea.


You've just given Oscar a great reason to move to RPG IV!

(Oh BTW, this can be done easier in RPG III using a compile-time
array. But moving to RPG IV is definitely the best solution.)

Cheers! Hans

Hans Boldt, ILE RPG Development, IBM Toronto Lab, boldt@ca.ibm.com

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@midrange.com
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
or email: RPG400-L-request@midrange.com
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.


.
--
[ Content of type image/gif deleted ]
--