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
This topic is locked: you cannot edit posts or make replies. GDG gen check using REXX raghuraman123 CLIST & REXX 6 Wed Apr 18, 2018 9:18 pm
No new posts Find & Replace string in CA-SORT mrgnndhmk CA Products 1 Fri Mar 30, 2018 12:58 am
No new posts How to control Panel Attributes throu... rsshanmugam CLIST & REXX 3 Mon Feb 26, 2018 9:51 pm
No new posts Find a string in PS file opened in br... mukkas CLIST & REXX 3 Sat Feb 24, 2018 2:15 pm
This topic is locked: you cannot edit posts or make replies. how to get Job information from IOF u... rsshanmugam CLIST & REXX 13 Mon Feb 05, 2018 4:22 pm

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