|
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-2024 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.