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

Author Message
knobi

New User

Joined: 16 Aug 2005
Posts: 53

 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: 2192
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: 53

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

 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 Reading the CSV data in COBOL and mov... wik123 COBOL Programming 4 Tue Dec 03, 2019 5:13 pm Bad arithmetic conversion when assign... Ajay Baghel CLIST & REXX 4 Tue Nov 26, 2019 11:29 am Can you manually set an EOF marker in... Don Allard CLIST & REXX 5 Sat Nov 02, 2019 12:30 am 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

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