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

[Jim Langston <jlangston@xxxxxxxxxxx>]

Sample from used RPG III program:

I              'OVRDBF FILE(TRAN-    C         COMAD1
I              'SMIT) TOFILE(CIT-
I              'INV/'
 *
I              ') OVRSCOPE(*JOB)'    C         COMAD2

C                     MOVE *BLANKS   COMAND 62
C           COMAD1    CAT  FILEFT:0  COMAND
C                     CAT  COMAD2:0  COMAND

So....

I              'Initial Balance -    C         TMPTXT
I              '- Euro Migration'

C                     MOVE TMPTXT    IETEXT 32

I find that the easiest to actually see what I am doing.
And fairly self documenting.

Regards,

Jim Langston

-----Original Message-----
From: bill.reger@convergys.com [mailto:bill.reger@convergys.com]
Sent: Tuesday, December 11, 2001 9:10 AM
To: rpg400-l@midrange.com
Subject: RE: How do you move a text 30 char long to a field?



It's probably not important but this string is actually 32 characters long.

Bill

>> You can define a table:
>> E                    DSC     1   1 30
>>
>> Then, at the bottom of the program:
>> **
>> INITIAL BALANCE - EURO MIGRATION
>>
>> The calculation is:
>> C                     MOVELDSC,1     IETEXT 30