Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref

Author Message
knobi

New User

Joined: 16 Aug 2005
Posts: 51

 Posted: Fri Jul 03, 2015 5:16 am    Post subject: Move one Stem to another 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

Senior Member

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

 Posted: Fri Jul 03, 2015 5:27 am    Post subject: Reply to: Move one Stem to another 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: 51

Posted: Fri Jul 03, 2015 5:51 am    Post subject:

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: 51

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

Moderator

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

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

Search our Forum:

 Topic Author Forum Replies Posted Similar Topics REXX EXECIO STEM No newline Harold Barnes CLIST & REXX 3 Tue Sep 17, 2019 6:07 am Move a particular line from a PS file... Jitesh Kumar CLIST & REXX 7 Mon Aug 05, 2019 2:48 am RMM Cannot move a volume from SHELF l... tspr52 IBM Tools 0 Thu Mar 01, 2018 3:48 pm how can i move s9(9) to s9(9) usage comp HARENDRA CHOUDHARY COBOL Programming 3 Mon Nov 06, 2017 12:10 am Move from Comp3 variable to Edited Va... Revathy.nair0485 COBOL Programming 7 Fri Nov 03, 2017 3:30 pm

 © 2003-2017 IBM MAINFRAME Software Support Division
 Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us