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
 
How to find the pattern of string in rexx

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

New User


Joined: 20 Dec 2006
Posts: 5
Location: india

PostPosted: Tue Jan 23, 2007 2:53 pm    Post subject: How to find the pattern of string in rexx
Reply with quote

Hi ..
I wanted to search the record for a particular pattern .Is there any function in rexx which will serve my purpose .
The pattern which iam interested is "-1234567-"
The pattern will have hypen followed by some 6 or 7 digits number and a hypen ...
Back to top
View user's profile Send private message

amolj

New User


Joined: 08 Nov 2006
Posts: 21
Location: india

PostPosted: Tue Jan 23, 2007 4:27 pm    Post subject: hi
Reply with quote

hi ...

can u define the exact format for the record ...
we can search for a string within a string by using INDEX ...
also we can search for string directly in the dataset by using ISREDIT command

"ISREDIT F FIRST"(string to be searched)
Back to top
View user's profile Send private message
ofer71

Global Moderator


Joined: 27 Dec 2005
Posts: 2360
Location: Israel

PostPosted: Tue Jan 23, 2007 4:54 pm    Post subject:
Reply with quote

Something like that?
Code:
/* REXX */                                                             
                                                                       
A = '-1234567-'                                                       
                                                                       
IF DATATYPE(STRIP(A,"B","-"),'W') & LENGTH(STRIP(A,"B","-")) = 7 THEN 
  SAY 'MATCH'                                                         
ELSE                                                                   
  SAY 'MISMATCH'                                                       
                                                                       
EXIT                                                                   
                                                                       


O.
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 line 52: Name or string > 250 char... Ashishpanpaliya CLIST & REXX 5 Sat Oct 14, 2017 2:29 am
No new posts How to write Rexx program to size and... sreejeshcs CLIST & REXX 14 Thu Oct 12, 2017 7:26 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 5 Wed Oct 04, 2017 6:54 am
This topic is locked: you cannot edit posts or make replies. Rexx to execute spool commands upendrasri CLIST & REXX 47 Fri Sep 29, 2017 1:08 pm
No new posts ejck thru rexx to multiple jobs insid... Susanta All Other Mainframe Topics 5 Tue Sep 19, 2017 1:39 pm

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