Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Cursor positon in Each Record

Status
Not open for further replies.

imrexx

Programmer
Nov 9, 2005
12
US
Hi

i was doing a tool in Rexx in Mainframe
In that i have a situation in which i need to read each record or line from a dataset which is in EDIT session.

After i read i need to get its cursor position (Start position of the record)

For Example

i have 3 records
/***************************************/
he is the guy
hello evrybody
hai Sir
/***************************************/

My output needs to be
1
4
6

Could any1 pls advice on this

Thanks
Imran
 
You do have a manual available to you, don't you?

Look up VERIFY. You can use VERIFY to find the position of the first non-blank character. I think that will be the number you're looking for.

But before you do that, scroll this page down to where the REPLY box is and see below it "E-Mail Notification", "Emoticons/Smileys", and "Process TGML" (all parts of "Step 2 Options"). Click "Process TGML". About 3/4 of the way down, read about the "code" tag.

Communication is the responsibility of the SENDER.


Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
 
Hi Frank

Thanks for the help

The thing is i dont know what's there in the dataset. When it reads it shud analyse it and it needs to get me the column number of the start position of the string

Could you please give me the skeleton of the code how it looks like if possible

Please suggest on this

Thanks
Imran
 
Code:
address ISREDIT
"(text) = LINE" line#
first_non_blank_at = Verify(text," ")

Frank Clarke
Tampa Area REXX Programmers' Alliance
REXX Language Assn Listmaster
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top