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

Alter control loop using compound variables


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

New User


Joined: 15 Oct 2007
Posts: 27
Location: Canada

PostPosted: Thu Jun 26, 2008 8:14 pm
Reply with quote

I'm trying to alter the boundaries of a loop using a compound variable (ie if condition is met move the end of an entry to another line). Hopefully the code illustrates better what I'm trying to accomplish:

Code:

/* rexx */                                     
 enum = 1                                       
 entry.enum.start = 4                           
 entry.enum.stop = 6                           
                                               
 Do i = entry.enum.start to entry.enum.stop     
   Say "Ln# :"i                                 
   If i = 5 Then entry.enum.stop = 10           
 End i           


Output is:

Ln# :4
Ln# :5
Ln# :6

....instead of all the way to Ln# :10

So my question would be, is it possible to alter the loop inside when a condition is met or is the boundaries given will be the boundaries committed to?
Back to top
View user's profile Send private message
expat

Global Moderator


Joined: 14 Mar 2007
Posts: 8797
Location: Welsh Wales

PostPosted: Fri Jun 27, 2008 12:19 pm
Reply with quote

Maybe a shift in logic, but be warned - This code is untested and is intended purely as a guide icon_eek.gif

Code:

/* rexx */   
 eof = 0                                   
 enum = 1                                       
 entry.enum.start = 4                           
 entry.enum.stop = 6                           
   
 i = entry.enum.start

Do until(eof)                                             
     Say "Ln# :"i                                 
     If i = 5 Then entry.enum.stop = 10             
     if i = entry.enum.stop
        then eof = 1
     i = i + 1
End   
Back to top
View user's profile Send private message
enrico-sorichetti

Superior Member


Joined: 14 Mar 2007
Posts: 10873
Location: italy

PostPosted: Fri Jun 27, 2008 12:33 pm
Reply with quote

the logic behind is a bit odd, but....
the answer is nooo
the do loop boundaries are computed at do loop initialization
( You can check by running with TRACE "I" )

the only whay ( I tested ) is with a while

Code:
start = 4
end = 6
i = start

do while ( i <= end )
    say "i " i
    if i = 5 then end = 10
    i = i + 1
end
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 Using Dynamic file handler in the Fil... COBOL Programming 2
No new posts DROP & ALTER PARTITION-PBR DB2 0
This topic is locked: you cannot edit posts or make replies. REXX - Do - Not able to LOOP CLIST & REXX 10
No new posts JCL with variables JCL & VSAM 1
No new posts Help Control-R IBM Tools 2
Search our Forums:

Back to Top