|
I just tried this and it works as you wish (use fixed font to read it):
FMT E .....E....FromfileTofile++Name++N/rN/tbLenPDSArrnamLenPDSComm
*************** Beginning of data ***************************
0001.00 E AR1 3 1
0002.00 I DS
0003.00 I 1 30NUMBER
0004.00 I 1 3 AR1
0007.00 C Z-ADD123 NUMBER
0008.00 C MOVE *ON *INLR
****************** End of data ******************************
(debug view at LR time:)
Variable . . . . . . . . . . . . . . . : AR1
Lower/upper bounds . . . . . . . . . : (1:3)
Type . . . . . . . . . . . . . . . . : CHARACTER
Length . . . . . . . . . . . . . . . : 1
Element ----------------------Values-------------
1 '1' '2' '3'
Hope this helps.
In <01BE3331.84675090@POVOA>, on 12/29/98
at 01:44 PM, Silvio Santos <Silvio.Santos@biw-ag.de> said:
>I will try to explain what I want to do. I need to process an array in
>which each position cointains only one number (not like you said, 3
>number in each positions); in the case of the 123 I want to copy that
>integer to an array an then it will have the 1 in first position, the 2
>in the second position and the 3 in the third position. And this all
>done with RPG/400 not ILE,
>Silvio.
>----------
>De: boothm@ibm.net[SMTP:boothm@ibm.net]
>Enviado: Tuesday, December 29, 1998 12:45 AM
>Para: RPG400-L@midrange.com
>Assunto: Re: Is possible copy an integer to an array ?
>Can you show us the E lines? You should be able to move 123 into an
>array where the size of each element is 3.
>I am wondering if you have somehow defined your array as 3 elements, with
>each element 1 character long?
>In <01BE3260.6B8107A0@COIMBRA>, on 12/28/98
> at 12:48 PM, Silvio Santos <Silvio.Santos@biw-ag.de> said:
>>In RPG/400 is possible to copy an integer for instance 123 to an array
>>with 3 positions ? Because when I make a MOVE 123 array the tree
>>positions are occupied with the number 3 (the last integer).... I also
>>tried the MOVEL an MOVEA but they didnt work too.
>>Silvio.
--
-----------------------------------------------------------
boothm@ibm.net
Booth Martin
-----------------------------------------------------------
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
* This is the RPG/400 Discussion Mailing List! To submit a new *
* message, send your mail to "RPG400-L@midrange.com". To unsubscribe *
* from this list send email to MAJORDOMO@midrange.com and specify *
* 'unsubscribe RPG400-L' in the body of your message. Questions should *
* be directed to the list owner / operator: david@midrange.com *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
As an Amazon Associate we earn from qualifying purchases.
This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].
Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.