Portal | IBM Manuals | Downloads | Products | Refer | Info | Programs | JCLs | Forum Rules*| Site Map | Mainframe CD 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index
 
Register
 
IBMMAINFRAMES.com - IBM Mainframe Support Forums Index FAQ Search Memberlist Usergroups Profile Log in to check your private messages Log in
 
Need help on string manupulation in REXX

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
Author Message
shakti

New User


Joined: 20 Jan 2004
Posts: 37
PostPosted: Wed Sep 24, 2008 1:53 pm    Post subject: Need help on string manupulation in REXX
 Reply with quote
Hi,

I would like to change the below line

FROM

=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 05 FILLER PIC X(22) VALUE 'XXXXXXXXXXXXXXX'.

TO

=COLS> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7--
****** ***************************** Top of Data ******************************
000001 05 FILLER PIC X(22) VALUE
000002 'XXXXXXXXXXXXXXXXXXXXXX'.
****** **************************** Bottom of Data ****************************

Is there any possibility of changing as above using string concepts in REXX...

Thanks
Shakti
Back to top
View user's profile Send private message
References
hchinnam

Active User


Joined: 18 Oct 2006
Posts: 68
PostPosted: Wed Sep 24, 2008 4:31 pm    Post subject:
Reply with quote
This piece of code should do.

Code:


"ISREDIT (SEGLINE) = LINE .ZF"       
SEGL1 = SUBSTR(SEGLINE,1,29)         
SEGL2 = SUBSTR(SEGLINE,29,51)       
"ISREDIT LINE .ZF = (SEGL1)"         
"ISREDIT LINE_AFTER .ZF = (SEGL2)"   



However you might need to customize it based on your requirement.
Back to top
View user's profile Send private message
enrico-sorichetti

Global Moderator


Joined: 14 Mar 2007
Posts: 3273
Location: italy
PostPosted: Wed Sep 24, 2008 5:14 pm    Post subject: Reply to: Need help on string manupulation in REXX
 Reply with quote
the snippet will only manipulate the line ...

here is the snippet
Code:
line0 = "05 FILLER PIC X(22) VALUE 'XXXXXXXXXXXXXXX'."
say "line0  >>" || line0 || "<<"
offst = pos("VALUE",line0)
line1 = left(line0, offst+5)
line2 = substr(line0,offst+6)
say "line1  >>" || line1 || "<<"
say "line2  >>" || line2 || "<<"


here is the result
Code:
line0  >>05 FILLER PIC X(22) VALUE 'XXXXXXXXXXXXXXX'.<<
line1  >>05 FILLER PIC X(22) VALUE <<
line2  >>'XXXXXXXXXXXXXXX'.<<
Back to top
View user's profile Send private message
Display posts from previous:   
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1