# Move one Stem to another

Author Message
knobi

New User

Joined: 16 Aug 2005
Posts: 53

 Posted: Fri Jul 03, 2015 5:16 am hi.. It's been awhile since the last time with rexx and i'm getting some logic trouble to put one stem into another one. Basically i'm trying to group 4 lines from old stem into 1 line on the new one. Any help is welcome! Thanks ! old.1 = "A" old.2 = "A" old.3 = "A" old.4 = "A" old.5 = "A" old.6 = "A" old.7 = "A" old.8 = "A" desired result new.1 = "A A A A" new.2 = "A A A A" Note, not sure if counts or not but the old. stem may have 200 lines and may not be multiple by 4... so last new var may have few than 4 A's.
Pedro

Global Moderator

Joined: 01 Sep 2006
Posts: 2214
Location: Silicon Valley

 Posted: Fri Jul 03, 2015 5:27 am Your example would be better if the OLD stem had different values so we could see where they came from and where you want them. 1. you want a loop to process all of the OLD stem 2. within the loop, you need assignment statements for the NEW stem 3. concatenate the OLD stem values to whatever is in NEW stem 4. increment the index for the NEW stem every four times.
knobi

New User

Joined: 16 Aug 2005
Posts: 53

Posted: Fri Jul 03, 2015 5:51 am

thanks.. but it didn't help... as i said it been awhile... pls don't feel obligated to post...

folks... any change to the code below is welcome...

 Code: full.1=" "                                     x=1                                             do i=1 to dat1.0                                                                                  if substr(dat1.i,28,1) = "X" then do               full.x = full.x || substr(dat1.i,29,10)                                                     end                                         end                                                                                              say full.1                                                                                    exit 0

Code'd
knobi

New User

Joined: 16 Aug 2005
Posts: 53

 Posted: Fri Jul 03, 2015 6:37 am i think i got it.. thanks !!!
Pandora-Box

Moderator

Joined: 07 Sep 2006
Posts: 1565
Location: Andromeda Galaxy

 Posted: Fri Jul 03, 2015 8:03 pm What do you want to do if the file is having empty line?
 View Bookmarks All times are GMT + 6 Hours

 Topic Forum Replies Similar Topics Reading the CSV data in COBOL and mov... COBOL Programming 4 Bad arithmetic conversion when assign... CLIST & REXX 4 Can you manually set an EOF marker in... CLIST & REXX 5 REXX EXECIO STEM No newline CLIST & REXX 3 Move a particular line from a PS file... CLIST & REXX 7
Search our Forums: