IBM Mainframe Forum Index
 
Log In
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Register
 

Need to loop & extract from variable using parse and substr


IBM Mainframe Forums -> CLIST & REXX
Post new topic   Reply to topic
View previous topic :: View next topic  
Author Message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 264

PostPosted: Thu Jan 10, 2019 11:42 pm
Reply with quote

Hi all

I will receive user input like

Offset='1:20,30:10,40:15,60:70'

I tried the below piece of code

Code:

/*****REXX****/
say 'Enter the offset and length value like:(1:20,30:15,40:15)'
Pull offst
offset1=strip(offst)
cnt1=find(offset1,',')
if cnt1=0 then
do
parse value offset1 with o1 ':' l1
end
if cnt1=1 then
do
pos1=pos(',',offset1)
pos2=pos1-1
str1=substr(offset1,1,pos2)
str2=substr(offset1,pos1 +1)
parse value str1 with o1 ':' l1
parse value str2 with o2 ':' l2
end
.
.
.




I will try trace option to fix the code , but is there any alternate function to
extract the value? Please share. I need to get 1:20 as o1=1 and l1=20 Dynamically from user input.
Back to top
View user's profile Send private message
enrico-sorichetti

Senior Moderator


Joined: 14 Mar 2007
Posts: 10714
Location: italy

PostPosted: Fri Jan 11, 2019 2:13 am
Reply with quote

Code:

/* Rexx */
data  = "01:20,30:15,40:15"
do  while data \= ""
    parse var data tokn "," data
    parse var tokn head ":" tail
    say tokn head tail
end
Back to top
View user's profile Send private message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 264

PostPosted: Fri Jan 11, 2019 12:35 pm
Reply with quote

Thanks enrico.i will test and let you know
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic View Bookmarks
All times are GMT + 6 Hours
Forum Index -> CLIST & REXX

 


Similar Topics
Topic Forum Replies
No new posts FILE STATUS - 39 ON VARIABLE LENGTH V... COBOL Programming 2
No new posts Need to read duplicate rows from tabl... DB2 3
No new posts JCL to extract repeating records DFSORT/ICETOOL 6
No new posts Unable to display comp variable COBOL Programming 4
No new posts IWS/TWS build dinamic or variable APp... IBM Tools 0
Search our Forums:

Back to Top