Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

REXX find command

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

New User


Joined: 29 Sep 2005
Posts: 3

PostPosted: Fri Feb 10, 2006 6:51 pm    Post subject: REXX find command
Reply with quote

I wanted to know the syntax of find command in REXX. Pls give an example too.

Also can you pls find out the error in the following rex code

"FIND "'PROCEDURE DIVISION'" WORD FIRST"
"(PDROW,PDCOL) = CURSOR"
Back to top
View user's profile Send private message

superk

Moderator Team Head


Joined: 26 Apr 2004
Posts: 4648
Location: Raleigh, NC, USA

PostPosted: Fri Feb 10, 2006 7:13 pm    Post subject: Re: REXX find command
Reply with quote

Why is it so difficult for folks to look this stuff up for themselves? It's described right here.

Quote:

FIND is a non-SAA built-in function provided only by TSO/E and VM.

WORDPOS is the preferred built-in function for this type of word search.

FIND(string,phrase)

returns the word number of the first word of phrase found in string or returns 0 if phrase is not found or if there are no words in phrase. The phrase is a sequence of blank-delimited words. Multiple blanks between words in phrase or string are treated as a single blank for the comparison.

Here are some examples:

FIND('now is the time','is the time') -> 2
FIND('now is the time','is the') -> 2
FIND('now is the time','is time ') -> 0


Quote:
Also can you pls find out the error in the following rex code

"FIND "'PROCEDURE DIVISION'" WORD FIRST"
"(PDROW,PDCOL) = CURSOR"

That is not REXX code (REXX code would not coded within quotes). It looks more like an ISPF EDIT 'FIND' command, possibly even part of an ISPF EDIT Macro. If it is, you can look here.
Back to top
View user's profile Send private message
priti

New User


Joined: 29 Sep 2005
Posts: 3

PostPosted: Fri Feb 10, 2006 7:25 pm    Post subject: Re: REXX find command
Reply with quote

Well I saw this explanation in the IBM manual, but the rexx code I have is not using the same format.
AS I mentioned earlier,
can u find out the error in the following rexx code
"FIND "'PROCEDURE DIVISION'" WORD FIRST"
"(PDROW,PDCOL) = CURSOR"
Back to top
View user's profile Send private message
mainfrae
Currently Banned

New User


Joined: 07 Feb 2006
Posts: 4

PostPosted: Fri Feb 10, 2006 7:28 pm    Post subject: Re: REXX find command
Reply with quote

HI PRITA
change the code by giving "FIND 'PROCEDURE DIVISION' FIRST" or
"FIND 'PROCEDURE DIVISION' WORD FIRST".it is working fine for me.
U can use SEEK command also.SEEK means search,but there is difference between SEEK and FIND

COL8=8
"SEEK "COL8" 'PROCEDURE DIVISION' FIRST"

COL8 is a variable which represents the 8th column

If u need more information,please let me 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 REXX cdoe to purge a JOB from spool a... Sulabh Agrawal CLIST & REXX 11 Thu Mar 09, 2017 11:36 am
No new posts TSO or command line utility to genera... kishpra JCL & VSAM 3 Thu Mar 09, 2017 1:11 am
No new posts Customizing the ISPF HILITE Command Pedro TSO/ISPF 3 Fri Mar 03, 2017 11:49 pm
No new posts Overriding PS data in rexx Shaheen Shaik CLIST & REXX 8 Fri Mar 03, 2017 5:08 pm
No new posts REXX compiled via RXTCOMP sergeyken CLIST & REXX 7 Tue Feb 07, 2017 9:41 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us