Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
Need to loop & extract from variable using parse and substr

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CLIST & REXX
View previous topic :: :: View next topic  
Author Message
pkmurali
Warnings : 1

Active User


Joined: 15 Dec 2005
Posts: 261

PostPosted: Thu Jan 10, 2019 11:42 pm    Post subject: Need to loop & extract from variable using parse and substr
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 Member


Joined: 14 Mar 2007
Posts: 10552
Location: italy

PostPosted: Fri Jan 11, 2019 2:13 am    Post subject: Reply to: Need to loop & extract from variable using parse and substr
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: 261

PostPosted: Fri Jan 11, 2019 12:35 pm    Post subject:
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    IBMMAINFRAMES.com Support Forums -> CLIST & REXX All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts Will this code extract 1 byte from fi... pkmurali CLIST & REXX 8 Sat Nov 10, 2018 11:13 pm
No new posts Confusion regarding length of SQLCA v... Vivek0410 DB2 4 Thu Oct 18, 2018 2:20 pm
No new posts AFP duplex page containing variable data jose angel santamaria IBM Tools 0 Wed Jul 18, 2018 12:35 pm
No new posts How to extract the difference from Su... pkmurali TSO/ISPF 3 Mon Jul 02, 2018 8:44 pm
No new posts Extract the records with a PD field's... sudhakar84 DFSORT/ICETOOL 11 Mon Apr 02, 2018 7:26 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us