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
 
Test for multiple equality

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

Senior Member


Joined: 07 Feb 2009
Posts: 1109
Location: Oostende, Belgium

PostPosted: Tue Sep 15, 2015 12:47 am    Post subject: Test for multiple equality
Reply with quote

Can anyone come up with a smart way of telling me if all values in a series are equal? The length of the series ranges from 1 to potentially about 200+ vID/value pairs (although in practice the longest series currently counts 15 pairs)

The format of the series is '{X-' followed by ID (3 characters)/space/number (sign+2digits)/space sets, so e.g.

Code:
{X-AA  +00 B   +00 CC  +00 D   +00
{X-AA  +00 B   +00 CC  +00 D   +00 E   +00 FF  +01 G   +00
{X-AA  +00 B   +00 CC  +00 D   +00 H   +00 II  +00 JJ  +01
{X-AA  +00 B   +00 CC  +00 D   +00 H   +00 II  +00 KK  +01 LL  +01 JJ  +01
{X-AA  +00 B   +00 H   +00 II  +00
{X-AA  +00 B   +00 H   +00 II  +00 JJ  +01 CC  +00 D   +00
{X-MM  -01
{X-NN  -08

I need to flag those where the number is not the same for all ID's.

If all values are +00, a simple

Code:
if string = translate(string, '000000000', '1234566789') then

works, but it (obviously) fails for cases where all values are the same, but not +00. One added complication is that the space following the number may in future be replaced by a space, or 'a', or 'b', or 'c', or 'd'.

This long-winded approach obviously works (and can be adapted if/when the a/b/c/d might be added at some stage):

Code:
ok = 1
do i = 2 by 2 to words(string) - 2 while ok
  ok = word(string, i) = word(string, i + 2)
end
Back to top
View user's profile Send private message

Pedro

Senior Member


Joined: 01 Sep 2006
Posts: 2110
Location: Silicon Valley

PostPosted: Tue Sep 15, 2015 3:24 am    Post subject: Reply to: Test for multiple equality
Reply with quote

I think your "obvious" approach looks pretty good.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1284
Location: Israel

PostPosted: Tue Sep 15, 2015 12:10 pm    Post subject:
Reply with quote

If a loop cannot be avoided (as I suspect), better stick to the obvious.
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 Splitting one row into multiple Rows ... Rajan Moorthy DFSORT/ICETOOL 9 Mon May 14, 2018 10:58 pm
No new posts write multiple lines in PS file in cobol Balu5491 COBOL Programming 7 Wed Mar 07, 2018 10:27 am
No new posts Using multiple routines at exit 6 in ... Randy Horowitz All Other Mainframe Topics 2 Sat Feb 10, 2018 11:57 pm
No new posts Sum the fields in particular format f... sharana64 DFSORT/ICETOOL 9 Fri Jan 05, 2018 1:11 am
No new posts Merging 2 records at multiple rows wi... Bijesh DFSORT/ICETOOL 2 Wed Dec 06, 2017 1:50 am

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