How to read current line via a macro

dvpkumar217 · Posted: Sat Sep 01, 2007 12:52 am

My requirement is to read the current line using a macro. I have written the following code, but its not working.

/*************************** REXX *************************/
"ISPEXEC CONTROL NONDISPL ENTER"
ADDRESS ISREDIT
"ISREDIT MACRO"
"ISREDIT (LINER) = LINE .ZCSR"
SAY LINER

Output: LINER

expat · Posted: Sat Sep 01, 2007 1:19 am

Try

"ISREDIT (CRSLINE,CRSCOL) = CURSOR"

Where CRSLINE gives the line number and CRSCOL gives the column location

Rather nicely documented in the manual

dbzTHEdinosauer · Posted: Sat Sep 01, 2007 1:33 am

instead of this:
"ISREDIT (LINER) = LINE .ZCSR"
use this
"ISREDIT (LINER) = LINE" .ZCSR

.zcsr should not be in the quotes.

dvpkumar217 · Posted: Sat Sep 01, 2007 1:38 am

Its not working still... even after

"ISREDIT (LINER) = LINE" .ZCSR

Thanks
Pavan.

expat · Posted: Sat Sep 01, 2007 1:49 am

What is the error message, please post what you are seeing at the point of failure

dvpkumar217 · Posted: Sat Sep 01, 2007 1:51 am

It says: LINER

Expected output: Current line in a PS.

Thanks
Pavan.

dbzTHEdinosauer · Posted: Sat Sep 01, 2007 1:55 am

expat · Posted: Sat Sep 01, 2007 1:59 am

"ISREDIT (CRSLINE,CRSCOL) = CURSOR"
"ISREDIT (LINEDATA) = LINE " CRSLINE

Has always worked for me.

Once the cursor has been positioned on a line by a F 'whatever' command, I use the above code and LINEDATA contains the line from the dataset.

The fact that your output shows 'LINER' suggests that the variable is uninitialised. Are you running batch or foreground.

dvpkumar217 · Posted: Sat Sep 01, 2007 2:05 am

Thanks for your quick response.

But I am not aware of TRACE. What is TRACE and how is it used?

My actual requirement is:

I have to display the current line (where the cursor is positioned) in a PDS member. So I will be giving the EXEC command in the command line, place the cursor at the required line in a PDS Member and hit an enter. The expected output is that line where the cursor is present.

Please let me know if there is any other better way to achieve this.

Thanks,
Pavan.

expat · Posted: Sat Sep 01, 2007 2:18 am

OK, I am somewhat baffled by the reason for performing this task.

Dare I ask if this is a HOMEWORK or project type question. Because if it is - Please do not post these questions on the forum. We are here to help people not to do their homework for them.

dvpkumar217 · Posted: Sat Sep 01, 2007 2:21 am

I am really sorry, if I have asked you so many questions.

But, I am not sitting here to do any homework... Please help me if you know.

I am generating a tool for my company.

Thanks,
Pavan.

expat · Posted: Sat Sep 01, 2007 2:29 am

Well, as Dick has said - run with TRACE ?R as the very first line of code after the REXX first line. Or use TRACE I for even more detail.

dick scherrer · Posted: Sat Sep 01, 2007 2:31 am

Hello,

dvpkumar217 · Posted: Sat Sep 01, 2007 2:42 am

Thanks for the help. I could use TRACE.

But RC(20) is being returned at

"ISREDIT MACRO"

and

"ISREDIT (LINER) = LINE" .ZCSR

I am not sure why??

Thanks for your help and patience.

dbzTHEdinosauer · Posted: Sat Sep 01, 2007 3:11 am

are you in an edit or view session when executing the macro?

expat · Posted: Sat Sep 01, 2007 3:41 am

Try

ADDRESS TSO

instead of ADDRESS ISREDIT